Index: trunk/ippScripts/scripts/phase0_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/phase0_imfile.pl	(revision 11048)
+++ trunk/ippScripts/scripts/phase0_imfile.pl	(revision 11050)
@@ -85,10 +85,12 @@
 # Look for programs we need
 my $missing_tools;
-my $p0tool = can_run('p0tool') or (warn "Can't find p0tool" and $missing_tools = 1);
-my $ppStats = can_run('ppStats') or (warn "Can't find ppStats" and $missing_tools = 1);
+my $p0tool = can_run('p0tool')
+    or (warn "Can't find p0tool" and $missing_tools = 1);
+my $ppStats = can_run('ppStats')
+    or (warn "Can't find ppStats" and $missing_tools = 1);
 
 if ($missing_tools) { 
     warn ("Can't find required tools");
-    &my_die ("", "", $PS_EXIT_CONFIG_ERROR); 
+    exit($PS_EXIT_CONFIG_ERROR); 
 }
 
@@ -183,8 +185,10 @@
 
     unless ($success) {
-        # XXX this is tricky: if we can't run -updateimfile, can we actually set the error code?
-        # XXX if this is not a database error, it is probably a programming error (in p0tool or the passed args)
-        warn ("Unable to perform p0tool -updateimfile: $error_code");
-        &my_die ($exp_tag, $class_id, $error_code);
+        # XXX if we can't run -addprocessedimfile, we can't actually set the
+        # error code.
+        # XXX if this is not a database error, it is probably a
+        # programming error (in p0tool or the passed args)
+        warn ("Unable to perform p0tool -addprocessedimfile: $error_code");
+        exit($error_code);
     }
 }
@@ -210,5 +214,5 @@
     my $exit_code = $_[2];
     if ($exp_tag && $class_id) {
-        system ("$p0tool -faultimfile -exp_tag $exp_tag -class_id $class_id -code $exit_code");
+        system ("$p0tool -addprocessedimfile -exp_tag $exp_tag -class_id $class_id -code $exit_code");
     }
     exit $exit_code;