#!/usr/bin/perl -w

use utf8;
use strict;
use warnings;

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

use Dbase::Globals qw(find_descr puny_encode);
use Dbase::Help qw(:readonly DoFn qquote);

use Umlaut qw(utf8modus);
utf8modus(\*STDIN);

my $domainstatus_unregistriert =
  find_descr( domainstatus => unregistriert => 1 );

while (<>) {
    s/#.*//;
    my ( $domain, $seit ) = split or next;
    $domain = puny_encode( $domain, 0 );
    print unless DoFn(<<_);
	SELECT  COUNT(*)
        FROM    domainkunde
        WHERE   domain = ${\ qquote($domain) }
            AND status != $domainstatus_unregistriert
            AND ( ende IS NULL OR ende >= UNIX_TIMESTAMP(NOW()) )
_
}

__END__

=head1 NAME

find_missing_domains - finde Domains, die in der Datenbank fehlen

=head1 BESCHREIBUNG

Das Tool erwartet auf der Standardeingabe eine Liste mit einem Domainnamen pro
Zeile (optional gefolgt von weiteren durch Whitespace getrennten Werten) und
gibt davon diejenigen Domains bzw. Zeilen wieder aus, die I<nicht> als aktive
Domains in der Datenbank stehen.

Als Input kann man z. B. eine C<DOMAINS>-Liste von C<member.secure.denic.de>
verwenden.

=cut

