#!/usr/local/bin/perl5
# -*- perl -*-
use P4CGI ;
use strict ;
#
#####################################################################
##
## CONFIGURATION INFORMATION
## All config info should be in $configFile (see init() in P4CGI.pm)
##
#####################################################################
##
## CHange Browser
##
#####################################################################
# Set back references
my $homepage="index.cgi";
my $backtohome="Back to Home" ;
# Various vars
my $fspec ;
my $pending ;
my $status = "" ;
my $type = "" ;
my $user = "";
# Get file spec argument
my $filespec = P4CGI::cgi()->param("FSPC") ;
$filespec = "//..." unless defined $filespec ;
# Get label argument
my $label = P4CGI::cgi()->param("LABEL") ;
if(defined $label and $label eq "-") { $label = undef ; } ;
# Get spec of files to exclude from list of changes
my $exfiles = P4CGI::cgi()->param("EXFSPC") ;
if(defined $exfiles and $exfiles eq "-") { $exfiles = undef ; } ;
# Get label to exclude
my $exlabel = P4CGI::cgi()->param("EXLABEL") ;
if(defined $exlabel and $exlabel eq "-") { $exlabel = undef ; } ;
# Get status
$status = P4CGI::cgi()->param("STATUS") ;
unless(defined $status) { $status = "submitted" ; } ;
# Get branch status and name
my $branch = P4CGI::cgi()->param("BRANCH") ;
if(defined $branch) {
$fspec = P4CGI::cgi()->param("BR") ;
$type = " branch" ;
}
# Get user
my $ta ; # (throwaway)
$user = P4CGI::cgi()->param("USER") ;
($user,$ta) = split / /,$user ;
# Set title
my $title = "Change History" ;
# Get max changes to show
my $maxchanges = P4CGI::cgi()->param("MAXCH") ;
my $changeoffset ;
my $choffstr="" ;
if(defined $maxchanges && $maxchanges =~ /^\d+$/) {
# Get offset of first change
$changeoffset = P4CGI::cgi()->param("CHOFFSET") ;
if(defined $changeoffset) {
$choffstr="\@$changeoffset" ;
$changeoffset = P4CGI::cgi()->param("CHOFFSETDISP") ;
}
else {
$changeoffset = 0 ;
}
$maxchanges = "-m $maxchanges" ;
}
else {
$maxchanges = "" ;
}
if(defined $label) {
$choffstr="" ;
if($filespec eq "//...") {
$filespec .= "\@$label" ;
}
else {
$filespec =~ s/ /@$label / ;
$filespec .= "\@$label" ;
}
}
# Get list of files in changes to exclude
my @exclude;
if(defined $exlabel) {
if(defined $exfiles) {
$exfiles .= "\@$exlabel" ;
}
else {
$exfiles = "//...\@$exlabel" ;
}
}
local *P4 ;
if(defined $exfiles) {
&P4CGI::p4call(*P4,"changes \"$exfiles\"") ;
while(<P4>) {
/^Change (\d+)/ ;
push @exclude,$1 ;
}
close P4 ;
push @exclude,0 ;
}
# Save an unquoted copy of the filename
$fspec = $filespec unless defined $fspec ;
# Make filename quoted, for passing purposes
$filespec = "\"$filespec\"" ;
# Set title for pending chgs
if($status eq "pending") {
$title = "Pending Changes" ;
$filespec = "" ;
} ;
# Get the changes
&P4CGI::p4call(*P4,"changes -l $maxchanges -s $status $filespec$choffstr") ;
# Set excluded files
my $nextToExclude = shift @exclude ;
if(!defined $nextToExclude) { $nextToExclude = 0 ; } ;
# Get users, for form
my @allusers ;
my @p4users ;
&P4CGI::p4call(\@allusers, "users" );
while ( @allusers > 0 )
{
my $usertemp = shift @allusers ;
$usertemp =~ /(.*) <.* (\(.*\)) .*$/ ;
my $username = "$1" . " " . "$2" ;
push( @p4users, "$username" ) ;
}
# Print title and legend
print
"",
&P4CGI::start_page($title,
&P4CGI::ul_list("<b>Change Number:</b> to see details of change"),
$homepage,$backtohome) ;
# Print specify-a-user-for-{pending-changes/branch-changes}-form
if ( $status eq "pending" ) {
print
"",
&P4CGI::cgi()->startform(-action => &P4CGI::CHB_URL(),
-method => "GET"),
&P4CGI::cgi()->hidden("-name","FSPC",
"-value","//..."),
&P4CGI::cgi()->hidden("-name","STATUS",
"-value","pending"),
"<b><i>View pending changes only for: </i></b>",
&P4CGI::cgi()->popup_menu(-name => "USER",
-value => \@p4users),
&P4CGI::cgi()->submit(-name => "Go",
-value => "Go"),
&P4CGI::cgi()->endform() ;
print
"<hr>" ;
}
elsif ( defined $branch ) {
print
"",
&P4CGI::cgi()->startform(-action => &P4CGI::CHB_URL(),
-method => "GET"),
&P4CGI::cgi()->hidden("-name","FSPC",
"-value","$branch"),
&P4CGI::cgi()->hidden("-name","BRANCH",
"-value","YES"),
&P4CGI::cgi()->hidden("-name","BR",
"-value","$fspec"),
"<b><i>View branch changes only for: </i></b>",
&P4CGI::cgi()->popup_menu(-name => "USER",
-value => \@p4users),
&P4CGI::cgi()->submit(-name => "Go",
-value => "Go"),
&P4CGI::cgi()->endform() ;
print
"<hr>" ;
}
elsif ( defined $label ) {
print
"",
&P4CGI::cgi()->startform(-action => &P4CGI::CHB_URL(),
-method => "GET"),
&P4CGI::cgi()->hidden("-name","LABEL",
"-value","$label"),
"<b><i>View changes on label only for: </i></b>",
&P4CGI::cgi()->popup_menu(-name => "USER",
-value => \@p4users),
&P4CGI::cgi()->submit(-name => "Go",
-value => "Go"),
&P4CGI::cgi()->endform() ;
print
"<hr>" ;
}
# Print page...(ridiculous, but expeditious)
my $printed ;
if ( $status eq "pending" ) {
if ( $user ) {
print
"<dt>",
"<b>Pending changes for:</b> <font color=green>$user</font>" ;
$printed = "true" ;
}
else {
print
"",
"<b>Pending changes for:</b> <font color=green>all users</font>" ;
$printed = "true" ;
}
}
else {
if ( $user ) {
if ( $label ) {
print
"",
"<b>Changes for label $label for:</b> <font color=green>$user</font>" ;
$printed = "true" ;
}
elsif ( $branch ) {
print
"",
"<b>Changes for branch $fspec for:</b> <font color=green>$user</font>" ;
$printed = "true" ;
}
else {
print
"",
"<b>Changes for:</b> <font color=green>$user</font>" ;
$printed = "true" ;
}
}
else {
if ( !defined $label ) {
print
"<dt>",
"<b>Changes for",
"$type:</b> <font color=green>$fspec</font>" ;
$printed = "true" ;
}
}
}
if( !defined $printed ) {
if( defined $label ) {
print
"<dt>",
"<b>Changes for label:</b> <font color=green>$label</font></b>" ;
}
if(defined $exfiles) {
print
"<dt>",
" (excluding changes also found in
<font color=red>$exlabel</font>)" ;
}
if(defined $maxchanges && $maxchanges =~ /^\d+$/) {
if(defined $changeoffset) {
print
"<dt>",
"<b>Changes for",
"$type:</b> <font color=green>$fspec</font>
(offset:$changeoffset)" ;
}
}
}
# For change number and description
my ( $change, $misc ) ;
# Skip files to exclude
my $skipped=0 ;
my $skip;
print "<dl>" ;
my $displayed = 0 ;
my $lastch ;
while (<P4>) {
$_ = &P4CGI::fixSpecChar($_) ;
if(/^Change (\d+) (.*)$/) {
$skip="no" ;
( $change, $misc ) = ($1,$2) ;
$lastch = $change ;
if ($change == $nextToExclude) {
$nextToExclude = shift @exclude ;
$skip="yes" ;
$skipped++ ;
next ;
}
$skipped=0 ;
if ( $user ) {
if ( $misc =~ / by $user/ ) {
if( $status eq "pending" ) { $pending="true" ; }
print
"<dt>",
&P4CGI::ahref("-url",P4CGI::CHV_URL(),
"CH=$change", "<br>Change $change "),
"$misc<dd>\n" ;
$displayed++ ;
}
else {
next ;
}
}
else {
print
"<dt>",
&P4CGI::ahref("-url",P4CGI::CHV_URL(),
"CH=$change", "<br>Change $change "),
"$misc<dd>\n" ;
$displayed++ ;
}
}
else {
next if $skip eq "yes" ;
chop ;
next if $_ eq "" ;
if ( $user) {
if ( $misc =~ / by $user/ ) {
if( $status eq "pending" ) { $pending="true" ; }
print
"",
"$_" ;
}
else {
next ;
}
}
else {
print
"",
"$_" ;
}
}
print
"",
"<br>" ;
}
close P4;
print "</dl>\n" ;
# Check for max changes
my $mc = P4CGI::cgi()->param("MAXCH") ;
if(defined $mc and ($mc == $displayed)) {
$lastch-- ;
$changeoffset += $mc ;
print
"",
&P4CGI::ahref("-url",P4CGI::CHB_URL(),
"FSPC=".P4CGI::cgi()->param("FSPC"),
"STATUS=$status",
"CHOFFSET=$lastch",
"CHOFFSETDISP=$changeoffset",
"MAXCH=$mc",
"Next $mc changes") ;
}
# More printing...
if( ! $change && $status ne "pending" ) {
$displayed = 1 ;
print
"",
"<font color=red>No changes found for file $fspec</font>\n" ;
}
if ( $user ) {
if ( $status eq "pending" ) {
if( ! $pending ) {
$displayed = 1 ;
print
"",
" <font color=red>None</font>\n" ;
}
}
else {
if( $displayed == 0 ) {
$displayed = 1 ;
print
"",
" <font color=red>None</font>\n" ;
}
}
}
if( $displayed == 0 ) {
print
"",
" <font color=red>None</font>\n" ;
}
# End the page
print
"",
&P4CGI::end_page();