+# 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';
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
+<HTML LANG="EN">
+ <HEAD>
+ <TITLE>Cluster Web - DX Cluster Web Interface.</TITLE>
+ <META HTTP-EQUIV="content-type" CONTENT="text/html; charset=ISO-8859-1">
+ <META NAME="Author" CONTENT="Ian Norton.">
+ <META NAME="DESCRIPTION" CONTENT="DX Cluster web interface">
+ </HEAD>
+
+<BODY BGCOLOR="#FFFFFF" LINK="#008080" ALINK="#000099" VLINK="#000099">
+
+ <H1>
+ <CENTER>
+ <FONT FACE="arial, helvicta" COLOR="#008080" SIZE=+2>
+ <B><BR>Cluster Web - DX Cluster Web Interface.</B><BR>
+EOF
+
+ print("Welcome to $HOSTNAME<BR>") ;
+
+print <<'EOF';
+ </FONT>
+ </CENTER>
+ </H1>
+
+<BR CLEAR="ALL">
+
+<HR>
+EOF
+
+if($ENV{CONTENT_LENGTH} > 0)
+ {
+ # Callsign is set - print the whole <APPLET> stuff....
+ # print("Callsign is $call[1]<BR>\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=\"HOSTNAME\" VALUE=\"$HOSTNAME\">\n") ;
+ print(" <PARAM NAME=\"PORT\" VALUE=\"$PORT\">\n") ;
+ print(" </APPLET>\n") ;
+ print("</CENTER>\n") ;
+ }