Hello all,
I�m in the process of writing a CGI web page using
perl with some Javascript added (I�m new to
Javascript), and I�ve run into something that seems
simple enough to do but haven�t had much luck with it.
The web page has two radio buttons and a submit button
inside of one form. What I�m trying to do is open a
new window when the user presses the submit button and
have the value of the radio button get passed to the
new window and display it. Here�s the main script:
test1.pl
#!/usr/bin/perl
use DBI;
use FileHandle;
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<TITLE>TEST1</TITLE>\n";
print "<BODY BGCOLOR=\"#ffffff\">\n";
print "<SCRIPT language=\"JavaScript\">\n";
print "function open_new_window()\n";
print " {\n";
print " var = open(\"test2.pl\", \"test2\",
\"resizable=yes,height=500,width=600\")\n";
print " }\n";
print "</SCRIPT>\n";
print "<FORM method=\"post\" action=\"test2.pl\">\n";
print "<TABLE width=\"700\">\n";
print "<TR>\n";
print " <TD width=\"700\" align=left>\n";
print " <B><U>Members<U></B>\n";
print " </TD>\n";
print "</TR>\n";
print "</TABLE>\n";
print "<TABLE width=\"700\">\n";
print "<TR>\n";
print " <TD width=\"700\" align=left>\n";
print " <input type=radio name=member value=create>
Create a new member\n";
print " </TD>\n";
print "</TR>\n";
print "<TR>\n";
print " <TD width=\"700\" align=left>\n";
print " <input type=radio name=member value=delete>
Delete a member\n";
print " </TD>\n";
print "</TR>\n";
print "<TR>\n";
print " <TD width=\"700\" align=left>\n";
print " <input type=button name=\"memberbutton\"
value=\"Submit\"";
print " onClick=\"open_new_window()\">";
print " </TD>\n";
print "</TR>\n";
print "</TABLE>\n";
print "</FORM>\n";
print "</BODY>\n";
print "</HTML>\n";
Here is the script that it�s calling:
test2.pl
#!/usr/bin/perl
use DBI;
use FileHandle;
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print "name = $name, value = $value\n";
if ( $name eq 'member' ) { $member_action =
$value; }
}
print "<HTML>\n";
print "<TITLE>OnCall</TITLE>\n";
print "<BODY BGCOLOR=\"#ffffff\">\n";
print "MEMBER ACTION = $member_action\n";
print "</BODY>\n";
print "</HTML>\n";
Can anyone help me out?
Thanks!
-Stephen Spalding
__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
_______________________________________________
Redhat-list mailing list
[EMAIL PROTECTED]
https://listman.redhat.com/mailman/listinfo/redhat-list
