Your Market Directory Search Results

#!/usr/contrib/bin/perl # # Name: market.cgi # # Author: David Cragg (cragg@cycor.ca) # (c)Insight Promotional Graphics # # Purpose: Search Engine For Northumberland Bus Directory #=================== CONFIGURATION ============================= ################################################################ require("advertis.cgi"); require("browser.cgi"); unshift(@INC,"/usr/local/etc/httpd/cgi-bin"); require("cgi-lib.pl"); $mailprog = '/usr/sbin/sendmail'; $recipient = 'market@eagle.ca'; $ipg = 'ipg@eagle.ca'; $author = 'cragg@cycor.ca'; $dbase = '/usr/local/etc/httpd/htdocs/market/dbase/'; $ad_dir = '/usr/local/etc/httpd/htdocs/market/ads/'; $query_sr = 'http://www.eagle.ca/market/market.cgi'; $path = 'http://www.eagle.ca/market/'; $srchpage = 'search.html'; $homepage = 'cobourg.html'; $logo = 'cobourg.gif'; $records = 'records.db'; $ad_file = 'ads.db'; $srchlog = 'search.log'; $errorlog = 'error.log'; $htmlhead = "Content-type: text/html\n\n"; ################################################################ open (STDERR, ">>$dbase$errorlog"); &ReadParse; &Advertise; &DualSearch if ($in{'SUBMIT'} eq "Type +/- Name"); &NameSearch if ($in{'SUBMIT'} eq "Name Only"); &Browse if (($in{'SUBMIT'} eq "Browse All") || ($in{'SUBMIT'} eq "Next 10 Businesses")); #======================================================= Dual Search sub DualSearch { &EmptyFields("Please indicate a category") if !$in{'sic'}; select(STDOUT); $|=1; print $htmlhead; print < Your Market Directory Search Results

$img
Market Directory Search Results
[ New Search | Market Directory | Contact ]
HEAD open (DATA, "$dbase$records"); while () { chop($_); if ($_ =~ /^([^`])*$in{'bus'}([^`])*`.+`$in{'sic'}$/i) { $Match=1; ($bus,$addr,$city,$p_code,$phone,$fax,$email,$email2,$url,$url2,$cont,$title,$empl,$desc,$linked,$date,$sic,$sub) = split(/`/, $_); print "
"; print "" if $url; print <$bus Contact: $cont - $title $addr $city $p_code Phone: $phone Fax: $fax BUS print <Email: $email EMAIL print <Email: $email2 EMAIL2 print <Url: $url2 URL2 print "\n# Employees: $empl
\n"; print "Description: $desc\n
\n\n"; } } print < There were no businesses in the database matching your search criteria.
NONE print <
[ New Search | Market Directory | Contact ]
Developed by ©1996

FOOTER exit(0); } ## end 'DualSearch' #======================================================= Name Search sub NameSearch { &EmptyFields("Pleas include a business name, or partial name") if !$in{'bus'}; select(STDOUT); $|=1; print $htmlhead; print < Your Market Directory Search Results

$img
Business Directory Search Results
[ New Search | Market Directory | Contact ]
HEAD open (DATA, "$dbase$records"); while () { chop($_); if ($_ =~ /^([^`])*$in{'bus'}([^`])*`.+$/i) { $Match=1; ($bus,$addr,$city,$p_code,$phone,$fax,$email,$email2,$url,$url2,$cont,$title,$empl,$desc,$sic,$sub) = split(/`/, $_); print "
\n"; print < URL print <$bus Contact: $cont - $title $addr $city $p_code Phone: $phone Fax: $fax BUS print <Email: $email EMAIL print <Email: $email2 EMAIL2 print <Url: $url2 URL2 print "\n# Employees: $empl
\n"; print "Description: $desc\n
\n\n"; } } close(DATA); print < There were no businesses in the database matching your search criteria.
NONE print <
[ New Search | Market Directory | Contact ]
Developed by ©1996

FOOTER exit(0); } ## end 'NameSearch' #================================================ Empty Fields sub EmptyFields { local($cause)=@_; print $htmlhead; print < $cause

$img
$cause
Please be more specific.

New Search | Market Directory | Contact
Developed by ©1996

MESSAGE exit(0); }