#!/usr/local/bin/perl
#
# Copyright (c) 2002-2004 Eric Wallengren
# This file is part of the Continuous Automated Build and Integration
# Environment (CABIE)
#
# CABIE is distributed under the terms of the GNU General Public
# License version 2 or any later version. See the file COPYING for copying
# permission or http://www.gnu.org.
#
# THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED OR
# IMPLIED, without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. ANY USE IS AT YOUR OWN RISK.
#
# Permission to modify the code and to distribute modified code is granted,
# provided the above notices are retained, and a notice that the code was
# modified is included with the above copyright notice.
#
#
# use packages...
#
#use strict;
#no strict "refs";
use CGI qw(:all);
use Sys::Hostname;
my $POSIX = 1;
my $hostname = hostname();
my $ostype;
if ($ =~ /MSWin32/) {
$POSIX = 0;
$ostype = "winsys";
} else {
$ostype = "unixsys";
}
BEGIN {push @INC, "./lib";}
require "$ostype.pm";
require "$hostname.pm";
use cmbroker;
#
# Create an instance of CGI
#
my $query = new CGI;
my $initquery = new CGI;
#
# Create instances of packages...
#
my $config = new $hostname;
my $os = new $ostype;
my $cmbroker = new cmbroker;
#
# Use for seeing if a job has exists
#
# OS SPECIFIC
my $Moutdir = $config->JOBDIR;
#
# Get all icons
#
my $disicon = $config->DISICON;
my $cgibin = $config->CGIBIN;
my $logo = $config->LOGOICON;
my $greenicon = $config->GREENICON;
my $redicon = $config->REDICON;
my $yellowicon = $config->YELLOWICON;
my $greenicon = $config->GREENICON;
my $runicon = $config->RUNICON;
my $promoicon = $config->PROMOICON;
my $infoicon = $config->INFOICON;
my $webserver = $config->WEBSERVER;
my $cgibin = $config->CGIBIN;
my $bugdb = $config->BUGDB;
my @sservers;
my @sjobs;
my @jobnos;
my @output;
#
# Global values for fields...
#
my $Server;
my $HServer;
my $Title;
my $HTitle;
my $Port;
my $Client;
my $Root;
my $Type;
my $Tools;
my $Keep;
my $Comment;
my $SCCS;
my $Browser;
my $State;
my $Query;
my $LastServer;
my $LastTitle;
#
# Colors used for genweb
#
my @colors = qw (
33cc99
dc1973
FE5066
b9ffb9
);
my @colorsa = qw (
b9ffb9
ff6600
fe5066
);
my $nullpattern = "";
my $Prompt="
Generate changed file list for selected builds
";
#
# Get the time...
#
my $now = time();
my $rightnow = _gen_time_string($now, 0);
my $debug = 1;
my $string;
if ($debug) {
open (DBG, ">/tmp/debug.out");
}
#
# Populate jobhash...
#
_get_job_info();
#
# Print content-type info
#
print "Content-type: text/html\n\n";
#
# Print standard information...
#
print < -- CABIE Build Job Information
CABIE - Build Job Information
$Prompt
EOF
&gen_values($query);
#
# Create job array...
#
foreach $entry (keys %jobhash) {
push @jobs, $entry;
}
#
# Create server array...
#
foreach $entry (keys %servhash) {
push @servers, $entry;
}
#
# The main function for rendering job data in a table.
#
&do_work($query);
#
# Generate a form to create a CGI query
#
&print_prompts($query);
#
# Print end of document.
#
print <
