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

View of /FigKernelScripts/svr_create_set.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (download) (as text) (annotate)
Thu Sep 22 20:52:29 2011 UTC (8 years, 5 months ago) by disz
Branch: MAIN
CVS Tags: rast_rel_2014_0912, rast_rel_2014_0729, mgrast_release_3_1_2, rast_rel_2011_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_10262011, HEAD
New persistent set svr scripts

use strict;

use Getopt::Long;
use SeedEnv;
use PersistentSets;

# This is a SAS Component

=head1 svr_create_set

Create  a persistent set owned by owner

Example: svr_create_set -owner owner_name  -set_name setname


=head2 Command-Line Options

=over 4

=item url

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

=item owner

 required name of owner 

=item set_name

 required name of set 



my $usage    = "usage: svr_create_set --owner=owner_name --set_name=set name \n";
my $owner;
my $set_name;
my $url = '';
my $opted    = GetOptions('set_name=s' => \$set_name, 'owner=s', \$owner, 'url=s', \$url);

if (! $opted) { print STDERR $usage; exit }
if (!$set_name || !$owner) {
        print "Missing Owner Set name\n"; exit

PersistentSets::create_set("no type", $set_name, $owner, "no desc");

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3