#!/usr/bin/perl

# Routine to generate the new NNSN data labels and FITS files in the monthly 
# directories.
#
# format: makenew dir_list
#
# 18 May 2006, acr
#
#=============================================================================

$makelbl = "/media/BUSLINK/ihw/prefix/nnsn/makelbl";

foreach $dir (sort @ARGV)
  { next if (! -d $dir);
    chdir $dir;

    mkdir "new" if (! -d "new");
    system "$makelbl *.hdr";

    mkdir "old" if (! -d "old");
    system "mv *.* old/.";

    chdir "..";
  }