Index: /trunk/Ohana/src/perl/src/mkdetrend =================================================================== --- /trunk/Ohana/src/perl/src/mkdetrend (revision 45) +++ /trunk/Ohana/src/perl/src/mkdetrend (revision 46) @@ -1,3 +1,4 @@ #!/usr/bin/perl +$MKDETREND = "mkdetrend2"; # strip off args related to the elixir config system, set env PTOLEMY @@ -6,7 +7,7 @@ # interpret command-line arguments if (@ARGV < 1) { - print STDOUT "USAGE: mkdetrend (mode) [arguments]\n"; - print STDOUT "mode = help gives a complete list\n"; - &escape; + print STDOUT "USAGE: $MKDETREND (mode) [arguments]\n"; + print STDOUT "mode = help gives a complete list\n"; + &escape; } if ($ARGV[0] eq "help") { &usage; } @@ -57,12 +58,20 @@ if ($ARGV[0] eq "test") { &mk_test; } -&escape ("invalid mkdetrend command $ARGV[0]"); +&escape ("invalid $MKDETREND command $ARGV[0]"); ######## top level functions ###################### + +sub mk_test { + + print "Content-type: text/plain\n\n"; + + print "mkdetrend2\n"; + exit 0; +} ############# define run ############## sub mk_create { if ($ARGV[1] eq "run") { &mk_createrun; } - if (@ARGV != 5) { &escape ("USAGE: mkdetrend create (camera) (run) (startdate) (stopdate)"); } + if (@ARGV != 5) { &escape ("USAGE: $MKDETREND create (camera) (run) (startdate) (stopdate)"); } $camera = $ARGV[1]; @@ -115,6 +124,6 @@ ############# define run ############## sub mk_createrun { - if (@ARGV != 3) { &escape ("USAGE: mkdetrend create run (run)"); } - if ($ARGV[1] ne "run") { &escape ("USAGE: mkdetrend create run (run)"); } + if (@ARGV != 3) { &escape ("USAGE: $MKDETREND create run (run)"); } + if ($ARGV[1] ne "run") { &escape ("USAGE: $MKDETREND create run (run)"); } $run = $ARGV[2]; @@ -157,5 +166,5 @@ ############# change current run ############## sub mk_config { - if (@ARGV != 3) { &escape ("USAGE: mkdetrend config (camera) (run)"); } + if (@ARGV != 3) { &escape ("USAGE: $MKDETREND config (camera) (run)"); } $camera = $ARGV[1]; @@ -177,15 +186,15 @@ my ($start, $stop, $mode); - if ((@ARGV != 2) && (@ARGV != 3)) { &escape ("USAGE: mkdetrend auto [command]"); } + if ((@ARGV != 2) && (@ARGV != 3)) { &escape ("USAGE: $MKDETREND auto [command]"); } $command = $ARGV[1]; ($start, $stop, $mode) = load_dates (); if ($command eq "set") { - if (@ARGV != 3) { &escape ("USAGE: mkdetrend auto set (mode)"); } + if (@ARGV != 3) { &escape ("USAGE: $MKDETREND auto set (mode)"); } &save_dates ($start, $stop, $ARGV[2]); &goodbye; } - if (@ARGV != 2) { &escape ("USAGE: mkdetrend auto [command]"); } + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND auto [command]"); } if ($command eq "show") { print STDERR "MODE : $mode\n"; @@ -195,7 +204,7 @@ if ($command eq "run") { if ($mode eq "init") { - system ("mkdetrend reset hard"); - system ("mkdetrend init"); - system ("mkdetrend run"); + system ("$MKDETREND reset hard"); + system ("$MKDETREND init"); + system ("$MKDETREND run"); &save_dates ($start, $stop, "init"); &goodbye; @@ -203,5 +212,5 @@ if ($mode eq "update") { - system ("mkdetrend update"); + system ("$MKDETREND update"); &save_dates ($start, $stop, "update"); &goodbye; @@ -212,45 +221,45 @@ } } - &escape ("mkdetrend auto $command : command not found\n"); + &escape ("$MKDETREND auto $command : command not found\n"); } ############# main run ############## sub mk_run { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend run"); } - - system ("mkdetrend flips"); - system ("mkdetrend norm"); - system ("mkdetrend merge"); - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND run"); } + + system ("$MKDETREND flips"); + system ("$MKDETREND norm"); + system ("$MKDETREND merge"); + + &goodbye; } ############# main init ############## sub mk_init { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend init"); } - - system ("mkdetrend list.init"); - system ("mkdetrend split"); - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND init"); } + + system ("$MKDETREND list.init"); + system ("$MKDETREND split"); + + &goodbye; } ############# main update ############## sub mk_update { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend update"); } - - system ("mkdetrend reset update"); - system ("mkdetrend init"); - system ("mkdetrend update.list"); - system ("mkdetrend update.stats"); - system ("mkdetrend run"); - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND update"); } + + system ("$MKDETREND reset update"); + system ("$MKDETREND init"); + system ("$MKDETREND update.list"); + system ("$MKDETREND update.stats"); + system ("$MKDETREND run"); + + &goodbye; } ############# show current state ############## sub mk_state { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend state"); } - + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND state"); } + $file = mkfiles ("dates"); if (! -e $file) { @@ -268,5 +277,5 @@ @list = &load_config; - if (@list == 0) { &escape ("mkdetrend not configured"); } + if (@list == 0) { &escape ("$MKDETREND not configured"); } for ($i = 0; $i < @list; $i++) { @@ -278,8 +287,8 @@ ############# show current state ############## sub mk_list_runs { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend list.runs"); } - - system ("ls $root"); - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND list.runs"); } + + system ("ls $root"); + &goodbye; } @@ -287,37 +296,37 @@ sub mk_dup { if (@ARGV != 2) { &escape ("USAGE: detrend dup (config)"); } - - $key = $ARGV[1]; - @list = load_config (); - - # look for entry that matches requested config - @match = (); - for ($i = 0; $i < @list; $i++) { - $config = gtconfig ($list[$i], "config"); - if ($key eq $config) { @match = (@match, $i); } - } - if (@match == 0) { &escape ("config $key not found\n"); } - - # create new config version based on version 0 - $Nnew = @match; - $old = $list[$match[0]]; - $new = stconfig ($old, "version", $Nnew); - @list = (@list, $new); - save_config (@list); - - # now we need to duplicate all of the reference files from the first config - for ($i = 0; $i < $Nccd; $i++) { - $fold = mknames ("master", $old, $ccds[$i]); - $fnew = mknames ("master", $new, $ccds[$i]); - system ("cp $fold $fnew"); - } - foreach $name ("stats", "medbin", "tenbin", "imbin") { - $fold = mknames ($name, $old); - $fnew = mknames ($name, $new); - system ("cp $fold $fnew"); - } - - &goodbye; - + + $key = $ARGV[1]; + @list = load_config (); + + # look for entry that matches requested config + @match = (); + for ($i = 0; $i < @list; $i++) { + $config = gtconfig ($list[$i], "config"); + if ($key eq $config) { @match = (@match, $i); } + } + if (@match == 0) { &escape ("config $key not found\n"); } + + # create new config version based on version 0 + $Nnew = @match; + $old = $list[$match[0]]; + $new = stconfig ($old, "version", $Nnew); + @list = (@list, $new); + save_config (@list); + + # now we need to duplicate all of the reference files from the first config + foreach $ccd (@ccds) { + $fold = mknames ("master", $old, $ccd); + $fnew = mknames ("master", $new, $ccd); + system ("cp $fold $fnew"); + } + foreach $name ("stats", "medbin", "tenbin", "imbin") { + $fold = mknames ($name, $old); + $fnew = mknames ($name, $new); + system ("cp $fold $fnew"); + } + + &goodbye; + } @@ -365,5 +374,5 @@ } - # delete files names in these files: + # delete files names in these files (not needed with flips2) $name = &mknames ("msplit", $confline, $ccd); open (FILE, "$name"); @@ -398,243 +407,243 @@ ############## delete config ############### sub mk_del { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend del (config.ver)"); } - - $key = $ARGV[1]; - @list = load_config (); - - # look for entry that matches requested config - $match = -1; - for ($i = 0; $i < @list; $i++) { - $version = gtconfig ($list[$i], "version"); - if ($key eq $version) { - $match = $i; - last; - } - } - if ($match == -1) { - print STDERR "config.ver $key not found\n"; - &escape; - } - - # create new list without match: - @newlist = (); - for ($i = 0; $i < @list; $i++) { - if ($i == $match) { next; } - @newlist = (@newlist, $list[$i]); - } - - save_config (@newlist); - &goodbye; - + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND del (config.ver)"); } + + $key = $ARGV[1]; + @list = load_config (); + + # look for entry that matches requested config + $match = -1; + for ($i = 0; $i < @list; $i++) { + $version = gtconfig ($list[$i], "version"); + if ($key eq $version) { + $match = $i; + last; + } + } + if ($match == -1) { + print STDERR "config.ver $key not found\n"; + &escape; + } + + # create new list without match: + @newlist = (); + for ($i = 0; $i < @list; $i++) { + if ($i == $match) { next; } + @newlist = (@newlist, $list[$i]); + } + + save_config (@newlist); + &goodbye; + } ############## reset config ############### sub mk_reset { - if (@ARGV != 2) { - print STDERR "USAGE: mkdetrend reset (level)\n"; - print STDERR " level = hard || update\n"; - &escape; - } - - $level = $ARGV[1]; - @list = load_config (); - - # find specific config: + if (@ARGV != 2) { + print STDERR "USAGE: $MKDETREND reset (level)\n"; + print STDERR " level = hard || update\n"; + &escape; + } + + $level = $ARGV[1]; + @list = load_config (); + + # find specific config: RESET: - foreach $confline (@list) { - $status = gtconfig ($confline, "status"); - - if ($level eq "hard" ) { - $confline = stconfig ($confline, "status", "init"); - } - if ($level eq "update") { - if (($status eq "done.merge") || ($status eq "modified") || ($status eq "update")) { - $confline = stconfig ($confline, "status", "update"); - next RESET; - } - if (($status eq "freeze") || ($status eq "accepted")) { - $confline = stconfig ($confline, "status", "freeze"); - next RESET; - } - $confline = stconfig ($confline, "status", "init"); - } - } - save_config (@list); - &goodbye; + foreach $confline (@list) { + $status = gtconfig ($confline, "status"); + + if ($level eq "hard" ) { + $confline = stconfig ($confline, "status", "init"); + } + if ($level eq "update") { + if (($status eq "done.merge") || ($status eq "modified") || ($status eq "update")) { + $confline = stconfig ($confline, "status", "update"); + next RESET; + } + if (($status eq "freeze") || ($status eq "accepted")) { + $confline = stconfig ($confline, "status", "freeze"); + next RESET; + } + $confline = stconfig ($confline, "status", "init"); + } + } + save_config (@list); + &goodbye; } ############## define config ############### sub mk_def { - if (@ARGV != 4) { &escape ("USAGE: mkdetrend def (config.ver) (start) (stop)"); } - - $key = $ARGV[1]; - $start = $ARGV[2]; - $stop = $ARGV[3]; - - @list = load_config (); - - # find specific config: - $match = -1; - for ($i = 0; $i < @list; $i++) { - $version = gtconfig ($list[$i], "version"); - if ($key eq $version) { - $match = $i; - } - } - if (@match == -1) { - print STDERR "config.ver $key not found\n"; - &escape; - } - - $new = $list[$match]; - $new = stconfig ($new, "start", $start); - $new = stconfig ($new, "stop", $stop); - $list[$match] = $new; - - save_config (@list); - &goodbye; - + if (@ARGV != 4) { &escape ("USAGE: $MKDETREND def (config.ver) (start) (stop)"); } + + $key = $ARGV[1]; + $start = $ARGV[2]; + $stop = $ARGV[3]; + + @list = load_config (); + + # find specific config: + $match = -1; + for ($i = 0; $i < @list; $i++) { + $version = gtconfig ($list[$i], "version"); + if ($key eq $version) { + $match = $i; + } + } + if (@match == -1) { + print STDERR "config.ver $key not found\n"; + &escape; + } + + $new = $list[$match]; + $new = stconfig ($new, "start", $start); + $new = stconfig ($new, "stop", $stop); + $list[$match] = $new; + + save_config (@list); + &goodbye; + } ############## list init ############### sub mk_list_init { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend list.init"); } - - @list = load_config (); - - # create namelist - $Nrun = 0; - $file = mkfiles ("list"); - open (FILE, ">$file"); - foreach $confline (@list) { - $status = gtconfig ($confline, "status"); - if ($status ne "init") { next; } - $Nrun ++; - $line = gtconfig ($confline, "mosaic"); - print FILE "$line\n"; - $confline = stconfig ($confline, "status", "running.init"); - } - close (FILE); - save_config (@list); - - if ($Nrun == 0) { &goodbye; } - - system ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending imselect.split $file"); - system ("mkdetrend meval init"); - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND list.init"); } + + @list = load_config (); + + # create namelist + $Nrun = 0; + $file = mkfiles ("list"); + open (FILE, ">$file"); + foreach $confline (@list) { + $status = gtconfig ($confline, "status"); + if ($status ne "init") { next; } + $Nrun ++; + $line = gtconfig ($confline, "mosaic"); + print FILE "$line\n"; + $confline = stconfig ($confline, "status", "running.init"); + } + close (FILE); + save_config (@list); + + if ($Nrun == 0) { &goodbye; } + + vsystem ("elixir -D DETREND_DIR $det -D mode $MKDETREND -D global.pending imselect.split $file"); + system ("$MKDETREND meval init"); + + &goodbye; } ############## split ############### sub mk_split { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend split"); } - - @list = load_config (); - - # create namelist - $Nrun = 0; - $file = mkfiles ("list"); - open (FILE, ">$file"); - foreach $confline (@list) { - $status = gtconfig ($confline, "status"); - if (($status ne "done.init") && ($status ne "split")) { next; } - $Nrun ++; - for ($j = 0; $j < $Nccd; $j++) { - $line = gtconfig ($confline, "chiprun", $j); - print FILE "$line\n"; - } - $confline = stconfig ($confline, "status", "running.split"); - } - close (FILE); - save_config (@list); - - if ($Nrun == 0) { &goodbye; } - - system ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending split.mef $file"); - system ("mkdetrend eval split"); - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND split"); } + + @list = load_config (); + + # create namelist + $Nrun = 0; + $file = mkfiles ("list"); + open (FILE, ">$file"); + foreach $confline (@list) { + $status = gtconfig ($confline, "status"); + if (($status ne "done.init") && ($status ne "split")) { next; } + $Nrun ++; + foreach $ccd (@ccds) { + $line = gtconfig ($confline, "chiprun", $ccd); + print FILE "$line\n"; + } + $confline = stconfig ($confline, "status", "running.split"); + } + close (FILE); + save_config (@list); + + if ($Nrun == 0) { &goodbye; } + + system ("elixir -D DETREND_DIR $det -D mode $MKDETREND -D global.pending merge.lists $file"); + system ("$MKDETREND eval split"); + + &goodbye; } ############## update lists ############### sub mk_update_list { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend update.list"); } - - @list = load_config (); - - # create namelist - $Nrun = 0; - $file = mkfiles ("list"); - open (FILE, ">$file"); - foreach $confline (@list) { - $status = gtconfig ($confline, "status"); - if ($status ne "update") { next; } - $Nrun ++; - $line = gtconfig ($confline, "mosaic"); - print FILE "$line\n"; - $confline = stconfig ($confline, "status", "running.update.list"); - } - close (FILE); - save_config (@list); - - if ($Nrun == 0) { &goodbye; } - - system ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending update.split $file"); - system ("mkdetrend meval update.list"); - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND update.list"); } + + @list = load_config (); + + # create namelist + $Nrun = 0; + $file = mkfiles ("list"); + open (FILE, ">$file"); + foreach $confline (@list) { + $status = gtconfig ($confline, "status"); + if ($status ne "update") { next; } + $Nrun ++; + $line = gtconfig ($confline, "mosaic"); + print FILE "$line\n"; + $confline = stconfig ($confline, "status", "running.update.list"); + } + close (FILE); + save_config (@list); + + if ($Nrun == 0) { &goodbye; } + + system ("elixir -D DETREND_DIR $det -D mode $MKDETREND -D global.pending update.split $file"); + system ("$MKDETREND meval update.list"); + + &goodbye; } ############## update stats ############### sub mk_update_stats { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend update.stats"); } - - @list = load_config (); - - # create namelist - $Nrun = 0; - $file = mkfiles ("list"); - open (FILE, ">$file"); - foreach $confline (@list) { - $status = gtconfig ($confline, "status"); - if (($status ne "done.update.list") && ($status ne "update.stats")) { next; } - $Nrun ++; - for ($j = 0; $j < $Nccd; $j++) { - $line = gtconfig ($confline, "chiprun", $j); - print FILE "$line\n"; - } - $confline = stconfig ($confline, "status", "running.update.stats"); - - } - close (FILE); - save_config (@list); - - if ($Nrun == 0) { &goodbye; } - - system ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending update.msplit $file"); - system ("mkdetrend eval update.stats"); - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND update.stats"); } + + @list = load_config (); + + # create namelist + $Nrun = 0; + $file = mkfiles ("list"); + open (FILE, ">$file"); + foreach $confline (@list) { + $status = gtconfig ($confline, "status"); + if (($status ne "done.update.list") && ($status ne "update.stats")) { next; } + $Nrun ++; + foreach $ccd (@ccds) { + $line = gtconfig ($confline, "chiprun", $ccd); + print FILE "$line\n"; + } + $confline = stconfig ($confline, "status", "running.update.stats"); + + } + close (FILE); + save_config (@list); + + if ($Nrun == 0) { &goodbye; } + + system ("elixir -D DETREND_DIR $det -D mode $MKDETREND -D global.pending update.msplit $file"); + system ("$MKDETREND eval update.stats"); + + &goodbye; } ############## set state ############### sub mk_set { - if (@ARGV != 3) { &escape ("USAGE: mkdetrend set (config number) (state)"); } - - @list = load_config (); - - $key = $ARGV[1]; - $state = $ARGV[2]; - - $new = stconfig ($list[$key], "status", "$state"); - $list[$key] = $new; - save_config (@list); - - &goodbye; + if (@ARGV != 3) { &escape ("USAGE: $MKDETREND set (config number) (state)"); } + + @list = load_config (); + + $key = $ARGV[1]; + $state = $ARGV[2]; + + $new = stconfig ($list[$key], "status", "$state"); + $list[$key] = $new; + save_config (@list); + + &goodbye; } ############## flips run ############### sub mk_flips { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend flips"); } + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND flips"); } @list = load_config (); @@ -648,6 +657,6 @@ if (($status ne "done.split") && ($status ne "modified") && ($status ne "flips")) { next; } $Nrun ++; - for ($j = 0; $j < $Nccd; $j++) { - $line = gtconfig ($confline, "chiprun", $j); + foreach $ccd (@ccds) { + $line = gtconfig ($confline, "chiprun", $ccd); print FILE "$line\n"; } @@ -659,6 +668,6 @@ if ($Nrun == 0) { &goodbye; } - system ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending create.subset $file"); - system ("mkdetrend eval flips"); + system ("elixir -D DETREND_DIR $det -D mode $MKDETREND -D global.pending create.subset $file"); + system ("$MKDETREND eval flips"); &goodbye; @@ -667,5 +676,5 @@ ############## norm run ############### sub mk_norm { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend norm"); } + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND norm"); } @list = load_config (); @@ -679,6 +688,6 @@ if (($status ne "done.flips") && ($status ne "norm")) { next; } $Nrun ++; - for ($j = 0; $j < $Nccd; $j++) { - $line = gtconfig ($confline, "chiprun", $j); + foreach $ccd (@ccds) { + $line = gtconfig ($confline, "chiprun", $ccd); print FILE "$line\n"; } @@ -690,6 +699,6 @@ if ($Nrun == 0) { &goodbye; } - vsystem ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending normal $file"); - vsystem ("mkdetrend eval norm"); + vsystem ("elixir -D DETREND_DIR $det -D mode $MKDETREND -D global.pending normal $file"); + vsystem ("$MKDETREND eval norm"); &goodbye; @@ -698,5 +707,5 @@ ############## merge run ############### sub mk_merge { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend merge"); } + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND merge"); } @list = load_config (); @@ -719,6 +728,6 @@ if ($Nrun == 0) { &goodbye; } - vsystem ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending stats $file"); - vsystem ("mkdetrend meval merge"); + vsystem ("elixir -D DETREND_DIR $det -D mode $MKDETREND -D global.pending stats $file"); + vsystem ("$MKDETREND meval merge"); &goodbye; @@ -727,8 +736,12 @@ ############## reg run ############### sub mk_reg { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend reg"); } - - @list = load_config (); - + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND reg"); } + + @list = load_config (); + + # create directory for fhtool to work in + $links = mkfiles ("links"); + if (! -e $links) { mkdir ($links); } + # create namelist for those with appropriate status foreach $confline (@list) { @@ -740,27 +753,58 @@ $success = 1; $ID = gtconfig ($confline, "ID"); - for ($j = 0; $j < $Nccd; $j++) { - $file = mknames ("norm", $confline, $ccds[$j]); - $line = "detregister $file -label elixir -ID $ID"; - $status = system ($line); - if ($status) { - print STDERR "error registering $file\n"; - $success = 0; + + $DBmode = `gconfig DETREND-DB-MODE`; chop $DBmode; + $DBmode = "\U$DBmode\E"; + + if ($DBmode eq "SPLIT") { + for ($j = 0; $j < $Nccd; $j++) { + $file = mknames ("norm", $confline, $ccds[$j]); + $line = "detregister $file -label elixir -ID $ID"; + $status = system ($line); + if ($status) { + print STDERR "error registering $file\n"; + $success = 0; + } } - } - if ($success) { + goto registered; + } + + if ($DBmode eq "MEF") { + # make links + foreach $ccd (@ccds) { + $file = mknames ("norm", $confline, $ccd); + $link = mknames ("link", $confline, $ccd); + symlink $file, $link; + } + + # mef, register + $mef = mknames ("mef", $confline); + vsystem ("fhtool -P $links $mef"); + if ($status) { $success = 0; } + vsystem ("detregister $mef -label elixir -ID $ID"); + if ($status) { $success = 0; } + + # remove links + foreach $ccd (@ccds) { + $link = mknames ("link", $confline, $ccd); + unlink $link; + } + goto registered; + } + print STDERR "DB mode not defined?\n"; + $success = 0; + + registered: + if ($success) { $confline = stconfig ($confline, "status", "done.reg"); } else { + print STDERR "error registering $file\n"; $confline = stconfig ($confline, "status", "fail.reg"); } save_config (@list); - } - - # detregister is sequential anyway, run serial - # system ("elixir -D DETREND_DIR $det -D mode mkdetrend -D global.pending detregister $file"); - # system ("mkdetrend eval reg"); + + } # use recipe file to decide if we apply 'scat' or not! - $file = mkfiles ("list"); # create list of images to apply scattered-light correction: @@ -775,6 +819,6 @@ open (FILE, ">$file"); - for ($j = 0; $j < $Nccd; $j++) { - $line = mknames ("norm", $confline, $ccds[$j]); + foreach $ccd (@ccds) { + $line = mknames ("norm", $confline, $ccd); print FILE "$line\n"; } @@ -805,5 +849,5 @@ ############## html modify ############### sub mk_fixmasters { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend fix.masters"); } + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND fix.masters"); } @list = load_config (); @@ -853,5 +897,5 @@ ############## html modify ############### sub mk_checksplits { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend check.splits (config)"); } + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND check.splits (config)"); } $Nconfig = $ARGV[1]; @@ -860,8 +904,8 @@ # re-create all masters to match master for chip 00 - for ($i = 0; $i < $Nccd; $i++) { + foreach $ccd (@ccds) { # load existing master file - $master = mknames ("master", $name, $ccds[$i]); + $master = mknames ("master", $name, $ccd); open (FILE, $master); @master = ; @@ -882,100 +926,37 @@ ############## html duplicate ############### sub mk_htmldup { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend htmldup (config)"); } - - $config = $ARGV[1]; - # we are just calling the "mkdetrend dup" function and then calling "mkdetrend html1" - - system ("mkdetrend dup $config"); - print STDOUT "\n"; - - &goodbye; - + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND htmldup (config)"); } + + $config = $ARGV[1]; + # we are just calling the "mkdetrend dup" function and then calling "$MKDETREND html1" + + system ("$MKDETREND dup $config"); + print STDOUT "\n"; + + &goodbye; + } ############## html delete ############### sub mk_htmldel { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend htmldel (config.ver)"); } - - $config = $ARGV[1]; - # we are just calling the "mkdetrend del" function and then calling "mkdetrend html1" - - system ("mkdetrend del $config"); - print STDOUT "\n"; - - &goodbye;; - + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND htmldel (config.ver)"); } + + $config = $ARGV[1]; + # we are just calling the "mkdetrend del" function and then calling "mkdetrend html1" + + system ("$MKDETREND del $config"); + print STDOUT "\n"; + + &goodbye;; + } ############## html define ############### sub mk_htmldef { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend htmldef (config.ver)"); } - - $key = $ARGV[1]; - - # find (config.ver) in list: - - @list = load_config (); - - $match = -1; - for ($i = 0; $i < @list; $i++) { - $version = gtconfig ($list[$i], "version"); - if ($key eq $version) { - $match = $i; - last; - } - } - if ($match == -1) { &escape ("error: can't find config entry"); } - - # show the complete list for reference - print STDOUT "
Elixir Mkdetrend Report
\n"; - print STDOUT "\n"; - print STDOUT "\n"; - for ($i = 0; $i < @list; $i++) { - $config = gtconfig ($list[$i], "config"); - $version = gtconfig ($list[$i], "version"); - $status = gtconfig ($list[$i], "status"); - $from = gtconfig ($list[$i], "from"); - $to = gtconfig ($list[$i], "to"); - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - } - print STDOUT "
$version $from $to $status split delete redefine


