#!/usr/bin/perl

use GD;
use GD::Graph;
use GD::Graph::lines;

@data = (
      ['Jan 93',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 94',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 95',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 96',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 97',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 98',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 99',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 00',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 01',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 02',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 03',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 04',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 05',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 06',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 07',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 08',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 09',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 10',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,'Jan 11',undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,],
      [undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,1077,756,244,349,408,398,287,410,477,464,568,481,1024,452,801,1076,1777,2034,1635,1517,1441,1200,1405,2097,2547,1352,1320,1234,1399,1152,1180,924,1333,1683,2020,3175,2332,1434,1576,1467,1548,1969,2267,1761,2233,2050,1666,3124,3830,3269,4300,3524,3420,4553,5357,5633,6115,4399,4196,4699,5596,3839,3573,3331,3488,3059,2411,2522,2155,1759,2185,1902,2258,1352,1306,1284,821,793,1011,660,679,812,687,749,1370,588,672,432,454,450,505,553,397,445,589,552,546,474,390,342,364,284,311,166,238,251,195,301,402,258,143,149,172,173,161,116,119,174,146,155,195,147,126,73,60,78,102,61,33,75,63,61,65,62,64,50,60,54,25,22,92,93,62,40,64,26,31,41,33,27,14,15,33,25,22,26,15,9,24,6,5,9,20,10,7,13,51,39,23,20,2,4,13,7,152,99,68,14,14,12,5,12,2,1,3,3,4,4,undef,3,3,1,3,undef,undef,3,3,undef,2,undef,3,5,2,1,undef,undef,18,5,12,13,undef,undef,undef,undef,undef,undef,],
    #  jan   f  m apr may jun jl aug sep oct nov dec jan fb mr ap my ju j aug
      [undef,29,8,294,168,111,76,200,292,232,255,390,174,74,23,33,43,30,6,undef,1,8,20,17,11,13,22,undef,undef,3,undef,7,2,1,undef,8,31,20,22,23,52,38,85,52,61,38,95,273,78,43,65,57,74,86,118,48,52,37,46,86,68,29,61,30,38,19,53,73,119,78,103,207,256,143,90,101,73,64,77,66,73,92,97,200,178,155,152,94,54,58,61,66,76,113,88,160,252,53,108,98,128,95,90,51,62,100,99,117,164,74,65,82,46,67,76,37,76,71,48,63,97,64,38,43,26,51,33,34,36,27,34,15,34,26,30,27,23,8,29,17,9,14,19,8,19,32,14,3,35,29,5,12,2,20,8,9,9,12,6,7,7,10,5,23,22,22,11,14,5,2,11,13,13,3,14,14,3,2,2,undef,undef,3,2,undef,2,3,5,2,5,undef,3,3,undef,undef,undef,undef,1,undef,2,1,undef,1,undef,undef,4,undef,undef,undef,undef,undef,undef,undef,1,undef,undef,1,2,undef,undef,2,2,undef,undef,undef,undef,undef,undef,undef,],
);

$graph = GD::Graph::lines->new(4518,191);
$graph->set(
	x_label => 'Year',
	y_label => 'Posts per Month',
	y_max_value => 7000,
	y_min_value => 0,
        y_tick_number => 100,
	y_label_skip => 100,
);
my $gd = $graph->plot(\@data);
if(!$gd) {
	 print "Content-Type:text/html\n\n";
	 print $graph->error;
	 exit(0);
}
print "Content-Type: image/gif;\n\n";
binmode STDOUT;
print $gd->gif;