commit d8b7c5f760dca93991033bbd7cea6044045ff96c Author: Markus Birth Date: Thu Jun 17 17:29:02 1999 +0000 Initial revision diff --git a/setistats.pl b/setistats.pl new file mode 100644 index 0000000..3ab83cd --- /dev/null +++ b/setistats.pl @@ -0,0 +1,140 @@ +#!/usr/bin/perl + +use CGI::Carp qw(fatalsToBrowser); + +$VERSION = "1.0"; +$IMGDIR = "/cgi-data/setistats"; +$SETIDIR = "/opt/SETI"; +$ST = "$SETIDIR/state.txt"; +$UI = "$SETIDIR/user_info.txt"; +$WU = "$SETIDIR/work_unit.txt"; + +$T_BOR = "black"; # Table border +$T_DBG = "#ffffc0"; # Table descr. background +$T_VBG = "#ffffc0"; # Table value background + +print "Content-type: text/html\n"; +print "Expires: Thu Jan 01 00:00:00 1970 GMT\n\n"; + +# client version: version.txt +# work unit info: work_unit.txt +# user info: user_info.txt +# current working state: state.txt +# current results: result_header.txt +# all suspicious things: outtext.txt + +&WriteHead; +$clientver = &ReadVersion; +print "Client version is $clientver\n

\n"; +&TableStart; +&TableItem("Client version", "$clientver"); +&TableItem("Username", "$ui[4]"); +&TableItem("eMail","$ui[3]"); +&TableItem("URL","$ui[5]"); +&TableStop; + +&WriteFoot; + +exit 0; + +sub TableStart { + print <<"E_O_I"; +
+ +E_O_I +} + +sub TableStop { + print <<"E_O_I"; +
+
+E_O_I +} + +sub TableItem { + my $desc = shift; + my $valu = shift; + print " $desc:$valu\n"; +} + +sub ReadVersion { + open (FH, "$SETIDIR/version.txt") || die "Could not open $SETIDIR/version.txt !"; + + my $major = ; + chomp($major); + my $minor = ; + chomp($minor); + + close FH; + + my ($bla,$major) = split(/=/, $major); + my ($bla,$minor) = split(/=/, $minor); + + return $major . "." . $minor; +} + +sub LoadWorkUnitInfo { + open (FH, "$SETIDIR/work_unit.txt") || die "Could not open $SETIDIR/work_unit.txt!"; + + until ((index $what,"end_seti") != -1) { + $what = ; + push @wu, $what; + } + + close FH; + chomp @wu; + + for (my $i=0;$i<@wu;$i++) { + my ($bla, $info) = split(/=/, $wu[$i]); + $wu[$i] = $info; + } +} + +sub LoadUserInfo { + open (FH, "$SETIDIR/user_info.txt") || die "Could not open $SETIDIR/user_info.txt!"; + + @ui = ; + + close FH; + chomp @ui; + + for (my $i=0;$i<@ui;$i++) { + my ($bla, $info) = split(/=/, $ui[$i]); + $ui[$i] = $info; + } +} + +sub LoadState { + open (FH, "$SETIDIR/state.txt") || die "Could not open $SETIDIR/state.txt!"; + + @st = ; + + close FH; + chomp @st; + + for (my $i=0;$i<@st;$i++) { + my ($bla, $info) = split(/=/, $st[$i]); + $st[$i] = $info; + } +} + +sub WriteHead { + print <<"E_O_I"; + + + SETI\@home statistics + + +

+SETI\@home stats $VERSION +

+E_O_I +} + +sub WriteFoot { + print <<"E_O_I"; +

+ + +E_O_I +}