Jewelry Mall Retail Stores with Jewelry less than 50 dollars\!

#!/usr/old/bin/perl5.004_01 unshift(@INC, "."); # wrap it all up require "safe.pl"; &safe(<<'THE_END'); require "support.pl"; require "pqs.pl"; # since only reading don't need locks # sub LOCK_EX {0x02;} # sub LOCK_UN {0x08;} # db format: # $category $linkurl $linktitle $Linkgif $linkdescrip $linkwords $linkemail # define some global variables $fields = 9; # Number of fields in each record $filename = "/home/lorraine/db/retail.db"; # The database text file $results = 1000; # maximum number of results to display # %searchstring = &parse_query_string(); &parse_form; $searchstring = $FORM{'searchstring'}; # no adding of records allowed # &addrecord if ($searchstring eq "**ADD RECORD**"); &open_file("FILE1","",$filename); &out("Content-type: text/html\n\ \n\ \n"); if ($searchstring eq "lt") { &out("Jewelry Mall Retail Stores with Jewelry less than 50 dollars\!\n"); } elsif ($searchstring eq "50-") { &out("Jewelry Mall Retail Stores with Jewelry between \$50 - \$125\n"); } elsif ($searchstring eq "125-") { &out("Jewelry Mall Retail Stores with Jewelry between \$125 - \$600\n"); } elsif ($searchstring eq "600-") { &out("Jewelry Mall Retail Stores with Jewelry between \$600 - \$1250\n"); } elsif ($searchstring eq "gt") { &out("Jewelry Mall Retail Stores: Exquisite Fine Jewelry over \$1250\n"); } elsif ($searchstring eq "tools") { &out("Jewelry Mall Retail Stores: Jewelry Making Tools Page\n"); } elsif ($searchstring eq "accessories") { &out("Jewelry Mall Retail Stores: Storage/Cleaning/Safety Clasps\n"); } &out("\n"); &out( "\n"); &out("\n"); &out("\n"); &out(" \n"); &out("

\n"); &out("\n"); &out(" Stores \n"); &out(" Shows \n"); &out(" Birthstones \n"); &out(" Malls \n"); &out(" Wholesale \n"); &out(" HOME \n"); &out(" Jokes \n"); &out(" Jewellinks \n"); &out(" Links \n"); &out(" Therapy \n"); &out("

\n"); &out( "\n"); &out("

\n"); &out("\n"); if ($searchstring eq "125-") { &out("\n"); &out(" $\"Our$ \n"); } elsif ($searchstring eq "50-") { &out("

\n"); } elsif ($searchstring eq "600-") { &out(" $\"Proflowers$ \n"); } elsif ($searchstring eq "lt") { &out(" $\"Proflowers$ \n"); } elsif ($searchstring eq "gt") { &out("

\n"); } else { &out("

\n"); } &out( "\n"); &out("

\n"); &out("\n"); &out("Categories show the average price of a store's items."); &out("
\n"); &out("< \$50 $\"~~\"$ \n"); &out("\$50 - \$125 $\"~~\"$ \n"); &out("\$125 - \$600 $\"~~\"$ \n"); &out("\$600 - \$1250 $\"~~\"$ \n"); &out("> \$1250\n"); &out("
\n"); &out("Non-Jewelry: Boxes/cleaning/safety clasps\n"); &out(" $\"~~\"$ \n"); &out("tools\n"); &out("\n"); &out("

\n"); &out("

\n"); &out("\n"); &out("\n"); &out("

\n"); if ($searchstring eq "lt") { &out("

Average price: Under \$50

"); } elsif ($searchstring eq "50-") { &out("

Average price: \$50 - \$125

"); } elsif ($searchstring eq "125-") { &out("

Average price: \$125 - \$600

"); } elsif ($searchstring eq "600-") { &out("

Average price: \$600 - \$1250

"); } elsif ($searchstring eq "gt") { &out("

Average price: Over \$1250

"); } elsif ($searchstring eq "tools") { &out("

Retail Tools for Crafters

"); } elsif ($searchstring eq "accessories") { &out("

Jewelry Storage/Cleaning/Safety Clasps

"); } &out( "

\n"); $counter = 0; while (($line = &read_file("FILE1")) && ($counter < $results)) { # split the fields at the | character @tabledata = split(/\s*\|\s*/,$line ,$fields); &check_record; if ($found == 1) { $counter++; &print_record; } } close(FILE1); &out( "\n"); if ($searchstring eq "tools") { &out("

More tools can be found for businesses on our Jewelry Business Tools page

"); } if ($counter == 0) { &out( "
Sorry, No Matches were found.

\n"); } &out("

\n"); &out("
\n"); &out("

\n"); &out("

\n"); &out("\n"); &out("Birthstones ~ \n"); &out("Gemstone and Jewelry Shows ~ \n"); &out("Gemstone Therapy\n"); &out("\n"); &out("
\n"); &out("\n"); &out(" ~ \n"); &out("Stores ~ \n"); &out("Malls ~ \n"); &out("Wholesale ~\n"); &out("Add URL ~ \n"); &out("Diamond Guide\n"); &out(" ~ \n"); &out("\n"); &out("
\n"); &out("\n"); &out("Jewelry Jokes ~ \n"); &out("Some Jewelry Related Links ~ \n"); &out("About Us ~ \n"); &out("Other Links \n"); &out("\n"); &out("
\n"); &out("

\n"); &out("

\n"); &out("\n"); &out(" $\"thin$ \n"); &out("\n"); &out("For questions or comments, please send them to \n"); &out("\n"); &out("

davebraun\@jewelrymall.com

\n"); &out("

\n"); &out("Pages are © Copyright 1995-1999 Jewelry Mall.\n"); &out("All rights reserved.\n"); &out("
\n"); &out("http://www.jewelrymall.com\n"); &out("\n"); &out("
\n"); &out("\n"); ######################################### # # Print the matched record # ######################################### sub print_record { &out( "". $category . " " . $linktitle . " "); # print secure.gif if ($linkgif =~ /secure.gif/) { &out( " $\"Secure$ "); } # print giftwrap.gif if ($wrapgif =~ /giftwrap.gif/) { &out( " $\"Gift$ "); } if ($overnightgif =~ /overnight.gif/) { &out( " $\"Overnight$ "); } &out( "
" . $linkdescrip . "

