- #!/usr/bin/perl -w
- # -*- perl -*-
- use P4CGI ;
- use strict ;
- #
- #################################################################
- # CONFIGURATION INFORMATION
- # All config info should be in P4CGI.pm
- #
- #################################################################
- #
- # P4 change browser
- # View list of jobs
- #
- #################################################################
-
- #######
- # Parameters:
- #
- # LIST
- # If defined, show a list, if not, show select dialogue
- #
- # JOBVIEW
- # If defined, used as jobview
- #
- # FLDnnn
- # These parameters for this script depends on the fileds defined in the
- # jobspec. The parameters are named:
- # FLDnnn
- # Where nnn is the field number as defined in the jobspec
- #
- # MATCHTYPE
- # Used with FLDnnn parameters and defines if all or any should match
- #
- ######
-
- ###
- ### Get and parse jobspec
- ###
- my %jobspec ;
- &P4CGI::p4readform("jobspec -o",\%jobspec) ;
-
- #
- # Make a 2000.2 jobspec compatible with 2000.1 and earlier
- #
- if(exists $jobspec{"Values"}) {
- foreach (split("\n",$jobspec{"Values"})) {
- my ($fld,$value) = split(/\s+/,$_) ;
- $jobspec{"Values-$fld"} = $value ;
- } ;
- }
-
- #
- # Get jpbspec fields
- #
- my %fields ; # Store name, type, len, and options by field number
- {
- my @tmp = split("\n",$jobspec{"Fields"}) ;
- my $s ;
- foreach $s (@tmp) {
- my ($code,$name,$type,$len,$option) = split(/\s+/,$s) ;
- $fields{$code} = [ $name, $type, $len, $option ] ;
- }
- }
-
-
- ###
- ### Build a selection forms for job list
- ###
- sub buildSelection() {
- ## Get list of users (for later use for "user" field)
- my @users ;
- &P4CGI::p4call(\@users, "users" );
- my @listOfUsers = sort { uc($a) cmp uc ($b) } map { /^(\S+).*> \((.+)\) .*$/ ; $1 ; } @users ;
- my %userCvt = map { /^(\S+).*> \((.+)\) .*$/ ; ($1,$2) ; } @users ;
- my $ulistSize = @listOfUsers ;
- $ulistSize= 15 if $ulistSize > 15 ;
-
- my @fieldPrompt ; # Prompt for each field
- my @field ; # form entry for each field
-
- my $code ; ## Loop over all fields (sorted by id)
- foreach $code (sort keys %fields)
- {
- my ($name,$type,$len,$option) = @{$fields{$code}} ;
- # Handle "Select" type field
- if($type eq "select") {
- my @set = split("/",$jobspec{"Values-$name"}) ;
- my $size = scalar @set ;
- if($size > 5) { $size = 5 } ;
- push @field, &P4CGI::cgi()->scrolling_list(-name => "FLD".$code,
- -values => \@set,
- -size => $size,
- -multiple => 'true') ;
- push @fieldPrompt,"$name is one of" ;
- next ;
-
- }
- # Date type field
- if($type eq "date") {
- my %values = (
- 1 => " One Day old",
- 2 => " Two Days old",
- 3 => "Three Days old",
- 4 => " Four Days old",
- 5 => " Five Days old",
- 6 => " Six Days old",
- 7 => " One Week old",
- 7*2 => " Two Weeks old",
- 7*2 => "Three Weeks old",
- 7*4 => " Four Weeks old",
- 7*5 => " Five Weeks old",
- 7*6 => " Six Weeks old",
- 7*7 => "Seven Weeks old",
- 7*8 => "Eight Weeks old",
- 7*9 => " Nine Weeks old",
- 7*10 => " 10 Weeks old",
- 7*11 => " 11 Weeks old",
- 7*12 => " 12 Weeks old",
- 7*16 => " 16 Weeks old",
- 7*20 => " 20 Weeks old",
- 7*26 => " 26 Weeks old",
- 7*40 => " 40 Weeks old",
- 7*52 => " 52 Weeks old") ;
- my @values = sort { $a <=> $b } keys %values ;
- push @field, join("\n",
- (&P4CGI::cgi()->popup_menu(-name => "FLD".$code."cmp",
- -default => 0,
- -values => ["-",">",">=","<=","<"] ,
- -labels => { "-"=>"- Ignore -",
- ">"=>"Less than",
- ">="=>"Less than or exactly",
- "<="=>"More than or exactly",
- "<"=>"More than" }),
- &P4CGI::cgi()->popup_menu(-name => "FLD".$code,
- -default => 0,
- -values => \@values,
- -labels => \%values))
- ) ;
- push @fieldPrompt,"$name is" ;
- next ;
- }
- # Type must be word, line or text. Compute some lengths for
- # text field
- $len = 256 if $len == 0 ;
- my $displen = $len ;
- $displen = 40 if $displen > 40 ;
- my $textfield = &P4CGI::cgi()->textfield(-name => "FLD".$code,
- -size => $displen,
- -maxlength => $len) ;
- # Field type word
- if($type eq "word") {
- if($code == 101) {
- # Reserved field Job
- push @fieldPrompt,"Job name is" ;
- push @field, $textfield ;
- next ;
- }
- else {
- if($code == 103) {
- # Rserved field User
- push @fieldPrompt,"User is one of" ;
- push @field, &P4CGI::cgi()->scrolling_list(-name => "FLD$code",
- -values => \@listOfUsers,
- -size => $ulistSize,
- -multiple => 'true',
- -labels => \%userCvt) ;
- next ;
- }
- push @fieldPrompt,"$name is" ;
- push @field, $textfield ;
- next ;
- }
- }
- # Field type line or text
- if($type eq "line" or $type eq "text") {
- push @fieldPrompt,"$name contains one of the words" ;
- push @field, $textfield ;
- next ;
- }
- } # end loop over fields
-
- # Add field for match for "any" or "all" fields
- push @fieldPrompt,"Select type of match" ;
- push @field, &P4CGI::cgi()->popup_menu(-name => "MATCHTYPE",
- -default => 0,
- -values => ["all","any"] ,
- -labels => { "all"=>"Match all fields above",
- "any" =>"Match any field above"}) ; #
- # Create table contents from fields
- my @tmp ;
- while(@field > 0) {
- my $pr = shift @fieldPrompt ;
- my $fld = shift @field ;
- push @tmp,("<tr>",
- "<td align=right valign=center>",$pr,":</td>",
- "<td align=left valign=center><font face=fixed>",
- $fld,
- "</font></td></tr>") ;
- } ;
- # Return table and form
- return
- join("\n",
- (&P4CGI::start_table("bgcolor=".&P4CGI::HDRFTR_BGCOLOR().
- " align=center cellpadding=0 cellspacing=2"),
- "<tr><td>\n",
- &P4CGI::start_table("width=100% cellspacing=4"),
- &P4CGI::table_row(-valign=>"center",
- {-align=>"center",
- -text =>
- join("\n",
- &P4CGI::cgi()->startform(-action => "jobList.cgi",
- -method => "GET"),
- "<font size=+1>Select jobs</font>")},
- {-align=>"left",
- -valign=>"top",
- -text => join("\n",(&P4CGI::start_table(),
- @tmp,
- "</table>"))},
- {-align=>"left",
- -text => " "},
- {-align=>"left",
- -valign=>"bottom",
- -width=>"1",
- -text => &P4CGI::cgi()->submit(-name => "LIST",
- -value => "List Jobs")
- },
- { -valign=>"bottom",
- -text => &P4CGI::cgi()->endform()
- },
- ),
- &P4CGI::end_table(),
- "</tr></td>",
- &P4CGI::end_table())) ;
- } # end buildSelection()
-
- unless(defined &P4CGI::cgi()->param("LIST"))
- {
- my $selection = &buildSelection() ;
- my @legend ;
- push @legend,&P4CGI::ahref("LIST=Y",
- "MATCHTYPE=",
- "List all jobs") ;
- if(exists $fields{"102"}) { # Check that we have a status field (code 102)
- my $name = $ { $fields{"102"}}[0] ;
- if(exists $jobspec{"Values-$name"}) { # Check that we have the values
- my @values = split('/',$jobspec{"Values-$name"}) ;
- my $v ;
- foreach $v (@values) {
- push @legend,&P4CGI::ahref("FLD102=$v",
- "LIST=Y",
- "MATCHTYPE=",
- "List jobs with $name=$v") ;
- }
- }
- }
-
- print
- "",
- &P4CGI::start_page("View job list",&P4CGI::ul_list(@legend)),
- $selection ;
- }
- else {
- # Do we have "JOBVIEW"?
- my $jobview = &P4CGI::cgi()->param("JOBVIEW") ;
- my $jobviewDesc ;
- if(defined $jobview) {
- $jobviewDesc = "Where jobview is: <TT>$jobview</TT>" ;
- }
- # If not, build a job view
- if(! defined $jobview) {
- $jobview = "" ;
- $jobviewDesc="" ;
- # Get field parameters
- my @selectParams = grep { /^FLD/ ; } P4CGI::cgi()->param ;
- my %params ;
- foreach (@selectParams) {
- my $v = $_ ;
- s/^FLD// ;
- my @pars = &P4CGI::cgi()->param($v) ;
- $params{$_} = \@pars ;
- }
- # Set match all/any
- my $MATCHTYPE = &P4CGI::cgi()->param("MATCHTYPE") ;
- $MATCHTYPE="all" unless defined $MATCHTYPE ;
- my $matchtype = "|" ;
- my $matchtypeDesc = "or" ;
- if($MATCHTYPE eq "all") {
- $matchtype = "" ;
- $matchtypeDesc = "and" ;
- } ;
- # Loop over field parameters
- my $id ;
- foreach $id (grep {/^\d+$/} keys %params) {
- my $desc ;
- next unless exists $fields{$id} ;
- my ($name,$type,$len,$option) = @{$fields{$id}} ;
- my @p = @{ $params{$id}} ;
- if($type eq "text" or
- $type eq "line") {
- my @tmp = map { split ; } @p ;
- @p = @tmp ;
- } ;
- if(@p > 0 and length($p[0]) > 0) {
- my $thisItem ;
- if($type eq "date") {
- my @cmp = @{ $params{"${id}cmp"}} ;
- my $cmp = shift @cmp ;
- next if $cmp eq "-" ;
- my $time = time()-(24*3600*$p[0]) ;
- my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
- $year = 1900+$year ;
- $thisItem = sprintf("$name$cmp$year/%02.2d/%02.2d",$mon+1,$mday) ;
- $desc .= "$thisItem" ;
- }
- else {
- if(@p == 1) {
- $thisItem = "$name=$p[0]" ;
- $desc .= "$name is \"$p[0]\"" if $type eq "select" ;
- $desc .= "$name contains \"$p[0]\""
- if $type =~ /^(word|line|text)/ ;
- }
- else {
- $thisItem = "($name=" . join("|$name=",@p) . ")" ;
- $desc .= "$name is" if $type eq "select" ;
- $desc .= "$name contains" if $type =~ /^(word|line|text)/ ;
- $desc .= " one of" if @p > 2 ;
- my $last = pop @p ;
- $desc .= " \"". join('","',@p) . "\" or \"$last\"" ;
- }
- }
- if(length($jobview) > 0) {
- $jobview .= " $matchtype $thisItem" ;
- $jobviewDesc .= "<br><font>$matchtypeDesc</font><br>\n$desc" ;
- }
- else {
- $jobview = "$thisItem" ;
- $jobviewDesc = $desc ;
- }
- }
- } ;
- } ;
- &P4CGI::cgi()->delete("LIST") ;
- my $legend = &P4CGI::ul_list("<b>Job name</b> -- see details of job",
- "<b>User</b> -- Information about user",
- &P4CGI::ahref("-url" => &P4CGI::cgi()->self_url(),
- "New selection")) ;
-
-
- print "", &P4CGI::start_page("View job list<br>$jobviewDesc",$legend) ;
- &P4CGI::ERRLOG("jobView:\"$jobview\"") ;
- my @tmp ;
- $jobview = "-e \"$jobview\"" if length($jobview) > 0 ;
- &P4CGI::p4call(\@tmp, "jobs -l $jobview" );
- if(@tmp == 0) {
- print
- "<font color=red size=+1>No matching jobs found for:<br><tt>jobs -l $jobview</tt></font><hr>",
- &buildSelection() ;
- }
- else {
- print "<dl>\n" ;
- while (@tmp > 0) {
- my $l = shift @tmp ;
- $l =~ /^(\S+) (on \S+ by) (\S+) (.*)/ and do {
- my ($job,$date,$user,$status) = ($1,$2,$3,$4) ;
- $status =~ s/\*(\S+)\*/Status: <tt>$1<\/tt>/ ;
- my $SPACESTR = " " ;
- my $xsp = "" ;
- if(length($job) < length($SPACESTR)) {
- $xsp = "<tt>" . substr($SPACESTR,length($job)) . "</tt>" ;
- $xsp =~ s/ / /g ;
- } ;
-
- print
- "<dt>",
- &P4CGI::ahref("-url" => "jobView.cgi",
- "JOB=$job",
- "<tt>$job</tt>"),
- "$xsp $date ",
- &P4CGI::ahref("-url" => "userView.cgi",
- "USER=$user",
- $user),
- " $status\n" ;
- shift @tmp ;
- print "<dd><pre>" ;
- while(@tmp > 0) {
- my $desc = shift @tmp ;
- $desc =~ s/^\s+// ;
- last if length($desc) == 0 ;
- print "$desc\n" ;
- }
- print "</pre>" ;
- }
- }
- print "</dl>\n" ;
- print "<pre> ",join("\n ",@tmp),"</pre>" ;
- }
-
- } ;
-
- print &P4CGI::end_page() ;
-
- #
- # That's all folks
- #
-
-
-
-