Changeset 11492

Timestamp:

Jan 31, 2007, 12:04:50 PM (19 years ago)

Author:

eugene

Message:

adding program/host info

Location:

trunk/ippScripts/scripts

Files:

• detrend_norm_apply.pl (modified) (1 diff)
• detrend_norm_calc.pl (modified) (1 diff)
• detrend_norm_exp.pl (modified) (1 diff)
• detrend_process_exp.pl (modified) (1 diff)
• detrend_process_imfile.pl (modified) (1 diff)
• detrend_reject_exp.pl (modified) (1 diff)
• detrend_reject_imfile.pl (modified) (1 diff)
• detrend_resid.pl (modified) (1 diff)
• detrend_stack.pl (modified) (1 diff)
• phase0_exp.pl (modified) (1 diff)
• phase0_imfile.pl (modified) (1 diff)
• phase2.pl (modified) (1 diff)
• phase3.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_norm_apply.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use PS::IPP::Metadata::Stats;

trunk/ippScripts/scripts/detrend_norm_calc.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use IPC::Cmd qw( can_run );

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/detrend_process_exp.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/detrend_resid.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/detrend_stack.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/phase0_exp.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use Cache::File;

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );

trunk/ippScripts/scripts/phase2.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use IPC::Cmd qw( can_run run );

trunk/ippScripts/scripts/phase3.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );