Modified source engine (2017) developed by valve and leaked in 2020. Not for commercial purporses
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

79 lines
1.8 KiB

# usage: recentchanges.pl <changelist number> <filespec>
#
# Outputs changelist notes for changelists starting at the changelist number until now
# that involve files in the filespec, grouped by user.
#
# Output file is recentchanges.txt, output to the current working dir.
BEGIN {use File::Basename; push @INC, dirname($0); }
require "valve_perl_helpers.pl";
# take in the revision number we want and the filespec to look at
my $from_changelist = shift;
my $branch = shift;
if ( length($from_changelist) < 1 || length($branch) < 1 )
{
die "usage: recentchanges.pl <'from' changelist number> <filespec>";
}
my $cmd = "p4 changes -l $branch\@$from_changelist,\@now";
my @fstat = &RunCommand( $cmd );
my $lastuser;
my %changes;
foreach $line ( @fstat )
{
#if the line starts with "Change"
#then store the user, all lines after this are changes by this user
if ( $line =~ m/^Change/ )
{
my $data = 'Change (1234) on (date) by (name)@(clientspec)';
my @values = split(' ', $line);
@usersplit = split('@', $values[5]);
$lastuser = $usersplit[0];
}
else
{
#this is a change line, associate it with the user in our %changes hash
chomp($line);
# skip empty and 'merge from main' lines
if ( length($line) > 0 && $line !~ m/Merge from main/ )
{
#strip leading whitespace
$line =~ s/^\s+//;
# if the first char is not '-', add '- ' to the front
if ( $line !~ m/^-/ )
{
$line = "- $line";
}
push @{ $changes{$lastuser} }, $line;
}
}
}
chdir();
open(OUTFILE, ">recentchanges.txt");
foreach $user ( keys %changes )
{
print "$user\n";
print OUTFILE "$user\n";
foreach $i ( 0 .. $#{ $changes{$user} } )
{
print "$changes{$user}[$i]\n";
print OUTFILE "$changes{$user}[$i]\n";
}
print "\n";
print OUTFILE "\n";
}
close(OUTFILE);