Index: /trunk/ippScripts/Build.PL
===================================================================
--- /trunk/ippScripts/Build.PL	(revision 13149)
+++ /trunk/ippScripts/Build.PL	(revision 13150)
@@ -51,4 +51,5 @@
 			       scripts/ipp_serial_stack.pl
 			       scripts/ipp_simulation_data.pl
+			       scripts/isp_trans.pl
 			       )],
 		   )->create_build_script;
Index: /trunk/ippScripts/scripts/isp_trans.pl
===================================================================
--- /trunk/ippScripts/scripts/isp_trans.pl	(revision 13150)
+++ /trunk/ippScripts/scripts/isp_trans.pl	(revision 13150)
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+# basic ISP transmission analysis:
+
+if (@ARGV != 1) { die "USAGE: isp_trans.pl (input.fits)\n"; }
+$input = $ARGV[0];
+
+# for input file /path/foo.fits, use /path/foo for output
+
+@words = split ('\.', $input);
+if (@words > 1) { pop @words; }
+$output = join (".", @words);
+
+print "input: $input\n";
+print "output: $output\n";
+
+# use constant RECIPE => 'PPIMAGE_OBDSFRA'; # Recipe to use
+$RECIPE  = 'PPIMAGE_OA'; # Recipe to use (switch to OBDSFRA when detrend images are ready)
+$CALDIR  = '/data/alala.0/ipp/ippRefs/catdir.synth.bright'; # source of photometric calibration data
+$IMTABLE = 'images.dat'; # source of photometric calibration data
+
+vsystem ("ppImage -file $input $output -recipe PPIMAGE $RECIPE -recipe PSPHOT PSPHOT.SUMMIT -trace psModules.astrom.pmAstromMatchFit 3");
+if ($status) { die "failure running ppImage\n"; }
+
+vsystem ("addstar -incal -image -D CAMERA isp -D IMAGE_TABLE $IMTABLE -D CATDIR $CALDIR $output.smf");
+if ($status) { die "failure getting calibration from addstar\n"; }
+
+sub vsystem {
+    print STDERR "@_\n";
+    my $status = system ("@_");
+    $status;
+}
+