confixx - viele e-mail-adressen anlegen

[seth]

gudn tach!

ok, also koennte ich mir was basteln (in perl via LWP::UserAgent oder so), was eben das, was ich von hand machen wuerde, automatisiert. allerdings wuerde ich dafuer vermutlich nicht weniger als eine halbe stunde brauchen.

richtig. es hat laenger als 30 min. gedauert; war aber trotzdem eigentlich gar nicht schwer. zumindest hat alles geklappt. ob der code so allerdings sauber ist, oder ob ich eigentlich was falsch gemacht habe, weiss ich nicht und frage deswegen euch.

  
#!/usr/bin/perl -w  
use HTTP::Cookies;  
use LWP;  
use strict;  
  
my $browser      = LWP::UserAgent->new;  
my $cookie_jar   = HTTP::Cookies->new;  
my $confixx_user = 'webxy';  
my $confixx_pw   = 'god';  
my $confixx_url  = 'http://confixxpath.example.org';  
my $email_domain = 'irgendwas.example.org';  
my $email_pop3   = 'postfachname';  
my @e_mail_address_prefixes = (  
'webmaster',  
'postmaster',  
'prostmaster'  
);  
  
# einloggen  
my $url = $confixx_url.'/login.php';  
my $response = $browser->post($url, [  
 'username' => $confixx_user,  
 'password' => $confixx_pw  
]);  
$cookie_jar->extract_cookies($response);  
  
# e-mail-adresse anlegen  
$url = $confixx_url.'/user/'.$confixx_user.'/email_email_anlegen.php';  
$browser->cookie_jar($cookie_jar);  
for(@e_mail_address_prefixes){  
 $response = $browser->post($url, [  
  'prefix'   => $_,  
  'domain'   => $email_domain,  
  'type'     => '1',  
  'pop3'     => $email_pop3,  
  'forward'  => '',  
  'cur_page' => 'email_email.php',  
  'action'   => 'new'  
 ]);  
 die "$url error: ", $response->status_line unless $response->is_success;  
}  
  
#ausloggen  
$url = $confixx_url.'/logout.php';  
$response = $browser->get($url, 'user' => $confixx_user);

prost
seth