#!/usr/bin/perl

# /* LICENSE:
#   =========================================================================
#     CMPack'04 Source Code Release for OPEN-R SDK 1.1.5-r2 for ERS7
#     Copyright (C) 2004 Multirobot Lab [Project Head: Manuela Veloso]
#     School of Computer Science, Carnegie Mellon University
#     All rights reserved.
#   ========================================================================= */

use Getopt::Long;

$usage = "usage: getit
options:
-d|--dogroot <root>         set root directory to use
-f|--ftp                    use ftp
-h|--help                   get help
-H|--host <compile host>    select compile host
-s|--ssh                    use ssh
-u|--user <user>            select user name to use
";

my $help=0;
my $host="default";
my $user="default";
my $dogroot="default";
my $use_ftp=0;
my $use_ssh=0;

my %opts=
  (
   'help|h' => \$help,
   'host|H:s' => \$host,
   'user|u:s' => \$user,
   'dogroot|d:s' => \$dogroot,
   'ftp|f' => \$use_ftp,
   'ssh|s' => \$use_ssh
  );

Getopt::Long::Configure("bundling");

GetOptions(%opts) || die $usage;

if($help) {
  print $usage;
  exit(0);
}

if($host    eq "default") {$host   =$ENV{"DOGHOST"}}
if($user    eq "default") {chomp($user   =`whoami`)}
if($dogroot eq "default") {$dogroot=$ENV{"DOGROOT"}}

if(!defined($host)) {
  $host="float.coral.cs.cmu.edu";
}

print "host=$host user=$user dogroot=$dogroot\n";

my $get_mode="";
$get_mode="-s" if($use_ssh);
$get_mode="-f" if($use_ftp);

print("getit -u $user -H $host $getmode -d $dogroot\n");
$ret_code=system("getit -u $user -H $host $getmode -d $dogroot");
$ret_code/=256;
if($ret_code==100) {
  $code=system("stickit -u $user -d $dogroot");
  $code/=256;
  exit $code;
}

exit 0;
