#!/usr/bin/perl

if ($ENV{'QUERY_STRING'} ne "") {
  $temp = $ENV{'QUERY_STRING'};
}
else {
  read(STDIN, $temp, $ENV{'CONTENT_LENGTH'});
  if ($ENV{'CONTENT_LENGTH'} == 0) {
    &no_content;
    exit;
  }
}
@pairs=split(/&/,$temp);
  foreach $item(@pairs) {
    ($key,$content)=split (/=/,$item,2);
	$content=~tr/+/ /;
	$content=~ s/%(..)/pack("c",hex($1))/ge;
	$fields{$key}=$content;
  }
if ($fields{'action'} eq "side"){&side;}
if ($fields{'action'} eq "side2"){&side2;}
if ($fields{'action'} eq "display"){&display;}
if ($fields{'action'} eq "display2"){&display2;}
if ($fields{'action'} eq "display3"){&display3;}
exit;


sub side {
$basedir = "http://www.uniquejewelryguide.com/images/ads/";
@files = ("side-ab.gif", "side-ab2.gif", "side-ab3.gif", "side-ab4.gif");
@urls = ("http://www.alluringbody.com/Merchant2/merchant.mvc?Screen=SFNT&Affiliate=ujg", "http://www.alluringbody.com/Merchant2/merchant.mvc?Screen=SFNT&Affiliate=ujg", "http://www.alluringbody.com/Merchant2/merchant.mvc?Screen=SFNT&Affiliate=ujg", "http://www.alluringbody.com/Merchant2/merchant.mvc?Screen=SFNT&Affiliate=ujg");

srand(time ^ $$);
$num = rand(@files); # Pick a Random Number

print <<EOM;

document.write('<a href="$urls[$num]" rel="nofollow"><img src="$basedir$files[$num]" border="0" /></a>');

EOM
}


sub display {
@anchor = ("Body jewelry", "Online jewelry stores", "Birthstone list");
@urls = ("http://www.alluringbody.com", "http://www.uniquejewelryguide.com/online-jewelry-stores.html", "http://www.uniquejewelryguide.com/birthstone-list.html");
@description = ("High quality navel, nose, toe, and other body jewelry by AlluringBody", "The most comprehensive guide to unique jewelry online.", "Find out interesting facts for each of the birth stones. Includes a birthstone chart and buying guide.");

srand(time ^ $$);
$num = rand(@anchor); # Pick a Random Number

print <<EOM;

document.write('<div id="info"><table cellpadding="0" cellspacing="0" width="100%"><tr><th>Get listed on Unique Jewelry Guide resources</th></tr><tr><td style="padding:12px;">');
document.write('If you have a similar web site and you would like to exchange links, please add the following information:<br /><br />');
document.write('<ul><li><b>Title:</b> $anchor[$num]</li><li><b>URL:</b> $urls[$num]</li><li><b>Description:</b> $description[$num]</li></ul>');
document.write('Once added to your site, <a href="mailto:info\@uniquejewelryguide.com?subject=Link back">email us</a> with the following information: The location of our link, your url, your link title, and your description (less than 40 words)<br /><br />');
document.write('Please do not move or remove the link back. We plan on keeping your link!');
document.write('</td></tr></table></div>');

EOM
}


sub display2 {
$basedir = "http://www.uniquejewelryguide.com/images/ads/";
@files = ("am.jpg", "am2.jpg", "am3.jpg");

srand(time ^ $$);
$num = rand(@files); # Pick a Random Number

print <<EOM;

document.write('<a href="http://www.alluringmoon.com/Merchant2/merchant.mvc?Screen=SFNT&Affiliate=ujg" rel="nofollow"><img src="$basedir$files[$num]" border="0" /></a>');

EOM
}


sub display3 {
$basedir = "http://www.uniquejewelryguide.com/images/ads/";
@files = ("am.jpg", "am2.jpg");

srand(time ^ $$);
$num = rand(@files); # Pick a Random Number

print <<EOM;

document.write('<a href="http://www.alluringmoon.com/Merchant2/merchant.mvc?Screen=SFNT&Affiliate=ujg" rel="nofollow"><img src="$basedir$files[$num]" border="0" /></a>');

EOM
}