connect as root

[ferlib2koha.git] / ferweb-import-report.pl

diff --git a/ferweb-import-report.pl b/ferweb-import-report.pl
index d8e2fac..2e7a889 100755 (executable)
--- a/ferweb-import-report.pl
+++ b/ferweb-import-report.pl
@@ -6,18 +6,22 @@ use Data::Dump qw/dump/;
 use Algorithm::CheckDigits;
 use Text::Unaccent;
 use DateTime;
+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";
 
 die "$ferweb_csv : $!" unless -r $ferweb_csv;
 
+my $koha_conf = XMLin('/etc/koha/sites/fer/koha-conf.xml');
+
 my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8', csv_sep_char => ';' }) || die $dbi::errstr;
-my $k = DBI->connect("dbi:mysql:database=koha_fer","","", { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
+my $k = DBI->connect("dbi:mysql:database=" . $koha_conf->{config}->{database}, $koha_conf->{config}->{user}, $koha_conf->{config}->{pass},
+ { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
 
 my $ferweb_table = $ferweb_csv;
 $ferweb_table =~ s/\.csv//i;