#!/usr/bin/perl
opendir(SDRDIR, 'INSERT_FULL_PATH_TO_SDR_CACHE');
$time = gmtime(time);
print "Content-type: text/html\n\n";
print "\n
SDR Monitor
Results from SDR received at cs.ucl.ac.uk, $time
";
chdir ('INSERT_FULL_PATH_TO_SDR_CACHE');
while ($var = readdir(SDRDIR)) {
if ($var =~ /\./){
}
else {
open(TEXTFILE, $var);
while ($string = ) {
if ($string =~ /^s=/){
$subject = $string;
}
}
$subject=~s#s=##;
print "\n\n
|
|
|
$subject | \n
";
}
}
closedir(SDRDIR);
print "
Click here
to return to the main page
For
further information please email YOURNAME\@DOMAINNAME
";