X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=spider-web%2Fspider.cgi;h=8f104ce97d57e1117e1ab839c816a38b94d5e1c3;hb=363839f98405239478bbe5a85efad1d679a1c722;hp=b9b3a2595a488b37997c3029b5e4a9608dbe822d;hpb=f319bf06d72d135e7ec14ff8b27627187f5e2595;p=spider.git diff --git a/spider-web/spider.cgi b/spider-web/spider.cgi index b9b3a259..8f104ce9 100755 --- a/spider-web/spider.cgi +++ b/spider-web/spider.cgi @@ -1,79 +1,91 @@ -#! /bin/sh -# -################################################### -# -# Edit the following lines -# -# -portnumber=$"1407" -tempdir=$"/usr/local/httpd/spider/client/" -clustercall=$"PA4AB-15" -# -# -# -# End of configurable part -# -#################################################### -hostname=$"localhost" - -echo "Content-type: text/html" -echo -echo "
" -echo "" - -pattern=$(echo ${QUERY_STRING} | sed -e s,'call=',, | sed -e s/"&passwd="/" "/) -call=$(echo $pattern | cut -d' ' -f1) -passwd=$(echo $pattern | cut -s -d' ' -f2) - - -if [ ${call} = ""] ; then - echo "" - echo "" - -# all *.html tempory files remove older than 10 min -# -cd ${tempdir} -files=$(find *.html -mmin +10) -rm ${files} + { + # Callsign isn't set - print the login page. + print <<'EOF'; +
" - echo "" - echo "Welcome to the Spider DX Cluster" - echo "" - echo ${clustercall} - echo "" - echo " " - echo "" - echo '
" +#!/usr/bin/perl +# cluster-web.pl - perl login script for cluster web interface. +# @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. + +# Work out the hostname of this server. +use Sys::Hostname; +my $HOSTNAME = hostname(); + +# Set the hostname manually here if the above fails. +# $HOSTNAME = "gb7mbc.spoo.org" ; +$PORT = "8000" ; + +# Send text/html header to the browser. +print "Content-type: text/html\n\n"; + +# Get the parameters passed to the script. +read (STDIN, $post_data, $ENV{CONTENT_LENGTH}); +@call = split (/=/, $post_data) ; + +# Print the page header. + +print <<'EOF'; + + + + +Cluster Web - DX Cluster Web Interface. + + + + + + + ++
+ ++ + +
Cluster Web - DX Cluster Web Interface.
+EOF + + print("Welcome to $HOSTNAME
") ; + +print <<'EOF'; + +
+ +
+EOF + +if($ENV{CONTENT_LENGTH} > 0) + { + # Callsign is set - print the whole