5 =head1 NAME $RCSfile: alerts.cgi,v $
15 Andrew DeFaria <Andrew@ClearSCM.com>
23 Mon Oct 25 11:10:47 PDT 2008
27 $Date: 2011/01/20 01:19:24 $
33 Usage alerts.cgi: [-u|sage] [-ve|rbose] [-d|ebug]
36 -u|sage: Displays usage
38 -d|ebug: Output debug messages
42 This script displays alerts
51 use CGI qw (:standard :cgi-lib *table start_Tr end_Tr);
52 use CGI::Carp 'fatalsToBrowser';
54 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
61 my $VERSION = '$Revision: 1.3 $';
62 ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
70 usage => sub { Usage },
71 verbose => sub { set_verbose },
72 debug => sub { set_debug },
73 ) or Usage 'Invalid parameter';
76 verbose "$FindBin::Script v$VERSION";
78 $clearadm = Clearadm->new;
80 my $title = $opts{alert}
81 ? "Alerts matching $opts{alert}"
86 display h1 {class => 'center'}, $title;
88 displayAlert $opts{alert};
94 =head1 CONFIGURATION AND ENVIRONMENT
96 DEBUG: If set then $debug is set to this level.
98 VERBOSE: If set then $verbose is set to this level.
100 TRACE: If set then $trace is set to this level.
108 L<CGI::Carp|CGI::Carp>
112 L<Getopt::Long|Getopt::Long>
114 =head2 ClearSCM Perl Modules
128 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
129 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
130 <a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
131 <a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
136 =head1 BUGS AND LIMITATIONS
138 There are no known bugs in this script
140 Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
142 =head1 LICENSE AND COPYRIGHT
144 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.