On Wed, 26 Feb 2003 19:00:18 -0800, [EMAIL PROTECTED] (Tom McKellips) wrote:
>Hi, > >How do I embed a java script inside a perl cgi? In my perl code I have a Watch wordwrap :-) This javascript will give you the option to view another cgi in a popup window. The printenv script is at the bottom. -------------------------------------------------------------------------------------------------------- #!/usr/bin/perl $url='http://zentara.zentara.net/~zentara/cgi-bin/printenv'; print<<EOH; Content-type: text/html <html><body> EOH print<<EOT; <script type="text/javascript"> function showPopup() { var win; win = window.open("$url","poputWindow","width=400,height=400,status=no,resizable=yes,scrollbars=yes"); } </script> <a href="javascript:showPopup()">Show Results in Popup Window</a> <br><br> <a href="javascript:window.close();">Close</a><br> <br>or<br><br> <form><input type="button" value="Close" onclick="javascript:window.close();"></form> <br><br> <a href="javascript:history.go(-1)">Back to Previous Page</a> </body></html> EOT __END__ ------------------------------------------------------------------------------------------------------------------ #!/usr/bin/perl ## ## printenv -- demo CGI program which just prints its environment ## print "Content-type: text/plain\n\n"; foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; print "${var}=\"${val}\"\n"; } __END__ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
