18 my $patron_identifier;
24 "a|address|host|hostaddress=s" => \$host, # sip server ip
25 "p|port=s" => \$port, # sip server port
26 "su|sip_user=s" => \$login_user_id, # sip user
27 "sp|sip_pass=s" => \$login_password, # sip password
28 "l|location|location_code=s" => \$location_code, # sip location code
30 "patron=s" => \$patron_identifier, # patron cardnumber or login
31 "password=s" => \$patron_password, # patron's password
33 "t|terminator=s" => \$terminator,
43 || !$patron_identifier
44 || !$patron_password )
50 $terminator = ( $terminator eq 'CR' ) ? $CR : $CRLF;
52 my ( $sec, $min, $hour, $day, $month, $year ) = localtime(time);
54 my $transaction_date = "$year$month$day $hour$min$sec";
56 my $institution_id = $location_code;
57 my $terminal_password = $login_password;
59 my $socket = IO::Socket::INET->new("$host:$port")
60 or die "ERROR in Socket Creation host=$host port=$port : $!\n";
62 my $login_command = "9300CN$login_user_id|CO$login_password|CP$location_code|";
64 print "\nOUTBOUND: $login_command\n";
65 print $socket $login_command . $terminator;
69 print "\nINBOUND: $data\n";
71 if ( $data =~ '^941' ) { ## we are logged in
73 ## Patron Status Request
74 print "\nTrying 'Patron Status Request'\n";
75 my $patron_status_request = "23001"
77 . "AO" . $institution_id
78 . "|AA" . $patron_identifier
79 . "|AC" . $terminal_password
80 . "|AD" . $patron_password;
82 print "\nOUTBOUND: $patron_status_request\n";
83 print $socket $patron_status_request . $terminator;
87 print "\nINBOUND: $data\n";
90 print "\nTrying 'Patron Information'\n";
92 $patron_status_request = "63001"
95 . "AO" . $institution_id
96 . "|AA" . $patron_identifier
97 . "|AC" . $terminal_password
98 . "|AD" . $patron_password;
100 print "\nOUTBOUND: $patron_status_request\n";
101 print $socket $patron_status_request . $terminator;
105 print "\nINBOUND: $data\n";
109 print "\nLogin Failed!\n";
115 sip_cli_emulator.pl - SIP command line emulator
118 sip_cli_emulator.pl --address localhost -port 6001 --sip_user myuser --sip_pass mypass --location MYLOCATION --patron 70000003 --password Patr0nP@ssword
121 --help brief help message
123 -a --address SIP server ip address or host name
124 -p --port SIP server port
126 -su --sip_user SIP server login username
127 -sp --sip_pass SIP server login password
129 -l --location SIP location code
131 --patron ILS patron cardnumber or username
132 --password ILS patron password
134 -t --terminator Specifies the SIP2 message terminator, either CR, or CRLF ( defaults to CRLF )
136 sip_cli_emulator.pl will make requests for information about the given user from the given server via SIP2.