\n"; - - $version = gtconfig ($list[$match], "version"); - $status = gtconfig ($list[$match], "status"); - $from = gtconfig ($list[$match], "from"); - $to = gtconfig ($list[$match], "to"); - print STDOUT "redefining $key:
\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "
$version $from $to $status
\n"; - - - # create a simple form for redefine: - print STDOUT "
\n"; - print STDOUT "start:
\n"; - print STDOUT "stop:
\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "
\n"; - print STDOUT "\n"; - - &goodbye;; - -} - -############## html modify ############### -sub mk_htmlmod { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend htmlmod"); } - - $key = $ENV{'WWW_config'}; - $Nimage = $ENV{'WWW_Nimage'}; + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND htmldef (config.ver)"); } + + $key = $ARGV[1]; + + # find (config.ver) in list: @list = load_config (); @@ -991,10 +972,73 @@ if ($match == -1) { &escape ("error: can't find config entry"); } + # show the complete list for reference + print STDOUT "
Elixir Mkdetrend Report
\n"; + print STDOUT "\n"; + print STDOUT "\n"; + for ($i = 0; $i < @list; $i++) { + $config = gtconfig ($list[$i], "config"); + $version = gtconfig ($list[$i], "version"); + $status = gtconfig ($list[$i], "status"); + $from = gtconfig ($list[$i], "from"); + $to = gtconfig ($list[$i], "to"); + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + } + print STDOUT "
$version $from $to $status split delete redefine


