#!/usr/bin/perl

# Sort the iueindex.tab file by TARGET_NAME and START_TIME.

open (TAB,"iueindex.tab");
@lines = <TAB>;
@new = sort by_nametime @lines;
for ($i=0; $i<@new; $i++)
  { printf $new[$i]; }


#----------------------------

sub by_nametime

 { $aname = substr($a,82,39);
   $aname =~ s/ *$//;
   $aname =~ s/^.*\///;

   $bname = substr($b,82,39);
   $bname =~ s/ *$//;
   $bname =~ s/^.*\///;

   if ($aname lt $bname)
     { return -1; }
   elsif ($aname gt $bname)
     { return +1; }
   else
     { $atime = substr($a,171,23);
       $btime = substr($b,171,23);

       if ($atime lt $btime)
         { return -1; }
       elsif ($atime gt $btime)
         { return +1; }
       elsif ($a lt $bt)
         { return -1; }
       elsif ($a gt $b)
         { return +1; }
       else
         { return  0; }         
     }
 }