projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update files in spider-web
[spider.git]
/
spider-web
/
spider.cgi
diff --git
a/spider-web/spider.cgi
b/spider-web/spider.cgi
index 8f104ce97d57e1117e1ab839c816a38b94d5e1c3..8b8763b28159dd393a0f818a2cb3391e9395cbd1 100755
(executable)
--- a/
spider-web/spider.cgi
+++ b/
spider-web/spider.cgi
@@
-4,13
+4,13
@@
# @author Ian Norton
# - Based on clx-web by DL6DBH (ftp://clx.muc.de/pub/clx/clx-java_10130001.tgz)
# - Modified by PA4AB
# @author Ian Norton
# - Based on clx-web by DL6DBH (ftp://clx.muc.de/pub/clx/clx-java_10130001.tgz)
# - Modified by PA4AB
-# @version 0.
1 beta. 20010610
.
+# @version 0.
2 beta. 20020519
.
# Work out the hostname of this server.
use Sys::Hostname;
my $HOSTNAME = hostname();
# Work out the hostname of this server.
use Sys::Hostname;
my $HOSTNAME = hostname();
-#
S
et the hostname manually here if the above fails.
+#
Uncomment and s
et the hostname manually here if the above fails.
# $HOSTNAME = "gb7mbc.spoo.org" ;
$PORT = "8000" ;
# $HOSTNAME = "gb7mbc.spoo.org" ;
$PORT = "8000" ;
@@
-19,10
+19,16
@@
print "Content-type: text/html\n\n";
# Get the parameters passed to the script.
read (STDIN, $post_data, $ENV{CONTENT_LENGTH});
# Get the parameters passed to the script.
read (STDIN, $post_data, $ENV{CONTENT_LENGTH});
-@call = split (/=/, $post_data) ;
-# Print the page header.
+$callstart = index($post_data, "=") + 1 ;
+$callend = index($post_data, "&") ;
+
+$call = substr($post_data, $callstart, $callend - $callstart),
+$password = substr($post_data, index($post_data, "=", $callend) + 1, length($post_data)) ;
+# Print the page header.
+#print("Callsign : $call") ;
+#print("Password : $password") ;
print <<'EOF';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
print <<'EOF';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
@@
-57,11
+63,12
@@
EOF
if($ENV{CONTENT_LENGTH} > 0)
{
# Callsign is set - print the whole <APPLET> stuff....
if($ENV{CONTENT_LENGTH} > 0)
{
# Callsign is set - print the whole <APPLET> stuff....
- # print("Callsign is $call
[1]
<BR>\n") ;
+ # print("Callsign is $call<BR>\n") ;
print("<CENTER>\n") ;
print(" <APPLET CODE=\"spiderclient.class\" CODEBASE=\"/client/\" width=800 height=130>\n") ;
print("<CENTER>\n") ;
print(" <APPLET CODE=\"spiderclient.class\" CODEBASE=\"/client/\" width=800 height=130>\n") ;
- print(" <PARAM NAME=\"CALL\" VALUE=\"$call[1]\">\n") ;
+ print(" <PARAM NAME=\"CALL\" VALUE=\"$call\">\n") ;
+ print(" <PARAM NAME=\"PASSWORD\" VALUE=\"$password\">\n") ;
print(" <PARAM NAME=\"HOSTNAME\" VALUE=\"$HOSTNAME\">\n") ;
print(" <PARAM NAME=\"PORT\" VALUE=\"$PORT\">\n") ;
print(" </APPLET>\n") ;
print(" <PARAM NAME=\"HOSTNAME\" VALUE=\"$HOSTNAME\">\n") ;
print(" <PARAM NAME=\"PORT\" VALUE=\"$PORT\">\n") ;
print(" </APPLET>\n") ;
@@
-75,8
+82,11
@@
else
<FORM METHOD=POST>
<STRONG>Please enter your callsign: </STRONG><BR>
<INPUT name="call" size=10><BR>
<FORM METHOD=POST>
<STRONG>Please enter your callsign: </STRONG><BR>
<INPUT name="call" size=10><BR>
+ <STRONG>Please enter your password: </STRONG><BR>
+ <INPUT name="password" size=10 TYPE=PASSWORD><BR>
<INPUT type=submit value="Click here to Login">
</FORM>
<INPUT type=submit value="Click here to Login">
</FORM>
+ <BR>If you do not have a password set - don't enter one :)
</CENTER>
EOF
}
</CENTER>
EOF
}