|
#!/usr/bin/perl
my $input = '[% output_filename( "AUTODOC-inheritance.dot", 1 ) %]';
my $cmd = '[% graphviz_command.join( " " ) %] -Tcmapx '.$input;
print <<"END";
[% INCLUDE html_header.tt2 %]
END
open( my $infh, '-|', $cmd );
while ( <$infh> ) {
s/-/-/g;
if ( /href=".*#([^#"]+)"/ ) {
my $alt = $1;
s/alt=""/alt="$alt" title="$alt"/;
}
print $_;
}
close( $infh );
my $png = '[% output_filename( "AUTODOC-inheritance.png" ) %]';
print <<"END";
<img src="$png" usemap="#inheritance" border="0" />
[% INCLUDE html_footer.tt2 %]
END
|