\n"; + + $version = gtconfig ($list[$match], "version"); + $status = gtconfig ($list[$match], "status"); + $from = gtconfig ($list[$match], "from"); + $to = gtconfig ($list[$match], "to"); + print STDOUT "redefining $key:
\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "
$version $from $to $status
\n"; + + + # create a simple form for redefine: + print STDOUT "
\n"; + print STDOUT "start:
\n"; + print STDOUT "stop:
\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "
\n"; + print STDOUT "\n"; + + &goodbye;; + +} + +############## html modify ############### +sub mk_htmlmod { + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND htmlmod"); } + + $key = $ENV{'WWW_config'}; + $Nimage = $ENV{'WWW_Nimage'}; + + @list = load_config (); + + $match = -1; + for ($i = 0; $i < @list; $i++) { + $version = gtconfig ($list[$i], "version"); + if ($key eq $version) { + $match = $i; + last; + } + } + if ($match == -1) { &escape ("error: can't find config entry"); } + # re-create $master to match selections # depends on the format of data in the 'master' file - for ($i = 0; $i < $Nccd; $i++) { + foreach $ccd (@ccds) { # load existing master file - $master = mknames ("master", $list[$match], $ccds[$i]); + $master = mknames ("master", $list[$match], $ccd); open (FILE, $master); @master = ; @@ -1002,5 +1046,5 @@ if ($Nimage != @master) { - print STDOUT "error: mis-match in image lists ccd $i\n"; + print STDOUT "error: mis-match in image lists ccd $ccd\n"; &escape; } @@ -1028,212 +1072,212 @@ ############## html accept ############### sub mk_htmlkeep { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend htmlkeep (config.ver)"); } - - $key = $ARGV[1]; - @list = load_config (); - - $match = -1; - for ($i = 0; $i < @list; $i++) { - $version = gtconfig ($list[$i], "version"); - if ($key eq $version) { - $match = $i; - last; - } - } - if ($match == -1) { - print STDERR "error: can't find config entry\n"; - &escape; - } - - # adjust the config file: convert status to 'accepted' - $list[$match] = stconfig ($list[$match], "status", "accepted"); - save_config (@list); - - print STDOUT ""; - &goodbye; + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND htmlkeep (config.ver)"); } + + $key = $ARGV[1]; + @list = load_config (); + + $match = -1; + for ($i = 0; $i < @list; $i++) { + $version = gtconfig ($list[$i], "version"); + if ($key eq $version) { + $match = $i; + last; + } + } + if ($match == -1) { + print STDERR "error: can't find config entry\n"; + &escape; + } + + # adjust the config file: convert status to 'accepted' + $list[$match] = stconfig ($list[$match], "status", "accepted"); + save_config (@list); + + print STDOUT ""; + &goodbye; } ############## html config ############### sub mk_htmlconfig { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend htmlconfig"); } - - ## html headers - print STDOUT "
Elixir Mkdetrend Report
\n"; - print STDOUT "\n"; - - # create a simple form for redefine: - print STDOUT "
\n"; - if ($elconf) { - print STDOUT "enter new config:
\n"; - } else { - print STDOUT "enter new config:
\n"; - } - print STDOUT "\n"; - print STDOUT "
\n"; - print STDOUT "\n"; - - &goodbye; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND htmlconfig"); } + + ## html headers + print STDOUT "
Elixir Mkdetrend Report
\n"; + print STDOUT "\n"; + + # create a simple form for redefine: + print STDOUT "
\n"; + if ($elconf) { + print STDOUT "enter new config:
\n"; + } else { + print STDOUT "enter new config:
\n"; + } + print STDOUT "\n"; + print STDOUT "
\n"; + print STDOUT "\n"; + + &goodbye; } ############## html level 1 ############### sub mk_html1 { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend html1"); } - - @list = load_config (); - - ## html headers - print STDOUT "
Elixir Mkdetrend Report
\n"; - print STDOUT "\n"; - - print STDOUT "\n"; - for ($i = 0; $i < @list; $i++) { - $config = gtconfig ($list[$i], "config"); - $version = gtconfig ($list[$i], "version"); - $from = gtconfig ($list[$i], "from"); - $to = gtconfig ($list[$i], "to"); - $status = gtconfig ($list[$i], "status"); - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - } - - print STDOUT "
$version $from $to $status split delete redefine


