#!/usr/bin/perl -w

use utf8;
use strict;
use warnings;

my $pop;

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

use Dbase::Globals qw(find_descr find_dienst);
use File::Spec ();

my @options;

for (@ARGV) {
    if (/^--?h(?:elp)?\z/) {
        print <<_; exit }

USAGE: $0 [-n] [-v] [><i>] <TLD>* {^<TLD>}*

Gibt eine Liste aller in der Datenbank eingetragenen noch aktiven Domains aus,
deren Status nicht "unregistriert" ist.

Die Liste kann auf bestimmte TLDs beschränkt werden, indem diese als Argumente
übergeben werden.

Durch Argumente mit vorangestelltem "^" können bestimmte Domains ausgenommen
werden.

Durch Angabe eines Bindestrichs gefolgt von einer positiven Zahl kann die
Selektion auf solche Domains eingeschränkt werden, deren Beginn in der
Datenbank mindestens entsprechend viele Tage zurückliegt.

Beispiele:

$0 -nv ag it
	zeige nur .ag- und .it-Domains in einem menschenfreundlichen Format an

$0 -90 ^de ^com ^net ^org ^biz ^info
	zeige alle ccTLD-Domains (außer .de-Domains) an,
	die bereits seit mindestens 90 Tagen registriert sind

_
    elsif (/^-(\d+)\z/) { push @options, '-min-days' => 1 }
    elsif (/^-/)        { die "Unbekannte Option: $_\n" }
    else                { push @options, '-tld'      => $_ }
}

exec File::Spec->catfile(
    $pop,
    bin => 'gen.domain' ),
    -template =>
     '/usr/share/doc/kunde/examples/templates/gen.domain/show_domains',
    @options;
