in reply to PERL and HTML
and here is a simple thank you page#!/usr/bin/perl use warnings; use CGI qw(:standard); use strict; print header(); print <<HERE; <html> <head> <title>test of javascript</title> <script language="JavaScript"> <!-- Begin function launchwin() { window.open("../jspopup.html", "dialog", "width=300, height=250, scrol +lbars=yes, resizable=yes"); } // End --> </script> </head> <body> <center> <form> <input type=button value="Click here to try the JavaScript!" onClick="launchwin()"> </form> </center> </body> </html> HERE
print <<END_HTML; Content-type: text/html <HTML> <HEAD> <TITLE>Thanks!</TITLE> </HEAD> <BODY bgcolor="#ffffff"><br> <P>Thanks for visiting our site : $username!</P> </BODY> </HTML> END_HTML
|
|---|