# parking.pl # a perl scrip to put out names of blocks of streets for counting parked cars # designed to work inside of tripod.com/cgi-bin # # print top of html # get file of group-block pairs # for each group-block # if group is new then put out submit button and start new group # for each block put out select button # # the submit button goes to parking2.pl which gathers the form data # and puts the non-zero entries to the file survey.txt # require 'external.lib'; print < Parking in Zilker
Make your own free website on Tripod.com

Parking in ZNA


); print "
END_of_HTML_TOP @streetlist=(""); &getstreets; my $hgroup="xx"; foreach $pic (@streetlist) { chomp($pic); ($group, $block) = split(/ /, $pic); chomp($group); #print " group $group $hgroup $block
"; if ($group ne $hgroup) {if ($hgroup ne "xx") { print qq(
"; } print ""; $hgroup=$group; } &printblock; #print "$block
"; } print qq(); print "
Area $group
"; print "HAAAAH
"; print "

"; ############## sub printblock { print " $block "; print ""; } ###############