#!/usr/bin/perl #http://www.greatschools.net/modperl/bycity/ca//?city=Mountain+View&level=e print "Content-type: text/html\n"; $infile="school.db"; $markersize="20"; $sbwidth="300px"; $sbheight="450px"; # $tmp=`cat $infile`; open(DB,"<$infile"); while(){ $tmp=$tmp . $_; } # $dd=`date \"+%B %d, %Y\"`; chomp $dd; $ddd=localtime; @ddd=split(/ +/,$ddd); $dd="$ddd[1] $ddd[2], $ddd[4]"; @tmp=split(/\n/,$tmp); $sumlong=$sumlat=$num=0; $part0=" Emily Chiang's Real Estate in Palo Alto, Atherton, Stanford, Menlo Park, Los Altos, Mountain View, Sunnyvale, Cupertino


Please consult with
Santa Clara County School District Locator or

click on desired cities listed above for more details.
"; $inputstring = $ENV{"QUERY_STRING"}; @data=split(/&/,$inputstring); foreach $data (@data){ ($string,$val)=split(/=/,$data); if ($string eq "level"){$lev=$val;} if ($string eq "city"){$ctn=$val;} } if ($ctn eq ""){print $part0;exit;} if ($ctn eq "PA"){$cityctr="(-122.140174625, 37.4316916041667)";$cityname="Palo Alto";} if ($ctn eq "LAH"){$cityctr="(-122.137451, 37.379639)";$cityname="Los Altos Hills";} if ($ctn eq "MP"){$cityctr="(-122.180969, 37.45348)";$cityname="Menlo Park";} if ($ctn eq "CU"){$cityctr="(-122.032303, 37.32304)";$cityname="Cupertino";} if ($ctn eq "LA"){$cityctr="(-122.112701, 37.384338)";$cityname="Los Altos";} if ($ctn eq "MV"){$cityctr="(-122.081451, 37.385349)";$cityname="Mountain View";} if ($ctn eq "SV"){$cityctr="(-122.035019, 37.369019)";$cityname="Sunnyvale";} if ($ctn eq "AT"){$cityctr="(-122.197922, 37.4603)";$cityname="Atherton";} if ($ctn eq "ST"){$cityctr="(-122.022034, 37.263489)";$cityname="Saratoga";} foreach $property (@tmp){ ($coord[$num],$name[$num],$level[$num],$street[$num],$city[$num],$phone[$num])=split(/\|/,$property); if ($city[$num] ne $cityname){next;} $coo=$coord[$num]; $coo=~s/[(|)| ]//g; $num++; } $part1=" Emily Chiang's Real Estate in Palo Alto, Atherton, Stanford, Menlo Park, Los Altos, Mountain View, Sunnyvale, Cupertino

There are $num Public Schools in $cityname:
Elementary Middle High
Show All Public Schools in $cityname
3)top.resizeTo(1000,1000)\">
"; print "$part1"; for ($j=0;$j<$num;$j++){ if ($level[$j] eq "Elementary"){$marker[$j]="marker_34_green.png";$lcode[$j]="e";} if ($level[$j] eq "Middle"){$marker[$j]="marker_34_blue.png";$lcode[$j]="m";} if ($level[$j] eq "High"){$marker[$j]="marker_34_red.png";$lcode[$j]="h";} } for ($jj=0;$jj<$num;$jj++){ $color=$marker[$jj]; $color=~s/.png//gi; $color=~s/marker_.._//gi; if ($lev eq $color | $lev eq "") { if ($name[$jj] eq "Lynbrook"){$city[$jj]="San Jose";} &findcoord(($jj,$coord[$jj],$street[$jj],$level[$jj],$marker[$jj],$city[$jj],$name[$jj],$phone[$jj],$lcode[$jj])); # print "haha $color $lev $level\n"; print $loc; } } print "$part2"; sub findcoord{ $infohtml="

  • $_[6] $_[3]"; $_[5]=~s/ /+/g; #$opmsg="http://www.greatschools.net/modperl/bycity/ca//?city=$_[5]&level=$_[8]"; $opmsg="http://www.greatschools.net/schools.page?city=$_[5]&lc=$_[8]&state=CA"; $_[5]=~s/\+/ /g; $loc=" // add Locations var point = new GPoint2$_[1]; var InfoHTML = '$infohtml'; var description = '$_[6] $_[3]
    $_[2], $_[5]
    $_[7]
    Compare Schools
    Zoom In  Zoom Out'; icon.image = \"images/$_[4]\"; var marker = createMarker(point,InfoHTML,description,icon,'$_[2]','$_[5]') map.addOverlay(marker); "; }