Date: Thu, 18 Oct 2001 20:51:19 -0400 From: "Andre` Niel Cameron" <AndreC@Axxs.net> To: "free bsd" <freebsd-questions@FreeBSD.ORG> Subject: Perl Help Please Message-ID: <077d01c15838$2a6af4f0$a50410ac@olmct.net>
next in thread | raw e-mail | index | archive | help
Hi,
This is driving me NUTS ok here is my scripts:
#!/bin/perl
print "Content-type: text/html\n\n";
@COMMAND= ("Login", "Fight");
&Display_Html("templates/login.html");
$check= $ENV{QUERY_STRING};
if ($check == $COMMAND[0]) {
&Display_Html("templates/test.html");
}
sub Display_Html {
$data_file = $_[0];
open(HTML, $data_file) || die("Could not open file!");
@Html_template=<HTML>;
close(HTML);
print "@Html_template";
@Html_template= ();
}
Two things,
One the IF statement is always true! And two it loads the test.html INTO
the login.html so its one web page the page doesn't change! I only started
Perl yesterday so I'm sure I did domething stupid anyone care to point it
out?
Regards,
Andre` C.
Technical Support
ԿԬ
----------------------------------------------------------------------------
-
Visit our support manual at http://supportmanual.com/
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-questions" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?077d01c15838$2a6af4f0$a50410ac>