#!/usr/bin/perl -w

#$DISABLE_SYSTEM = 1; 

$SRC_DIR = "/afs/cs.cmu.edu/project/cmcl-darwin-2/libra-demo";
$DST_DIR = "/usr/tmp/libra-demo";
$FILE = $ARGV[0];

my @CMD 
  = (
     "austin", "pach",
     "miami", "pach", # video
     "128.2.185.241", "pach",
     "128.2.185.242", "pach",
     "128.2.191.176", "guest", #video
     "128.2.191.60", "dance",
    );

while (1) {
  my $hostName = shift(@CMD);
  if (!defined($hostName)) { last; }
  my $user = shift(@CMD);
  
  System("ssh1 -l $user $hostName /bin/rm -rf $DST_DIR/$FILE");
  System("scp1 -p -r $SRC_DIR/$FILE $user\@$hostName:$DST_DIR/$FILE");
}


sub System {
    my($cmd) = $_[0];
    if (defined($DISABLE_SYSTEM)) {
	print STDOUT "would execute $cmd\n";
    } else {
	print STDOUT "execute $cmd\n";
	system($cmd);
    }
}