\n"; - if ($elconf eq "") { - print STDOUT "Current Config: default
\n"; - } else { - print STDOUT "Current Config: $elconf
\n"; - } - print STDOUT "Change Config\n"; - print STDOUT "\n"; - &goodbye;; + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND html1"); } + + @list = load_config (); + + ## html headers + print STDOUT "
Elixir Mkdetrend Report
\n"; + print STDOUT "\n"; + + print STDOUT "\n"; + for ($i = 0; $i < @list; $i++) { + $config = gtconfig ($list[$i], "config"); + $version = gtconfig ($list[$i], "version"); + $from = gtconfig ($list[$i], "from"); + $to = gtconfig ($list[$i], "to"); + $status = gtconfig ($list[$i], "status"); + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + } + + print STDOUT "
$version $from $to $status split delete redefine


\n"; + if ($elconf eq "") { + print STDOUT "Current Config: default
\n"; + } else { + print STDOUT "Current Config: $elconf
\n"; + } + print STDOUT "Change Config\n"; + print STDOUT "\n"; + &goodbye;; } ############## html level 2 ############### sub mk_html2 { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend html2 (config.ver)"); } - - @list = load_config (); - - # entry on line will be either config.ver (== key) or config.ver.col for sorting - # grab just the key portion - $status = "none"; - ($key) = $ARGV[1] =~ /(\w+.\w+.\w+.\w+)/; # (config.ver) - $arg = $ARGV[1]; - - # find appropriate config.ver entry: - for ($i = 0; $i < @list; $i++) { - $version = gtconfig ($list[$i], "version"); - if ($key eq $version) { - $confline = $list[$i]; - $status = gtconfig ($confline, "status"); - last; - } - } - - $from = gtconfig ($confline, "from"); - $to = gtconfig ($confline, "to"); - print STDOUT "
Elixir Mkdetrend Report
\n"; - print STDOUT "\n"; - print STDOUT "
\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "
config from to
$version $from $to
\n"; - - $master = mknames ("master", $confline, $ccds[0]); - - if ($status eq "modified") { flips_report ($arg, $confline, "modified"); } - if ($status eq "accepted") { flips_report ($arg, $confline, "accepted"); } - if ($status eq "done.merge") { flips_report ($arg, $confline, "merged"); } - # if ($status eq "done.update") { flips_report ($arg, $confline, "updated"); } - if ($status eq "done.reg") { flips_report_done ($key, $confline, "registered"); } - if ($status eq "clean") { flips_report ($key, $confline, "registered"); } - - if ($status eq "none") { $message = "not found"; } - if ($status eq "init") { $message = "initialized, not yet run."; } - if ($status eq "not.available") { $message = "has no images available for detrend creation."; } - - foreach $step (init, flips, norm, merge) { - if ($status eq "running.$step") { $message = "running step $step"; } - if ($status eq "fail.$step") { $message = "failed step $step"; } - if ($status eq "done.$step") { $message = "has finished $step"; } - } - - print STDOUT "config $key $message
\n"; - - print STDOUT "\n"; - open (FILE, "$master"); - while ($line = ) { - chop ($line); - @entry = split ("/", $line); - $N = @entry - 1; - print STDOUT "\n"; - } - print STDOUT "
$entry[$N]
\n"; - - print STDOUT "\n"; - &goodbye; -} - -############## html level 3 ############### -sub mk_html3 { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend html3 (entry.config.ver)"); } - - @list = load_config (); - - # extract the entry and key values from $ARGV[1] - ($entry, $key) = $ARGV[1] =~ /(\d+)\Q.\E(.*)/; - - $status = "none"; - # find appropriate config.ver entry: - for ($i = 0; $i < @list; $i++) { - $version = gtconfig ($list[$i], "version"); - if ($key eq $version) { - $confline = $list[$i]; - $status = gtconfig ($confline, "status"); - last; - } - } - - print STDOUT "
Elixir Mkdetrend Report
\n"; - print STDOUT "\n"; - - if ($status eq "none") { print STDOUT "config $key not found\n \n"; &goodbye; } - if ($status eq "init") { print STDOUT "config $key initialized, not yet run\n \n"; &goodbye; } - if ($status eq "not.available") { print STDOUT "config $key has no images available for detrend creation\n \n"; &goodbye; } - - # if ($status eq "done.update") { flips_entry ($key, $entry, $confline); } - if ($status eq "done.merge") { flips_entry ($key, $entry, $confline); } - if ($status eq "accepted") { flips_entry ($key, $entry, $confline); } - if ($status eq "modified") { flips_entry ($key, $entry, $confline); } - if ($status eq "done.reg") { flips_entry ($key, $entry, $confline); } - - foreach $step (init, flips, norm, merge) { - # print "step: $step, $status: $status\n"; - if ($status eq "running.$step") { print STDOUT "config $key running step $step \n \n"; &goodbye; } - if ($status eq "fail.$step") { print STDOUT "config $key failed step $step\n \n"; &goodbye; } - - if ($status eq "done.$step") { - print STDOUT "config $key has finished $step\n"; - - # load image names from CCD 0 list: - $master = mknames ("master", $confline, $ccds[0]); - print STDOUT "\n"; - open (FILE, "$master"); - while ($line = ) { + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND html2 (config.ver)"); } + + @list = load_config (); + + # entry on line will be either config.ver (== key) or config.ver.col for sorting + # grab just the key portion + $status = "none"; + ($key) = $ARGV[1] =~ /(\w+.\w+.\w+.\w+)/; # (config.ver) + $arg = $ARGV[1]; + + # find appropriate config.ver entry: + for ($i = 0; $i < @list; $i++) { + $version = gtconfig ($list[$i], "version"); + if ($key eq $version) { + $confline = $list[$i]; + $status = gtconfig ($confline, "status"); + last; + } + } + + $from = gtconfig ($confline, "from"); + $to = gtconfig ($confline, "to"); + print STDOUT "
Elixir Mkdetrend Report
\n"; + print STDOUT "\n"; + print STDOUT "
\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "
config from to
$version $from $to
\n"; + + $master = mknames ("master", $confline, $ccds[0]); + + if ($status eq "modified") { flips_report ($arg, $confline, "modified"); } + if ($status eq "accepted") { flips_report ($arg, $confline, "accepted"); } + if ($status eq "done.merge") { flips_report ($arg, $confline, "merged"); } + if ($status eq "done.reg") { flips_report_done ($key, $confline, "registered"); } + if ($status eq "done") { flips_report_done ($key, $confline, "registered"); } + if ($status eq "clean") { flips_report ($key, $confline, "registered"); } + + if ($status eq "none") { $message = "not found"; } + if ($status eq "init") { $message = "initialized, not yet run."; } + if ($status eq "not.available") { $message = "has no images available for detrend creation."; } + + foreach $step (init, flips, norm, merge) { + if ($status eq "running.$step") { $message = "running step $step"; } + if ($status eq "fail.$step") { $message = "failed step $step"; } + if ($status eq "done.$step") { $message = "has finished $step"; } + } + + print STDOUT "config $key $message
\n"; + + print STDOUT "\n"; + open (FILE, "$master"); + while ($line = ) { chop ($line); @entry = split ("/", $line); $N = @entry - 1; print STDOUT "\n"; - } - print STDOUT "
$entry[$N]
\n"; - } - } - - # print STDOUT "\n"; - &goodbye; + } + print STDOUT "\n"; + + print STDOUT "\n"; + &goodbye; +} + +############## html level 3 ############### +sub mk_html3 { + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND html3 (entry.config.ver)"); } + + @list = load_config (); + + # extract the entry and key values from $ARGV[1] + ($entry, $key) = $ARGV[1] =~ /(\d+)\Q.\E(.*)/; + + $status = "none"; + # find appropriate config.ver entry: + for ($i = 0; $i < @list; $i++) { + $version = gtconfig ($list[$i], "version"); + if ($key eq $version) { + $confline = $list[$i]; + $status = gtconfig ($confline, "status"); + last; + } + } + + print STDOUT "
Elixir Mkdetrend Report
\n"; + print STDOUT "\n"; + + if ($status eq "none") { print STDOUT "config $key not found\n \n"; &goodbye; } + if ($status eq "init") { print STDOUT "config $key initialized, not yet run\n \n"; &goodbye; } + if ($status eq "not.available") { print STDOUT "config $key has no images available for detrend creation\n \n"; &goodbye; } + + # if ($status eq "done.update") { flips_entry ($key, $entry, $confline); } + if ($status eq "done.merge") { flips_entry ($key, $entry, $confline); } + if ($status eq "accepted") { flips_entry ($key, $entry, $confline); } + if ($status eq "modified") { flips_entry ($key, $entry, $confline); } + if ($status eq "done.reg") { flips_entry ($key, $entry, $confline); } + + foreach $step (init, flips, norm, merge) { + # print "step: $step, $status: $status\n"; + if ($status eq "running.$step") { print STDOUT "config $key running step $step \n \n"; &goodbye; } + if ($status eq "fail.$step") { print STDOUT "config $key failed step $step\n \n"; &goodbye; } + + if ($status eq "done.$step") { + print STDOUT "config $key has finished $step\n"; + + # load image names from CCD 0 list: + $master = mknames ("master", $confline, $ccds[0]); + print STDOUT "\n"; + open (FILE, "$master"); + while ($line = ) { + chop ($line); + @entry = split ("/", $line); + $N = @entry - 1; + print STDOUT "\n"; + } + print STDOUT "
$entry[$N]
\n"; + } + } + + # print STDOUT "\n"; + &goodbye; } @@ -1242,137 +1286,137 @@ ############## evaluate chip run ############### sub mk_eval { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend eval (step)"); } - - $step = $ARGV[1]; - @list = load_config (); - - # load success fifo info: - $file = `gconfig -D mode mkdetrend global.success`; chop $file; - open (FILE, "$file"); - @success = ; - close (FILE); - - # load failure fifo info: - $file = `gconfig -D mode mkdetrend global.failure`; chop $file; - open (FILE, "$file"); - @failure = ; - close (FILE); - - # entry must be in state 'running.$step' - # possible states: - # 1 all 12 chips in success == done.$step - # 2 any chips in failure == fail.$step - # 3 any chips missing == fail.$step - # 4 any chips in failure, merge.list == not.available (only for $step eq init) - # valid steps: init flips norm - - CONFIG: - foreach $confline (@list) { - $status = gtconfig ($confline, "status"); - if ($status ne "running.$step") { next; } - $state = 1; - - CCD: - for ($j = 0; $j < $Nccd; $j++) { - $entry = gtconfig ($confline, "chiprun", $j); - - # search for entry in success fifo: - foreach $value (@success) { - if ($value =~ /^$entry/) { next CCD; } - } - - # search for entry in failure fifo: note the special ending state for 'init' - foreach $value (@failure) { - if ($value =~ /^$entry/) { - $state = 2; - if ($step eq "split") { - ($status) = $value =~ /$entry\s+\S+\s+(\S+)/; - if ($status eq "merge.lists") { - $state = 4; - } + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND eval (step)"); } + + $step = $ARGV[1]; + @list = load_config (); + + # load success fifo info: + $file = `gconfig -D mode $MKDETREND global.success`; chop $file; + open (FILE, "$file"); + @success = ; + close (FILE); + + # load failure fifo info: + $file = `gconfig -D mode $MKDETREND global.failure`; chop $file; + open (FILE, "$file"); + @failure = ; + close (FILE); + + # entry must be in state 'running.$step' + # possible states: + # 1 all 12 chips in success == done.$step + # 2 any chips in failure == fail.$step + # 3 any chips missing == fail.$step + # 4 any chips in failure, merge.list == not.available (only for $step eq init) + # valid steps: init flips norm + + CONFIG: + foreach $confline (@list) { + $status = gtconfig ($confline, "status"); + if ($status ne "running.$step") { next; } + $state = 1; + + CCD: + foreach $ccd (@ccds) { + $entry = gtconfig ($confline, "chiprun", $ccd); + + # search for entry in success fifo: + foreach $value (@success) { + if ($value =~ /^$entry/) { next CCD; } } + + # search for entry in failure fifo: note the special ending state for 'init' + foreach $value (@failure) { + if ($value =~ /^$entry/) { + $state = 2; + if ($step eq "split") { + ($status) = $value =~ /$entry\s+\S+\s+(\S+)/; + if ($status eq "merge.lists") { + $state = 4; + } + } + last CCD; + } + } + + # if we make it here, it wasn't in either fifo.success or fifo.failure... + $state = 3; last CCD; - } - } - - # if we make it here, it wasn't in either fifo.success or fifo.failure... - $state = 3; - last CCD; - } - - if ($state == 1) { $confline = stconfig ($confline, "status", "done.$step"); } - if ($state == 2) { $confline = stconfig ($confline, "status", "fail.$step"); } - if ($state == 3) { $confline = stconfig ($confline, "status", "fail.$step"); } - if ($state == 4) { $confline = stconfig ($confline, "status", "not.available"); } - } - save_config (@list); - - system ("mkdetrend state"); - &goodbye; + } + + if ($state == 1) { $confline = stconfig ($confline, "status", "done.$step"); } + if ($state == 2) { $confline = stconfig ($confline, "status", "fail.$step"); } + if ($state == 3) { $confline = stconfig ($confline, "status", "fail.$step"); } + if ($state == 4) { $confline = stconfig ($confline, "status", "not.available"); } + } + save_config (@list); + + system ("$MKDETREND state"); + &goodbye; } ############## evaluate mosaic run ############### sub mk_meval { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend meval (step)"); } - - $step = $ARGV[1]; - @list = load_config (); - - # load success fifo info: - $file = `gconfig -D mode mkdetrend global.success`; chop $file; - open (FILE, "$file"); - @success = ; - close (FILE); - - # load failure fifo info: - $file = `gconfig -D mode mkdetrend global.failure`; chop $file; - open (FILE, "$file"); - @failure = ; - close (FILE); - - # entry must be in state 'running.$step' - # possible states: - # 1 entry in success == done.$step - # 2 entry in failure == fail.$step - # 3 entry missing == fail.$step - # valid steps: merge - - foreach $confline (@list) { - $status = gtconfig ($confline, "status"); - if ($status ne "running.$step") { next; } - $state = 3; - $entry = gtconfig ($confline, "mosaic"); - - MCHECK: - { - foreach $value (@success) { - if ($value =~ /^$entry/) { - $state = 1; - last MCHECK; - } - } - - foreach $value (@failure) { - if ($value =~ /^$entry/) { - $state = 2; - next MCHECK; + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND meval (step)"); } + + $step = $ARGV[1]; + @list = load_config (); + + # load success fifo info: + $file = `gconfig -D mode $MKDETREND global.success`; chop $file; + open (FILE, "$file"); + @success = ; + close (FILE); + + # load failure fifo info: + $file = `gconfig -D mode $MKDETREND global.failure`; chop $file; + open (FILE, "$file"); + @failure = ; + close (FILE); + + # entry must be in state 'running.$step' + # possible states: + # 1 entry in success == done.$step + # 2 entry in failure == fail.$step + # 3 entry missing == fail.$step + # valid steps: merge + + foreach $confline (@list) { + $status = gtconfig ($confline, "status"); + if ($status ne "running.$step") { next; } + $state = 3; + $entry = gtconfig ($confline, "mosaic"); + + MCHECK: + { + foreach $value (@success) { + if ($value =~ /^$entry/) { + $state = 1; + last MCHECK; + } } - } - } - - if ($state == 1) { $confline = stconfig ($confline, "status", "done.$step"); } - if ($state == 2) { $confline = stconfig ($confline, "status", "fail.$step"); } - if ($state == 3) { $confline = stconfig ($confline, "status", "fail.$step"); } - } - - save_config (@list); - system ("mkdetrend state"); - - &goodbye; + + foreach $value (@failure) { + if ($value =~ /^$entry/) { + $state = 2; + next MCHECK; + } + } + } + + if ($state == 1) { $confline = stconfig ($confline, "status", "done.$step"); } + if ($state == 2) { $confline = stconfig ($confline, "status", "fail.$step"); } + if ($state == 3) { $confline = stconfig ($confline, "status", "fail.$step"); } + } + + save_config (@list); + system ("$MKDETREND state"); + + &goodbye; } ############## html for dads ############### sub mk_dads { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend dads (config.ver)"); } + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND dads (config.ver)"); } # options: mkdetrend dads (config.ver) @@ -1452,5 +1496,5 @@ ############## html for dads ############### sub mk_dads_html { - if (@ARGV != 2) { &escape ("USAGE: mkdetrend dads (config.ver)"); } + if (@ARGV != 2) { &escape ("USAGE: $MKDETREND dads (config.ver)"); } @list = load_config (); @@ -1511,5 +1555,5 @@ print STDOUT "Total Counts: $Ncnt
r.m.s. median sigma: $Sigma%

