lib/SVNBrowser/ColorDiff.pm

package SVNBrowser::ColorDiff;

use strict;
use Text::VimColor;
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 $vim;
        eval {
                local %ENV;
                $ENV{PATH} = "/usr/local/bin:/usr/bin:$ENV{PATH}";

                my $vim = Text::VimColor->new(
                        string => $diff,
                        filetype => 'diff',
                        vim_command => Jifty->config->app('vim'),
                        vim_options => [ qw( -RXZ -i NONE -u NONE -N ), "+set nomodeline" ]
                );
        };

        if ($@) {
                $out .= "<pre>" . encode_entities($diff, '<>&"') . "</pre>";
        } else {
                foreach (my ($type,$val) = $vim->marked) {
                        $out .= qq{<span class="$type">$val</span>};
                }
        }

        return $out;

}

1;
1	dpavlin	24	package SVNBrowser::ColorDiff;
2
3			use strict;
4			use Text::VimColor;
5			use HTML::Entities;
6			use Data::Dump qw/dump/;
7
8
9			=head1 Name
10
11			SVNBrowser::ColorDiff
12
13			=head1 Description
14
15			Output color diff changes from revision
16
17			=cut
18
19			=head3 diff
20
21			my $html = SVNBrowser::ColorDiff::diff($repository_path, $revision);
22
23			=cut
24
25			sub diff {
26
27			warn "diff args = ",dump( @_ );
28
29			my ($repository_path, $revision) = @_;
30
31			my $cmd = 'svn diff -c ' . $revision;
32			$cmd .= ' ' . $repository_path;
33
34			warn "## svn change: $cmd";
35
36			my $diff;
37			open(my $diff_fh, '-\|', $cmd) \|\| die "can't exec $cmd: $!";
38			{
39			local $/;
40			$diff = <$diff_fh>;
41			}
42			close($diff_fh) or warn "error closing $cmd: $!";
43
44			$diff =~ s/\r//gs;
45
46			warn "got ", length($diff), " bytes of diff output";
47
48			my $out = "<tt>$cmd</tt><br/>";
49
50
51			my $vim;
52			eval {
53			local %ENV;
54			$ENV{PATH} = "/usr/local/bin:/usr/bin:$ENV{PATH}";
55
56			my $vim = Text::VimColor->new(
57			string => $diff,
58			filetype => 'diff',
59			vim_command => Jifty->config->app('vim'),
60			vim_options => [ qw( -RXZ -i NONE -u NONE -N ), "+set nomodeline" ]
61			);
62			};
63
64			if ($@) {
65			$out .= "<pre>" . encode_entities($diff, '<>&"') . "</pre>";
66			} else {
67			foreach (my ($type,$val) = $vim->marked) {
68			$out .= qq{<span class="$type">$val</span>};
69			}
70			}
71
72			return $out;
73
74			}
75
76			1;