#!/usr/local/bin/perl5 # -*- perl -*- use P4CGI ; use strict ; # ##################################################################### ## ## CONFIGURATION INFORMATION ## All config info should be in $configFile (see init() in P4CGI.pm) ## ##################################################################### ## ## CHange Viewer (by number) ## ##################################################################### # Set back references my $homepage="index.cgi"; my $backtohome="Back to Home" ; # Get change number my $change = P4CGI::cgi()->param("CH") ; &P4CGI::bail("No change number specified") unless defined $change ; $change =~ /^\d+$/ or &P4CGI::bail("\"$change\" is not a positive number"); my @desc ; my $currlev = &P4CGI::CURRENT_CHANGE_LEVEL() ; if($change > $currlev or $change < 1) { &P4CGI::bail("\"$change\" is not a valid change number
(0 < change <= $currlev)"); } &P4CGI::p4call(\@desc, "describe -s $change"); $_ = &P4CGI::fixSpecChar(shift @desc) ; # Calculate penultimage change number my $penultchg = ($change - 1) ; my $nextchg_ref ; my $nextchg = ($change + 1) ; if ( $change == $currlev ) { $nextchg_ref = "" ; } else { $nextchg_ref = "Go to change $nextchg " ; } # If the change was never submitted if ( $_ eq "" ) { print "", &P4CGI::start_page("Change $change", "", $homepage,$backtohome, &P4CGI::ahref("-url",&P4CGI::CHV_URL(), "CH=$penultchg", " Go to change $penultchg"), &P4CGI::ahref("-url",&P4CGI::CHV_URL(), "CH=$nextchg", $nextchg_ref)) ; print "", "Change $change unknown.", &P4CGI::end_page() ; exit 1 ; } # If output returned from p4 is wrong, bail /^Change (\d+) by (\S+)@(\S+) on (\S+) (\d\d:\d\d:\d\d)(.*)$/ or &P4CGI::bail("Illegal syntax on line returned"); my ($chn, $user, $client, $date, $time, $status) = ($1,$2,$3,$4,$5,$6) ; # Check for status pending my $statstr = "" ; my $pending ; if ( defined $status and $status =~ /pending/) { $statstr=" (pending)" ; $pending = "yes" ; } ; # Print title and legend print "", &P4CGI::start_page("Change $change$statstr", &P4CGI::ul_list( "Author: to see P4 user info", "Client: to see P4 client info", "Action: to see the deltas (diffs)", "Rev: to see the file text", "Filename: to see the complete file history"), $homepage,$backtohome, &P4CGI::ahref("-url",&P4CGI::CHV_URL(), "CH=$penultchg", " Go to change $penultchg"), &P4CGI::ahref("-url",&P4CGI::CHV_URL(), "CH=$nextchg", $nextchg_ref)) ; # Set description my $description="" ; my $leadDescSpace ; while(@desc > 0) { $_ = &P4CGI::fixSpecChar(shift @desc) ; chomp ; next if /^\s*$/; last if /^Jobs fixed/; last if /^Affected files/; if($_ !~ /^\s*$/) { if(defined $leadDescSpace) { s/^$leadDescSpace// ; } else { s/^(\s+)// ; $leadDescSpace = $1 ; }; $description .= "\n$_"; } } # Set jobs my $jobsFixed="-" ; if( /^Jobs fixed/ ) { $jobsFixed = "\n" ; shift @desc ; while (@desc > 0) { $_ = &P4CGI::fixSpecChar(shift @desc) ; my( $job, $time, $user, $client ); while( ( $job, $time, $user ) = /(\S*) on (\S*) by (\S*)/ ) { $jobsFixed .= &P4CGI::ahref("-url","vj.cgi...", "JOB=$job", $job) . "\n
"; shift @desc ; while(@desc > 0){ $_ = &P4CGI::fixSpecChar(shift @desc) ; last if /^\S/; $jobsFixed .= $_ . "
"; } $jobsFixed .= "
\n"; } last if /^Affected files/; } $jobsFixed .= "\n" ; } # Print it all out print "", &P4CGI::start_table(""), &P4CGI::table_row("-valign","top",{"-type","th", "-align","right", "-text","Author:"}, &P4CGI::ahref(-url => &P4CGI::LU_URL(), "USER=$user", $user)), &P4CGI::table_row("-valign","top",{"-type","th", "-align","right", "-text","Client:"}, &P4CGI::ahref(-url => &P4CGI::CLV_URL(), "CLIENT=$client", $client)), &P4CGI::table_row("-valign","top",{"-type","th", "-align","right", "-text","Date:"}, "$time $date"), &P4CGI::table_row("-valign","top", {"-type","th", "-align","right", "-text","Description:"}, {"-text","
".&P4CGI::magic($description)."
","-bgcolor","white"}) ; if ( ! defined $pending ) { print "", &P4CGI::table_row("-valign","top",{"-type","th", "-align","right", "-text","Jobs fixed:"}, "") ; } # End the table print "", &P4CGI::end_table(), "
"; if(! defined $pending ) { print "", &P4CGI::start_table("cellpadding=4 "), &P4CGI::table_row("-type","th", "-align","left", "Action","Rev","Filename") ; # Get file info to print my $allfiles ; my $allrevs ; my $allmodes ; my $cnt ; while(@desc > 0) { $_ = &P4CGI::fixSpecChar(shift @desc) ; if(/^\.\.\. (.*)#(\d*) (\S*)$/) { my( $file, $rev, $act ) = ($1,$2,$3) ; my $filenosp = &P4CGI::fixspaces($file) ; if(defined $allfiles) { $allfiles .= ",$file" ; $allrevs .= "+$rev" ; $allmodes .= "+$act" ; } else { $allfiles = "$file" ; $allrevs = "$rev" ; $allmodes = "$act" ; } ; print "", &P4CGI::table_row( &P4CGI::ahref("-url",P4CGI::FDV_URL(), "FSPC=$filenosp", "REV=$rev", "ACT=$act", "$act"), &P4CGI::ahref("-url",P4CGI::FV_URL(), "FSPC=$filenosp", "REV=$rev","$rev"), &P4CGI::ahref("-url",P4CGI::FLV_URL(), "FSPC=$filenosp", "$file")) ; $cnt++ ; } } print &P4CGI::end_table(),"

