#!/usr/bin/perl
require "/hfradio/html/cgi-bin/get_form_data.pl"; #sub for getting form data
$databasePath = "/hfradio/database/links/";
$ham_cat_dx_personal = $databasePath . "swl_master.txt\tShortwave Listing Links";
$ham_cat_dx_resource = $databasePath . "dx_rsrc.txt\tDX Resources";
$styleSheet = "/home/hfradio/html/cgi-bin/styles.format";
$theMenu = "/home/hfradio/html/cgi-bin/menu.format";
###
$theLinks = "Lookup International Shortwave Broadcast Stations by Frequency, etc.";
$html_header = "Content-type: text/html\n\n";
$mail_prog = "/usr/lib/sendmail";
$email_ID_to = "nw7us\@hfradio.org";
$email_ID_from = "nw7us\@hfradio.org";
$theDate = `date +%m-%d-%Y`;
$theDate =~ tr/\n\r//d;
$theTime = `date +%H:%M:%S`;
print $html_header;
#&get_form_data (*form_data); # Get form data
#$date = $form_data{'date'};
open (STYLE, "$styleSheet") || die "Could not read $styleSheet: $!\n";
$_style = "";
while (