#!/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.2 beta. 20020519. # Work out the hostname of this server. use Sys::Hostname; my $HOSTNAME = hostname(); # Please note that the HOSTNAME MUST be resolvable from the user end. Otherwise the # web interface will NOT work. # Uncomment and set the hostname manually here if the above fails. # $HOSTNAME = "gb7mbc.spoo.org" ; $PORT = "8000" ; $NODECALL = "XX0XX" ; # 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}); $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';