#!/usr/bin/perl

use Chart::Pie;

$o = Chart::Pie->new(500, 500);
$o->set('colors' => {'background' => [100, 100, 100]}, 'title' => "LinuxTag Karlsruhe 2003");
$o->add_pt('Missing', 20 + 2);
$o->add_pt('Unchanged', 18 + 3 + 2);
$o->add_pt('New UIDs', 8);
$o->add_pt('New signatures', 77 + 2 + 4);
$o->png("keysigning-karlsruhe-2003.png");

# 124 total
# 20 missing
# 104 present
#  8 new uids
#  18 unchanged
#  77 new signatures

$o = Chart::Pie->new(500, 500);
$o->set('colors' => {'background' => [100, 100, 100]}, 'title' => "LinuxTag Karlsruhe 2002");
$o->add_pt('Missing', 17);
$o->add_pt('Unchanged', 0);
$o->add_pt('New UIDs', 0);
$o->add_pt('New signatures', 19);
$o->png("keysigning-karlsruhe-2002.png");

$o = Chart::Pie->new(500, 500);
$o->set('colors' => {'background' => [100, 100, 100]}, 'title' => "FOSDEM Brussels 2003");
$o->add_pt('Missing', 36);
$o->add_pt('Unchanged', 2);
$o->add_pt('New UIDs', 0);
$o->add_pt('New signatures', 51);
$o->png("keysigning-brussels-2003.png");

# 90 total
# 36 missing
# 54 present
#  0 new uids
#  2 unchanged
#  51 new signatures

$o = Chart::Pie->new(500, 500);
$o->set('colors' => {'background' => [100, 100, 100]}, 'title' => "LinuxTag Chemnitz 2003");
$o->add_pt('Missing', 18);
$o->add_pt('Unchanged', 2);
$o->add_pt('New UIDs', 0);
$o->add_pt('New signatures', 41);
$o->png("keysigning-chemnitz-2003.png");

$o = Chart::Pie->new(500, 500);
$o->set('colors' => {'background' => [100, 100, 100]}, 'title' => "LinuxTag Magdeburg 2003");
$o->add_pt('Missing', 5);
$o->add_pt('Unchanged', 0);
$o->add_pt('New UIDs', 0);
$o->add_pt('New signatures', 25);
$o->png("keysigning-chemnitz-2003.png");

