#!/usr/bin/perl -w

#
# Version 3.0
#
#usage: clean
#
#Removes individual chip spectra and images

$task="clean";
$version="3.0";
$date="2007-11-20";
$author="S. L. Snowden";
  print "\n";
  print "Task: $task \n";
  print "Version: $version \n";
  print "Date: $date \n";
  print "Author: $author \n";

#  if($ARGV[0]=~/-(\S+)/){
#    $option=$1;
#    if($option=~/h/){$help =1;}
#    shift(@ARGV);
#  }

#  if($help){
#    print "\nclean [-h] \n\n";
#    print "This perl script cleans up a lot of the messy files left \n";
#    print "around after standard processing.  Only run clean after \n";
#    print "all analysis has been completed as some of the intermediate \n";
#    print "files can be tedious to recreate. \n";
#    print " \n";
#    print " clean \n";
#    exit(0);
#  }

  system "rm -f *-1obj*";
  system "rm -f *-1fc*";
  system "rm -f *-1ff*";
  system "rm -f *-1oc*";
  system "rm -f *-im1-*";
  system "rm -f *-2obj*";
  system "rm -f *-2fc*";
  system "rm -f *-2ff*";
  system "rm -f *-2oc*";
  system "rm -f *-im2-*";
  system "rm -f *-3obj*";
  system "rm -f *-3fc*";
  system "rm -f *-3ff*";
  system "rm -f *-3oc*";
  system "rm -f *-im3-*";
  system "rm -f *-4obj*";
  system "rm -f *-4fc*";
  system "rm -f *-4ff*";
  system "rm -f *-4oc*";
  system "rm -f *-im4-*";
  system "rm -f *-5obj*";
  system "rm -f *-5fc*";
  system "rm -f *-5ff*";
  system "rm -f *-5oc*";
  system "rm -f *-im5-*";
  system "rm -f *-6obj*";
  system "rm -f *-6fc*";
  system "rm -f *-6ff*";
  system "rm -f *-6oc*";
  system "rm -f *-im6-*";
  system "rm -f *-7obj*";
  system "rm -f *-7fc*";
  system "rm -f *-7ff*";
  system "rm -f *-7oc*";
  system "rm -f *-im7-*";
  system "rm -f binned*dat";
  system "rm -f *ccd1*";
  system "rm -f *back-im-det*";
  system "rm -f *prot-im-det*";
  system "rm -f *-bkgimage*";
  system "rm -f command.csh";
  system "rm -f *corn*";
  system "rm -f filtered.fits";
  system "rm -f *-ori.fits";
  system "rm -f detmap.ds";

  system "rm -f *-exp-im-h.fits";
  system "rm -f *-exp-im-s.fits";
  system "rm -f *-obj-im-h.fits";
  system "rm -f *-obj-im-h.fits";
  system "rm -f *-mask-im-h.fits";
  system "rm -f *-mask-im-h.fits";