#!/usr/bin/perl
use GD;
use Time::Local;
require "../cgi-lib.pl";
#require "../pagelib.pl";
ReadParse(*params);

#print "Content-Type: text/html\n\n";
if(!$params{password} && $ENV{HTTP_REFERER} !~ /top_sell_form.cgi/) {
    print "Content-Type: image/gif\n\n";
    open(FILE,"/home/dave/public_html/images/spacer.gif");
    while(<FILE>) { print; }
    close FILE;
    exit(0);
}

my($dir) = '/home/dave/lego/top_sellers';
opendir(D,$dir);
my(@files) = readdir(D);
foreach my $f (@files) {
    next unless($f =~ /^top\.(\d+)$/);
    my($time) = $1;
    if(!$min || $time < $min) { $min = $time; }
    if($time > $max) { $max = $time; }
    my($timestamp) = tstamp($time);
    $valid_times{$timestamp}++;
    open(F,"$dir/$f");
    while(<F>) {
	chomp;
	my($pos,$id,$name) = split /\t/;
	$data{$id}{place}{$timestamp} = $pos;
	$data{$id}{name} = $name;
    }
    close F;
}
$hscale = $params{hscale} || 3;
$vscale = $params{vscale} || 15;
$t = $min;
$timestamp = tstamp($t);
#$maxt = tstamp($max);
$maxt = tstamp(time());
while($timestamp<=$maxt) {
    foreach my $id (keys %data) {
	if(!$data{$id}{place}{$timestamp}) {
	    if($valid_times{$timestamp}) {
		$data{$id}{place}{$timestamp} = -1;
	    } else {
		$data{$id}{place}{$timestamp} = $last_place{$id};
	    }
	}
	$last_place{$id} = $data{$id}{place}{$timestamp};
    }
    $t += (60*60);
    $timestamp = tstamp($t);
}

$total_times = scalar(keys %{$data{'10182'}{place}});
$color = 255;
$img = new GD::Image(($total_times * $hscale + 150),27*$vscale,1);
#$img->fill(10,10,color(64,96,192));
$img->fill(10,10,color(223,223,223));
$x = 0;
foreach my $ts (sort {$a<=>$b} (keys %{$data{'10182'}{place}})) {
    my($y,$m,$d,$h) = unpack('A4A2A2A2',$ts);
    my($mon) = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Nov','Dec')[$m-1];
    #print key
    if($h == 0) {
	my(@tl) = localtime(timelocal(0,0,12,$d,$m-1,$y-1900));
	my($c) = 127;
	if($tl[6] == 6 || $tl[6] == 0) { $c = 0; }
	$img->line($x*$hscale,0,$x*$hscale,$vscale*26,color(191,191,191));
	$img->string(gdTinyFont,$x*$hscale+25,$vscale*26+5,"$mon $d",color($c,$c,$c));
    }
    $x++;
}


@colors = (
	   [255,0,0],
	   [255,63,0],
	   [255,127,0],
	   [255,191,0],
	   [255,255,0],
	   [191,191,0],
	   [127,191,0],
	   [63,191,63],
	   [0,191,127],
	   [0,191,191],
	   [0,191,255],
	   [0,127,255],
	   [0,63,255],
	   [63,0,255],
	   [127,0,255],
	   [191,0,255],
	   [255,0,255],
	   [191,0,191],
	   [127,0,127],
	   [63,0,63],
	   [63,63,63],
	   [95,95,95],
	   [127,127,127],
	   [159,159,159],
	   [191,191,191],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   [255,255,255],
	   );
	   
