clearadm/runlog.cgi

   1 #!/usr/bin/perl
   2
   3 =pod
   4
   5 =head1 NAME $RCSfile: runlog.cgi,v $
   6
   7 Display the run log
   8
   9 =head1 VERSION
  10
  11 =over
  12
  13 =item Author
  14
  15 Andrew DeFaria <Andrew@ClearSCM.com>
  16
  17 =item Revision
  18
  19 $Revision: 1.11 $
  20
  21 =item Created:
  22
  23 Mon Oct 25 11:10:47 PDT 2008
  24
  25 =item Modified:
  26
  27 $Date: 2011/06/02 06:10:02 $
  28
  29 =back
  30
  31 =head1 SYNOPSIS
  32
  33  Usage runlog.cgi: [-u|sage] [-ve|rbose] [-d|ebug]
  34
  35  Where:
  36    -u|sage:               Displays usage
  37    -ve|rbose:             Be verbose
  38    -d|ebug:               Output debug messages
  39
  40 =head2 DESCRIPTION
  41
  42 This script displays the run log
  43
  44 =cut
  45
  46 use strict;
  47 use warnings;
  48
  49 use FindBin;
  50 use Getopt::Long;
  51 use CGI qw (:standard :cgi-lib *table start_Tr end_Tr);
  52 use CGI::Carp 'fatalsToBrowser';
  53
  54 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
  55
  56 use Clearadm;
  57 use ClearadmWeb;
  58 use Display;
  59 use Utils;
  60
  61 my $VERSION  = '$Revision: 1.11 $';
  62   ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
  63
  64 my $clearadm;
  65
  66 my %opts = Vars;
  67
  68 $opts{start} ||= 0;
  69 $opts{page}  ||= 10;
  70
  71 # Main
  72 GetOptions (
  73   usage      => sub { Usage },
  74   verbose    => sub { set_verbose },
  75   debug      => sub { set_debug },
  76 ) or Usage 'Invalid parameter';
  77
  78 # Announce ourselves
  79 verbose "$FindBin::Script v$VERSION";
  80
  81 $clearadm = Clearadm->new;
  82
  83 my $title = 'Run Log';
  84
  85 heading $title;
  86
  87 undef $opts{task}
  88   if $opts{task} and $opts{task} eq 'All';
  89
  90 $opts{system} ||= 'All';
  91
  92 undef $opts{status}
  93   if $opts{status} and $opts{status} eq 'All';
  94
  95 display h1 {class => 'center'}, $title;
  96
  97 displayRunlog (%opts);
  98
  99 footing;
 100
 101 =pod
 102
 103 =head1 CONFIGURATION AND ENVIRONMENT
 104
 105 DEBUG: If set then $debug is set to this level.
 106
 107 VERBOSE: If set then $verbose is set to this level.
 108
 109 TRACE: If set then $trace is set to this level.
 110
 111 =head1 DEPENDENCIES
 112
 113 =head2 Perl Modules
 114
 115 L<CGI>
 116
 117 L<CGI::Carp|CGI::Carp>
 118
 119 L<FindBin>
 120
 121 L<Getopt::Long|Getopt::Long>
 122
 123 =head2 ClearSCM Perl Modules
 124
 125 =begin man
 126
 127  Clearadm
 128  ClearadmWeb
 129  Display
 130  Utils
 131
 132 =end man
 133
 134 =begin html
 135
 136 <blockquote>
 137 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
 138 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
 139 <a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
 140 <a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
 141 </blockquote>
 142
 143 =end html
 144
 145 =head1 BUGS AND LIMITATIONS
 146
 147 There are no known bugs in this script
 148
 149 Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
 150
 151 =head1 LICENSE AND COPYRIGHT
 152
 153 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
 154
 155 =cut