projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ce4d2cc
)
don't leak perl line numbers on cp provisioning errors
author
ivan
<ivan>
Fri, 22 Feb 2002 06:23:44 +0000
(06:23 +0000)
committer
ivan
<ivan>
Fri, 22 Feb 2002 06:23:44 +0000
(06:23 +0000)
FS/FS/svc_acct.pm
patch
|
blob
|
history
diff --git
a/FS/FS/svc_acct.pm
b/FS/FS/svc_acct.pm
index
20db38b
..
2a0c904
100644
(file)
--- a/
FS/FS/svc_acct.pm
+++ b/
FS/FS/svc_acct.pm
@@
-396,7
+396,7
@@
sub cp_insert {
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die
$@
;
+ ) or die
"$@\n"
;
$app->create_mailbox(
Mailbox => $username,
$app->create_mailbox(
Mailbox => $username,
@@
-405,7
+405,7
@@
sub cp_insert {
Domain => $mydomain,
);
Domain => $mydomain,
);
- die $app->message unless $app->ok;
+ die $app->message
."\n"
unless $app->ok;
}
sub icradius_rc_insert {
}
sub icradius_rc_insert {
@@
-637,14
+637,14
@@
sub cp_delete {
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die
$@
;
+ ) or die
"$@\n"
;
$app->delete_mailbox(
Mailbox => $username,
Domain => $mydomain,
);
$app->delete_mailbox(
Mailbox => $username,
Domain => $mydomain,
);
- die $app->message unless $app->ok;
+ die $app->message
."\n"
unless $app->ok;
}
sub icradius_rc_delete {
}
sub icradius_rc_delete {
@@
-817,7
+817,7
@@
sub cp_rename {
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die
$@
;
+ ) or die
"$@\n"
;
$app->rename_mailbox(
Domain => $mydomain,
$app->rename_mailbox(
Domain => $mydomain,
@@
-825,7
+825,7
@@
sub cp_rename {
New_Mailbox => $new_username,
);
New_Mailbox => $new_username,
);
- die $app->message unless $app->ok;
+ die $app->message
."\n"
unless $app->ok;
}
}
@@
-838,7
+838,7
@@
sub cp_change {
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die
$@
;
+ ) or die
"$@\n"
;
$app->change_mailbox(
Domain => $mydomain,
$app->change_mailbox(
Domain => $mydomain,
@@
-846,7
+846,7
@@
sub cp_change {
Password => $password,
);
Password => $password,
);
- die $app->message unless $app->ok;
+ die $app->message
."\n"
unless $app->ok;
}
}