#!/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 stuff.... # print("Callsign is $call[1]
\n") ; print("
\n") ; print(" \n") ; print(" \n") ; print(" \n") ; print(" \n") ; print(" \n") ; print("
\n") ; } else { # Callsign isn't set - print the login page. print <<'EOF';
Please enter your callsign:

EOF } print <<'EOF';
Spider Homepage. EOF