[Bio] / FigKernelScripts / svr_all_subsystems.pl Repository:
ViewVC logotype

View of /FigKernelScripts/svr_all_subsystems.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.9 - (download) (as text) (annotate)
Wed Feb 17 15:03:27 2010 UTC (9 years, 8 months ago) by parrello
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, mgrast_dev_10262011, HEAD
Changes since 1.8: +2 -0 lines
Fixed POD errors. Added examples.

#!/usr/bin/perl -w
use strict;

use Getopt::Long;
use SeedEnv;

#
#	This is a SAS Component.
#

=head1 svr_all_subsystems

    svr_all_subsystems >subsystem_list.tbl

Get all the subsystem names.

This script creates a flat file containing all the subsystem names.

=head2 Command-Line Options

=over 4

=item clusterBased

If specified, then cluster-based subsystems will be included in the list.

=item unusable

If specified, then unusable subsystems will be included in the list.

=item url

The URL for the sapling server, if it is to be different from the default.

=back

=cut

# Parse the command-line options.
my $clusterBased = '';
my $unusable = '';
my $url = '';
my $opted =  GetOptions('unusable' => \$unusable, 'clusterBased' => \$clusterBased,
			'url=s' => \$url);
if (! $opted) {
    print "usage: svr_all_subsystems [--unusable] [--clusterBased] [-url=http://...] >output\n";
} else {
    # Get the server object.
    my $sapServer = SAPserver->new(url => $url);
    # Compute the exclusion list.
    my $excludes = [];
    if (! $clusterBased) {
	$excludes = ['cluster-based'];
    }
    # Convert the usability flag.
    my $usable = ($unusable ? 0 : 1);
    # Ask the server for results.
    my $document = $sapServer->subsystem_names(-exclude => $excludes,
					       -usable => $usable);
    # Loop through the return list, producing output.
    for my $ssname (sort @$document)
    {
	print "$ssname\n";
    }
}




MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3