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

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


$username = "search";
$domain = "searchbound.com";
$path = "/home/$username/public_html/featuredupdate/ads";



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

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


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


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

open(CURRENTDATA, "$path/$siteid");
@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

	}


}

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


#&java;


#}


#} elsif ($displaytype == "2") {

#foreach $line (@currentsitedata) {
#&html;
#}

#} else { 

#foreach $line (@currentsitedata) {
#&html;
#}

#}



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

}