From: ivan <ivan>
Date: Fri, 22 Feb 2002 08:58:11 +0000 (+0000)
Subject: freeside *SUSPENDED* -> CP set_mailbox_status OTHER/OTHER_BOUNCE
X-Git-Tag: freeside_1_4_0pre11~15
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=1cd0fc70e60e5ecccb10e2bd4dae112a53dde330

freeside *SUSPENDED* -> CP set_mailbox_status OTHER/OTHER_BOUNCE
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 2a0c90445..314a7527b 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -840,12 +840,25 @@ sub cp_change {
                         #Debug    => 1,
                       ) or die "$@\n";
 
+  if ( $password =~ /^\*SUSPENDED\* (.*)$/ ) {
+    $password = $1;
+    $app->set_mailbox_status(
+                              Other => 'T',
+                              Other_Bounce => 'T',
+                            );
+  } else {
+    $app->set_mailbox_status(
+                              Other => 'F',
+                              Other_Bounce => 'F',
+                            );
+  }
+  die $app->message."\n" unless $app->ok;
+
   $app->change_mailbox(
                         Domain    => $mydomain,
                         Mailbox   => $username,
                         Password  => $password,
                       );
-
   die $app->message."\n" unless $app->ok;
 
 }