#!/usr/bin/perl $Root = $ENV{'DOCUMENT_ROOT'}; chdir("$Root/code/lineup"); $QueryString = $ENV{'QUERY_STRING'}; $Incomplete = 1; if ($QueryString ne "") { $Incomplete = 0; open (MYFILE, '>input'); @NameValuePairs = split (/&/, $QueryString); foreach $NameValue (@NameValuePairs) { ($Name, $Value) = split (/=/, $NameValue); $Value =~ tr/+/_/; $Value =~ s/%([\dA-Fa-f][\dA-Fa-f])/ pack ("C", hex($1))/eg; $Team[$index++] = $Value; print MYFILE "$Value\n"; } print MYFILE "y\n\n"; # fastbreak print MYFILE "exit\n"; close (MYFILE); } print "Content-type: text/html\n\n"; print "\n\n"; print "\n"; print "Strat-o-Matic Lineup Analyzer\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "

Strat-o-Matic Lineup Analyzer

\n"; print "
\n"; print "\n"; print "

\n"; print "Data is for the 2006-07 Sunnyvale Stars, which went 72-10.\n"; print "Subsequent teams have been sadly too bereft of talent to display.\n"; print "Note there is no error-checking to prevent a player being used\n"; print "multiple times. Believe it or not, there are occasions of use for\n"; print "this. The default option at each position is the traditional\n"; print "regular season starter. Due to minute limitations this is not\n"; print "necessarily the best player.\n"; print "

\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
PGSGSFPFC
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; if ($Incomplete == 0) { system("$Root/code/lineup/offense < input > output"); open (MYFILE, "output"); $FirstLine = readline (MYFILE); ($Ignore, $Out) = split (/Fastbreak\?/, $FirstLine); print "$Out
"; for ($i = 0; $i < 3; $i++) { $Out = readline (MYFILE); print "$Out
"; } close (MYFILE); unlink ("input"); unlink ("output"); } $Domain = $ENV{'SERVER_NAME'}; print "

"; print "Explanation of results"; print "

"; print "\n"; print "\n"; end; sub selected { if ($_[0] eq $_[1]) { return " selected" } return ""; }