diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-11-09 12:56:57 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-11-09 12:56:57 +0000 |
| commit | 5a05c75078cd3dc8e6eb0ac9cb5e6548c3c8fe9f (patch) | |
| tree | 559506c22af32a05c4ac69401403229436caaa75 /lib/XXV/OUTPUT | |
| parent | e9c78e4454837aaddb13e108335efafd247bf905 (diff) | |
| download | xxv-5a05c75078cd3dc8e6eb0ac9cb5e6548c3c8fe9f.tar.gz xxv-5a05c75078cd3dc8e6eb0ac9cb5e6548c3c8fe9f.tar.bz2 | |
* Fix: Modification of a read-only value attempted at Tools.pm line 154
* RECORDS: Calc free recording capacity, now based on used file size
Diffstat (limited to 'lib/XXV/OUTPUT')
| -rw-r--r-- | lib/XXV/OUTPUT/NEWS/JABBER.pm | 8 | ||||
| -rw-r--r-- | lib/XXV/OUTPUT/NEWS/MAIL.pm | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/XXV/OUTPUT/NEWS/JABBER.pm b/lib/XXV/OUTPUT/NEWS/JABBER.pm index 09300a4..ca8061e 100644 --- a/lib/XXV/OUTPUT/NEWS/JABBER.pm +++ b/lib/XXV/OUTPUT/NEWS/JABBER.pm @@ -184,7 +184,7 @@ sub jconnect { my ($user, $server) = split('\@', $obj->{user}); - debug ("Connecting to jabber server: %s ...", $server); + debug sprintf("Connecting to jabber server: %s ...", $server); my @res = $jcon->Connect( hostname => $server, @@ -192,7 +192,7 @@ sub jconnect { return unless($obj->xmpp_check_result("Connect",\@res,$jcon)); - debug ("Authentificat with User:%s ...", $user); + debug sprintf("Authentificat with User:%s ...", $user); @res = $jcon->AuthSend( 'hostname'=>$server, @@ -285,12 +285,12 @@ sub xmpp_check_result { # result can be true or 'ok' if ((@$res == 1 && $$res[0]) || $$res[0] eq 'ok') { - return debug "%s: %s", $txt, $$res[0]; + return debug sprintf("%s: %s", $txt, $$res[0]); # otherwise, there is some error } else { my $errmsg = $cnx->GetErrorCode() || '?'; $cnx->Disconnect(); - return error("Error %s: %s [%s]", $txt, join (': ',@$res), $errmsg); + return error sprintf("Error %s: %s [%s]", $txt, join (': ',@$res), $errmsg); } } diff --git a/lib/XXV/OUTPUT/NEWS/MAIL.pm b/lib/XXV/OUTPUT/NEWS/MAIL.pm index 78089b6..ae3a1dd 100644 --- a/lib/XXV/OUTPUT/NEWS/MAIL.pm +++ b/lib/XXV/OUTPUT/NEWS/MAIL.pm @@ -218,7 +218,7 @@ sub send { subject => "News from your XXV System!" , msg => $content, msgid => $obj->{COUNT}, - ) || return error('Problem to send Mail: %s', $Mail::SendEasy::ER); + ) || return error sprintf('Problem to send mail: %s', $Mail::SendEasy::ER); $obj->{LastReportTime} = time; |