" ; if ( $cnt > 1 ) { print "", &P4CGI::start_table( "width=100%" ), &P4CGI::table_row("-align","center", &P4CGI::ahref("-url",P4CGI::FDV_URL(), "FSPC=$allfiles", "REV=$allrevs", "ACT=$allmodes", "CH=$change", "Diff all files in change")); } print &P4CGI::end_table(); } else { my @openfiles ; &P4CGI::p4call(\@openfiles,"opened -a") ; my @files ; my @revs ; my @actions ; foreach (@openfiles) { if(/(\S+)#(\d+) - (\w+) change $change /) { push @files,$1 ; push @revs,$2 ; push @actions,$3 ; } } print "", "Files in changelist:\n"; if( scalar(@files) > 0 ) { print "", &P4CGI::start_table("cellpadding=4 "), &P4CGI::table_row("-type","th", "-align","left", "Action","Rev","Filename"); } else { print "
", "  None", &P4CGI::end_page() ; exit ; } while(@files > 0) { my $file = shift @files ; my $filenosp = &P4CGI::fixspaces($file) ; my $rev = shift @revs ; my $act = shift @actions ; if($act eq "edit") { print "", &P4CGI::table_row( &P4CGI::ahref("-url",P4CGI::FDV_URL(), "FSPC=$filenosp", "REV=$rev", "ACT=$act", "$act"), &P4CGI::ahref("-url",P4CGI::FV_URL(), "FSPC=$filenosp", "REV=$rev","$rev"), &P4CGI::ahref("-url",P4CGI::FLV_URL(), "FSPC=$filenosp", "$file")) ; } else { print "",&P4CGI::table_row($act,$rev,"$file") ; } } print &P4CGI::end_table(),"

" ; } # End the page print "", &P4CGI::end_page() ;