Directory of Burlington Vermont
area Web Sites and Information
source_webpage = $source_webpage
"; $email_body .="\n \n Did you come from another web page? "; if ($source_webpage eq "") { $email_body .="\n no."; # $query_terms=$search_file_name; } else {$email_body .="\n \n You came here from $source_webpage. Pull out the domain name and root directory: "; print "\n You came here from $source_webpage!"; # split name-value pairs local(@pairs) = split(/\//, $source_webpage); $cycles=0;$query_terms=""; foreach $pair (@pairs) { $cycles=$cycles+1; ($name, $value) = split(/\//, $pair); $FORM{$name} .= $value; if ($cycles eq 3) {$source_domain = "$name";} if ($cycles eq 4) {$root_source_folder = "$name";} if ($cycles eq 8 && $root_source_folder eq "dogpile") {$query_terms=$name;$email_body .="\n \n $query_terms \n\n";} $email_body .="\n $cycles $name \n"; $last_name = $name; } $email_body .="\n Refering domain was $source_domain & root source folder is $root_source_folder! \n "; $email_body .="\n \n Pull out the query phrase, splitting on the ?: "; # split name-value pairs # local(@pairs) = split(/\?/, $root_source_folder); local(@pairs) = split(/\?/, $last_name); $cycles=0; foreach $pair (@pairs) { $cycles=$cycles+1; ($name, $value) = split(/\?/, $pair); $FORM{$name} .= $value; $email_body .="\n $cycles $name \n"; $email_body .= " \n\n determining query-text based on search-engine \"$source_domain\"."; if (substr($source_domain,0,6) eq "google" && substr($name,0,2) eq "as_epq") {$query_terms = $name}; if ($source_domain eq "search.viewpoint.com" && substr($name,0,2) eq "k=") {$query_terms = $name}; if ($source_domain eq "search.yahoo.com" && substr($name,0,2) eq "p=") {$query_terms = $name}; if ($source_domain eq "ask.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "altavista.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if (substr($source_domain,0,6) eq "google" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "search.comcast.net" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "search.earthlink.net" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "search.live.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "search.msn.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "burlingtonvt.org" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "search.aol.com" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "search.netscape.com" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "search.sli.sympatico.ca" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "search.myway.com" && substr($name,0,10) eq "searchfor=") {$query_terms = $name}; if ($source_domain eq "search.mywebsearch.com" && substr($name,0,10) eq "searchfor=") {$query_terms = $name}; if ($source_domain eq "att.net" && substr($name,0,7) eq "string=") {$query_terms = $name}; if ($source_domain eq "search.blubstertoolbar.com" && substr($name,0,2) eq "w=") {$query_terms = $name}; if (substr($source_domain,0,10) eq "www.google" && substr($name,0,2) eq "as_epq") {$query_terms = $name}; if ($source_domain eq "www.search.viewpoint.com" && substr($name,0,2) eq "k=") {$query_terms = $name}; if ($source_domain eq "www.search.yahoo.com" && substr($name,0,2) eq "p=") {$query_terms = $name}; if ($source_domain eq "www.search.comcast.net" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "www.ask.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "www.altavista.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if (substr($source_domain,0,10) eq "www.google" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "www.search.earthlink.net" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "www.search.live.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "www.search.msn.com" && substr($name,0,2) eq "q=") {$query_terms = $name}; if ($source_domain eq "burlingtonvt.org" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "www.search.aol.com" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "www.search.netscape.com" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "www.search.sli.sympatico.ca" && substr($name,0,6) eq "query=") {$query_terms = $name}; if ($source_domain eq "www.search.myway.com" && substr($name,0,10) eq "searchfor=") {$query_terms = $name}; if ($source_domain eq "www.search.mywebsearch.com" && substr($name,0,10) eq "searchfor=") {$query_terms = $name}; if ($source_domain eq "www.att.net" && substr($name,0,7) eq "string=") {$query_terms = $name}; if ($source_domain eq "www.search.blubstertoolbar.com"&&substr($name,0,2) eq "w=") {$query_terms = $name}; } $email_body .= "\n\n Coming out with \"$query_terms\"!"; if ($query_terms eq "") { $search_term = $last_name; }else{$search_term = $query_terms}; $email_body .= "\n Going into the next step with \"$search_term\" and source_domain=\"$source_domain\"!"; $email_body .="\n \n Pull out the query phrase, splitting on the & sign: "; # split name-value pairs local(@pairs) = split(/\&/, $search_term); $cycles=0; foreach $pair (@pairs) { $cycles=$cycles+1; ($name, $value) = split(/\&/, $pair); $FORM{$name} .= $value; if (substr($source_domain,0,6) eq "google" && substr($name,0,2) eq "as_epq") {$query_terms = (substr($name,5))}; if ($source_domain eq "search.viewpoint.com" && substr($name,0,2) eq "k=") {$query_terms = $name}; if ($source_domain eq "search.yahoo.com" && substr($name,0,2) eq "p=") {$query_terms = (substr($name,2))}; if ($source_domain eq "altavista.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if (substr($source_domain,0,6) eq "google" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "search.comcast.net" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "search.earthlink.net" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "search.live.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "search.msn.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "ask.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "burlingtonvt.org" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "search.aol.com" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "search.netscape.com" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "search.sli.sympatico.ca" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "search.myway.com" && substr($name,0,10) eq "searchfor="){$query_terms = (substr($name,10))}; if ($source_domain eq "search.mywebsearch.com" && substr($name,0,10) eq "searchfor="){$query_terms = (substr($name,10))}; if ($source_domain eq "att.net" && substr($name,0,7) eq "string="){$query_terms = (substr($name,7))}; if ($source_domain eq "search.blubstertoolbar.com" && substr($name,0,2) eq "w=") {$query_terms = $name}; if (substr($source_domain,0,10) eq "www.google" && substr($name,0,2) eq "as_epq") {$query_terms = (substr($name,5))}; if ($source_domain eq "www.search.viewpoint.com" && substr($name,0,2) eq "k=") {$query_terms = $name}; if ($source_domain eq "www.search.yahoo.com" && substr($name,0,2) eq "p=") {$query_terms = (substr($name,2))}; if ($source_domain eq "www.altavista.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if (substr($source_domain,0,10) eq "www.google" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "www.search.comcast.net" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "www.search.earthlink.net" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "www.search.live.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "www.search.msn.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "www.ask.com" && substr($name,0,2) eq "q=") {$query_terms = (substr($name,2))}; if ($source_domain eq "www.burlingtonvt.org" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "www.search.aol.com" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "www.search.netscape.com" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "www.search.sli.sympatico.ca" && substr($name,0,6) eq "query=") {$query_terms = (substr($name,6))}; if ($source_domain eq "www.search.myway.com" && substr($name,0,10) eq "searchfor="){$query_terms = (substr($name,10))}; if ($source_domain eq "www.search.mywebsearch.com"&& substr($name,0,10) eq "searchfor="){$query_terms = (substr($name,10))}; if ($source_domain eq "www.att.net" && substr($name,0,7) eq "string="){$query_terms = (substr($name,7))}; if ($source_domain eq "www.search.blubstertoolbar.com"&&substr($name,0,2) eq "w=") {$query_terms = $name}; $email_body .="\n $cycles $name \n"; } print "
So, you want to know about "; if ($query_terms eq "") { $email_body .="\n \n No query terms found. "; } else { $email_body .="\n Pull out % signs) in the query phrase $query_terms (if there are any): "; # split name-value pairs local(@pairs) = split(/\%/, $query_terms); $cycles=0;$query_terms=""; foreach $pair (@pairs) { $cycles=$cycles+1; ($name, $value) = split(/\%/, $pair); $FORM{$name} .= $value; # print "
$cycles...$name...$value"; $email_body .= "\n $cycles query word = $name..........value = $value"; if ($cycles eq 1) { $query_terms .= "$name"; } else { if (substr($name,0,2) eq "27"){$query_terms .= "\'"}else{$query_terms .= " ";} # print "
\"";print substr($name,0,2);print "\".......$query_terms
"; $query_terms .= substr($name,2); } } $email_body .="\n Pull out + signs in the query phrase $query_terms (if there are any): "; # split name-value pairs local(@pairs) = split(/\+/, $query_terms); $cycles=0;$query_terms=""; foreach $pair (@pairs) { $cycles=$cycles+1; ($name, $value) = split(/\+/, $pair); $FORM{$name} .= $value; $email_body .= "\n\n$cycles...$name...$value"; print "$name "; # this $email_body .= statement should always be active. $email_body .= "\n $cycles word = \"$name\" "; $name= lc($name); if (lc($name) eq "its"){$dropped_words.=" \"$name\" ";$name=""} $value1 = substr($name,length($name)-1,1); $value2 = substr($name,0,length($name)-1); $email_body .= "\n\nname = \"$name\" \"$value1\" \"$value2\""; if (substr($name,length($name)-2,2) eq "'s"){$value1=""} $email_body .= "\n $name..." . substr($name,length($name)-2,2); if (substr($name,length($name)-2,2) eq "es"){$name=substr($name,0,length($name)-2);$value1="";$value2="";} $email_body .= "...$name\n\n"; $email_body .= "\nname = \"$name\" \"$value1\" \"$value2\"" . length($name); if ($value1 eq " "){$name = $value2}; if ($value1 eq ","){$name = $value2}; if ($value1 eq "s" && length($name) gt 3){$name = $value2;$value1="";}; $email_body .= "\nname = \"$name\" \"$value1\" \"$value2\"" . length($name); # name = "car" "" "car" 4,3 # name = "earthycars" "s" "earthycar" 10 # name = "population" "n" "populatio" 10 $email_body .= "\n query word = \"$name\" "; if ($name eq "and"){$dropped_words.=" \"$name\" ";$name=""} if ($name eq "area"){$dropped_words.=" \"$name\" ";$name=""} if (substr($name,0,6) eq "compan"){$dropped_words.=" \"$name\" ";$name=""} if ($name eq "near"){$dropped_words.=" \"$name\" ";$name=""} if ($name eq "the"){$dropped_words.=" \"$name\" ";$name=""} if ($name eq "picture"){$name="photo"} if ($name eq "vermont"){$dropped_words.=" \"$name\" ";$name=""} $email_body .= "\n length of $name is " . length($name); if (length($name) < 3){$dropped_words .=" \"$name\" ";$name=""} $email_body .= "\n After dropper words less than 3 characters, we left with $name"; $email_body .= " \"$name\"\n dropped words = \"$dropped_words\" "; $query_terms .= "$name ";$email_body .= "\n query_terms = \"$query_terms\" \n \n "; if ($value1 eq "s" && $name ne "") { $alt_terms .= "$value2 "; $apostrophe .= "$value2\'$value1 "; $plural = "yes" } else {$alt_terms .= "$name "; $apostrophe .= "$name " }; } $email_body .="\n\n\n\n Count the words in in the query phrase $query_terms (if there are any): "; # split name-value pairs # print "
\"$query_terms\""; local(@pairs) = split(/\ /, $query_terms); $cycles=0;$query_terms=""; foreach $pair (@pairs) { ($name, $value) = split(/\ /, $pair); $FORM{$name} .= $value; # print "\"$name\", "; if ($name ne "") { $cycles+=1; $query_terms .= "$name "; } $email_body .= " $cycles, "; } # print "
\"$query_terms\""; local(@pairs) = split(/\ /, $query_terms); $word_count=0;$query_terms=""; foreach $pair (@pairs) { ($name, $value) = split(/\ /, $pair); $FORM{$name} .= $value; # print "\"$name\", "; if ($name ne "") { $word_count+=1; $query_terms .= "$name "; $displayed_terms .= "\"$name\" "; } $email_body .= " $word_count, "; } print ", huh?
