#!/usr/bin/perl -w

use utf8;
use strict;
use warnings;

BEGIN {
    unshift @INC, ( $ENV{POPHOME} || '@POPHOME@' ) . '/lib'
      unless $ENV{KUNDE_NO_PERLPATH};
}

use Dbase::Getopt qw(:DEFAULT);
use Dbase::Help qw(DoSelect);
use Fehler qw(probleme warnungen);
use Loader qw(valid_steuernr);

GetOptions();

$| = 1;
DoSelect {
    my ( $kunde_name, $steuernr ) = @_;
    print "$kunde_name ($steuernr): ";
    if ( valid_steuernr($steuernr) ) { print 'OK' }
    else {
	    my $message;
        warnungen { $message = shift };
        probleme  { $message = shift };
		die "Programmfehler!\n" unless defined $message;
		$message =~ s/\n.*//s;
		print $message;
    }
	print "\n";
}
<<_
	SELECT   name, steuernr
	FROM     kunde
	WHERE    ( ende IS NULL OR ende >= UNIX_TIMESTAMP(NOW()) )
	     AND steuernr IS NOT NULL
	ORDER BY name
_

__END__

=encoding utf8

=head1 NAME

pruefe_ustids - überprüfe USt-ID-Nrn. aus der Datenbank

=head1 BESCHREIBUNG

Das Programm überprüft die Gültigkeit aller in der Datenbank bei aktiven
Kunden eingetragenen USt-ID-Nrn und gibt einen Report aus.

=head1 OPTIONEN

=over 4

=item -help

=item -?

um (nur) diese Dokumentation anzeigen zu lassen

=back

