package Apache::CVS::Tidy;

use strict;
use warnings;

use base qw(Apache::CVS::HTML);
use Perl::Tidy;
use CGI qw(start_html);

sub print_page_header {
   my $self = shift;
   return if $self->page_headers_sent();
   $self->request()->print(start_html(
      -title => 'CVS Repository',
      -style => { src => '/path/to/perltidy.css' },
   ));

   $self->print_path_links();
   $self->page_headers_sent(1);
}

sub print_text_revision {
   my ($self,$content) = @_;
   my $html;
   perltidy(
      source      => \$content,
      destination => \$html,
      argv        => '-html -npod -css=/path/to/perltidy.css',
      errorfile   => '/dev/null',
   );

   # big thanks to Beatnik for this little snippet
   # Apache::CVS::HTML double-spaces the code, this remedies that
   $html =~ s/\n\n/\n/g;
   
   $self->request()->print($html);
}

1;