# mkDateCopy.pl copies specified file appending date to filename of copy.
# Useful for saving copies of log files, for instance.
# written 21-dec-2006 by fgb

use File::Copy;

my $sAppName = 'mkDateCopy';
my $sDateFmt = "";
my $sFileName = "";
my @months = ('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec');
my $sNewFileName = "";
my $sVersion = '1.0';

($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;

$sDateFmt = "$mday-@months[$mon]-$year";

if ($#ARGV+1) { 
  $sFileName = shift @ARGV;
  if ($sFileName =~ /^[-\/?].*/) { &usage(); exit; }
  }
else {
  &usage();
  exit;
  }

$sNewFileName = $sFileName . '_' . $sDateFmt;

copy($sFileName,$sNewFileName) or die "Can't copy $sFileName: $!";

print "Copied to $sNewFileName\n";

### all your sub belong to us:

sub usage
{
print "\n$sAppName $sVersion - copies file appending date to filename of copy\n";
print "usage: $sAppname filename\n";
}

__END__