sc-emulator.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use IO::Socket::INET;
   7 use autodie;
   8
   9 our $user     = 'sip2-user';
  10 our $password = 'sip2-paasswd';
  11
  12 require 'config.pl' if -e 'config.pl';
  13
  14 our $sock = IO::Socket::INET->new( '10.60.0.251:6001' );
  15
  16 sub sip2 {
  17         my ( $send, $patt ) = @_;
  18         warn ">>>> $send";
  19         print $sock $send;
  20
  21         my $in = <$sock>;
  22         warn "<<<< $in";
  23         die unless $in =~ $patt;
  24 }
  25
  26 sip2 "9300CN$user|CO$password|\n" => qr/^941/;
  27