IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 56


Ignore:
Timestamp:
Feb 19, 2003, 10:41:28 AM (23 years ago)
Author:
eugene
Message:

fixed reg / fhtool / link stuff in mk_reg
converted CGI scripts to dt.* names

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Ohana/src/perl/src/mkdetrend

    r52 r56  
    771771
    772772        if ($DBmode eq "MEF") {
     773            # empty link directory:
     774            system ("rm -f $links/*.fits");
     775
    773776            # make links
    774777            foreach $ccd (@ccds) {
    … …  
    780783            # mef, register
    781784            $mef = mknames ("mef", $confline);
     785            if (-e $mef) { unlink $mef; }
    782786            vsystem ("fhtool -P $links $mef");
    783787            if ($status) { $success = 0; }
    … …  
    932936   
    933937    system ("$MKDETREND dup $config");
    934     print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir1?&elconf=$elconf\">\n";
     938    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir1?&elconf=$elconf\">\n";
    935939   
    936940    &goodbye;
    … …  
    946950   
    947951    system ("$MKDETREND del $config");
    948     print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir1?&elconf=$elconf\">\n";
     952    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir1?&elconf=$elconf\">\n";
    949953   
    950954    &goodbye;;
    … …  
    984988        print STDOUT "<tr><td> $version </td>\n";
    985989        print STDOUT "<td> $from </td><td> $to </td>\n";
    986         print STDOUT "<td> <a href=$CGI/elixir2?$version&elconf=$elconf> $status </a></td>\n";
    987         print STDOUT "<td> <a href=$CGI/split?$config&elconf=$elconf>      split </a></td>\n";
    988         print STDOUT "<td> <a href=$CGI/delete?$version&elconf=$elconf>   delete </a></td>\n";
    989         print STDOUT "<td> <a href=$CGI/redef?$version&elconf=$elconf>  redefine </a></td>\n";
     990        print STDOUT "<td> <a href=$CGI/dt.elixir2?$version&elconf=$elconf> $status </a></td>\n";
     991        print STDOUT "<td> <a href=$CGI/dt.split?$config&elconf=$elconf>      split </a></td>\n";
     992        print STDOUT "<td> <a href=$CGI/dt.delete?$version&elconf=$elconf>   delete </a></td>\n";
     993        print STDOUT "<td> <a href=$CGI/dt.redef?$version&elconf=$elconf>  redefine </a></td>\n";
    990994        print STDOUT "</tr>\n";
    991995    }
    … …  
    10041008   
    10051009    # create a simple form for redefine:
    1006     print STDOUT "<form method=post action=$CGI/redefine&elconf=$elconf>\n";
     1010    print STDOUT "<form method=post action=$CGI/dt.redefine&elconf=$elconf>\n";
    10071011    print STDOUT "start: <input type=text value=$from name=start size=40 maxlength=40> <br>\n";
    10081012    print STDOUT "stop: <input type=text value=$to name=stop size=40 maxlength=40> <br>\n";
    … …  
    10661070    save_config (@list);
    10671071
    1068     print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir2?$key&elconf=$elconf\">\n";
     1072    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir2?$key&elconf=$elconf\">\n";
    10691073    &goodbye;
    10701074}
    … …  
    10941098    save_config (@list);
    10951099   
    1096     print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir1?&elconf=$elconf\">";
     1100    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir1?&elconf=$elconf\">";
    10971101    &goodbye;
    10981102}
    … …  
    11071111   
    11081112    # create a simple form for redefine:
    1109     print STDOUT "<form method=post action=$CGI/newconfig>\n";
     1113    print STDOUT "<form method=post action=$CGI/dt.newconfig>\n";
    11101114    if ($elconf) {
    11111115        print STDOUT "enter new config: <input type=text value=$elconf name=config size=40 maxlength=40> <br>\n";
    … …  
    11391143        print STDOUT "<tr><td> $version </td>\n";
    11401144        print STDOUT "<td> $from </td><td> $to </td>\n";
    1141         print STDOUT "<td> <a href=$CGI/elixir2?$version&elconf=$elconf> $status </a></td>\n";
    1142         print STDOUT "<td> <a href=$CGI/split?$config&elconf=$elconf> split </a></td>\n";
    1143         print STDOUT "<td> <a href=$CGI/delete?$version&elconf=$elconf> delete </a></td>\n";
    1144         print STDOUT "<td> <a href=$CGI/redef?$version&elconf=$elconf> redefine </a></td>\n";
     1145        print STDOUT "<td> <a href=$CGI/dt.elixir2?$version&elconf=$elconf> $status </a></td>\n";
     1146        print STDOUT "<td> <a href=$CGI/dt.split?$config&elconf=$elconf> split </a></td>\n";
     1147        print STDOUT "<td> <a href=$CGI/dt.delete?$version&elconf=$elconf> delete </a></td>\n";
     1148        print STDOUT "<td> <a href=$CGI/dt.redef?$version&elconf=$elconf> redefine </a></td>\n";
    11451149        print STDOUT "</tr>\n";
    11461150    }
    … …  
    11521156        print STDOUT "Current Config: <b>$elconf</b><br>\n";
    11531157    }
    1154     print STDOUT "<a href=$CGI/config?&elconf=$elconf>Change Config</a></td>\n";
     1158    print STDOUT "<a href=$CGI/dt.config?&elconf=$elconf>Change Config</a></td>\n";
    11551159    print STDOUT "</body>\n";
    11561160    &goodbye;;
    … …  
    16921696    print STDOUT "$statline\n";
    16931697    print STDOUT "you have the following choices: <br>\n";
    1694     print STDOUT "<a href=$CGI/elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
    1695     print STDOUT "<a href=$CGI/split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
    1696     print STDOUT "<a href=$CGI/accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
     1698    print STDOUT "<a href=$CGI/dt.elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
     1699    print STDOUT "<a href=$CGI/dt.split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
     1700    print STDOUT "<a href=$CGI/dt.accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
    16971701    print STDOUT "</td><td width=640px align=right><img width=100% src=$imbin></td></tr></table>\n";
    16981702   
    1699     print STDOUT "<form method=post action=$CGI/modify?&elconf=$elconf>\n";
     1703    print STDOUT "<form method=post action=$CGI/dt.modify?&elconf=$elconf>\n";
    17001704
    17011705    print STDOUT "<center><b>Statistics on each available input image.</b></center>
    … …  
    17051709    print STDOUT "<table bgcolor=#fff0e0 border=1 cellspacing=0 cellpadding=3>\n";
    17061710    print STDOUT "<tr bgcolor=#00aaaa>\n";
    1707     print STDOUT "<th > <a href=$CGI/elixir2?$key.0&elconf=$elconf> image </a></th>\n";
     1711    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.0&elconf=$elconf> image </a></th>\n";
    17081712    print STDOUT "<th > Date </th>\n";
    17091713    print STDOUT "<th > Time </th>\n";
    1710     print STDOUT "<th > <a href=$CGI/elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
    1711     print STDOUT "<th > <a href=$CGI/elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
    1712     print STDOUT "<th > <a href=$CGI/elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
    1713     print STDOUT "<th > <a href=$CGI/elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
     1714    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
     1715    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
     1716    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
     1717    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
    17141718    print STDOUT "<th > image </th>\n";
    17151719    print STDOUT "<th > used? </th>\n";
    … …  
    17341738        $medname = $tmpw[-1];
    17351739       
    1736         print STDOUT "<tr><td> <a href=$CGI/elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
     1740        print STDOUT "<tr><td> <a href=$CGI/dt.elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
    17371741        if ($dawn) { print STDOUT "<td bgcolor=#cccccc> $word[2] </td>\n"; }
    17381742        else       { print STDOUT "<td> $word[2] </td>\n"; }
    … …  
    17411745        print STDOUT "<td> $word[6] </td>\n"; # Sigma (clip)
    17421746        print STDOUT "<td> $word[8] </td>\n"; # Sigma (med)
    1743         print STDOUT "<td> <a border=0 href=$CGI/elixir3?$N.$key&elconf=$elconf>\n";
     1747        print STDOUT "<td> <a border=0 href=$CGI/dt.elixir3?$N.$key&elconf=$elconf>\n";
    17441748        print STDOUT "<img src=$www/$medname></a></td>\n";
    17451749        if ($used) { print STDOUT "<td>yes</td>\n"; }
    … …  
    18101814    print STDOUT "$statline\n";
    18111815    print STDOUT "you have the following choices: <br>\n";
    1812     print STDOUT "<a href=$CGI/elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
    1813     print STDOUT "<a href=$CGI/split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
    1814     print STDOUT "<a href=$CGI/accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
     1816    print STDOUT "<a href=$CGI/dt.elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
     1817    print STDOUT "<a href=$CGI/dt.split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
     1818    print STDOUT "<a href=$CGI/dt.accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
    18151819    print STDOUT "</td><td width=640px align=right><img width=100% src=$imbin></td></tr></table>\n";
    18161820   
    … …  
    18211825    print STDOUT "<table bgcolor=#fff0e0 border=1 cellspacing=0 cellpadding=3>\n";
    18221826    print STDOUT "<tr bgcolor=#00aaaa>\n";
    1823     print STDOUT "<th > <a href=$CGI/elixir2?$key.0&elconf=$elconf> image </a></th>\n";
     1827    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.0&elconf=$elconf> image </a></th>\n";
    18241828    print STDOUT "<th > Date </th>\n";
    18251829    print STDOUT "<th > Time </th>\n";
    1826     print STDOUT "<th > <a href=$CGI/elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
    1827     print STDOUT "<th > <a href=$CGI/elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
    1828     print STDOUT "<th > <a href=$CGI/elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
    1829     print STDOUT "<th > <a href=$CGI/elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
     1830    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
     1831    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
     1832    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
     1833    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
    18301834    print STDOUT "<th > image </th>\n";
    18311835    print STDOUT "<th > used? </th></tr>\n\n";
    … …  
    18491853        $medname = $tmpw[-1];
    18501854       
    1851         print STDOUT "<tr><td> <a href=$CGI/elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
     1855        print STDOUT "<tr><td> <a href=$CGI/dt.elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
    18521856        if ($dawn) { print STDOUT "<td bgcolor=#cccccc> $word[2] </td>\n"; }
    18531857        else       { print STDOUT "<td> $word[2] </td>\n"; }
    … …  
    18561860        print STDOUT "<td> $word[6] </td>\n"; # Sigma (clip)
    18571861        print STDOUT "<td> $word[8] </td>\n"; # Sigma (med)
    1858         print STDOUT "<td> <a border=0 href=$CGI/elixir3?$N.$key&elconf=$elconf>\n";
     1862        print STDOUT "<td> <a border=0 href=$CGI/dt.elixir3?$N.$key&elconf=$elconf>\n";
    18591863        print STDOUT "<img src=$www/$medname></a></td>\n";
    18601864        if ($used) { print STDOUT "<td>yes</td>\n"; }
    … …  
    19111915        $mean = sprintf "%8.1f", $word[3];
    19121916       
    1913         print STDOUT "<tr><td> <a href=$CGI/elixir3?$i.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
     1917        print STDOUT "<tr><td> <a href=$CGI/dt.elixir3?$i.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
    19141918        if ($dawn) { print STDOUT "<td bgcolor=#cccccc> $word[2] </td>\n"; }
    19151919        else       { print STDOUT "<td> $word[2] </td>\n"; }
    … …  
    19831987    print STDOUT "</td></tr>\n";
    19841988
    1985     print STDOUT "<tr><td> return to <a href=$CGI/elixir1&elconf=$elconf> config list </a></tr></td>\n";
    1986     print STDOUT "<tr><td> return to <a href=$CGI/elixir2?$version&elconf=$elconf> $version </a></tr></td>\n";
    1987     if (!$first) { print STDOUT "<tr><td> goto <a href=$CGI/elixir3?$prev.$version&elconf=$elconf> prev </a> image </td></tr>\n"; }
    1988     if (!$last)  { print STDOUT "<tr><td> goto <a href=$CGI/elixir3?$next.$version&elconf=$elconf> next </a> image </td></tr>\n"; }
     1989    print STDOUT "<tr><td> return to <a href=$CGI/dt.elixir1&elconf=$elconf> config list </a></tr></td>\n";
     1990    print STDOUT "<tr><td> return to <a href=$CGI/dt.elixir2?$version&elconf=$elconf> $version </a></tr></td>\n";
     1991    if (!$first) { print STDOUT "<tr><td> goto <a href=$CGI/dt.elixir3?$prev.$version&elconf=$elconf> prev </a> image </td></tr>\n"; }
     1992    if (!$last)  { print STDOUT "<tr><td> goto <a href=$CGI/dt.elixir3?$next.$version&elconf=$elconf> next </a> image </td></tr>\n"; }
    19891993    print STDOUT "</table>\n";
    19901994   
Note: See TracChangeset for help on using the changeset viewer.