#!/usr/bin/perl
#----------------------------
# UpdatePricing 2.0
# Steve Monsen 7-14-2001
# http://www.profitablewebsites.com
# Contact: admin@profitablewebsites.com
#----------------------------
# http://www.crawlingthenet.com/featuredupdate/display.cgi

use CGI qw(param);
#my $siteid = param("siteid");
my $displaytype = param("displaytype");


$username = "crawling";
$domain = "crawlingthenet.com";
$path = "/home/crawling/public_html/featuredupdate/ads";



#######################################

print "Content-type: text/html\n\n";
#print "test";


#if ($displaytype == "1") {


#while ($siteid = <$path/*>) {
#$siteid =~ s#.*/##;

$count = 1;
while ($count < 22) {

open(CURRENTDATA, "$path/$count.dat");
@currentsitedata=split(/&&/,<CURRENTDATA>);
close(CURRENTDATA);

if ($currentsitedata[1] ne "") {

print <<EndBlock02;
document.writeln("<A CLASS='featuredsitesLink' href='$currentsitedata[1]' target='_blank'>$currentsitedata[0]</A>");
document.writeln("<br><SPAN CLASS='featuredsitesDesc'>$currentsitedata[2]</SPAN><br><img src='http://www.$domain/images/clear.gif' height='5' width='1'><br>");
EndBlock02

	}

$count++;
}



################################################################################

sub java {

open(CURRENTDATA, "$path/$siteid.dat");
@currentsitedata=split(/&&/,<CURRENTDATA>);
close(CURRENTDATA);

foreach $line (@currentsitedata) {
print <<EndBlock02;
document.writeln("<A CLASS='featuredsitesLink' href='$currentsitedata[1]' target='_blank'>$currentsitedata[0]</A>");
document.writeln("<br><SPAN CLASS='featuredsitesDesc'>$currentsitedata[2]</SPAN>");
EndBlock02
	}

}

sub html {

print <<EndBlock03;
<A CLASS="featuredsitesLink" href="$currentsitedata[1]" target="_blank">$currentsitedata[0]</A>
<br><SPAN CLASS="featuredsitesDesc">$currentsitedata[2]</SPAN>
EndBlock03

}