#!/usr/local/bin/perl -w -I/serv/pgpkeys/work/GD-Graph3d-0.63/lib

use CGI ':standard';
use GD::Graph::bars3d;

sub my3dgraph
{
  ($title, $array, $file) = @_;

  @data = ();
  push @data, [ @month ];
  push @data, [ @$array ];

  $mygraph = GD::Graph::bars3d->new(500, 300);
  $mygraph->set(
      x_label     => 'Tekuci mjesec',
      y_label     => 'Mjesecna vrijednost',
      title       => 'Godisnji PKS izvjestaj: ' . $title,
      #bar_width   => 3,
      #bar_depth   => 6,
      bar_spacing => 20,
      dclrs => [ 'green' ],
      #long_ticks  => 1,
      show_values => 1,
  ) or warn $mygraph->error;

  $myimage = $mygraph->plot(\@data) or die $mygraph->error;

  open PNGFD, '>', $file;
  print PNGFD $myimage->png;
  close PNGFD;
}

$i = 0;

while (<>)
{
  chomp();
  ($month[$i], $new_keys[$i], $new_sigs[$i], $revocated[$i],
   $total_www_hit[$i], $www_connects[$i], $mail_user[$i],
   $incr_posted[$i], $incr_receiveddata[$i]) = split(' ');
  ++$i;
}

my3dgraph('Novi PGP kljucevi', \@new_keys, 'keys.png');
my3dgraph('Novi PGP potpisi', \@new_sigs, 'sigs.png');
my3dgraph('Povuceni PGP kljucevi', \@revocated, 'revoc.png');
my3dgraph('Web pogodaka', \@total_www_hit, 'webhit.png');
my3dgraph('Web spajanja', \@www_connects, 'webconn.png');
my3dgraph('Korisnicki e-mailovi', \@mail_user, 'mailuser.png');
my3dgraph('Inkrementalni poslani e-mailovi', \@incr_posted,
    'posted.png');
my3dgraph('Inkrementalni primljeni e-mailovi', \@incr_receiveddata,
    'recv.png');