Index: trunk/tools/ipp_apply_burntool.pl
===================================================================
--- trunk/tools/ipp_apply_burntool.pl	(revision 23542)
+++ trunk/tools/ipp_apply_burntool.pl	(revision 23585)
@@ -20,5 +20,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ( $class_id, $dateobs_begin, $dateobs_end, $dbname, $verbose, $save_temps);
+my ( $class_id, $dateobs_begin, $dateobs_end, $skip_burned, $dbname, $verbose, $save_temps);
 GetOptions(
     'class_id=s'        => \$class_id, # chip identifier
@@ -26,4 +26,5 @@
     'dateobs_end=s'     => \$dateobs_end, # exposure date/time range stop
     'dbname|d=s'        => \$dbname, # Database name
+    'skip_burned'       => \$skip_burned,   # Print to stdout
     'verbose'           => \$verbose,   # Print to stdout
     'save-temps'        => \$save_temps, # Save temporary files?
@@ -32,10 +33,11 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-          -msg => "Required options: --class_id --dateobs_begin --dateobs_end",
+          -msg => "Required options: --class_id --dateobs_begin --dateobs_end --dbname",
           -exitval => 3,
           ) unless
     defined $class_id and
     defined $dateobs_begin and
-    defined $dateobs_end;
+    defined $dateobs_end and
+    defined $dbname;
 
 my $missing_tools;
@@ -55,5 +57,5 @@
 $command .= " -dateobs_begin $dateobs_begin";
 $command .= " -dateobs_end $dateobs_end";
-# $command .= " -limit 10";
+# $command .= " -limit 20";
 $command .= " -dbname $dbname" if defined $dbname;
 
@@ -88,9 +90,10 @@
 print "files: $Nfiles\n";
 
-my $REALRUN = 0;
+my $REALRUN = 1;
 
 my $prevFileOpt = "";
 foreach my $file (@files) {
     my $exp_id = $file->{exp_id};
+    if ($skip_burned and ($file->{user_1} > 0.5)) { next; }
 
     my $rawImfile = $file->{uri};
@@ -105,5 +108,8 @@
     # mangle name, create tmp file (always a UNIX file)
     my $basename = `basename $rawImfile`; chomp $basename;
-    my ($tmpImfile, $tmpImfileReal) = tempfile( "/tmp/$basename.XXXX", UNLINK => !$save_temps );
+    my $tempfile = new File::Temp ( TEMPLATE => "$basename.XXXX", 
+				    DIR => '/tmp',
+				    UNLINK => !$save_temps);
+    my $tmpImfileReal = $tempfile->filename;
     # print "tmpImfile: $tmpImfile -> $tmpImfileReal\n";