-our $sock = IO::Socket::INET->new( '10.60.0.251:6001' );
-
-
-sub sip2 {
- my ( $send, $patt ) = @_;
- SIP2::dump_message '>>>>', $send;
- print $sock "$send\r\n";
- $sock->flush;
-
-# local $/ = "\r";
-
- my $in = <$sock>;
- SIP2::dump_message '<<<<', $in;
- die "expected $patt" unless $in =~ $patt;
-}