peteknob
01-15-2003, 12:43 AM
I am having trouble reading variables in my CGI Script that I am passing from a flash document. it is a very simple login tool (not password protected as it is not critical information),
I do not know if there is any necessary installation procedure for subparseform.lib ... perhpas that is my problem.
This is my flash code:
an input text field named "loggery" holds the text, and upon pressing a button this action is run:
on (release) {
getURL("http://www.pmkdesign.net/cgi-bin/log.cgi","", "POST");
}
this is my perl script; but the "elseif" portion is always executed indicating that the $uname variable has not received the info from the flash form. Any Help?
#!/usr/bin/perl
require "subparseform.lib";
&Parse_Form;
$uname = $formdata{'loggery'};
@names=("peteknob","NED");
if ($uname eq $names[0] ) {
print "Location: http://www.pmkdesign.net/\n\n";
} elsif ( $uname eq $names[1]) {
print "Location: http://www.nedev.com\n\n";
} else {print "Location: http://www.pmkdesign.net/index2.html\n\n";
}
Thanks, Pete M. Knob
I do not know if there is any necessary installation procedure for subparseform.lib ... perhpas that is my problem.
This is my flash code:
an input text field named "loggery" holds the text, and upon pressing a button this action is run:
on (release) {
getURL("http://www.pmkdesign.net/cgi-bin/log.cgi","", "POST");
}
this is my perl script; but the "elseif" portion is always executed indicating that the $uname variable has not received the info from the flash form. Any Help?
#!/usr/bin/perl
require "subparseform.lib";
&Parse_Form;
$uname = $formdata{'loggery'};
@names=("peteknob","NED");
if ($uname eq $names[0] ) {
print "Location: http://www.pmkdesign.net/\n\n";
} elsif ( $uname eq $names[1]) {
print "Location: http://www.nedev.com\n\n";
} else {print "Location: http://www.pmkdesign.net/index2.html\n\n";
}
Thanks, Pete M. Knob