#!/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 @legend ;
my $legend = "" ;
$legend = &P4CGI::ul_list(@legend) if @legend > 0 ;
&P4CGI::SET_HELP_TARGET("searchPattern") ;
print "", &P4CGI::start_page("Search Descriptions",$legend) ;
print "",
&P4CGI::start_table("bgcolor=".&P4CGI::HDRFTR_BGCOLOR()." align=center cellpadding=0 cellspacing=2"),
"
\n" ;
sub prSelection($$$$ )
{
my $cgitarget = shift @_ ;
my $desc = shift @_ ;
my $fields = shift @_ ;
my $helpTarget = shift @_ ;
print "", &P4CGI::table_row(-valign=>"center",
{-align=>"center",
-text =>
join("\n",
&P4CGI::cgi()->startform(-action => $cgitarget,
-method => "GET"),
"$desc")},
{-align=>"left",
-valign=>"top",
-text => $fields},
{-align=>"left",
-text => " "},
{-align=>"left",
-valign=>"bottom",
-width=>"1",
-text => &P4CGI::cgi()->submit(-name => "ignore",
-value => "GO!")
},
{ -valign=>"bottom",
-text => &P4CGI::cgi()->endform()
},
) ;
} ;
print "", &P4CGI::start_table("width=100% cellspacing=4") ;
prSelection("changeList.cgi",
"Search for pattern in change description",
join("\n",(&P4CGI::start_table(),
" |
",
"File spec: | ",
"",
&P4CGI::cgi()->textfield(-name => "FSPC",
-default => "//...",
-size => 50,
-maxlength => 256),
" |
",
"Pattern: | ",
"",
&P4CGI::cgi()->textfield(-name => "SEARCHDESC",
-default => "",
-size => 50,
-maxlength => 256),
" | ",
"Invert search: | ",
"",
&P4CGI::cgi()->checkbox(-name => "SEARCH_INVERT",
-value => 1,
-label => " Search descriptions NOT including pattern"),
" | ",
"")),
"searchPatt") ;
print &P4CGI::end_table() ;
print "",&P4CGI::end_table() ;
print
&P4CGI::end_page() ;
#
# That's all folks
#