#!/usr/bin/perl
################################################################################
#
# Copyright (c) 2011, Perforce Software, Inc. All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL PERFORCE SOFTWARE, INC. BE LIABLE FOR ANY
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
# = Description
#
# Collect the full integration history of a file which can be replayed
# with //depot/main/p4-tools/server/filelog-rebuild.rb
#
# = Usage
#
# integ-history.pl [-C0|-C1] a_filename_in_depot_syntax > history.log
#
# = Important note:
#
# Automatic case sensitivity detection for 2010.1 server or greater,
# for previous server releases, you must specify the -C flag:
# 0 for case sensitive server
# 1 for case insensitive server
#
################################################################################
my %found;
sub cmdUsage {
printf("Usage: integ-history.pl [-C0|-C1] filename_in_depot_syntax\n");
exit(0);
}
sub caseHandling {
my $caseType = "sensitive";
my @result = `p4 info`;
foreach my $line (@result) {
if ($line =~ /(Server version: .*)/) {
printf("%s\n",$1);
} else {
if ($line =~ /Case Handling: (.*)/) {
printf("Case Handling detected: %s\n",$1);
$caseType = $1;
}
}
}
return $caseType;
}
sub filelog {
my $file = shift;
my $caseType = shift;
if ($caseType eq "insensitive") {
$file = lc($file);
}
if (!defined $found{$file}) {
$found{$file} = 1;
my $pid = open( my $fh, "-|", "p4", "filelog", "-1", "-t", $file );
my @result = <$fh>;
print @result;
foreach my $line (@result) {
if ($line =~ /... ... .* (\/\/.*?)#/ ) {
filelog($1, $caseType);
}
}
}
}
my $file = NULL;
my $caseType = caseHandling();
while (my $arg = shift @ARGV) {
if ($arg eq "-C0") {
$caseType = "sensitive";
} else {
if ($arg eq "-C1") {
$caseType = "insensitive";
} else {
$file = $arg;
}
}
}
if ( ($file eq NULL) || ($file !~ /\/\/.*/) ) {
cmdUsage();
}
printf("Case Handling selected: %s\n",$caseType);
filelog($file,$caseType);