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{
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}
+ ),$/;
}