#!/usr/bin/perl -w


# nerxscode
# sort_nerxsfiles_by_date.pl
# Sorts nerxsfiles by their given date.
# 2001-12-04 nik@nerxs.com

# get path from ARGV or die #########
if ($ARGV[0]) {
 $path = $ARGV[0];
}

else {
  print "Usage: sort_nerxsfiles_by_date.pl [DIR].\n";
  exit;
}

@files = `find $path -maxdepth 1 -type f -or -type l |grep -v \'\\.cat\$\'`;

# Open every file and get its entries
foreach $file (@files) {
  chomp ($file);
  open(FH, "< $file") or die "could not open $file: $!.";

# print "Opening $file \n";
  while(<FH>) {
    
    foreach ($_) {
      ($key, $val) = /^(\w+):\s*(.*)$/;
      $HoH{$file}{$key} = $val;
    }
  }

  close(FH);
}


# sort all files by the creation time key (CTIME) 
foreach $site (reverse sort {$HoH{$a}{CTIME}<=>$HoH{$b}{CTIME} } keys (%HoH)) {
  print "$site\n";
}