#!f:/perl/bin/perl -w

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use GD::Graph::pie;
use DBI;
use Data::Dumper;

my $DBH;
my $STH;

### Datenbankverbindung ###

$DBH = DBI->connect("DBI:CSV:db_grafik=f:/Apache2/cgi-bin")
               or die "Konnte keine Verbindung zur Datenbank herstellen!$!\n";

$STH = $DBH->prepare("SELECT * FROM db_grafik")
               or die "Konnte SQL-Statement nicht bereitstellen!$!\n";

$STH->execute()
           or die "Ausfuehren nicht moeglich!$!\n";

my @werte;
my @res;

### Werte werden zeilenweise ausgelesen ####

while (@werte=$STH->fetchrow_array()){

push @res, [@werte];
}
$STH->finish();
$DBH->disconnect;

my @data=@res;
warn Dumper \@data;


### Grafikeigenschaften festlegen ###

my $graph = new GD::Graph::pie(300, 300);

$graph->set(
   title           => 'Auswertung',
   label           => 'Category',
   axislabelclr    => 'black',
   '3d'            => 1,
   start_angle     => 90,
   suppress_angle => 5,
   )
   or warn $graph->error;

### Ausgabe ###

my $format = $graph->export_format;
print header("image/$format");
binmode STDOUT;
my $gd = $graph->plot(\@data) or die $graph->error;
print $gd->gif();