use expire date as first argument

diff --git a/ferweb-import-report.pl b/ferweb-import-report.pl
index 89e58cf..2e7a889 100755 (executable)
--- a/ferweb-import-report.pl
+++ b/ferweb-import-report.pl
@@ -11,7 +11,7 @@ use XML::Simple;
 my $ferweb_csv = 'report_62836_1026_Aktivni_studenti.csv';
 my $dt = DateTime->now()->add( years => 1 );
 $dt->set( month => 10, day => 31 ); # next year, 31.10.
-my $new_dateexpiry = $dt->ymd;
+my $new_dateexpiry = $ARGV[0] || $dt->ymd;
 
 warn "# new_dateexpiry: $new_dateexpiry\n";