#!/usr/bin/perl -w

use strict;
use utf8;
use warnings;

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

use Cf qw($DENIC_ID $DENIC_WEB_PASSWORD $WDESCR);
use Compress::Zlib ();
use Dbase::Getopt qw(:DEFAULT);
use Umlaut qw(binmodus);
use WWW::Mechanize ();

( @ARGV = GetOptions() ) == 1 or die "USAGE: $0 <listname>\n";

my $listname = shift;

my %login_data = ( user => $WDESCR, pass => $DENIC_WEB_PASSWORD );

my $mech = WWW::Mechanize->new( autocheck => 1 );

$mech->get('https://member.secure.denic.de/');

# $mech->form_with_fields( keys %login_data );
$mech->submit_form( fields => \%login_data );

$mech->follow_link( text => 'Accounting' );

$mech->follow_link( text => "NIC-$DENIC_ID-$listname.txt.gz" );

binmodus( \*STDOUT );
print Compress::Zlib::memGunzip( $mech->content );

__END__

=head1 NAME

denic_member_GET - Listen von DENIC-Mitglieder-Website holen

=head1 SYNOPSE

    denic_member_GET DOMAINS

=head1 BESCHREIBUNG

Das Programm holt die angegebene Liste von der DENIC-Mitglieder-Website
und gibt sie entpackt aus.
Die Kodierung bleibt dabei so, wie von der DENIC übermittelt, also
grundsätzlich UTF-8.
