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/>";

        my $mode = '';
        my $mode_map = {
                '+' => 'add',
                '-' => 'rm',
                ' ' => 'nop',
        };

        foreach my $line (split(/\n/,$diff)) {

                next if ($line =~ /^(\+\+\+|---)\s/ || $line =~ /^=+$/);

                my $html = encode_entities($line, '<>&"');
                if ($line =~ m/^([+\-\s])/) {
                        my $m = $1;
                        if ($mode ne $m) {
                                $out .= qq{</pre>} if ($mode ne '');
                                $out .= qq{<pre class="diff-$mode_map->{$m}">};
                        } else {
                                $out .= "\n";
                        }

                        $mode = $m;
                        $out .= qq{$html};

                } else {
                        $out .= qq{</pre>} if ($mode ne '');
                        $out .= qq{<div class="diff-note">$html</div>};
                        $mode = '';
                }

        };

        $out .= qq{</pre>} if ($mode ne '');

        return $out;

}

1;
1	package SVNBrowser::ColorDiff;
2
3	use strict;
4	use HTML::Entities;
5	use Data::Dump qw/dump/;
6
7	=head1 Name
8
9	SVNBrowser::ColorDiff
10
11	=head1 Description
12
13	Output color diff changes from revision
14
15	=cut
16
17	=head3 diff
18
19	my $html = SVNBrowser::ColorDiff::diff($repository_path, $revision);
20
21	=cut
22
23	sub diff {
24
25	warn "diff args = ",dump( @_ );
26
27	my ($repository_path, $revision) = @_;
28
29	my $cmd = 'svn diff -c ' . $revision;
30	$cmd .= ' ' . $repository_path;
31
32	warn "## svn change: $cmd";
33
34	my $diff;
35	open(my $diff_fh, '-\|', $cmd) \|\| die "can't exec $cmd: $!";
36	{
37	local $/;
38	$diff = <$diff_fh>;
39	}
40	close($diff_fh); # or warn "error closing $cmd: $!";
41
42	$diff =~ s/\r//gs;
43
44	warn "got ", length($diff), " bytes of diff output";
45
46	my $out = "<tt>$cmd</tt><br/>";
47
48	my $mode = '';
49	my $mode_map = {
50	'+' => 'add',
51	'-' => 'rm',
52	' ' => 'nop',
53	};
54
55	foreach my $line (split(/\n/,$diff)) {
56
57	next if ($line =~ /^(\+\+\+\|---)\s/ \|\| $line =~ /^=+$/);
58
59	my $html = encode_entities($line, '<>&"');
60	if ($line =~ m/^([+\-\s])/) {
61	my $m = $1;
62	if ($mode ne $m) {
63	$out .= qq{</pre>} if ($mode ne '');
64	$out .= qq{<pre class="diff-$mode_map->{$m}">};
65	} else {
66	$out .= "\n";
67	}
68
69	$mode = $m;
70	$out .= qq{$html};
71
72	} else {
73	$out .= qq{</pre>} if ($mode ne '');
74	$out .= qq{<div class="diff-note">$html</div>};
75	$mode = '';
76	}
77
78	};
79
80	$out .= qq{</pre>} if ($mode ne '');
81
82	return $out;
83
84	}
85
86	1;