diff options
author | ivan <ivan> | 2002-04-14 09:11:22 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-04-14 09:11:22 +0000 |
commit | 9bf26ed4b065b12826fc2980ff277a2f3be25c1d (patch) | |
tree | 2acd481bd43ed5899e33496fbe8f4da8252d6118 /FS/FS/part_export/cp.pm | |
parent | 38616a70ddf2b60925af53b605a4ea40a1c51e09 (diff) |
- move cyrus, shellcommands, CP exports exports to new-style
- skeleton files for vpopmail exports
- documentation updates
- add big schema diagram to docs
Diffstat (limited to 'FS/FS/part_export/cp.pm')
-rw-r--r-- | FS/FS/part_export/cp.pm | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/FS/FS/part_export/cp.pm b/FS/FS/part_export/cp.pm index 58ac85e..d998c1d 100644 --- a/FS/FS/part_export/cp.pm +++ b/FS/FS/part_export/cp.pm @@ -69,22 +69,17 @@ sub cp_command { #subroutine, not method ); } + my $other = 'F'; if ( $new_password =~ /^\*SUSPENDED\* (.*)$/ ) { $new_password = $1; - cp_command($host, $port, $username, $password, 'set_mailbox_status', - Domain => $domain, - Mailbox => $new_username, - Other => 'T', - Other_Bounce => 'T', - ); - } else { - cp_command($host, $port, $username, $password, 'set_mailbox_status', - Domain => $domain, - Mailbox => $new_username, - Other => 'F', - Other_Bounce => 'F', - ); + $other = 'T'; } + cp_command($host, $port, $username, $password, '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', |