#!/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"; [% INCLUDE html_footer.tt2 %] END [%# $Id: AUTODOC-inheritance.html 16 2007-11-20 19:16:29Z jason $ #%]