From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 16 Dec 2009 23:49:11 +0000 (+0100)
Subject: leave only dump_message
X-Git-Url: http://git.rot13.org/?p=Biblio-SIP2.git;a=commitdiff_plain;h=07c3663b2f7bf1c3d7bfb2c37b4b0bbdb5e89df8;hp=91709bec136f42d102ebf39cf6dd51e7fcfb22b9

leave only dump_message
---

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 ( <DATA> ) {
 	my ($code,$description) = split(/\t/,$_,2);
 	$message_codes->{$code} = $description;
@@ -17,27 +10,12 @@ foreach ( <DATA> ) {
 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;