#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
# CONFIGURATION INFORMATION
# All config info should be in P4CGI.pm
#
#################################################################
#
# View labels
#
#################################################################
# Get label
my $label = P4CGI::cgi()->param("LABEL") ;
&P4CGI::bail("No label specified") unless defined $label ;
$label = &P4CGI::htmlEncode($label) ;
my $found ;
# Get list of all labels and also check that supplied label exists
my @labels ;
&P4CGI::p4call(\@labels, "labels" );
foreach (@labels) {
$_ =~ s/^Label (\S+).*$/$1/ ;
if($_ eq $label) {
$found = "Yes" ;
} ;
}
# Print header
print &P4CGI::start_page("Label \"$label\"") ;
&P4CGI::signalError("Label $label not in depot") unless $found ;
my @otherLabels ;
foreach (@labels) {
next if ($_ eq $label) ;
push @otherLabels,$_ ;
} ;
###
### "Sort" other labels after "closeness"
###
{
my $lab=uc($label) ;
my $len = length($lab) ;
my @labs ;
while($len > 3) {
my @tmp ;
my $l ;
$len-- ;
$lab = substr($lab,0,$len) ;
foreach $l (@otherLabels) {
if(uc(substr($l,0,$len)) eq $lab) {
push @labs,$l ;
}
else {
push @tmp,$l ;
}
}
@otherLabels = @tmp ;
} ;
@otherLabels = (@labs,@otherLabels) ;
}
my %values ;
my @fields = &P4CGI::p4readform("label -o '$label'",\%values) ;
# Fix description field
if(exists $values{"Description"}) {
$values{"Description"} =
&P4CGI::formatDescription($values{"Description"}) ;
}
# Fix owner field
if (exists $values{"Owner"}) {
# Get real user names...
my %userCvt ;
&P4CGI::p4user2name(\%userCvt) ;
my $u = $values{"Owner"} ;
if(exists $userCvt{$u}) {
$values{"Owner"} = &P4CGI::ahref(-url=>"userView.cgi",
"USER=$u",
"HELP=View user info",
"$u") . " (" . $userCvt{$u} . ")" ;
}
else {
$values{"Owner"} = "$u (Unknown user)" ;
}
}
# Fix view field
my $viewFSPC = $values{"View"} ;
my $view ;
foreach (split("\n",$values{"View"})) {
my $t = &P4CGI::ahref(-url => "depotTreeBrowser.cgi",
"FSPC=$_",
"HELP=Browse depot at $_",
"$_") ;
if (defined $view) {
$view .= "
$t" ;
}
else {
$view .= "$t" ;
} ;
} ;
$values{"View"} = $view ;
print
"
",
&P4CGI::start_framedTable(""),
&P4CGI::start_table("") ;
my $f ;
foreach $f (@fields) {
my %x ;
$x{class} = "Description" if $f eq "Description" ;
print &P4CGI::table_row({-class =>"Prompt",
-text => "$f"},
{%x,
-text => $values{$f}},
"") ;
} ;
$viewFSPC =~ s/\n//ig ;
my @b ;
push @b,
(&P4CGI::buttonLink("changeList.cgi",
"View changes for label $label",
"LABEL=$label",
"Submits..."),
&P4CGI::buttonLink("fileSearch.cgi",
"List files in label $label",
"LABEL=$label",
"Files"),
&P4CGI::buttonLink("changeList.cgi",
"List changes in label view not included in label $label",
"FSPC=$viewFSPC",
"EXLABEL=$label",
"Changes after label")) ;
print
&P4CGI::table_row("",undef,
join(" ",@b)) ;
print &P4CGI::end_table() ;
print
&P4CGI::table_row(undef,"
") ;
my $diffSel =
join("\n",
("
Diff with label: | ", "", &P4CGI::cgi()->popup_menu(-name => "LABEL2", -value => \@otherLabels), " | ", "Show files that: | ", "",
&P4CGI::cgi()->checkbox(-name => "SHOWSAME",
-value => "Y",
-label => " are not modified"),
" ", &P4CGI::cgi()->checkbox(-name => "SHOWNOTSAME", -checked => "Y", -value => "Y", -label => " are modified"), " ", &P4CGI::cgi()->checkbox(-name => "SHOWDIFF", -checked => "Y", -value => "Y", -label => " differ"), " | ",
"", &P4CGI::cgi()->submit(-name => "Go", -value => "Go"), &P4CGI::cgi()->endform(), " |
Diff with current detpot files in label view. | ", "Show files that: | ", "",
&P4CGI::cgi()->checkbox(-name => "SHOWSAME",
-value => "Y",
-label => " are not modified"),
" ", &P4CGI::cgi()->checkbox(-name => "SHOWNOTSAME", -checked => "Y", -value => "Y", -label => " are modified"), " ", &P4CGI::cgi()->checkbox(-name => "SHOWDIFF", -checked => "Y", -value => "Y", -label => " differ"), " | ",
"", &P4CGI::cgi()->submit(-name => "Go", -value => "Go"), &P4CGI::cgi()->endform(), " |