#!f:/Perl/bin/perl

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:Kunden =f:/Apache2/cgi-bin")
                or die "Konnte keine Verbindung zur Datenbank herstellen!$!\n";

$STH = $DBH->prepare("SELECT * FROM Auswertung")
                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();