#!/usr/bin/perl
#
#
# This program works to create the prpoer sidebars for the radar page
# Created by Paul Sirvatka December 2002
#
use CGI qw(:standard);

# As always, gets the right info
@pairs = split("&", $ENV{QUERY_STRING});
 
$product = pop(@pairs);
$station = pop(@pairs);
$product=~ s/.*=(\w*)/$1/ ;
$station =~ s/.*=(\w*)/$1/ ;

# To have a deault
if ($ENV{QUERY_STRING} eq ""){
     $product = "BREF1";
     $station= "LOT";
     }
 
# Calls the subroutine from below to get the station id.
 getfullstation();
# This gets only the pertinent info
 if ($fullstation =~ m#\/#){
     ($town,$fullstation) = split (/\//,$fullstation);
     }
 # Finds the floatersites and local sites
 open (FLOATERS, "/home/scripts/radar/floatersites") or die $!;
 $floatersites = (<FLOATERS>);
 close (FLOATERS);
 open (LOCALS, "/home/scripts/radar/localsites") or die $!;
 $localsites = (<LOCALS>);
 close (LOCALS);
 
 print header();
 print start_html("$station - $product sidebar");
 
 # Determines which to call. Floater and local are pretty much the same
 # but the sub for the subdirectory is different
 if ($floatersites =~ m/$station/) {
 	localfloaterlooptable();
 	$tablestring =~ s/subfullstation/$fullstation/g;
 	$tablestring =~ s/substation/$station/g;
 	$tablestring =~ s/localfloater/floater/g;
 	print qq($tablestring);
 	}
 elsif ($localsites =~ m/$station/) {
 	localfloaterlooptable();
 	$tablestring =~ s/subfullstation/$fullstation/g;
 	$tablestring =~ s/substation/$station/g;
 	$tablestring =~ s/localfloater/local/g;
 	print qq($tablestring);
 	system ("/home/scripts/radar/localloophtml");
 	}
 # This is to create the imges on the fly	
 else {
 	nonlooptable();
 	$tablestring =~ s/subfullstation/$fullstation/g;
 	$tablestring =~ s/substation/$station/g;
 	$tablestring =~ s/localfloater/local/g;
 	print qq($tablestring);
 	}
 
 print end_html();
 exit 0;

sub getfullstation{
%stationlisting = (
ABR	=>	'ABERDEEN, SD',
ABX	=>	'LA MESITA NEGRA/ALBUQUERQUE, NM',
AHG	=>	'ANCHORAGE/KENEI, AK',
AIH	=>	'MIDDLETON ISLANDS, AK',
AKQ	=>	'WAKEFIELD/NORFOLK-RICHMOND, VA',
AMA	=>	'AMARILLO, TX',
AMX	=>	'MIAMI, FL',
APX	=>	'ALPENA/GAYLORD, MI',
ARX	=>	'LACROSSE, WI',
ATX	=>	'EVERETT/SEATTLE-TACOMA, WA',
BBX	=>	'BEALE AFB, CA',
BGM	=>	'BINGHAMTON, NY',
BHX	=>	'EUREKA, CA',
BIS	=>	'BISMARCK, ND',
BLX	=>	'BILLINGS, MT',
BMX	=>	'SHELBY COUNTY AP/BIRMINGHAM, AL',
BOX	=>	'TAUNTON/BOSTON, MA',
BRO	=>	'BROWNSVILLE, TX',
BUF	=>	'BUFFALO, NY',
BYX	=>	'KEY WEST, FL',
CAE	=>	'COLUMBIA, SC',
CBW	=>	'CARIBOU (LORING AFB), ME',
CBX	=>	'BOISE, ID',
CCX	=>	'MOSHANNON ST FOREST/STATE COLLEGE, PA',
CLE	=>	'CLEVELAND, OH',
CLX	=>	'CHARLESTON, SC',
CRP	=>	'CORPUS CHRISTI, TX',
CXX	=>	'BURLINGTON, VT',
CYS	=>	'CHEYENNE, WY',
DAX	=>	'MCCLELLAN AFB/SACREMENTO, CA',
DDC	=>	'DODGE CITY, KS',
DFX	=>	'BRACKETVILLE/LAUGHLIN AFB, TX',
DGX	=>	'JACKSON/BRANDON, MS',
DIX	=>	'FORT DIX, NJ/PHILADELPHIA, PA',
DLH	=>	'DULUTH, MN',
DMX	=>	'ACORN VALLEY/DES MOINES, IA',
DOX	=>	'DOVER AFB, DE',
DTX	=>	'PONTIAC/DETROIT, MI',
DVN	=>	'DAVENPORT/QUAD CITIES, IA',
DYX	=>	'MORAN/DYESS AFB, TX',
EAX	=>	'PLEASANT HILL/KC, MO',
EMX	=>	'TUCSON, AZ',
ENX	=>	'EAST BERNE/ALBANY, NY',
EOX	=>	'FT. RUCKER, AL',
EPZ	=>	'EL PASO, TX',
ESX	=>	'LAS VEGAS, NV',
EVX	=>	'RED BAY/EGLIN AFB, FL',
EWX	=>	'NEW BRAUNFELS AP/AUSTIN-SAN ANT, TX',
EYX	=>	'EDWARDS AFB, CA',
FCX	=>	'ROANOKE, VA',
FDR	=>	'FREDERICK, OK',
FDX	=>	'FIELD VILLAGE/CANNON AFB, NM',
FFC	=>	'PEACH TREE CITY/ATLANTA, GA',
FSD	=>	'SIOUX FALLS, SD',
FSX	=>	'FLAGSTAFF, AZ',
FTG	=>	'FRONT RANGE AP/DENVER, CO',
FWS	=>	'SPINKS AP/DALLAS-FT WORTH, TX',
GGW	=>	'GLASGOW, MT',
GJX	=>	'GRAND JUNCTION, CO',
GLD	=>	'GOODLAND, KS',
GRB	=>	'GREEN BAY, WI',
GRK	=>	'CENTRAL TEXAS (FT HOOD), TX',
GRR	=>	'GRAND RAPIDS/MUSKEGON, MI',
GSP	=>	'GREENVILLE/SPARTANBURG (GREER), SC',
GWX	=>	'COLUMBUS AFB, MS',
GYX	=>	'GRAY/PORTLAND, ME',
HDX	=>	'HOLLOMAN AFB, NM',
HGX	=>	'LEAGUE CITY/HOUSTON, TX',
HKI	=>	'SOUTH KAUAI, HI',
HKM	=>	'KOHALA, HI',
HMO	=>	'MOLOKAI, HI',
HNX	=>	'HANFORD AP/SAN JOAQUIN VALLEY, CA',
HPX	=>	'FT. CAMPBELL, KY',
HTX	=>	'N.E./HYTOP, AL',
HWA	=>	'SOUTH HAWAII, HI',
ICT	=>	'WICHITA, KS',
ICX	=>	'CEDAR CITY, UT',
ILN	=>	'WILMINGTON/CINCINNATI, OH',
ILX	=>	'LINCOLN, IL',
IND	=>	'INDIANAPOLIS, IN',
INX	=>	'SHRECK FARM/TULSA, OK',
IWA	=>	'WILLIAMS AFB/PHOENIX, AZ',
IWX	=>	'NORTH WEBSTER, IN',
JAX	=>	'JACKSONVILLE, FL',
JGX	=>	'ROBINS AFB, GA',
JKL	=>	'JACKSON, KY',
JUA	=>	'SAN JUAN, PR',
LBB	=>	'LUBBOCK, TX',
LCH	=>	'LAKE CHARLES, LA',
LIX	=>	'SLIDELL AP/NEW ORLEANS, LA',
LNX	=>	'NORTH PLATTE, NE',
LOT	=>	'CHICAGO, IL',
LRX	=>	'ELKO, NV',
LSX	=>	'ST CHARLES CITY/ST LOUIS, MO',
LTX	=>	'SHALLOTTE/WILMINGTON, NC',
LVX	=>	'FT KNOX MIL RES/LOUISVILLE, KY',
LWX	=>	'STERLING, VA/WASHINGTON DC',
LZK	=>	'LITTLE ROCK, AR',
MAF	=>	'MIDLAND/ODESSA, TX',
MAX	=>	'MEDFORD, OR',
MBX	=>	'MINOT AFB, ND',
MHX	=>	'NEWPORT/MOREHEAD CITY, NC',
MKX	=>	'SULLIVAN TOWNSHIP/MILWAUKEE, WI',
MLB	=>	'MELBOURNE, FL',
MOB	=>	'MOBILE, AL',
MPX	=>	'CHANHASSEN TOWNSHIP/MINN-ST.PAUL, MN',
MQT	=>	'MARQUETTE, MI',
MRX	=>	'KNOXVILLE, TN',
MSX	=>	'PT SIX MTN/MISSOULA, MT',
MTX	=>	'PROMONTORY PT/SALT LAKE CITY, UT',
MXX	=>	'CARRVILLE/MAXWELL AFB, AL',
MUX	=>	'MT UMUNHUM/SAN FRANCISCO, CA',
MVX	=>	'FARGO, ND',
NKX	=>	'SAN DIEGO, CA',
NQA	=>	'MILLINGTON NAS/MEMPHIS, TN',
OAX	=>	'OMAHA, NE',
OHX	=>	'OLD HICKORY MT/NASHVILLE, TN',
OKX	=>	'BROOKHAVEN/NEW YORK CITY, NY',
OTX	=>	'SPOKANE, WA',
PAH	=>	'PADUCAH, KY',
PBZ	=>	'CORAOPOLIS/PITTSBURGH, PA',
PDT	=>	'PENDLETON, OR',
POE	=>	'FT POLK, LA',
PUX	=>	'PUEBLO, CO',
RAX	=>	'TRIPLE WEST AP/RALEIGH-DURHAM, NC',
RIW	=>	'RIVERTON, WY',
RGX	=>	'VIRGINIA PEAK/RENO, NV',
RLX	=>	'CHARLESTON, WV',
RTX	=>	'PORTLAND, OR',
SFX	=>	'POCATELLO/IDAHO FALLS, ID',
SGF	=>	'SPRINGFIELD, MO',
SHV	=>	'SHREVEPORT, LA',
SJT	=>	'SAN ANGELO, TX',
SOX	=>	'SANTA ANA MOUNTAINS/MARCH AFB, CA',
SRX	=>	'WESTERN ARKANSAS/FT. SMITH, AR',
TBW	=>	'RUSKIN/TAMPA BAY, FL',
TFX	=>	'GREAT FALLS, MT',
TLH	=>	'TALLAHASSEE, FL',
TLX	=>	'TWIN LAKES/OKLAHOMA CITY, OK',
TWX	=>	'WABAUNSEE COUNTY/TOPEKA, KS',
TYX	=>	'FT DRUM AFB/MONTAGUE, NY',
UDX	=>	'RAPID CITY, SD',
UEX	=>	'GRAND ISLAND, NE',
VAX	=>	'MOODY AFB, GA',
VBX	=>	'VANDENBERG AFB, CA',
VNX	=>	'VANCE AFB, OK',
VTX	=>	'SULPHUR MTN/LOS ANGELES, CA',
VWX	=>	'EVANSVILLE, IN',
YUX	=>	'YUMA, AZ');

$fullstation = $stationlisting{"$station"};
}

sub nonlooptable{
# these subroutines read in the proper html code in loophtml and nonloophtml files

open (NONLOOP, "/home/scripts/radar/nonloophtml");
undef $/;
$tablestring = (<NONLOOP>);
close NONLOOP;
}
sub localfloaterlooptable{

open (LOOP, "/home/scripts/radar/loophtml");
undef $/;
$tablestring = (<LOOP>);
close LOOP;
}

exit 0;