\n"; print STDOUT "\n"; - + print STDOUT "
Statistics on each available input image.
Time is in UT, light background means dawn, grey means dusk.\n"; @@ -1567,186 +1611,350 @@ ############## dads level 1 ############### sub mk_dads_top { - if (@ARGV != 1) { &escape ("USAGE: mkdetrend dads.top"); } - - @list = load_config (); - - ## html headers - print STDOUT "
Elixir Mkdetrend Report
\n"; - print STDOUT "\n"; - - print STDOUT "\n"; - for ($i = 0; $i < @list; $i++) { - $config = gtconfig ($list[$i], "config"); - $version = gtconfig ($list[$i], "version"); - $from = gtconfig ($list[$i], "from"); - $to = gtconfig ($list[$i], "to"); - $status = gtconfig ($list[$i], "status"); - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - } - - print STDOUT "
$version $from $to $status
\n"; - &goodbye;; - + if (@ARGV != 1) { &escape ("USAGE: $MKDETREND dads.top"); } + + @list = load_config (); + + ## html headers + print STDOUT "
Elixir Mkdetrend Report
\n"; + print STDOUT "\n"; + + print STDOUT "\n"; + for ($i = 0; $i < @list; $i++) { + $config = gtconfig ($list[$i], "config"); + $version = gtconfig ($list[$i], "version"); + $from = gtconfig ($list[$i], "from"); + $to = gtconfig ($list[$i], "to"); + $status = gtconfig ($list[$i], "status"); + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + } + + print STDOUT "
$version $from $to $status
\n"; + &goodbye;; + } sub by_col { - @word = split (" ", $statdata[$a]); $va = $word[$col]; - @word = split (" ", $statdata[$b]); $vb = $word[$col]; - $va <=> $vb; + @word = split (" ", $statdata[$a]); $va = $word[$col]; + @word = split (" ", $statdata[$b]); $vb = $word[$col]; + $va <=> $vb; } sub flips_report { - - $col = 0; - ($config) = $_[0] =~ /(\w+.\w+.\w+)/; - ($key) = $_[0] =~ /(\w+.\w+.\w+.\w+)/; # (config.ver) - - # look for optional sort key (config.ver[.key]) - if ($_[0] =~ /$key.(\d+)/) { - ($col) = $_[0] =~ /$key.(\d+)/; - } else { - $col = 0; - } - - $line = $_[1]; - $message = $_[2]; - - open (FILE, mknames ("stats", $line)); @statdata = ; close (FILE); - open (FILE, mknames ("medbin", $line)); @medndata = ; close (FILE); - open (FILE, mknames ("master", $line, $ccds[0])); @mastdata = ; close (FILE); - - $Nkeep = 0; - $Ncnt = 0; - $Sigma = 0; - $Nimage = @statdata; - for ($i = 0; $i < $Nimage; $i++) { - @tmpw = split (" ", $mastdata[$i]); - @tmps = split (" ", $statdata[$i]); - if ($tmpw[1]) { $Nkeep++; $Ncnt += $tmps[3]; $Sigma += $tmps[8]*$tmps[8]; } - } - if ($Nkeep > 0) { - $Sigma = sprintf "%5.3f", 100*sqrt ($Sigma/$Nkeep); - } else { - $Sigma = 100.0; - } - - $imbin = mknames ("imbin", $line); - print STDOUT "
\n"; - print STDOUT "this config has been $message.
\n"; - print STDOUT "there are $Nimage images, $Nkeep used.
\n"; - print STDOUT "Total Counts: $Ncnt
r.m.s. median sigma: $Sigma%

