Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Thanks to Valdez, I have a good working script: 
# inside finalorderpage.shtml
<!--#include virtual="/cgi-bin/intercept.cgi">

# intercept.cgi
#!/usr/bin/perl

use CGI;

# scripts executed via SSI don't get usual informations,
# so we must rebuild the query passed to our calling page
# using %ENV (it's a dirty trick)

my $req_uri = $ENV{REQUEST_URI};
my $query_string = substr($req_uri, index($req_uri, '?')+1);
my $q = new CGI($query_string);

print $q->header('text/html');
print $q->param('VendorTxCode');

[download]
How do I manage to get the script to print the output into the actual code, for example, if VendorTxCode = 3746887345, how can I insert the result into my SHTML page instead of just outputting the result onto the screen? This probably isn't the right way of doing it, but to get my point across, here is what I want to do: 
<INPUT type="hidden" name="VendorTxCode" value="<!--#include virtual="
+/cgi-bin/joyfultoys/order/bin/intercept.cgi">">

[download]
So my HTML will look something like: 
<INPUT type="hidden" name="VendorTxCode" value="3746887345">

[download]
Please excuse my lack of knowledge. I am learning fast...

Replies are listed 'Best First'.
Re: Perl/Server Side Includes
by valdez (Monsignor) on Nov 25, 2002 at 10:05 UTC

    This is exactly what you should do :) What is happening when you load the page? Any error? Tell us something more and we'll try to help you!

    Ciao, Valerio

[reply]
      If I just put it anywhere, it includes it as text, displayed on the page. But instead of displaying it, I want to use the result of intercept.cgi as HTML code. I have tried putting: 
      
<input type="hidden" name="transactioncode" value="<!--#include virtua
+l="/cgi-bin/intercept.cgi">">

      [download]
      Which I would like to write into the HTML as: 
      <input type="hidden" name="transactioncode" value="5655645">

      [download]
      But instead it writes as far as 
      Various HTML here
<input type="hidden" name="transactioncode" value="5655645

      [download]
      And then it crashes out. (If this makes sense). Thanks in advance.
[reply]
[d/l]
[select]

        Please try with:

        <input type="hidden" name="transactioncode" value='<!--#include virtual="/cgi-bin/intercept.cgi" -->'>

        Note the use of quote characters and the -- at the end of the SSI directive.

        Ciao, Valerio

[reply]
[d/l]

Back to Seekers of Perl Wisdom