#!/usr/local/bin/perl

$shortdate = `date +"%D %T"`;
chop $shortdate;
#get banners data
open FILE, "banner.txt";
@line = <FILE>;
close FILE;
chop @line;
$total = @line;

# increase queue 
open FILE, "queue.txt";
($num, @ignore) = <FILE>;
close FILE;
chop $num;
$num = ($total<=$num) ? 1 : $num+1;
open FILE, ">queue.txt";
print FILE "$num\n";
close FILE;

($url,$banner_url) = split(/,,,/,$line[$num-1]);
$pn = $url;
open PATH, "path.txt";
@path = <PATH>;
close PATH;
chop @path;
($pn,$path) = split(/,,,/,(grep(/^$pn,,,/,@path))[0]);
$url = "/fashion/$path/$pn.shtml";
open FILE, "image2.txt";
@image2 = <FILE>;
close FILE;
if (grep(/^$pn-200.jpg/,@image2))  {
	$banner_url = "http://www.insilk.com/m2/$pn-200.jpg"; }
else {
	$banner_url = "http://japan.admcity.com/b/$pn.jpg"; }
open FILE, ">>link.txt";
print FILE "$ENV{'REMOTE_HOST'},,,$url,,,$banner_url,,,$ENV{'DOCUMENT_URI'},,,$shortdate\n";
close FILE;

print "Location: $banner_url\n\n";