#! /usr/bin/perl

# this is to prevent dead machines from buggering things up
$SIG{ALRM} = sub { die "timeout"};

# Mount the bh machines

for ($i=0; $i <= 16; $i++){
	
eval {
	  alarm(10);
   system "ssh bh${i}.physics.ubc.ca \ exportfs -o async vnfe4:/etc";
   system "ssh bh${i}.physics.ubc.ca \ exportfs -o async vnfe4:/home";
   system "ssh bh${i}.physics.ubc.ca \ exportfs -o async vnfe4:/home2";
	system "mount bh${i}.physics.ubc.ca:/etc /d/bh${i}/etc";
	system "mount bh${i}.physics.ubc.ca:/home /d/bh${i}/home";
	system "mount bh${i}.physics.ubc.ca:/home2 /d/bh${i}/home2";
	  alarm(0);
  };
}

# mount the lnx machines

for ($i=1; $i <= 3; $i++){

eval {
	  alarm(10);
   system "ssh lnx${i}.physics.ubc.ca \ exportfs -o async vnfe4:/etc";
   system "ssh lnx${i}.physics.ubc.ca \ exportfs -o async vnfe4:/home";
   system "ssh lnx${i}.physics.ubc.ca \ exportfs -o async vnfe4:/home2";
	system "mount lnx${i}.physics.ubc.ca:/etc /d/lnx${i}/etc";
   system "mount lnx${i}.physics.ubc.ca:/home /d/lnx${i}/home";
   system "mount lnx${i}.physics.ubc.ca:/home2 /d/lnx${i}/home2";
	  alarm(0);
  };
}