#!/usr/bin/perl

#やあ3のパワ〖を山すcgi
#イメ〖ジ山绩脱

use GIFgraph::lines;

$my_graph = new GIFgraph::lines( );

$diarydir = "/home/yar-3/diary/";
$max = 30; #30泣尸
($sec, $min, $hour, $mday, $mon, $year,
             $wday, $yday, $isdst) = localtime(time);
$year += 1900;

@a = <$diarydir$year/d*.hnf>;
sort @a;        # ascii界に事び仑え
@a  = reverse(@a);       # 嫡界に

$year -= 1;
@b =  <$diarydir$year/d*.hnf>;
sort @b;        # ascii界に事び仑え
@b = reverse(@b);       # 嫡界に

push(@a , @b);



for ($i = 0; $i < $max ; $i++) {
        $t = (stat($a[$i]))[7];	# size get
	$s[$i] = $t;	# 芹误に呈羌
	$name[$i] = $a[$i];
	$name[$i] =~ /d(\d\d\d\d\d\d\d\d)\.hnf/;
	$name[$i] = $1;
#	print "$name[$i] $s[$i]\n";
}
@a = reverse(@s);
@b = reverse(@name);

@data = ([@b], [@a]);

    $my_graph->set( 
        x_label           => 'Day',
        y_label           => 'bytes',
        title             => 'ore power',
#        y_max_value       => 8,
#        y_tick_number     => 8,
	x_label_skip	  => 6,
        y_label_skip      => 2 
    );

#push(@data, @name);
#push(@data, @s);
#$my_graph->plot(\@data);
print "content-type: image/gif\n\n";
print $my_graph->plot(\@data);
#$my_graph->plot_to_gif("test1.gif", \@data);