|
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 |
- |
|
|