\n"; - print STDOUT "you have the following choices:
\n"; - print STDOUT " return to top level
\n"; - print STDOUT " split config
\n"; - print STDOUT " accept config
\n"; - print STDOUT "
\n"; - - print STDOUT "
\n"; - - print STDOUT "
Statistics on each available input image.
+ + $col = 0; + ($type) = $_[0] =~ /\w+.(\w+).\w+/; + ($config) = $_[0] =~ /(\w+.\w+.\w+)/; + ($key) = $_[0] =~ /(\w+.\w+.\w+.\w+)/; # (config.ver) + + # look for optional sort key (config.ver[.key]) + if ($_[0] =~ /$key.(\d+)/) { + ($col) = $_[0] =~ /$key.(\d+)/; + } else { + $col = 0; + } + + $line = $_[1]; + $message = $_[2]; + + open (FILE, mknames ("stats", $line)); @statdata = ; close (FILE); + open (FILE, mknames ("medbin", $line)); @medndata = ; close (FILE); + open (FILE, mknames ("master", $line, $ccds[0])); @mastdata = ; close (FILE); + + $Nkeep = 0; + $Ncnt = 0; + $Sigma = 0; + $Nimage = @statdata; + for ($i = 0; $i < $Nimage; $i++) { + @tmpw = split (" ", $mastdata[$i]); + @tmps = split (" ", $statdata[$i]); + if ($tmpw[1]) { $Nkeep++; $Ncnt += $tmps[3]; $Sigma += $tmps[8]*$tmps[8]; } + } + if ($Nkeep > 0) { + if ($type eq "flat") { + $Sigma = sprintf "%5.3f", 100*sqrt ($Sigma/$Nkeep); + $statline = "Total Counts: $Ncnt
r.m.s. median sigma: $Sigma%

