#!/usr/bin/perl

# moves old NNSN files from <date>/old directory back into <date> directory.
# Run from NNSN data root.

foreach $dir (sort @ARGV)
  { if (-d "$dir/old")
      { printf "Moving $dir...\n";
        system "mv $dir/old/* $dir/.";
      }
  }