clearadm/processschedule.cgi

   1 #!/usr/local/bin/perl
   2
   3 =pod
   4
   5 =head1 NAME $RCSfile: processschedule.cgi,v $
   6
   7 Process a schedule
   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.3 $
  20
  21 =item Created:
  22
  23 Mon Oct 25 11:10:47 PDT 2008
  24
  25 =item Modified:
  26
  27 $Date: 2011/02/14 14:53:36 $
  28
  29 =back
  30
  31 =head1 SYNOPSIS
  32
  33  Usage processschedule.cgi: [-u|sage] [-ve|rbose] [-d|ebug]
  34                             action=[Add|Delete|Edit|Post]
  35                             schedule=<schedule>
  36
  37  Where:
  38    -u|sage:   Displays usage
  39    -ve|rbose: Be verbose
  40    -d|ebug:   Output debug messages
  41
  42    action:     Specifies to add, delete, edit or post an alert
  43    schedule:   Schedule to delete or edit
  44
  45 =head2 DESCRIPTION
  46
  47 This script adds, deletes, edits or posts a schedule
  48
  49 =cut
  50
  51 use strict;
  52 use warnings;
  53
  54 use FindBin;
  55 use Getopt::Long;
  56 use CGI qw (:standard :cgi-lib *table start_Tr end_Tr);
  57 use CGI::Carp 'fatalsToBrowser';
  58
  59 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
  60
  61 use Clearadm;
  62 use ClearadmWeb;
  63 use Display;
  64 use Utils;
  65
  66 my $VERSION  = '$Revision: 1.3 $';
  67   ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
  68
  69 my $clearadm;
  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 %opts = Vars;
  84
  85 my $title = 'Schedule';
  86
  87 heading $title;
  88
  89 unless ($opts{'delete.x'} or $opts{'edit.x'} or $opts{action}) {
  90   displayError 'Action not defined!';
  91   exit 1;
  92 } # unless
  93
  94 unless ($opts{action} eq 'Add') {
  95   unless ($opts{name}) {
  96     displayError 'Schedule not defined!';
  97     exit 1;
  98   } # unless
  99 } # unless
 100
 101 my ($err, $msg);
 102
 103 if ($opts{action} eq 'Add') {
 104   display h1 {class => 'center'}, 'Add Schedule';
 105   editSchedule;
 106 } elsif ($opts{'delete.x'}) {
 107   ($err, $msg) = $clearadm->DeleteSchedule ($opts{name});
 108
 109   if ($msg !~ /Records deleted/) {
 110     displayError "Unable to delete schedule $opts{name}\n$msg";
 111   } else {
 112     display h1 {class => 'center'}, $title;
 113     display h3 {class => 'center'}, "Schedule $opts{name} deleted";
 114
 115     displaySchedule;
 116   } # if
 117 } elsif ($opts{'edit.x'}) {
 118   display h1 {class => 'center'}, 'Edit Schedule: ', $opts{name};
 119   editSchedule ($opts{name});
 120 } elsif ($opts{action} eq 'Post') {
 121   delete $opts{action};
 122
 123   my $nbr        = delete $opts{nbr};
 124   my $multiplier = delete $opts{multiplier};
 125
 126   if ($nbr == 1) {
 127     $multiplier = substr $multiplier, 0, -1;
 128   } # if
 129
 130   $opts{frequency} = "$nbr $multiplier";
 131
 132   my %schedule = $clearadm->GetSchedule ($opts{name});
 133
 134   if (%schedule or $opts{oldname}) {
 135     my $name = delete $opts{oldname};
 136
 137     $name ||= $opts{name};
 138
 139     $opts{active} = 'false'
 140       unless $opts{active};
 141
 142     ($err, $msg) = $clearadm->UpdateSchedule ($name, %opts);
 143
 144     if ($err) {
 145       displayError "$msg (Status: $err)";
 146     } else {
 147       display h1 {class => 'center'}, $title;
 148       display h3 {class => 'center'}, "Schedule $opts{name} updated";
 149
 150       displaySchedule;
 151     } # if
 152   } else {
 153     ($err, $msg) = $clearadm->AddSchedule (%opts);
 154
 155     if ($err) {
 156       displayError "$msg (Status: $err)";
 157     } else {
 158
 159       display h1 {class => 'center'}, $title;
 160       display h3 {class => 'center'}, "Schedule $opts{name} added";
 161
 162       displaySchedule;
 163     } # if
 164   } # if
 165 } else {
 166   displayError "Unknown action - $opts{action}";
 167 } # if
 168
 169 footing;
 170
 171 =pod
 172
 173 =head1 CONFIGURATION AND ENVIRONMENT
 174
 175 DEBUG: If set then $debug is set to this level.
 176
 177 VERBOSE: If set then $verbose is set to this level.
 178
 179 TRACE: If set then $trace is set to this level.
 180
 181 =head1 DEPENDENCIES
 182
 183 =head2 Perl Modules
 184
 185 L<CGI>
 186
 187 L<CGI::Carp|CGI::Carp>
 188
 189 L<FindBin>
 190
 191 L<Getopt::Long|Getopt::Long>
 192
 193 =head2 ClearSCM Perl Modules
 194
 195 =begin man
 196
 197  Clearadm
 198  ClearadmWeb
 199  Display
 200  Utils
 201
 202 =end man
 203
 204 =begin html
 205
 206 <blockquote>
 207 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
 208 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
 209 <a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
 210 <a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
 211 </blockquote>
 212
 213 =end html
 214
 215 =head1 BUGS AND LIMITATIONS
 216
 217 There are no known bugs in this script
 218
 219 Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
 220
 221 =head1 LICENSE AND COPYRIGHT
 222
 223 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
 224
 225 =cut