Index: trunk/ippScripts/Build.PL
===================================================================
--- trunk/ippScripts/Build.PL	(revision 27503)
+++ trunk/ippScripts/Build.PL	(revision 27504)
@@ -105,4 +105,5 @@
         scripts/make_burntool_pcontrol.pl
         scripts/bundle_detrends.pl
+        scripts/ipp_cluster_load_monitor.pl
     )],
     dist_abstract => 'Scripts for running the Pan-STARRS IPP',
Index: trunk/ippScripts/MANIFEST
===================================================================
--- trunk/ippScripts/MANIFEST	(revision 27503)
+++ trunk/ippScripts/MANIFEST	(revision 27504)
@@ -41,3 +41,4 @@
 scripts/make_burntool_pcontrol.pl
 scripts/bundle_detrends.pl
+scripts/ipp_cluster_load_monitor.pl
 t/00_distribution.t
Index: trunk/ippScripts/scripts/bundle_detrends.pl
===================================================================
--- trunk/ippScripts/scripts/bundle_detrends.pl	(revision 27503)
+++ trunk/ippScripts/scripts/bundle_detrends.pl	(revision 27504)
@@ -1,5 +1,8 @@
 #! /usr/bin/env perl
 
+use Carp;
+
 use warnings;
+use strict;
 use DBI;
 use IPC::Cmd 0.36 qw( can_run run);
Index: trunk/ippScripts/scripts/ipp_cluster_load_monitor.pl
===================================================================
--- trunk/ippScripts/scripts/ipp_cluster_load_monitor.pl	(revision 27504)
+++ trunk/ippScripts/scripts/ipp_cluster_load_monitor.pl	(revision 27504)
@@ -0,0 +1,40 @@
+#! /usr/bin/env perl
+
+use warnings;
+use strict;
+use Sys::Hostname;
+use DateTime;
+
+my $sleep_period = 30;
+
+
+my $host = hostname();
+my $logdir = "/data/${host}.0/tmp/load_monitor";
+
+my $current_date = 999;
+
+while (1) {
+    my $dt = DateTime->now;
+    if ($dt->day != $current_date) {
+	my $del_dt = DateTime->now;
+	$del_dt->subtract( days => 4 );
+	my $del_stamp = sprintf("%04d%02d%02d.\*",$del_dt->year,$del_dt->month,$del_dt->day);
+	my_system("rm ${logdir}/load.${host}.$del_stamp");
+    }
+    
+    my $stamp = sprintf("%04d%02d%02d.%02d%02d%02d",$dt->year,$dt->month,$dt->day,$dt->hour,$dt->minute,$dt->second);
+    my $outfile = "${logdir}/load.${host}.$stamp";
+
+    my_system("uptime > $outfile");
+    my_system("ps aux >> $outfile");
+ 
+    $current_date = $dt->day;
+    sleep($sleep_period);
+}
+    
+sub my_system {
+    my $cmd = shift;
+#    print ">>$cmd<<\n";
+    system("$cmd");
+}
+
Index: trunk/tools/init_cluster_load_monitor.pl
===================================================================
--- trunk/tools/init_cluster_load_monitor.pl	(revision 27504)
+++ trunk/tools/init_cluster_load_monitor.pl	(revision 27504)
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+my @hosts = ('ipp004','ipp005','ipp006','ipp007','ipp008','ipp009','ipp010',
+	     'ipp011','ipp012','ipp013','ipp014','ipp015','ipp016','ipp017',
+	     'ipp019','ipp020','ipp021','ipp023','ipp024','ipp025','ipp026',
+	     'ipp027','ipp028','ipp029','ipp030','ipp031','ipp032','ipp033',
+	     'ipp034','ipp035','ipp036','ipp038','ipp039','ipp040','ipp041',
+	     'ipp042','ipp043','ipp044','ipp045','ipp046','ipp047','ipp048',
+	     'ipp049','ipp050','ipp051','ipp052','ipp053',
+	     'ippc00','ippc01','ippc02','ippc03','ippc04','ippc05','ippc06',
+	     'ippc07','ippc08','ippc09','ippc10','ippc11','ippc12','ippc13',
+	     'ippc14','ippc15','ippc16','ippc17','ippc18','ippc19',
+	     'ippdb00','ippdb01','ippdb02');
+
+foreach my $h (@hosts) {
+    system("mkdir /data/${h}.0/tmp/load_monitor/");
+    system("ssh $h ipp_cluster_load_monitor.pl &");
+}
+
+	     
+