#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
# CONFIGURATION INFORMATION
# All config info should be in P4CGI.pm
#
#################################################################
#
# P4 search for file
# Search depot for files matching spec
#
#################################################################
# Get file spec argument
my $filespec = P4CGI::cgi()->param("FSPC") ;
$filespec = "" unless defined $filespec ;
my $label = P4CGI::cgi()->param("LABEL") ;
if(!defined $label) {
$label = "" ;
}
my $filedesc ;
my $showDiffSelection="Y" ;
if($filespec eq "") {
$filedesc = " <small>label</small><br><code>$label</code>" ;
$showDiffSelection= undef ;
}
else {
$filedesc = "<br><code>$filespec</code>" ;
if($label ne "") {
$filedesc .= "<br><small>in label</small><br><code>$label</code>" ;
}
}
if($label ne "") {
$label = "\@$label" ;
}
# Add //... if not there
if($filespec !~ /^\/\//) {
$filespec = "//...$filespec" ;
}
while($filespec =~ s/\.\.\.\.\.\./\.\.\./) { ; } ;
while($filespec =~ s/\*\*/\*/) { ; } ;
my $MAX_RESTART=100 ; # Restart table after this number of lines...
# Check if file exists
my @matches ;
&P4CGI::p4call(\@matches, "files \"$filespec$label\"" );
my $tableStart ;
$tableStart = &P4CGI::start_table("cellpadding=1") .
"\n" .
&P4CGI::table_header("Rev/view","Action/diff","Change/view ch.","File/view log");
my $tableSize = 0 ;
print "",
&P4CGI::start_page("<small>Search result for</small>$filedesc",
&P4CGI::ul_list("<b>Filename</b> -- see the complete file history",
"<b>Revision Number</b> -- see the file text",
"<b>Action</b> -- see the deltas (diffs)",
"<b>Change</b> -- see the complete change description, including other files")) ;
if(scalar(@matches) == 0) {
print "<font color=red>No files found matching $filespec</font>\n" ;
}
else {
print "<font color=green>",scalar(@matches)," files found:</font>" ;
if(@matches > $MAX_RESTART) {
my $n = 2 ; # Compute a value for $MAX_RESTART that does not leave widows..
while(@matches/$n > $MAX_RESTART) { $n++ ; } ;
$MAX_RESTART = int(@matches/$n) ;
} ;
my $f ;
foreach $f (@matches) {
$f =~ /([^\#]+)\#(\d+) - (\w+) change (\d+)/ ;
my ($name,$rev,$act,$change)=($1,$2,$3,$4) ;
print $tableStart if $tableSize == 0 ;
$tableSize++ ;
print
"",
&P4CGI::table_row(&P4CGI::ahref("-url","fileViewer.cgi",
"FSPC=$name",
"REV=$rev",
$rev),
&P4CGI::ahref("-url","fileDiffView.cgi",
"FSPC=$name",
"REV=$rev",
"ACT=$act",
$act),
&P4CGI::ahref("-url","changeView.cgi",
"CH=$change",
$change),
&P4CGI::ahref("-url","fileLogView.cgi",
"FSPC=$name",
$name)) ;
if($tableSize > $MAX_RESTART) {
print "",&P4CGI::end_table() ;
$tableSize = 0 ;
} ;
} ;
print "",&P4CGI::end_table() if $tableSize > 0 ;
my @files ;
my %filesToFiles ;
foreach $f (@matches) {
$f =~ /([^\#]+)\#(\d+) - (\w+) change (\d+)/ ;
my ($name,$rev,$act,$change)=($1,$2,$3,$4) ;
if($act ne "delete"){
push @files,"$name\#$rev" ;
}
} ;
if(defined $showDiffSelection and @files > 1) {
print
&P4CGI::cgi()->startform("-action","fileDiffView.cgi",
"-method","GET"),
&P4CGI::cgi()->hidden("-name","ACT",
"-value","edit"),
"View diff between:<br>",
&P4CGI::cgi()->popup_menu(-name => "FSPC",
-values => \@files),
"and<br>",
&P4CGI::cgi()->popup_menu(-name => "FSPC2",
-values => \@files),
&P4CGI::cgi()->submit("-name","ignore",
"-value"=>"Go"),
&P4CGI::cgi()->endform() ;
} ;
} ;
print
"",
&P4CGI::end_page() ;
#
# That's all folks
#