cdscheckouts #1

#!/usr/local/bin/perl

use File::stat;
use Time::localtime;

use Getopt::Long;

$Getopt::Long::autoabbrev=0; 

unless($result=GetOptions("h", "bname=s",
			  "l")) {
    die "Illegal Input Options, -h for help\n";
}

$HELP="Usage: cdscheckouts -bname <branch_name> [-l]
Long format will stat each file\nto give modify time\nand can take a few moments\n";


if($opt_h) {
    print $HELP;
    exit;
}
    
if(!$opt_bname) {
	print $HELP;
	exit;
}
	

$cmd="p4 branches | grep $opt_bname > /dev/null";
system($cmd);

if($? ne 0) {
  print "Couldn't find branch $opt_bname\n";
  exit 1;
  }

    
print "Getting check out status...please wait\n";


$cmd="p4 opened -a //depot/$opt_bname/...| grep cdb > /tmp/p4cdsco.$$";


system($cmd);

open(CMD,"</tmp/p4cdsco.$$") || die;


while(<CMD>) {
    
    chop;
    (@data)=split;

    ($user,$client)=split('@',$data[7]);
    ($nclient,$branch)=split(':',$client);

    (@dspec)=split('/',$data[0]);

    $max=($#dspec);
    $datastring="$user $dspec[$max-3] $dspec[$max-2]";
    $dlen=length($datastring);
    $numspaces=40-$dlen;
    $pad="";
    for $i (0...$numspaces) {
	$pad=$pad." ";
    }
    $datastring=$datastring.$pad.$dspec[$max-1];

    
    # target column 50 for beginning of data field
    $dlen=length($datastring);
    $numspaces=50-$dlen;
    $pad="";
    for $i (0...$numspaces) {
	$pad=$pad." ";
    }
    $datastring=$datastring.$pad.$data[2];




    if($opt_l) {
	# if modtime is set in the client
	# we can see the time the file was last modified
	(@dfilenorev)=split('#',$data[0]);
	
	$cmd="p4 -c $client have $dfilenorev[0]";
	open(CMD2,"$cmd 2>&1|") || die;
	while(<CMD2>) {
	    chop;
	    if(/not on client/) {
		    $date_string= "No data ($client)";    
		next;
		
	    }
	    ($ig,$ig,$unixpath)=split;
	    $date_string = ctime(stat($unixpath)->mtime());
	}
    

    
    
    $dlen=length($datastring);
    # target column 60 for beginning of data field
    $numspaces=60-$dlen;
    $pad="";
    for $i (0...$numspaces) {
	$pad=$pad." ";
    }
	$datastring=$datastring.$pad.$date_string;
    }
    $cotable{$branch}=$cotable{$branch}."\n".$datastring;

}

close(CMD);

foreach $key (sort(keys(%cotable))) {

    print "\nBranch: $key\n-------------------------------------------\n$cotable{$key}\n";
}



system("rm /tmp/p4cdsco.$$");