Changeset 42

Timestamp:

Feb 14, 2003, 1:55:56 AM (23 years ago)

Author:

eugene

Message:

major rework for flips2

File:

• trunk/Ohana/src/perl/src/cmp.header (modified) (1 diff)

trunk/Ohana/src/perl/src/cmp.header

@@ -55 +55 @@
 
     my ($file) = $_[0];
-    my ($buffer, $done, @buffer, $line);
+    my ($ID, $buffer, $done, @buffer, $line);
 
     open (FILE, "$file");
+    read FILE, $ID, 8;
+    if ($ID eq "SIMPLE  ") { goto valid; }
+    if ($ID eq "XTENSION") { goto valid; }
+    close (FILE);
+    die "SUCCESS: $file is not a valid header file\n";
     
+valid:
+    seek FILE, 0, "SEEK_SET";
     $done = 0;
     @buffer = ();