#!/usr/bin/perl

require "cgi-lib.pl";

$in = $ENV{"QUERY_STRING"};

# $fil = $ARGV[0];
$fil = "/global/web-homepages/zimmerma/ecmnet/ecdldb/scores/factors.sc";
if ($ENV{'QUERY_STRING'} eq "size")
{
    open (FROB,"sort -nr $fil | ");
}
else # default is by date
{
    open (FROB, $fil);
}

&head;
&tablebegin;

$i = 1;
while (<FROB>) {
    @line = split(/\t/);
    print "<tr><td align=right>$i</td>";			# index
    print "<td align=center>", length($line[0]), "</td>";	# digits
    print "<td align=right><font size=2>$line[0]</font></td>";	# factor
    print "<td>$line[1]</td>";					# from
    print "<td>$line[2]</td>";					# B1
    print "<td>$line[3]</td>";					# sigma
    print "<td>$line[4]</td>";					# date
    print "<td>$line[5]</td>";					# who
    print "</tr>";
    $i++;
}

&tableend;
&foot;

sub head {
print <<EOF;
Content-type: text/html

<html>
<head>
<title>Cunningham factors found by ECMNET since January 1st, 2000</title>
</head>
<body bgcolor=white>
EOF
}

sub tablebegin {
print <<EOF;
<center>
<table border=1>
<tr><td></td><td>digits</td> <td>factor</td> <td>from</td> <td>B1/B2</td> <td>sigma</td> <td>date</td> <td>who</td></tr>
EOF
}

sub tableend {
print <<EOF;
</table>
</center>

EOF
}

sub foot {
print <<EOF;
</body>
</html>
EOF
}