\n"); } ########################################## # # Check to see if record matches search criteria # ########################################## sub check_record { # get the data from the record read from the file. $tabledata $category = $tabledata[0]; $linkurl = $tabledata[1]; $linktitle = $tabledata[2]; $linkgif = $tabledata[3]; $wrapgif = $tabledata[4]; $overnightgif = $tabledata[5]; $linkdescrip = $tabledata[6]; $linkwords = $tabledata[7]; $linemail = $tabledata[8]; chop($linemail); # skip cmment lines # otherwise map fields if ($category =~ /^#/){ $searchline = ""; } else { #build the search line with all fields we want to search in $searchline = $category; } #search by keywords # only perform the keyword search if the length of the search string is greater than 2 # don't think we want people to search for and or or etc. $sfound = 0; $found = 0; $notfound = 1; $stlen = length($searchstring); if ($stlen > 1) { @words = split(/ +/,$searchstring); foreach $aword (@words) { if ($searchline =~ /\b$aword/i) { $sfound = 1; } else { $notfound = 0; } } } if ($sfound == 1 && $notfound == 1) { $found = 1; } # if search string is too small .. set found to 1 if ($stlen <= 1) { $found = 1; } #if page doesn't have a title then return not found $tlen = length($linktitle); if ($tlen < 1) { $found = 0; } } sub parse_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } } sub open_file { local ($filevar, $filemode, $filename) = @_; open ($filevar,$filemode . $filename) || die ("Can't open $filename"); } sub read_file { local ($filevar) = @_; <$filevar>; } sub write_file { local ($filevar, $line) = @_; print $filevar ($line); } THE_END ############################################ # # Add Record -- not used right now # ############################################ sub addrecord { $category = $FORM{'category'}; $linktitle = $FORM{'linktitle'}; $linkdescrip = $FORM{'linkdescrip'}; $linkwords = $FORM{'linkwords'}; $linkemail = $FORM{'linkemail'}; $linkurl = $FORM{'linkurl'}; $linkgif = $FORM{'linkgif'}; # Convert < tags to < $linktitle =~ s//\>/g; &open_file("FILE1",">>",$filename); &write_file("FILE1",$category . "|" . $linkurl . "|" . $linktitle . "|". $linkgif . "|". $linkdescrip. "|" .$linkwords ."|" .$linkemail ."\n"); close("FILE1"); print "Content-type: text/html\n\n"; print "Thank You\n"; print "

Thank You For Adding to this database

\n"; print "\n"; exit; }