#!/usr/bin/perl

my $input = '[% output_filename( "AUTODOC-graph.dot", 1 ) %]';

my $cmd = '[% graphviz_command.join( " " ) %] -Tcmapx '.$input;

open( my $infh, '-|', $cmd );
while ( <$infh> ) {
    s/&#45;/-/g;
    if ( /href=".*#([^#"]+)"/ ) {
        my $alt = $1;
        s/alt=""/alt="$alt" title="$alt"/;
    }
    print $_;
}
close( $infh );

my $png = '[% output_filename( "AUTODOC-graph.png" ) %]';
print qq{<img src="$png" usemap="#dbixclass" border="0" />\n};
[%# $Id: AUTODOC-graph.html 13 2007-11-20 13:42:42Z jason $ #%]