#!/usr/local/bin/perl5 -wT

# Declare the stuff we need to use
use strict;
use CGI;
use GD::Graph::linespoints;

use constant TITLE => "AAA Days to Integration Average: Line Chart";
my $q = new CGI;
my $graph = new GD::Graph::linespoints(600, 300);

open(HANDLE,"integrate.dat");
while (<HANDLE>) {
   chomp;
   @temp1 = split(/\|/, $_);
   $domain = unpack ("A5", $temp1[17]);
   $date .= "$temp1[1] ";
   $aaa_partners .= "$temp1[4]";
   $aaa_arf .= "$temp1[5]";
}
close(HANDLE);

my @data = ( [ qw ( $date ) ], 
             [ qw ( $aaa_partners ) ], 
             [ qw ( $aaa_arf ) ],
);

$graph->set(
   title => TITLE,
   x_label      => "Third Quarter FY 2002",
   y_label      => "Average Days",
   long_ticks   => 1,
   y_max_value  => 150,
   y_min_value  => 0,
   y_tick_number => 10,
   y_label_skip => 0,
   bar_spacing  => 4,
   types        => [ "linespoints", "linespoints" ],
   dclrs        => [ "red", "black" ],
);

$graph->set(
   markers      => [1,1]
);

$graph->set_legend( "Partners", "ARF" );
my $gd_image = $graph->plot( \@data );

print $q->header( -type => "image/png", -expires => "-1d" );

binmode STDOUT;
print $gd_image->png;
get_data();