#!perl

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

@user_names=("jbruce","slenser","dvail2","mroth","astroupe","ashley","sofia","will","brettb","efaden","zxu");

foreach $usr (@user_names) {
  @stat_stuff=stat("C:\\transfer_tmp\\$usr\\agent.tgz");
  if(scalar(@stat_stuff)==0) {
    system("mkdir -p /c/transfer_tmp/$usr");
    system("touch /c/transfer_tmp/$usr/agent.tgz");
    @stat_stuff=stat("C:\\transfer_tmp\\$usr\\agent.tgz");
  }
  #print $usr," ",join(' ',@stat_stuff)," ",$#stat_stuff,"\n";
  $last_mtime{$usr}=$stat_stuff[9];
};

while(1) {
  $compiled_one=0;
  foreach $usr (@user_names) {
    @stat_stuff=stat("C:\\transfer_tmp\\$usr\\agent.tgz");
    $mtime=$stat_stuff[9];

     #print "user=$usr, mtime=$mtime, last_mtime=$last_mtime{$usr}\n";

    if($mtime != $last_mtime{$usr}) {
      sleep 2;

      $compiled_one=1;

      @stat_stuff=stat("C:\\transfer_tmp\\$usr\\agent.tgz");
      $mtime=$stat_stuff[9];
      $last_mtime{$usr}=$mtime;

      print "Starting compile for $usr.\n";
      system("date");

      system("C:\\Perl\\bin\\Perl.exe compile.pl -u $usr >log_compile");

      system("date");
      print "Compile done.\n";
      sleep 1;
      print "";
    }
  }

  if(!$compiled_one) {
    sleep 1;
  }
}