#!/usr/bin/perl
$| = 1;
my $okToGoOn = 0;
my $remoteHost = $ENV{'REMOTE_HOST'};
if ($remoteHost =~ m|donobi|i) {
$okToGoOn = 1;
} else {
$okToGoOn = 0;
}
if (! $okToGoOn) {
print "Location: http://hfradio.org/swbc/\nURI: http://hfradio.org/swbc\n\n";
} else {
use Pg;
$downloadOK = 1;
$solarReport = "";
$mail_prog = '/usr/lib/sendmail' ;
$theRootDir = "/home/hfradio/database/swl";
$theLogFile = $theRootDir . "/lookup.log";
$templateDir = "/home/hfradio/html/hffreq";
$html_header = "Content-type: text/html\n\n";
$gmtTime = `date -u +%H:%M:%S`;
chop $gmtTime;
$showTime = `date -u +%H%M`;
chop $showTime;
$gmtDay = `date -u +%Y-%m-%d`;
chop $gmtDay;
$styleSheet = "/home/hfradio/html/cgi-bin/styles.format";
$theMenu = "/home/hfradio/html/cgi-bin/menu.format";
$theLinks = "shortwave links";
&GetFormInput;
doSolarData();
my ($result, $conn);
my ($message) = "";
if (! $okToGoOn) {
open (STYLE, "$styleSheet") || die "Could not read $styleSheet: $!\n";
$_style = "";
while (