$Site{'name'}

#!/usr/bin/perl # use DBI; require 'settings.ini'; require 'prices.ini'; require 'parse.cgi'; &parse_form(); $version = '1.1'; print "Content-Type: text/html\n\n"; $dbh = DBI->connect("DBI:mysql:$MySQL{'database'}:$MySQL{'host'}:$MySQL{'port'}", $MySQL{'user'}, $MySQL{'password'}, { RaiseError => 1, AutoCommit => 1}); $statement = "SELECT * from data "; $statement .= "ORDER BY RAND()" unless (!$Site{'scramble'}); $sth = $dbh->prepare($statement); $rv = $sth->execute; &header(); print qq|

|; #0 keyword #1 oid #2 buyer_site_name #3 buyer_site_url #4 buyer_name #5 buyer_email #6 date_purchased #7 display_options while(@row = $sth->fetchrow_array) { $row[0] =~ s/\b(\w+)\b/ucfirst($1)/ge; if ($row[1]) { if ($row[5]) { @styles = split (/\|/, $row[7]); &styleit(); } if ( ("\L$row[3]" !~ /^http:\/\//) && ("\L$row[3]" !~ /^https:\/\//) ) { $row[3] = "http://$row[3]"; } print qq|$row[0] \n|; } else { $link = $row[0]; $link =~ s/ /_/g; print qq|$row[0] \n|; } } print "

"; &footer(); $rv = $sth->finish; $rv = $dbh->disconnect; sub styleit { $title = ""; $bold = ""; $color = ""; $style = qq| style="|; foreach $st (@styles) { if ($st =~ /MOUSEOVER:/) { $st =~ s/MOUSEOVER://g; $title = qq| title="$st"|; } if ($st =~ /FONT:/) { $st =~ s/FONT://g; $style .= "font-size: $st\px;"; } if ($st =~ /COLOR:/) { $st =~ s/COLOR://g; $style .= "color: #$st;"; $color = "$st"; } if ($st eq "OL") { $style .= "border-top: thin solid #COLORSWAP;"; } if ($st eq "UL") { $style .= "text-decoration: underline;"; } if ($st eq "B") { $style .= "font-weight: bold;"; $bold = "true"; } if ($st eq "I") { $style .= "font-style: italic;"; } } if (!$color) { $color = "000000"; } $style =~ s/COLORSWAP/$color/g; #$style =~ s/border-top: thin solid/border-top: medium solid/g unless (!$bold); $style .= qq|"|; } sub header { print qq| $Site{'name'} $Site{'header'} $Site{'welcome'} |; } sub footer { print qq|
Don't see your zip code? Suggest your zip codeand claim it exclusively. No one else can get the same zip code link! $Site{'footer'}

|; }