diff options
author | ivan <ivan> | 2003-06-25 08:40:20 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-06-25 08:40:20 +0000 |
commit | 6ea99c2561e6c87310194097e88ddf1cf089c868 (patch) | |
tree | 3d862c59072c040c300ba31d144a664b3ea10a7f /FS/FS/part_export/cp.pm | |
parent | c550b6ea1846f933dd130fc690777ad89f55012d (diff) |
svc_acct doc update
cp export - disable old-style suspending
Diffstat (limited to 'FS/FS/part_export/cp.pm')
-rw-r--r-- | FS/FS/part_export/cp.pm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/FS/FS/part_export/cp.pm b/FS/FS/part_export/cp.pm index ee5f542..c4750dd 100644 --- a/FS/FS/part_export/cp.pm +++ b/FS/FS/part_export/cp.pm @@ -91,20 +91,22 @@ sub cp_command { #subroutine, not method ); } - my $other = 'F'; + #my $other = 'F'; if ( $new_password =~ /^\*SUSPENDED\* (.*)$/ ) { $new_password = $1; - $other = 'T'; + # $other = 'T'; } - cp_command($host, $port, $username, $password, 'set_mailbox_status', - Domain => $domain, - Mailbox => $new_username, - Other => $other, - Other_Bounce => $other, - ); + #cp_command($host, $port, $username, $password, $login_domain, + # 'set_mailbox_status', + # Domain => $domain, + # Mailbox => $new_username, + # Other => $other, + # Other_Bounce => $other, + #); if ( $old_password ne $new_password ) { - cp_command($host, $port, $username, $password, 'change_mailbox', + cp_command($host, $port, $username, $password, $login_domain, + 'change_mailbox', Domain => $domain, Mailbox => $new_username, Password => $new_password, |