#!/opt/bin/perl

BEGIN {
   $| = 1;
   print "starting up...";
}

use dinfo;

$ENV{HOME} = "/root";

my $dinfo = new dinfo "DBI:mysql:dinfo;mysql_read_default_group=client";

$| = 1;

for(;;) {
   print "\n#> ";
   my $nummer = <>;
   defined $nummer or last;
   my $row = $dinfo->identify_number($nummer);

   for (values %$row) {
      s/#+/ /g;
   }

   my $prefix = $row->{match} eq "exact" ? "== " : "?? ";

   print "$prefix\n",
         "$prefix$row->{match} match:\n",
         "$prefix\n",
         "$prefix$row->{name}, $row->{vorname}\n";
   print "$prefix$row->{zusatz1}\n" if $row->{zusatz1};
   print "$prefix$row->{zusatz2}\n" if $row->{zusatz2};
   print "$prefix$row->{zusatz3}\n" if $row->{zusatz3};
   print "$prefix$row->{strasse} $row->{hausnr}\n",
         "$prefix\D-$row->{plz} $row->{ort}\n",
         "$prefix+49 $row->{vorwahl} $row->{nummer} $row->{typ}\n",
         "$prefix\n",
         "$prefix$row->{branche}\n",

   #while (my ($k, $v) = each %$row) {
   #   printf "%-20s %s\n", "$k:", $v;
   #}
}