[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository CVS.pm,1.22,1.23

[Rob H. <for...@us...>]

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 = (