#!/usr/bin/perl -w

use strict;
use warnings;

use File::Copy;
use Ernad::Erimp;

print "This is obsolete post-Osborne, contact Thomas.";
exit;

## give the impna
my $impna=$ARGV[0] // '';
if(not $impna) {
  die "I don't have an impna parameter, try 'nep'.";
}
my $e=Ernad::Erimp->new({'impna'=>$impna});

my $date=`date -I`;
chomp $date;

my $file=$e->{'file'}->{'reports'};
my $ext=$e->{'const'}->{'rif_ext'};

my $backup_file=$file;
$backup_file=~s|\Q$ext\E$|_$date$ext|;
print "$file $backup_file\n";
copy($file,$backup_file) or die;