#!/usr/bin/perl print "Content-type:text/html\n\n"; $qs = $ENV{'QUERY_STRING'}; @pairs = split(/\+/, $qs); foreach $pair (@pairs){ ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/~!/ ~!/g; $FORM{$name} = $value; } @reigon = split(/=/, @pairs[1]); #$depth = @reigon[1]; $depth = $FORM{depth}; $buoy = $FORM{buoy}; $file016=$buoy."-016.csa"; $file024=$buoy."-024.csa"; $file026=$buoy."-026.csa"; $file032=$buoy."-032.csa"; $file040=$buoy."-040.csa"; $file042=$buoy."-042.csa"; $file048=$buoy."-048.csa"; $file056=$buoy."-056.csa"; $file058=$buoy."-058.csa"; $file064=$buoy."-064.csa"; $file072=$buoy."-072.csa"; $file074=$buoy."-074.csa"; $file080=$buoy."-080.csa"; $file088=$buoy."-088.csa"; $file090=$buoy."-090.csa"; $file096=$buoy."-096.csa"; $file104=$buoy."-104.csa"; $file106=$buoy."-106.csa"; $file112=$buoy."-112.csa"; $file120=$buoy."-120.csa"; $file122=$buoy."-122.csa"; $file128=$buoy."-128.csa"; $file136=$buoy."-136.csa"; $file138=$buoy."-138.csa"; $file152=$buoy."-152.csa"; $file154=$buoy."-154.csa"; $file168=$buoy."-168.csa"; $file170=$buoy."-170.csa"; $file184=$buoy."-184.csa"; $file186=$buoy."-186.csa"; $file200=$buoy."-200.csa"; $file202=$buoy."-202.csa"; $file216=$buoy."-216.csa"; $file218=$buoy."-218.csa"; $file232=$buoy."-232.csa"; $file234=$buoy."-234.csa"; $file248=$buoy."-248.csa"; $file250=$buoy."-250.csa"; $file264=$buoy."-264.csa"; $file266=$buoy."-266.csa"; $file280=$buoy."-280.csa"; $file282=$buoy."-282.csa"; $file296=$buoy."-296.csa"; $file298=$buoy."-298.csa"; $file312=$buoy."-312.csa"; $file314=$buoy."-314.csa"; $file328=$buoy."-328.csa"; $file330=$buoy."-330.csa"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "