5 =head1 NAME $RCSfile: getFilesystems.cgi,v $
7 Get a list of filesystems for a system
15 Andrew DeFaria <Andrew@ClearSCM.com>
23 Mon Dec 13 09:13:27 EST 2010
27 $Date: 2011/01/14 16:29:37 $
33 Usage getFilesystems.cgi: system=<system>
36 system=<system>: Name of the system defined in the Clearadm database to
37 retrieve the filesystems for
40 Retrieve a list of filesystems for a given system and put out a web page that
41 specifies the <select> dropdown representing the filesystems for the system.
42 This script is intended to be called by AJAX to fill in a dropdown list on a
43 web page in response to JavaScript action on another dropdown (a system
53 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
59 use CGI qw (:standard :cgi-lib);
63 error "System not specified", 1
66 my $clearadm = Clearadm->new;
68 heading undef, 'short';
70 display makeFilesystemDropdown ($opts{system}, 'Filesystem');
76 =head1 CONFIGURATION AND ENVIRONMENT
78 DEBUG: If set then $debug is set to this level.
80 VERBOSE: If set then $verbose is set to this level.
82 TRACE: If set then $trace is set to this level.
90 =head2 ClearSCM Perl Modules
103 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearadm.pm">Clearadm</a><br>
104 <a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/ClearadmWeb.pm">ClearadmWeb</a><br>
105 <a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
110 =head1 BUGS AND LIMITATIONS
112 There are no known bugs in this script
114 Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
116 =head1 LICENSE AND COPYRIGHT
118 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.