clearadm/getFilesystems.cgi

   1 #!/usr/local/bin/perl
   2
   3 =pod
   4
   5 =head1 NAME $RCSfile: getFilesystems.cgi,v $
   6
   7 Get a list of filesystems for a system
   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.5 $
  20
  21 =item Created:
  22
  23 Mon Dec 13 09:13:27 EST 2010
  24
  25 =item Modified:
  26
  27 $Date: 2011/01/14 16:29:37 $
  28
  29 =back
  30
  31 =head1 SYNOPSIS
  32
  33  Usage getFilesystems.cgi: system=<system>
  34
  35  Where:
  36    system=<system>: Name of the system defined in the Clearadm database to
  37                     retrieve the filesystems for
  38 =head1 DESCRIPTION
  39
  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
  44 dropdown).
  45
  46 =cut
  47
  48 use strict;
  49 use warnings;
  50
  51 use FindBin;
  52
  53 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
  54
  55 use Clearadm;
  56 use ClearadmWeb;
  57 use Display;
  58
  59 use CGI qw (:standard :cgi-lib);
  60
  61 my %opts = Vars;
  62
  63 error "System not specified", 1
  64   unless $opts{system};
  65
  66 my $clearadm = Clearadm->new;
  67
  68 heading undef, 'short';
  69
  70 display makeFilesystemDropdown ($opts{system}, 'Filesystem');
  71
  72 display end_html;
  73
  74 =pod
  75
  76 =head1 CONFIGURATION AND ENVIRONMENT
  77
  78 DEBUG: If set then $debug is set to this level.
  79
  80 VERBOSE: If set then $verbose is set to this level.
  81
  82 TRACE: If set then $trace is set to this level.
  83
  84 =head1 DEPENDENCIES
  85
  86 =head2 Perl Modules
  87
  88 L<FindBin>
  89
  90 =head2 ClearSCM Perl Modules
  91
  92 =begin man
  93
  94  Clearadm
  95  ClearadmWeb
  96  Display
  97
  98 =end man
  99
 100 =begin html
 101
 102 <blockquote>
 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>
 106 </blockquote>
 107
 108 =end html
 109
 110 =head1 BUGS AND LIMITATIONS
 111
 112 There are no known bugs in this script
 113
 114 Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
 115
 116 =head1 LICENSE AND COPYRIGHT
 117
 118 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
 119
 120 =cut