#!/usr/bin/perl -w

use utf8;
use strict;
use warnings;

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

use Cf qw($SWITCH_USER $SWITCH_PASSWORD);
use Umlaut qw(utf8modus);
use WWW::Mechanize ();

my $agent = WWW::Mechanize->new or die;
$agent->get('https://www.nic.ch');
$agent->submit_form(
    form_name => 'LoginForm',
    fields    => { login => $SWITCH_USER, password => $SWITCH_PASSWORD }
);
$agent->submit_form( form_name => 'OwnDomainForm', button => 'do_export' );
$agent->submit_form( form_name => 'ExportForm',    button => 'do_forward' );

utf8modus(\*STDOUT);
print $agent->content;
