user FERWeb to fetch user data

diff --git a/isvu-import.pl b/isvu-import.pl
index 44defc4..b5ad116 100755 (executable)
--- a/isvu-import.pl
+++ b/isvu-import.pl
@@ -6,6 +6,10 @@ use Data::Dump qw/dump/;
 use Algorithm::CheckDigits;
 use Text::Unaccent;
 
+use lib 'lib';
+use FERWeb;
+
+my $f = FERWeb->new;
 my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8' }) || die $dbi::errstr;
 
 my $s = $c->prepare(qq{
@@ -15,17 +19,15 @@ $s->execute;
 
 while( my $row = $s->fetchrow_hashref ) {
 
-       my $nick = sprintf '%s%s%s'
-               , substr($row->{ime},0,1)
-               , substr($row->{prezime},0,1)
-               , $row->{jmbag} =~ m/^0036/
-                       ? substr($row->{jmbag},4,-1)
-                       : substr($row->{jmbag},0,-1)
-       ;
+       warn "# row = ",dump($row),$/;
+
+       my $user = $f->getinfobycode( $row->{jmbag} );
 
-       $nick = lc unac_string('utf-8', $nick);
+       warn "# user = ", dump($user), $/;
 
-       print "$nick ", $row->{jmbag},$/;
-       
-       warn "# $nick row = ",dump($row),$/;
+       print join(" "
+               , $row->{jmbag}
+               , $user->{nick}
+               , $user->{email}
+       ),$/;
 }