lib/SVNBrowser/ColorDiff.pm

package SVNBrowser::ColorDiff;

use strict;
use HTML::Entities;
use Data::Dump qw/dump/;


=head1 Name

SVNBrowser::ColorDiff

=head1 Description

Output color diff changes from revision

=cut

=head3 diff

  my $html = SVNBrowser::ColorDiff::diff($repository_path, $revision);

=cut

sub diff {

        warn "diff args = ",dump( @_ );

        my ($repository_path, $revision) = @_;

        my $cmd = 'svn diff -c ' . $revision;
        $cmd .= ' ' . $repository_path;

        warn "## svn change: $cmd";

        my $diff;
        open(my $diff_fh, '-|', $cmd) || die "can't exec $cmd: $!";
        {
                local $/;
                $diff = <$diff_fh>;
        }
        close($diff_fh); # or warn "error closing $cmd: $!";

        $diff =~ s/\r//gs;

        warn "got ", length($diff), " bytes of diff output";

        my $out = "<tt>$cmd</tt><br/>";

        $out .= "<pre>" . encode_entities($diff, '<>&"') . "</pre>";

        return $out;

}

1;
1	dpavlin	24	package SVNBrowser::ColorDiff;
2
3			use strict;
4			use HTML::Entities;
5			use Data::Dump qw/dump/;
6
7
8			=head1 Name
9
10			SVNBrowser::ColorDiff
11
12			=head1 Description
13
14			Output color diff changes from revision
15
16			=cut
17
18			=head3 diff
19
20			my $html = SVNBrowser::ColorDiff::diff($repository_path, $revision);
21
22			=cut
23
24			sub diff {
25
26			warn "diff args = ",dump( @_ );
27
28			my ($repository_path, $revision) = @_;
29
30			my $cmd = 'svn diff -c ' . $revision;
31			$cmd .= ' ' . $repository_path;
32
33			warn "## svn change: $cmd";
34
35			my $diff;
36			open(my $diff_fh, '-\|', $cmd) \|\| die "can't exec $cmd: $!";
37			{
38			local $/;
39			$diff = <$diff_fh>;
40			}
41	dpavlin	36	close($diff_fh); # or warn "error closing $cmd: $!";
42	dpavlin	24
43			$diff =~ s/\r//gs;
44
45			warn "got ", length($diff), " bytes of diff output";
46
47			my $out = "<tt>$cmd</tt><br/>";
48
49	dpavlin	36	$out .= "<pre>" . encode_entities($diff, '<>&"') . "</pre>";
50	dpavlin	24
51			return $out;
52
53			}
54
55			1;