summaryrefslogtreecommitdiff
path: root/FS/FS/part_export/cp.pm
diff options
context:
space:
mode:
authorivan <ivan>2002-04-14 09:11:22 +0000
committerivan <ivan>2002-04-14 09:11:22 +0000
commit9bf26ed4b065b12826fc2980ff277a2f3be25c1d (patch)
tree2acd481bd43ed5899e33496fbe8f4da8252d6118 /FS/FS/part_export/cp.pm
parent38616a70ddf2b60925af53b605a4ea40a1c51e09 (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.pm21
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',