Changeset 118

Timestamp:

Oct 8, 2003, 12:07:00 AM (23 years ago)

Author:

eugene

Message:

fixed keywords to meet CADC requiremetns

File:

• trunk/Ohana/src/perl/src/normalize (modified) (3 diffs)

trunk/Ohana/src/perl/src/normalize

@@ -1 +1 @@
 #!/usr/bin/env perl
 
-$revline = "\$Revision: 1.4 $?";
+$revline = "\$Revision: 1.5 $?";
 ($version) = $revline =~ m|\$Revision:\s*(\S*)|;
 
@@ -76 +76 @@
     }   
     
+    $elsys = `gconfig ELIXIR_VERSION`; chop ($elsys);
+    @time = localtime;
+    $now = sprintf "%04d-%02d-%02dT%02d:%02d:%02d", $time[5]+1900, $time[4]+1, $time[3], $time[2], $time[1], $time[0];
+    $elsys = `gconfig ELIXIR_VERSION`; chop ($elsys);
+    print MANA "keyword a EL_SYS -w    \"$elsys\"\n";
+    print MANA "keyword a EL_SYS -wc   \"Elixir System Version\"\n";
+    print MANA "keyword a EL_NRM -w    \"$version\"\n";
+    print MANA "keyword a EL_NRM -wc   \"Elixir Normalize Version\"\n";
+    print MANA "keyword a REL_DATE -w  \"$now\"\n";
+    print MANA "keyword a REL_DATE -wc \"UTC Release Date\"\n";
+
     print MANA "keyword a COMMENT -ws \"Elixir:normalize $version\"\n";
     print MANA "keyword a COMMENT -ws \"no renormalization needed for $type\"\n";
@@ -190 +201 @@
         print MANA "keyword b ELCONF -wc \"Original Elixir config\"\n";
     }   
-    print MANA "keyword b COMMENT -ws \"Elixir:normalize version $version\"\n";
-    print MANA "keyword b COMMENT -ws \"FLAT image normalized wrt CCD $refccd\"\n";
+
+    @time = localtime;
+    $now = sprintf "%04d-%02d-%02dT%02d:%02d:%02d", $time[5]+1900, $time[4]+1, $time[3], $time[2], $time[1], $time[0];
+    $elsys = `gconfig ELIXIR_VERSION`; chop ($elsys);
+    print MANA "keyword b EL_SYS   -w  \"$elsys\"\n";
+    print MANA "keyword b EL_SYS   -wc \"Elixir System Version\"\n";
+    print MANA "keyword b EL_NRM   -w  \"$version\"\n";
+    print MANA "keyword b EL_NRM   -wc \"Elixir Normalize Version\"\n";
+    print MANA "keyword b REL_DATE -w \"$now\"\n";
+    print MANA "keyword b REL_DATE -wc \"UTC Release Date\"\n";
+
+    print MANA "keyword b COMMENT  -ws \"Elixir:normalize version $version\"\n";
+    print MANA "keyword b COMMENT  -ws \"FLAT image normalized wrt CCD $refccd\"\n";
     print MANA "clip b 0.0 0.0 6.4 0.0\n";
     print MANA "wd b $output -bitpix 16 -bzero 3.2 -bscale 0.0001\n";