#!/usr/bin/perl ############################################################################### local $SIG{__DIE__} = sub { my $msg = shift; print "

ERROR: $msg

\n"; }; #local $SIG{__WARN__} = sub { my $msg = shift; print "

WARNING: $msg

\n"; }; #require "/home/httpd/cgi-bin/renice.pl"; require "/var/www/www.letterville.com/htdocs/cgi/cgi-lib.pl"; require "/var/www/www.letterville.com/htdocs/cgi/dbutil.cgi"; require "/var/www/www.letterville.com/htdocs/cgi/utils.cgi"; require "/var/www/www.letterville.com/htdocs/cgi/lists.cgi"; require "/var/www/www.letterville.com/htdocs/cgi/counter.cgi"; ($countAll, $countUniq, $exclAll, $exclUniq) = Count(); @Countries = LoadFile( 'data/countries.cgi' ); # List of Countries and their Abbreviations foreach( @Countries ) { my( $code, $label ) = split( ':', $_, 2 ); $Countries{$code} = $label; # Build a mapping hash from code to label } ############################################################################### my $PageSize = 15; my $location = 'Location'; $Title = 'Letterheads Around the World'; $ImgBack = "images/logos/head2.gif"; ############################################################################### $query = $ENV{QUERY_STRING}; # All after the query character - '?' $this = $ENV{SCRIPT_NAME}; # Includes path from $droot with leading slash $www = $ENV{REMOTE_ADDR}; &ReadParse(); # Get form data into %in hash ############################################################################### if( $ENV{DOCUMENT_NAME} eq 'mdb.html' ) { print "

Included from mdb.html with '$query'

\n"; for( sort keys %ENV ) { print "ENV{$_} => '$ENV{$_}'
\n"; } } ############################################################################### #$focus = qq( OnLoad="document.Search[1].focus()"); $db = MyOpenDb( $database ); $total = $db->{totrec}; $adrot = `/var/www/www.letterville.com/htdocs/AdRot.cgi mdb`; $adrot =~ s/^Content-type: text\/html\n//s; print < $Title

$total $Title

$adrot

EOF $loc = MyOpenDb( $location ); unless( $loc ) { print "

Couldn't open Location list

\n"; } GetInd( 'ID' ); # Main mapping hash as %map ############################################################################### if( $in{Shop} ) # Specific shop was selected from the list { DisplayShop(); print < Back to the Previous Page EOF } else { if( !exists $in{Date} || $in{Date} ) # Default to showing them, Date=0 will turn them off { $joinedEntries = < Joined: after before YYMMDD EOF } else { $joinedEntries = ""; } print <

Please type name and select "Search Now..." button
$joinedEntries

Name:

Matches Shop Name, First or Last Name

EOF DisplayTable( BuildList() ); } DisplayFooter(); ############################################################################### sub BuildLocation { my $type = shift; my $name = ($type eq 'ALL') ? 'Country' : 'State'; for( $loc->GoTop(); $loc->ValidPos; $loc->Next() ) { my %Rec = $loc->GetFieldsHash( 'Type', 'ID', 'Label' ); # Select clause if( $Rec{Type} eq $type ) # Where clause { if( $Rec{ID} eq '_' ) # Label for the list (first entry for Type) { print "$Rec{Label}:\n"; } ############################################################################### sub DisplayFooter { print <

[ Main Page | New Member Registration | Bulletin Board | Events | Advertising | Sign Supplies ]

$Ad

EOF } ############################################################################### sub BuildList { GetInd( 'Country' ); my @list; @list = @{$Indexes{Country}{$in{Country}}} if $in{Country}; # Start with the list of matches for Country if( $in{State} ) # But if Searching, narrow it down based on matching names { my @listState = (); GetInd( 'State' ); foreach $key ( keys %{$Indexes{State}} ) { if( $key =~ /$in{State}/i ) # Case insensitive pattern search { @listState = ListOr( \@listState, \@{$Indexes{State}{$key}} ); } } @list = @list > 0 ? ListAnd( \@list, \@listState ) : @listState; } if( $in{City} ) # Allow to type a query string to match the city { my @listCity = (); GetInd( 'City' ); foreach $key ( sort keys %{$Indexes{City}} ) { if( $key =~ /$in{City}/i ) # Case insensitive pattern search { @listCity = ListOr( \@listCity, \@{$Indexes{City}{$key}} ); } } @list = @list > 0 ? ListAnd( \@list, \@listCity ) : @listCity; } if( length( $in{Find} ) >= 2 ) # But if Searching, narrow it down based on matching names (at least 2 characters) { my @listFound = (); foreach $index ( qw( Name FName LName SName Email ) ) # Search those fields { GetInd( $index ); foreach $key ( sort keys %{$Indexes{$index}} ) { next if length( $key ) < 2; foreach $word ( split( ' ', $in{Find} ) ) # Search for each word provided separately { # print "Word: '$word' in '$in{Find}' at key '$key' of index '$index'
\n"; next if length( $word ) < 2; if( $key =~ /$word/i ) # Case insensitive pattern search { @listFound = ListOr( \@listFound, \@{$Indexes{$index}{$key}} ); } } } undef $Indexes{$index}; # This one is not needed anymore, purge the memory cache } @list = @list > 0 ? ListAnd( \@list, \@listFound ) : @listFound; } if( $in{After} || $in{Before} ) # If requested a limit on date range then narrow the list even further { my @listDate = (); GetInd( 'Joined' ); $in{After} += 19000000 if $in{After} && $in{After} < 1000000; # Dates in database use full year as 1997 $in{Before} += 19000000 if $in{Before} && $in{Before} < 1000000; # And then month and day as two-digit each for( keys %{$Indexes{Joined}} ) { next if( $in{After} && int($_) < int($in{After}) ); # If requested After but date is before then skip next if( $in{Before} && int($_) > int($in{Before}) ); # If requested Before but date is after then skip @listDate = ListOr( \@listDate, \@{$Indexes{Joined}{$_}} ); } @list = @list > 0 ? ListAnd( \@list, \@listDate ) : @listDate; } return @list; } ############################################################################### sub DisplayTable { my @list = @_; # Passes the list of Shop IDs to display return unless $db; print "\n"; # Now process some page handling, multiple pages can be navigated to with this technique. my $Total = @list; my $Pages = int( ($Total + $PageSize - 1) / $PageSize ); my $Page = $in{Page} || 1; $query =~ s/&Page=(\d*|all)//; # Remove the old page parameter from query so it can be re-added below safely. my $from = ($in{Page} - 1) * $PageSize + 1; $from = 1 if $from < 1; my $to = $from + $PageSize - 1; $to = $Total if $to > $Total; my $nav; if( $Page > 1 ) { $nav .= qq(|< First Page | ); my $prev = $Page - 1; $nav .= qq(<< Previous Page); } $nav .= " [Page $Page of $Pages] " if( $Pages > 1 ); if( $Page < $Pages ) { $nav .= ' | ' if $nav; my $next = $Page + 1; $nav .= qq(Next Page >> | ); $nav .= qq(Last Page >|); } $nav .= qq( | All Pages) if( $Pages > 1 ); if( $in{Page} =~ /^all$/i ) # Selecting All pages overrides all calculations. { $nav = ""; $from = 1; $to = $Total; } if( $Total > 0 ) { print <Found a total of $Total matching entries ($Pages page[s] - $PageSize entries each)
$nav

