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

View of /FigKernelScripts/svr_copy_to_RAST_dir.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Thu Apr 1 20:24:42 2010 UTC (9 years, 10 months ago) by olson
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.2: +1 -1 lines
fix

#!/usr/bin/perl

#
#	This is a SAS Component.
#


use RASTserver;
use strict;
use Getopt::Long;
use Data::Dumper;

#
# Usage: svr_copy_to_RAST_dir username password jobid from [to_dir]"
#

my $verbose;
my $use_test_server = 0;
my $url;

my $usage = "Usage: $0 [--verbose] [--test] [--url server-url] username password jobid from [to_dir]\n";

if (!GetOptions('verbose' => \$verbose,
		'url=s' => \$url,
		'test' => \$use_test_server))
{
    die $usage;
}

@ARGV == 4 or @ARGV == 5 or die $usage;

my $username = shift;
my $password = shift;
my $job = shift;
my $from = shift;
my $to = shift;

my $rast = new RASTserver($username, $password, { -test => $use_test_server,
						  (defined($url) ? (-server => $url) : ())
						  } );

my $res = $rast->copy_to_RAST_dir( { -job => $job, -from => $from,
				     (defined($to) ? (-to => $to) : ()) } );

if ($res->{status} eq 'error')
{
    die "Error copying data: $res->{error_msg}\n";
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3