View | Details | Raw Unified | Return to bug 6620
Collapse All | Expand All

(-)a/C4/SIP/Sip.pm (-2 / +4 lines)
Lines 12-17 use Exporter; Link Here
12
use Sys::Syslog qw(syslog);
12
use Sys::Syslog qw(syslog);
13
use POSIX qw(strftime);
13
use POSIX qw(strftime);
14
use Socket qw(:crlf);
14
use Socket qw(:crlf);
15
use IO::Handle;
15
16
16
use Sip::Constants qw(SIP_DATETIME);
17
use Sip::Constants qw(SIP_DATETIME);
17
use Sip::Checksum qw(checksum);
18
use Sip::Checksum qw(checksum);
Lines 230-238 sub write_msg { Link Here
230
231
231
232
232
    if ($file) {
233
    if ($file) {
234
        $file->autoflush(1);
233
        print $file "$msg\r";
235
        print $file "$msg\r";
234
    } else {
236
    } else {
235
        print "$msg\r";
237
        STDOUT->autoflush(1);
238
        print $msg, "\r";
236
        syslog("LOG_INFO", "OUTPUT MSG: '$msg'");
239
        syslog("LOG_INFO", "OUTPUT MSG: '$msg'");
237
    }
240
    }
238
241
239
- 

Return to bug 6620