#/usr/bin/perl
require "getopts.pl";
use Time::localtime;
Getopts("n:b:e:");
$ndays = (defined($opt_n) ? "$opt_n" : 7);
$p4c = "p4c";
$startdate = $opt_b; $enddate = $opt_e;
unless (defined($startdate)) {
$lt = localtime(time - $ndays*24*24*60);
$startdate = ($lt->year()+1900) . "/" .
($lt->mon()+1) . "/" . $lt->mday();
}
$enddate = "now" unless (defined($enddate));
@FileList = `$p4c files //depot/calls/...\@$startdate,$enddate`;
chomp(@FileList);
foreach (@FileList) {
local($callno, $nrevisions, $changeno) = ($1,$2, $3)
if (/\/\/depot\/calls\/(\d+)#(\d+) .* change (\d+) /);
$ChangeNumber{$callno} = $changeno;
$NRevisions{$callno} = $nrevisions;
}
foreach $c (sort keys %ChangeNumber) {
my($subject, $originator) = PryOutInfo($c, $ChangeNumber{$c});
print join("\t", $c, "$NRevisions{$c}", $subject, $originator) . "\n"
unless($originator =~ /mailer/i);
}
sub PryOutInfo {
my($callno, $finalchangenum) = @_;
my(@l, $owner, $subject, $originator) = ();
@l = GetChangeInfo($callno);
($subject = $l[3]) =~ s/^\s*//;
($originator = $l[2]) =~ s/\s*//;
return($subject, $originator);
}
sub GetChangeInfo {
my($changeno) = @_;
my(@tmp) = `$p4c describe -s $changeno`;
chomp(@tmp);
return($tmp[2], $tmp[3], $tmp[4], $tmp[5], $tmp[6]);
}
# |
Change |
User |
Description |
Committed |
|
#1
|
69 |
Jeff Bowles |
First round of raw KB data. |
|
|