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

(-)a/C4/SIP/Sip.pm (-19 / +13 lines)
Lines 16-39 use IO::Handle; Link Here
16
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
16
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
17
use C4::SIP::Sip::Checksum qw(checksum);
17
use C4::SIP::Sip::Checksum qw(checksum);
18
18
19
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
19
use base qw(Exporter);
20
20
21
BEGIN {
21
our @EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
22
	@ISA = qw(Exporter);
22
    denied sipbool boolspace write_msg get_timeout
23
23
    $error_detection $protocol_version $field_delimiter
24
	@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
24
    $last_response);
25
            denied sipbool boolspace write_msg get_timeout
25
26
		    $error_detection $protocol_version $field_delimiter
26
our %EXPORT_TAGS = (
27
		    $last_response);
27
    all => [qw(y_or_n timestamp add_field maybe_add
28
28
        add_count denied sipbool boolspace write_msg
29
	%EXPORT_TAGS = (
29
        get_timeout
30
		    all => [qw(y_or_n timestamp add_field maybe_add
30
        $error_detection $protocol_version
31
			       add_count denied sipbool boolspace write_msg
31
        $field_delimiter $last_response)]);
32
                   get_timeout
33
			       $error_detection $protocol_version
34
			       $field_delimiter $last_response)]);
35
}
36
37
32
38
our $error_detection = 0;
33
our $error_detection = 0;
39
our $protocol_version = 1;
34
our $protocol_version = 1;
40
- 

Return to bug 15006