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

(-)a/C4/SIP/Sip.pm (-17 / +12 lines)
Lines 16-37 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
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
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
        $error_detection $protocol_version
30
		    all => [qw(y_or_n timestamp add_field maybe_add
30
        $field_delimiter $last_response)]);
31
			       add_count denied sipbool boolspace write_msg
32
			       $error_detection $protocol_version
33
			       $field_delimiter $last_response)]);
34
}
35
31
36
our $error_detection = 0;
32
our $error_detection = 0;
37
our $protocol_version = 1;
33
our $protocol_version = 1;
38
- 

Return to bug 15006