From 07c3663b2f7bf1c3d7bfb2c37b4b0bbdb5e89df8 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 17 Dec 2009 00:49:11 +0100 Subject: [PATCH 1/1] leave only dump_message --- lib/SIP2.pm | 26 ++------------------------ 1 file changed, 2 insertions(+), 24 deletions(-) diff --git a/lib/SIP2.pm b/lib/SIP2.pm index e5ec9bd..a2a7cc4 100644 --- a/lib/SIP2.pm +++ b/lib/SIP2.pm @@ -2,14 +2,7 @@ package SIP2; use Data::Dump qw(); -our $sock; - -sub connect { - $sock = IO::Socket::INET->new( @_ ) || die "can't connect to ", dump(@_), ": $!"; -} - - -my $message_codes; +our $message_codes; foreach ( ) { my ($code,$description) = split(/\t/,$_,2); $message_codes->{$code} = $description; @@ -17,27 +10,12 @@ foreach ( ) { warn "# message_codes ", Data::Dump::dump $message_codes; sub dump_message { - my ( $prefix, $message ) = @_; + my ( $self, $prefix, $message ) = @_; my $code = substr($message,0,2); warn $prefix, " ", $message_codes->{$code}, Data::Dump::dump($message), "\n"; } -sub send { - my ( $send ) = @_; - SIP2::dump_message '>>>>', $send; - print $sock "$send\r\n"; - $sock->flush; - -# local $/ = "\r"; - - my $expect = substr($send,0,2) | 0x01; - - my $in = <$sock>; - SIP2::dump_message '<<<<', $in; - die "expected $expect" unless substr($in,0,2) != $expect; -} - 1; -- 2.20.1