#!/usr/bin/perl -w
# RWB  December 21, 2001
# This is a Perl script to archive data from Pioneer Seamount.
   use strict;
   my ($iy,$id,$iy2dig,$listcom,$copycom,$isocmd,$removcom,$isoname,$burncom);
   $iy=2001;
   $iy2dig=$iy % 100;
   $id=367;
   my ($fname,$savedirname);
   $savedirname='/tmp/cd_burn';

   askval(); # Set parameters interactively.
   $fname='/usr/data/bland/pioneer/2001/r'.sprintf("%02u%03u??.??m",$iy2dig,
      $id);
   $listcom='ls '.$fname."\n";
   system($listcom) && die;
   if ( -e $savedirname )  {print "directory exists\n" }
   else {
      print "directory does not exist\n";
      print system("mkdir $savedirname")."\n";
   }
   $removcom="rm $savedirname/r*.*";
   system($removcom);
   $copycom='cp '.$fname.' . '.$savedirname;
   system($copycom);
   ###### The files to be backed up are now in the directory
   ###### /tmp/cd_burn
   $isoname='psm'.substr($fname,-11,5);
   print '$isoname = '.$isoname."\n";
   $isocmd="mkisofs -V $isoname -o /tmp/disc.iso -R /tmp/cd_burn";
   system($isocmd);
   $burncom='cdrecord -v -data speed=16 /tmp/disc.iso';
   system($burncom);
### END of main script.

#	Subroutine to prompt for dates and drive letter.
sub askval() {
   print "This PERL script writes one day of data from Pioneer Seamount\n";
   print "to CDW.\n";
   my $a;
   
   print "year:     $iy: ";
   $a=<STDIN>;
   chomp($a);
   if(length($a) gt 0) {$iy=$a};
   $iy2dig=$iy % 100;

   print "day:       $id: ";
   $a=<STDIN>;
   chomp($a);
   if(length($a) gt 0) {$id=$a};

   print "Data will be archived for year $iy, day $id.\n"
} ### END of subroutine ask()