#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
# CONFIGURATION INFORMATION
# All config info should be in P4CGI.pm
#
#################################################################
#
# P4 label diff viewer
# View diff between two labels
#
#################################################################
# Get arguments
# Labels to diff
my $LABEL1 = P4CGI::cgi()->param("LABEL1") ;
my $LABEL2 = P4CGI::cgi()->param("LABEL2") ;
&P4CGI::error("No first label specified") unless defined $LABEL1 ;
&P4CGI::error("No second label specified") unless defined $LABEL2 ;
# defined if files that are the same in both labels
# should be listed
my $SHOWSAME = P4CGI::cgi()->param("SHOWSAME") ;
if(defined $SHOWSAME) { undef $SHOWSAME if $SHOWSAME ne "Y" ; } ;
# defined if files that are not the same in botha labels
# should be listed
my $SHOWNOTSAME = P4CGI::cgi()->param("SHOWNOTSAME") ;
if(defined $SHOWNOTSAME) { undef $SHOWNOTSAME if $SHOWNOTSAME ne "Y" ; } ;
# defined if files that exists only in one of the labels
# shold be displayed
my $SHOWDIFF = P4CGI::cgi()->param("SHOWDIFF") ;
if(defined $SHOWDIFF) { undef $SHOWDIFF if $SHOWDIFF ne "Y" ; } ;
sub compareFiles($$) {
my ($a,$b) = @_ ;
if(!defined $a) {
return 1 ; # In this context an undef value is higher than any other
}
if(!defined $b) {
return -1 ;
}
if(&P4CGI::IGNORE_CASE() eq "Yes") {
return uc($a) cmp uc($b) ;
}
else {
return $a cmp $b ;
} ;
}
#
# Start page
#
print
"",
&P4CGI::start_page("Diff between label<br> $LABEL1 and $LABEL2","") ;
#
# Get basic data for labels
#
my %label1Data ;
&P4CGI::p4readform("label -o $LABEL1",\%label1Data) ;
my %label2Data ;
my @fields = &P4CGI::p4readform("label -o $LABEL2",\%label2Data) ;
# Fix View field
{
$label1Data{"View"} = "<tt>$label1Data{View}</tt>" ;
$label2Data{"View"} = "<tt>$label2Data{View}</tt>" ;
}
#
# Print basic label data
#
print "", # Start table
&P4CGI::start_table(""),
&P4CGI::table_row(-type => "th",
"",
$LABEL1,
$LABEL2) ;
my $f ;
shift @fields ; # remove "Label" from fields (redundant)
# print label information
foreach $f (@fields) {
my $f1 = $label1Data{$f} ;
my $f2 = $label2Data{$f} ;
if($f1 eq $f2) {
$f1 = undef ;
}
else {
$f1 = {-align => "center",
-bgcolor=>&P4CGI::HDRFTR_BGCOLOR(),
-text =>$f1} ;
}
$f2 = {-align => "center",
-bgcolor=>&P4CGI::HDRFTR_BGCOLOR(),
-text =>$f2} ;
print "",&P4CGI::table_row({-align => "right",
-text => "<b>$f</b>"},
$f1,
$f2) ;
} ;
print "",
&P4CGI::end_table(),
"<hr>";
#
# Get files for labels
#
# Get files
my (@filesLabel1,@filesLabel2);
&P4CGI::p4call(\@filesLabel1, "files \"\@$LABEL1\"" );
&P4CGI::p4call(\@filesLabel2, "files \"\@$LABEL2\"" );
# Remove revision info and create file-to-rev maps
my (%fileRevLabel1,%fileRevLabel2) ;
map { s/\#(\d+).*// ; $fileRevLabel1{$_} = $1 } @filesLabel1 ;
map { s/\#(\d+).*// ; $fileRevLabel2{$_} = $1 } @filesLabel2 ;
# Sort files
{
my @tmp = @filesLabel1 ;
@filesLabel1 = sort { compareFiles($a,$b) ; } @tmp ;
@tmp = @filesLabel2 ;
@filesLabel2 = sort { compareFiles($a,$b) ; } @tmp ;
}
# Get some statistics
my $commonFound=0 ;
my $commonAndSameRev=0 ;
{
my $f ;
foreach $f (@filesLabel1) {
if(exists $fileRevLabel2{$f}) {
$commonFound++ ;
$commonAndSameRev++ if $fileRevLabel2{$f} == $fileRevLabel1{$f} ;
}
}
}
my ($nfiles1,$nfiles2) ;
$nfiles1 = @filesLabel1 ;
$nfiles2 = @filesLabel2 ;
my $fileslisted = "Yes" ;
print "",
&P4CGI::start_table("COLSPACING=0 CELLPADDING=0"),
&P4CGI::table_row({-type=>"th",
-align=>"right",
-text=>"$LABEL1:"}
,"$nfiles1 files"),
&P4CGI::table_row({-type=>"th",
-align=>"right",
-text=>"$LABEL2:"}
,"$nfiles2 files"),
&P4CGI::table_row("","$commonFound common files") ;
if($commonAndSameRev > 0) {
print "",&P4CGI::table_row("","$commonAndSameRev with same revision") ;
}
print "",
&P4CGI::end_table() ;
if($commonFound == 0) {
print
"<FONT SIZE=+2 COLOR=red>",
"The two labels has no files in common, comparsion aborted.</FONT>" ;
}
else {
if(defined $SHOWSAME and defined $SHOWNOTSAME and defined $SHOWDIFF) {
print "<B>Files:</B><br>\n" ;
}
elsif(!defined $SHOWSAME and !defined $SHOWNOTSAME and !defined $SHOWDIFF) {
print "No files listed!<br>\n" ;
$fileslisted = undef ;
}
else {
print "<B>Listed files are:<BR>\n" ;
defined $SHOWSAME and do {
print "<LI> Files not modified\n" ; } ;
defined $SHOWNOTSAME and do {
print "<LI> Modified files (different rev.)\n" ; } ;
defined $SHOWDIFF and do {
print "<LI> Files only in one of the labels $LABEL1 and $LABEL2\n" ; } ;
print "</B>\n" ;
} ;
#
# Start print list of files
#
if(defined $fileslisted) {
print
"",
&P4CGI::start_table("border "),
&P4CGI::table_row("-type","th",
"File",undef,"$LABEL1<br>Rev.",undef,"$LABEL2<br>Rev.") ;
my ($name1,$name2) ;
while(@filesLabel1 > 0 or @filesLabel2 > 0) {
$name1 = shift @filesLabel1 unless defined $name1 ;
$name2 = shift @filesLabel2 unless defined $name2 ;
my $rev1 = $fileRevLabel1{$name1} if defined $name1 ;
my $rev2 = $fileRevLabel2{$name2} if defined $name2 ;
my $cmp = compareFiles($name1,$name2) ;
if($cmp == 0) {
if($rev1 == $rev2 and defined $SHOWSAME) {
print &P4CGI::table_row(&P4CGI::ahref("-url",
"fileLogView.cgi",
"FSPC=$name1",
"$name1"),
undef,undef,undef,
{-text=>"$rev1",
-align=>"center"}) ;
}
if($rev1 != $rev2 and defined $SHOWNOTSAME) {
print &P4CGI::table_row(&P4CGI::ahref("-url","fileLogView.cgi",
"FSPC=$name1",
"$name1"),
{-text=>"$rev1",
-align=>"center"},
undef,
{-text=>&P4CGI::ahref("-url","fileDiffView.cgi",
"FSPC=$name1",
"REV=$rev1",
"REV2=$rev2",
"ACT=edit",
"<small>diff</small>"),
-align=>"center"},
{-text=>"$rev2",
-align=>"center"}) ;
}
$name1 = undef ;
$name2 = undef ;
next ;
}
if($cmp < 0) {
if(defined $SHOWDIFF) {
print &P4CGI::table_row(&P4CGI::ahref(-url => "fileLogView.cgi",
"FSPC=$name1",
"$name1"),
undef,
{-text => "$rev1",
-align => "center"},
undef,
{-text => "<small>not in label</small>",
-align => "center",
-bgcolor => "red"}) ;
}
$name1=undef ;
next ;
}
else {
if(defined $SHOWDIFF) {
print &P4CGI::table_row(&P4CGI::ahref("-url","fileLogView.cgi",
"FSPC=$name2",
"$name2"),
undef,
{-text => "<small>not in label</small>",
-align => "center",
-bgcolor => "red"},
undef,
{-text => "$rev2",
-align => "center"}) ;
}
$name2=undef ;
next ;
}
}
print
"",
&P4CGI::end_table() ;
}
}
print &P4CGI::end_page() ;
#
# That's all folks
#