[Codestriker-commits] CVS update: codestriker/lib/Codestriker/Repository Perforce.pm

[<si...@us...>]

  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;