/usr/share/piwi/Functions/pie.pl is in piwi 0.8+20041206-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | sub piechart(\@$$)
{
my $DataRef=shift;
my $Label=shift;
my $FileName=shift;
my $graph=GD::Graph::pie->new(450,300);
if ($graph->can_do_ttf())
{
$graph->set(
label => $Label,
transparent => $conf{'GD_transparent'},
interlaced => 1,
suppress_angle => 9
);
my $gd=$graph->plot($DataRef);
local *PNG;
undef $!;
open(PNG,'>'.$FileName);
if ($! and ($! !~ m/Inappropriate ioctl for device/i))
{
&error("Can't write image $FileName : did you do the chown -R like told in Docs/INSTALL.txt ? ($!)");
return 0;
}
print PNG $gd->png();
close(PNG);
}
else
{
&error('It seems your <b>libgd</b> librairy was not compiled with freetrype support.');
}
}
1;
|