Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory usw-pr-cvs1:/tmp/cvs-serv3367/lib/SandWeb/Repository
Modified Files:
CVS.pm
Log Message:
added colorized diff.. started from scratch, so it's pretty weak right
now ;)
Index: CVS.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/CVS.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -U2 -r1.22 -r1.23
--- CVS.pm 2002/01/18 20:52:55 1.22
+++ CVS.pm 2002/01/22 08:25:45 1.23
@@ -5,4 +5,6 @@
package SandWeb::Repository::CVS;
+use SandWeb::Diff;
+
sub new {
my $class = shift;
@@ -171,4 +173,5 @@
my $recurse = $args{'recurse'};
my $context = $args{'context'};
+ my $unified = $args{'unified'};
my $file = $args{'file'};
@@ -180,10 +183,17 @@
if ($rev) { push @param, " -r $rev" };
if ($context) { push @param, " -c" };
+ if ($unified) { push @param, " -u" };
if ($recurse) { push @param, " -R" };
print "cd $sandbox && cvs -d $root @param \"$file\" 2>&1";
- my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
+ my $raw_output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
+
+ my $diff = SandWeb::Diff->new(
+ diff => "$raw_output",
+ );
+
+ my $output = $diff->colored_diff();
my %return = (
|
