User: sits
Date: 08/06/19 22:53:02
Modified: lib/Codestriker/Repository Perforce.pm
Log:
Added the ability to retrieve perforce data from the repository.
Index: Perforce.pm
===================================================================
RCS file:
/cvsroot/codestriker/codestriker/lib/Codestriker/Repository/Perforce.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Perforce.pm 7 Jun 2006 00:35:02 -0000 1.5
+++ Perforce.pm 20 Jun 2008 05:53:01 -0000 1.6
@@ -78,7 +78,17 @@
my ($self, $start_tag, $end_tag, $module_name,
$stdout_fh, $stderr_fh) = @_;
- return $Codestriker::UNSUPPORTED_OPERATION;
+ # Currently diff retrievals are only supported for a single tag.
+ if ($start_tag ne '' && $end_tag ne '') {
+ print $stderr_fh, "Diff retrieval cannot be performed with both
tags defined.\n";
+ return $Codestriker::OK;
+ }
+ my $tag = $start_tag ne '' ? $start_tag : $end_tag;
+
+ Codestriker::execute_command($stdout_fh, $stderr_fh, $Codestriker::p4,
+ '-u', $self->{user}, '-P', $self->{password}, 'describe',
+ '-du', $tag);
+ return $Codestriker::OK;
}
1;
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Codestriker-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/codestriker-commits
