findFiles.cgi #1

#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
#  CONFIGURATION INFORMATION 
#  All config info should be in P4CGI.pm
#
#################################################################
#
#  Search changes for pattern
#
#################################################################

my $FSPC = &P4CGI::cgi()->param("FSPC") ;
$FSPC = "//..." unless defined $FSPC ;

my $LABEL = &P4CGI::cgi()->param("LABEL") ;


my @labels ;
&P4CGI::p4call(\@labels,"labels") ;
map { s/^Label (\S+) .*/$1/ ; } @labels ;
unshift @labels,"" ;
my %labelLabels ;
foreach (@labels) {
    $labelLabels{$_} = $_ ;
}
$labelLabels{""} = " - No label specified - " ;

print
    &P4CGI::start_page("",""),
    "<br>\n",
    &P4CGI::start_framedTable("Find file"),
    &P4CGI::start_table(),
    &P4CGI::cgi()->startform("-action","fileSearch.cgi",
			     "-method","GET") ;

print &P4CGI::table_row({-class => "\"Prompt\"",
			 -text => "File spec:" },	
			&P4CGI::cgi()->textfield(-name      => "FSPC",
						 -default   => $FSPC,
						 -size      => 40,
						 -maxlength => 256,
						 -title     => "File spec in p4 depot notation")) ;

print &P4CGI::table_row({-class => "\"Prompt\"",
			 -text => "Label:" },
			&P4CGI::cgi()->popup_menu(-name => "LABEL",
						  -values => \@labels,
						  -labels => \%labelLabels,
						  -title => "Search only in label")) ;

print &P4CGI::table_row("",
			&P4CGI::cgi()->submit(-name  => "0",
					      -value => "GO!",
					      -title => "Go")) ;

print    
    &P4CGI::end_table(),
    &P4CGI::end_framedTable(),
    &P4CGI::end_page() ;

#
# That's all folks
#