foreach my $id (keys %data) {
    my(@stats) = ();
    my(@tss) = ();
    foreach my $ts (sort {$a<=>$b} (keys %{$data{$id}{place}})) {
	if($data{$id}{place}{$ts} < 0) {
	    push @stats,26;
	} else {
	    push @stats,$data{$id}{place}{$ts};
	}
	push @tss,$ts;
    }
    $data{$id}{final} = $data{$id}{place}{$maxt};
    my($i,$tot,$cnt);
    for($i=0;$i<@stats;$i++) {
	$tot=0;
	$cnt=0;
	$cnt+=3;
	$tot=3*$stats[$i];
	if($i-1>=0) {
	    $cnt+=2;
	    $tot+=2*$stats[$i-1];
	    if($i-2>=0) {
		$cnt++;
		$tot+=$stats[$i-2];
	    }
	}
	if($i+1<=$#stats) {
	    $cnt+=2;
	    $tot+=2*$stats[$i+1];
	    if($i+2<=$#stats) {
		$cnt++;
		$tot+=$stats[$i+2];
	    }
	}
	$data{$id}{place}{$tss[$i]} = $tot/$cnt unless($params{raw} || $i == $#stats);
    }
}
foreach my $id (sort {
    if($data{$a}{place}{$maxt} < 0) { return 1; }
    if($data{$b}{place}{$maxt} < 0) { return -1; }
    return $data{$a}{place}{$maxt}<=>$data{$b}{place}{$maxt}
} (keys %data)) {

    #row name
    #$data{$id}{name}
    my($x) = 0;
    my $last_place = undef;
    my @c = @{$colors[$q++]};
    my($q2) = ($q>25) ? $q : ($q+10) % 26;
    my @c2 = @{$colors[$q2]};
#    next if($q > 3);
    $img->string(gdTinyFont,$total_times*$hscale,$data{$id}{final}*$vscale-3,$data{$id}{name},color($c[0],$c[1],$c[2]));
    foreach my $ts (sort {$a<=>$b} (keys %{$data{$id}{place}})) {
	$data{$id}{place}{$ts} = 26 if($data{$id}{place}{$ts} < 0);
	my(@curc) = (!($q%2) && $x%2) ? @c2 : @c;
	if(defined($last_place)) {
	    $img->line(
		       ($x-1)*$hscale,
		       $vscale*26-$vscale*(26-$last_place),
		       $x*$hscale,
		       $vscale*26-$vscale*(26-$data{$id}{place}{$ts}),
		       color($curc[0],$curc[1],$curc[2]));
	}
	$last_place = $data{$id}{place}{$ts};
	$x++;
    }
}

print "Content-Type: image/png\n\n";
binmode STDOUT;
print $img->png;

sub tstamp {
    my($time) = @_;
    my(@lt) = localtime($time);
    $lt[5]+=1900;
    $lt[4]++;
    return sprintf("%04d%02d%02d%02d",$lt[5],$lt[4],$lt[3],$lt[2]); #Don't care about minutes/seconds
}

sub get_rgb_value {
    my($min,$mid,$max,$val,$color) = @_;
    
    my($lowr,$midr,$highr) = (255,127,0); #Grey
    if($color eq "r") {    $lowr =  51; $midr = 230; $highr = 204; } #Red
    elsif($color eq "g") { $lowr = 153; $midr = 197; $highr =  51; } #Green
    elsif($color eq "b") { $lowr =  51; $midr =  42; $highr =  34; } #Blue

    #Calculate value
    my($color) =  ((($val-$mid)*($val-$max))/(($min-$mid)*($min-$max)))*$lowr;
    $color += ((($val-$min)*($val-$max))/(($mid-$min)*($mid-$max)))*$midr;
    $color += ((($val-$min)*($val-$mid))/(($max-$min)*($max-$mid)))*$highr;

    #Normalize
    $color = int $color;
    $color = $lowr if($val < $min);
    $color = $highr if($val > $max);
    $color = 255 if($color > 255);
    $color = 0 if ($color < 0);
    return $color;
}

sub color {
    my($r,$g,$b) = @_;
    if(!defined($pal{"$r\_$g\_$b"})) {
        $pal{"$r\_$g\_$b"} = $img->colorAllocate($r,$g,$b);
    }
    return $pal{"$r\_$g\_$b"};
}