\n"; + } else { + $Sigma = sprintf "%5.3f", sqrt ($Sigma/$Nkeep); + $Ncnt = sprintf "%5.3f", ($Ncnt / $Nkeep); + $statline = "Mean Counts: $Ncnt
r.m.s. median sigma: $Sigma

\n"; + } + } else { + $statline = ""; + } + + $imbin = mknames ("imbin", $line); + print STDOUT "
\n"; + print STDOUT "this config has been $message.
\n"; + print STDOUT "there are $Nimage images, $Nkeep used.
\n"; + print STDOUT "$statline\n"; + print STDOUT "you have the following choices:
\n"; + print STDOUT " return to top level
\n"; + print STDOUT " split config
\n"; + print STDOUT " accept config
\n"; + print STDOUT "
\n"; + + print STDOUT "\n"; + + print STDOUT "
Statistics on each available input image.
Time is in UT, light background means dawn, grey means dusk. Click on the column heading to sort by that entry\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n\n"; - - @order = (); - for ($i = 0; $i < $Nimage; $i++) { @order = (@order, $i); } - - @entry = sort by_col @order; - - for ($i = 0; $i < $Nimage; $i++) { - $N = $entry[$i]; - - @word = split (" ", $statdata[$N]); - $used = $word[12]; - $dawn = $word[11]; - - @tmpw = split (" ", $mastdata[$N]); - $keep = $tmpw[1]; - - @tmpw = split ("/", $medndata[$N]); - $medname = $tmpw[-1]; - - # $sig1 = sprintf "%5.3f", $word[4]; - # $sig2 = sprintf "%5.3f", $word[5]; - # $sig3 = sprintf "%5.3f", $word[6]; - # $sig4 = sprintf "%5.3f", $word[7]; - # $mean = sprintf "%8.1f", $word[3]; - - print STDOUT "\n"; - if ($dawn) { print STDOUT "\n"; } - else { print STDOUT "\n"; } - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - if ($used) { print STDOUT "\n"; } - else { print STDOUT "\n"; } - if ($keep) { print STDOUT "\n\n"; } - else { print STDOUT "\n\n"; } - - } - - print STDOUT "
image Date Time Mean Sigma (raw) Sigma (clipped) Sigma (med) image used? keep?
$word[0] $word[1] $word[2] $word[2] $word[3] $word[5] $word[6] $word[8] \n"; - print STDOUT "yesno
\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - print STDOUT "\n"; - # print STDOUT "\n\n"; } + else { print STDOUT "\n\n"; } + + } + + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + print STDOUT "\n"; + # print STDOUT "