;
}
$nchunk++;
}
close P4;
}
# Now walk through the diff chunks, reading the current rev and
# displaying it as necessary.
print
"",
"$ADD added lines $ADDEND\n",
"$DEL deleted lines $DELEND\n",
"
\n";
local( $curlin ) = 1;
&p4open('P4', "print -q $name#$rev|");
for( $n = 0; $n < $nchunk; $n++ )
{
# print up to this chunk.
&catchup( 'P4', $start[ $n ] - $curlin );
# display deleted lines -- we saved these from the diff
if( $dels[ $n ] )
{
print "$DEL";
print @lines[ $n ];
print "$DELEND";
}
# display added lines -- these are in the file stream.
if( $adds[ $n ] )
{
print "$ADD";
&display( 'P4', $adds[ $n ] );
print "$ADDEND";
}
$curlin = $start[ $n ] + $adds[ $n ];
}
&catchup( 'P4', 999999999 );
close P4;
}
################################
#
# job job
#
# describe a job
#
################################
elsif ($ARGV[0] eq "\@job") {
local( $user, $job, $status, $time, $date );
&p4open( 'P4', "job -o $ARGV[1]|" );
while( )
{
next if ( /^Job/ && ( ( $job ) = /^Job:\s(\S*)/ ) );
next if ( /^User/ && ( ( $user ) = /^User:\s*(\S*)/ ) );
next if ( /^Status/ && ( ( $status ) = /^Status:\s*(\S*)/ ) );
next if ( /^Date/ && ( ( $date, $time ) = /^Date:\s*(\S*) (\S*)/ ) );
last if ( /^Description/ );
}
print
@HTMLHEADER,
"Job $job\n",
"Job $job
\n",
"This form displays the details of a job. You can click on a\n",
"change number to see its description.\n",
"",
"
\n",
"User ", &url ("\@user+$user", "$user"), "\n",
"Status $status\n",
"Date $time $date\n",
"
\n",
"Description
\n",
"\n";
while() {
print $_;
}
print
"",
"
\n";
close P4;
# display fixes
&p4open( 'P4', "fixes -j $ARGV[1]|" );
$count = 0;
while( )
{
print
"Fixes
\n",
"\n",
"",
"| Change | Date | User\@Client |
|---|
\n"
if( !$count++ );
# jobx fixed by change N on 1997/04/25 by user@host
if( local( $change, $date, $user, $client )
= /^\S* fixed by change (\S*) on (\S*) by (\S*)@(\S*)/ )
{
print
"",
"| ", &url( "\@describe+$change", "$change" ),
" | ", $date,
" | ", &url ("\@user+$user", "$user"), "\@",
&url ("\@client+$client", "$client"),
" |
\n";
}
}
print "
\n"
if( $count );
close P4;
}
################################
#
# None of the above.
#
################################
else {
&bail( "Invalid invocation @ARGV" );
}
# Trailer
@HTMLFOOTER = (
"* * *
",
&url ("", "Top"), " | ",
&url ("\@clients", "Clients"), " | ",
&url ("\@users", "Users"), " | ",
&url ("\@branches", "Branches"), " | ",
&url ("\@labels", "Labels"), " | ",
&url ("\@jobs", "Jobs"),
@OTHER_FOOTERS,
"\n");
print @HTMLFOOTER;
##################################################################
##################################################################
#
# Subroutines.
#
##################################################################
##################################################################
sub url {
local( $url, $name ) = @_;
return qq($name) ;
}
sub mailto {
# local( $uname ) = @_;
return qq(@_) ;
}
sub bail {
print @HTMLERROR, @_, "\n";
die @_;
}
sub p4open {
local( $handle, @command ) = @_;
open( $handle, "p4 @command" ) || &bail( "p4 @command failed" );
}
# Support for processing diff chunks.
#
# skip: skip lines in source file
# display: display lines in source file, handling funny chars
# catchup: display & skip as necessary
#
sub skip {
local( $handle, $to ) = @_;
while( $to > 0 && ( $_ = <$handle> ) ) {
$to--;
}
return $to;
}
sub display {
local( $handle, $to ) = @_;
while( $to-- > 0 && ( $_ = <$handle> ) ) {
if (/[&<>]/)
{
s/&/\&/g;
s//\>/g;
}
print $_;
}
}
sub catchup {
local( $handle, $to ) = @_;
if( $to > $MAXCONTEXT )
{
local( $skipped ) = $to - $NCONTEXT * 2;
&display( $handle, $NCONTEXT );
$skipped -= &skip( $handle, $skipped );
print
"
",
"$skipped lines skipped",
"
\n" if( $skipped );
&display( $handle, $NCONTEXT );
}
else
{
&display;
}
}