NAME
GD::OrgChart - Perl extension for generating personnel organization charts
SYNOPSIS
# This bit of code will display a simple orgchart using the
# Imagemagick "display" command
use GD::OrgChart;
use constant FONT => "/some/path/to/truetype/fonts/times.ttf";
use IO::Pipe;
our $COMPANY;
# put data into $COMPANY such that it looks like:
$COMPANY =
{ text => "Gary\nHome Owner", subs => [
{ text => "Tex\nVice President, Back Yard Security", subs => [
{ text => "Ophelia\nGate Watcher" },
{ text => "Cinnamon\nDeck Sitter" },
]},
{ text => "Dudley\nVice President, Front Yard Security", subs => [
{ text => "Jax\nBay Window Watcher" },
{ text => "Maisie\nDoor Watcher" },
]},
]};
our $chart = GD::OrgChart->new({ size => 12, font => FONT });
$chart->DrawTree($COMPANY);
our $fh = IO::Pipe->new;
if (!$fh || !($fh->writer("display -"))) {
# error
...
}
binmode $fh; # just in case
our $image = $chart->Image;
$fh->print($image->png);
$fh->close();
DESCRIPTION
AUTHOR
Gary A. Algier, <gaa@magpage.com>
SEE ALSO
perl.