5 =head1 NAME $RCSfile: filesystems.cgi,v $
15 Andrew DeFaria <Andrew@ClearSCM.com>
23 Mon Oct 25 11:10:47 PDT 2008
27 $Date: 2011/02/14 14:50:37 $
33 Usage filesystems.cgi: [-u|sage] [-ve|rbose] [-d|ebug]
37 -u|sage: Displays usage
39 -d|ebug: Output debug messages
41 -s|sytem: System to report on filesystems (Default: all)
45 This script displays all known filesystems
54 use CGI qw (:standard :cgi-lib *table start_Tr end_Tr start_td end_td);
55 use CGI::Carp 'fatalsToBrowser';
57 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
64 my $VERSION = '$Revision: 1.11 $';
65 ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
67 my $subtitle = 'Filesystems Status';
69 my $system = param 'system';
75 usage => sub { Usage },
76 verbose => sub { set_verbose },
77 debug => sub { set_debug },
78 'system=s' => \$system
79 ) or Usage 'Invalid parameter';
84 verbose "$FindBin::Script v$VERSION";
86 $subtitle .= $system eq ''
88 : ': ' . ucfirst $system;
90 $clearadm = Clearadm->new;
94 display h1 {class => 'center'}, $subtitle;
96 displayFilesystem ($system);
102 =head1 CONFIGURATION AND ENVIRONMENT
104 DEBUG: If set then $debug is set to this level.
106 VERBOSE: If set then $verbose is set to this level.
108 TRACE: If set then $trace is set to this level.
116 L<CGI::Carp|CGI::Carp>
120 L<Getopt::Long|Getopt::Long>
122 =head2 ClearSCM Perl Modules
136 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
137 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
138 <a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
139 <a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
144 =head1 BUGS AND LIMITATIONS
146 There are no known bugs in this script
148 Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
150 =head1 LICENSE AND COPYRIGHT
152 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.