ferweb-import-report.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBI;
   5 use Data::Dump qw/dump/;
   6 use Algorithm::CheckDigits;
   7 use Text::Unaccent;
   8
   9 my $ferweb_csv = 'report_62836_1026_Aktivni_studenti.csv';
  10
  11 die "$ferweb_csv : $!" unless -r $ferweb_csv;
  12
  13 my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8', csv_sep_char => ';' }) || die $dbi::errstr;
  14 my $k = DBI->connect("dbi:mysql:database=koha_fer","","", { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) || die $DBI::errstr;
  15
  16 my $ferweb_table = $ferweb_csv;
  17 $ferweb_table =~ s/\.csv//i;
  18
  19 my $s = $c->prepare(qq{
  20 select * from $ferweb_table
  21 });
  22 $s->execute;
  23
  24 my $user_exists = $k->prepare(qq{
  25 select * from borrowers where cardnumber = ?
  26 });
  27
  28 my $insert_user = $k->prepare(qq{
  29 insert into borrowers
  30 (cardnumber, categorycode, userid, firstname, surname, branchcode, email, dateexpiry)
  31 values
  32 (?,'S',?,?,?,'SRE',?,'2021-12-13')
  33 });
  34
  35 my $stat;
  36
  37 while( my $row = $s->fetchrow_hashref ) {
  38
  39 #       warn "# row = ",dump($row),$/;
  40
  41         $user_exists->execute( 'S' . $row->{jmbag} );
  42
  43         if ( $user_exists->rows ) {
  44 #               warn "EXISTS: ",dump($row);
  45                 print "#";
  46                 $stat->{exists}++;
  47         } else {
  48                 warn "NEW: ",dump($row);
  49 #               $insert_user->execute( 'S' . $row->{jmbag}, $user->{nick}, $user->{first_name}, $user->{last_name}, $user->{email} );
  50                 $stat->{new}++;
  51         }
  52
  53         print join(" "
  54                 , $row->{jmbag}
  55                 , $row->{nick}
  56                 , $row->{email}
  57         ),$/;
  58
  59 }
  60
  61 #$k->commit;
  62
  63 warn dump( $stat );