#!/usr/bin/perl

# Routine to change the data set ID to alter the data level to "-3-" from
# "-2-".
#
# Recurses down through current working directory.
#
# Format: fixdsid
#
#===========================================================================

use File::Find;

find({wanted=>\&fixit},".");

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

sub fixit
  # Routine to change the DSID from 
  # EAR-C-I0065/I1084-2-IMGTEMPEL1KPNO-V1.0 to
  # EAR-C-I0065/I1084-3-IMGTEMPEL1KPNO-V1.0

{ my ($filename,$line);
  my ($OLDID, $NEWID, $TMPFILE);

  $TMPFILE = "zzzTMP";
  $OLDID   = "-2-IMGTEMPEL";
  $NEWID   = "-3-IMGTEMPEL";

  $filename = $_;

  return if ($filename !~ /\.lbl$/);  # We'll do the catalog files by hand

  open (OLD, $filename) ||
    die "Could not open $File::Find::name for reading($!).";
  open (NEW, ">$TMPFILE") ||
    die "Could not open temp file for writing ($!).";

  while ($line = <OLD>)
    { $line =~ s/$OLDID/$NEWID/g;
      printf NEW $line; 
    }

  close(OLD);
  close(NEW);
  rename $TMPFILE, $filename;

  return;
}