Wilderness School Home Page

#!/usr/local/bin/perl -w use strict; use CGI; my $q = new CGI; my $file = "Wilderness_schools.csv"; my $bgcolor = '#000000'; my $txtcolor = '#ffffff'; my $linkcolor = '#88ee88'; my $vlinkcolor = '#8888ee'; my $hlinkcolor = '#ee0000'; my $backgrnd = '../../site-images/brown2.gif'; my $name; my $url; my $add1; my $add2; my $city; my $state =""; my $zip; my $phone; my $fax; my $email; my $note; print_header(); print_intro(); open (LIST, $file) || die "Could not open $file: $!\n"; while (){ my $oldstate = $state; ($name,$url,$add1,$add2,$city,$state,$zip,$phone,$fax,$email,$note) = split(',',$_); if ($oldstate ne $state) { my $statename = find_state($state); print "

\n"; print "

\n"; print "\n"; print "

$statename

\n"; } print "

"; print (($url ne "") ? "$name" : "$name"); print "
\n"; print (($add1 ne "") ? "$add1
\n" : "" ); print (($add2 ne "") ? "$add2
\n" : ""); print (($city ne "") ? "$city,$state $zip
\n" : "" ); print (($phone ne "") ? "Phone: $phone
\n" : ""); print (($fax ne "") ? "Fax: $fax
\n" : ""); print (($email ne "") ? "$email
\n" : "" ); print (($note ne "") ? "$note
\n" : "" ); } close LIST; print_footer(); exit; ################################################################# sub print_header{ print "Content-type: text/html\n\n"; print "Wilderness School Home Page\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

Welcome to
\n"; print " The Wilderness Schools Home Page

\n"; } ################################################################# sub print_footer{ print "

\n"; } ################################################################# sub find_state { my %states=('AL','Alabama', 'AK','Alaska', 'AZ','Arizona', 'AR','Arkansas', 'CA','California', 'CO','Colorado', 'CT','Connecticut', 'DE','Delaware', 'DC','District of Columbia', 'FL','Florida', 'GA','Georgia', 'HI','Hawaii', 'ID','Idaho', 'IL','Illinois', 'IN','Indiana', 'IA','Iowa', 'KS','Kansas', 'KY','Kentucky', 'LA','Louisiana', 'ME','Maine', 'MD','Maryland', 'MA','Massachusetts', 'MI','Michigan', 'MN','Minnesota', 'MS','Mississippi', 'MO','Missouri', 'MT','Montana', 'NE','Nebraska', 'NV','Nevada', 'NH','New Hampshire', 'NJ','New Jersey', 'NM','New Mexico', 'NY','New York', 'NC','North Carolina', 'ND','North Dakota', 'OH','Ohio', 'OK','Oklahoma', 'OR','Oregon', 'PA','Pennsylvania', 'RI','Rhode Island', 'SC','South Carolina', 'SD','South Dakota', 'TN','Tennessee', 'TX','Texas', 'UT','Utah', 'VT','Vermont', 'VA','Virginia', 'WA','Washington', 'WV','West Virginia', 'WI','Wisconsin', 'WY','Wyoming', 'CN','Canada', 'Alberta','Alberta', 'Ontario','Ontario'); return $states{$_[0]}; } ################################################################# sub print_intro{ print "\n"; print "
Note: Its been a while since the site has\n"; print "been updated...apologies
to all. A redesign is \n"; print "in the works which will make updating faster and easier.\n"; print "
If you have sent me an addition or change and you \n"; print "don't see it yet, it will be
included in this switch. \n"; print "Thank you for your patience! -Chris

\n"; print "

\n"; print "I hope you can find these resources helpful. Each school \n"; print "here, as far as I know, has some experience with primative \n"; print "skills, tracking, etc. If you have any questions, comments \n"; print "or would like to add a school to this list please feel free \n"; print "to email me at \n"; print "chris\@geosmith.com. Please drop me a note if you can \n"; print "give me any information I am missing on schools I have \n"; print "listed as well such as phone numbers, web pages, addresses \n"; print "etc. Enjoy!

\n"; print " Canada

\n"; print " Alberta |\n"; print " Ontario\n"; print "

\n"; } #################################################################