EOF } my $nr = 0; foreach $shop ( @list ) # And now display all matching entries within this page's range. { next if( ++$nr < $from ); last if( $nr > $to ); print < # Shop Name www Contact Name Phone City / Country EOF $db->GoTo( $map{$shop} ); my %Rec = $db->GetFieldsHash( qw( URL Company FName LName SName WPhone WCity WCountry) ); my $url = $Rec{'URL'} ? 'web' : ' '; my $shopname = $Rec{Company} || "[$Rec{FName} $Rec{LName}]"; print <$nr $shopname $url $Rec{'FName'}$Rec{'SName'} $Rec{'LName'} $Rec{'WPhone'} $Rec{'WCity'} $Rec{'WCountry'} EOF } print "\n" if $nr; if( $nav ) { print "

$nav

\n"; } print "\n"; $db->Close(); } ############################################################################### sub DisplayShop { unless( exists $map{$in{Shop}} ) { print <

Sorry, there is no Shop with ID = $in{Shop}!

Please Try Again

EOF return; } return unless $db; $db->GoTo( $map{$in{Shop}} ); my %Rec = $db->GetFieldsHash(); my $update = qq(PLEASE UPDATE IT); my $email = $Rec{'Email'}; if( $email && $email ne 'NONE' ) { if( $email =~ s/^!\s*(.*)/$1/ ) { $email = "$1 THIS EMAIL BOUNCED $update"; } else { $email = "$email"; } } else { $email = "EMAIL IS MISSING $update"; } my $url = $Rec{'URL'}; if( $url ) { $url =~ s|^http://||; # Prevent duplicate http:// prefix on old entries. $url = "$url"; } $Rec{Info} =~ s/\n/
/g; $Rec{History} =~ s/\n/
/g; my $shopname = $Rec{'Company'} || "[$Rec{FName} $Rec{LName}]"; print <

$shopname

Contact:

$Rec{'FName'}$Rec{'SName'} $Rec{'LName'}

Email:

$email

Web Page:

$url

Phone:

$Rec{'WPhone'}

Fax:

$Rec{'FPhone'}

Address:

$Rec{'WAddress'}

City, State, ZIP:

$Rec{'WCity'}, $Rec{'WState'}, $Rec{'WZip'}

Country:

$Countries{$Rec{'WCountry'}}

Business Description:

$Rec{'Info'}

Letterhead History:

$Rec{'History'}

Member Since:

$Rec{'Joined'}

EOF $db->Close(); } ############################################################################### # Formats the data from any field with the type 'D' = Date sub TypeMap_D { my( $yyyy, $mm, $dd ) = unpack( 'A4A2A2', $_[0] ); $mm = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mm-1]; return "$dd-$mm-$yyyy"; } ############################################################################### sub FieldMap_Phone { my $phone = shift; return $phone; $phone =~ s/\D//g; $phone = "519$phone" if( length( $phone ) == 7 ); return "(".substr($phone,0,3).") ".substr($phone,3,3)."-".substr($phone,6,4) if $phone; } ############################################################################### sub FieldMap_Spouse { my $spouse = shift; return " & $spouse" if $spouse; } ############################################################################### sub MyOpenDb { my $name = shift; my $db = new Pdb( 'data' ); if( $db->Open( $name ) ) { if( $name eq 'Members' ) { $db->{TypeMap}{D} = "main::TypeMap_D"; $db->{FieldMap}{WPhone} = "main::FieldMap_Phone"; $db->{FieldMap}{HPhone} = "main::FieldMap_Phone"; $db->{FieldMap}{FPhone} = "main::FieldMap_Phone"; $db->{FieldMap}{SName} = "main::FieldMap_Spouse"; } return $db; } else { return undef; } } ###############################################################################