searchPattern.cgi #2

#!/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) ;

sub prSelection($$ )
{
    my $cgitarget  = shift @_ ;
    my $fields     = shift @_ ;
    
    print 
	&P4CGI::table_row(&P4CGI::cgi()->startform(-action => $cgitarget,
						   -method => "GET"),
			  {-align=>"left",
			   -valign=>"top",
			   -text => $fields},
			  {-align=>"left",
			   -text => " "},
			  { -valign=>"bottom",
			    -text => &P4CGI::cgi()->endform()
			    },
			  ) ;
} ;

print
    &P4CGI::start_table("cellspacing=3") ;


prSelection("changeList.cgi",
	    join("\n",(&P4CGI::start_table(),
		       "<tr>",
		       "<td class=\"Prompt\">File spec:</td>",
		       "<td>",
		       &P4CGI::cgi()->textfield(-name      => "FSPC",
						-default   => "//...",
						-title =>
						"File spec to search",
						-size      => 50,
						-maxlength => 256),		       
		       "</td></tr>",		       
		       "<td class=\"Prompt\">Pattern:</td>",
		       "<td >",
		       &P4CGI::cgi()->textfield(-name      => "SEARCHDESC",
						-default   => "<pattern>",
						-title     => 
						"Search pattern. Wildcards: ?=any character, *=any number of characters.",
						-size      => 50,
						-maxlength => 256),
		       "</td></tr>",
		       "<td class=\"Prompt\">Invert search:</td>",
		       "<td >",
		       &P4CGI::cgi()->checkbox(-name    => "SEARCH_INVERT",
					       -value   => 1,
					       -label   => " Search descriptions <B>NOT</B> including pattern"),
		       "</td><td>",
		       &P4CGI::cgi()->submit(-name  => "ignore",
					     -value => "GO!",
					     -title => "Start search"),
		       "</td></tr>",
		       "</table>"))
	    ) ;
		       
print &P4CGI::end_table() ;
		
print    
    &P4CGI::end_page() ;

#
# That's all folks
#