Bugzilla – Attachment 18268 Details for
Bug 9288
Add a script to test SIP from the command line
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 9288 - Add a script to test SIP from the command line
0001-Bug-9288-Add-a-script-to-test-SIP-from-the-command-l.patch (text/plain), 4.08 KB, created by
Adrien SAURAT
on 2013-05-21 14:52:09 UTC
(
hide
)
Description:
Bug 9288 - Add a script to test SIP from the command line
Filename:
MIME Type:
Creator:
Adrien SAURAT
Created:
2013-05-21 14:52:09 UTC
Size:
4.08 KB
patch
obsolete
>From e97b6ee9542acfd15a30b73c56729991e93e382b Mon Sep 17 00:00:00 2001 >From: Kyle M Hall <kyle@bywatersolutions.com> >Date: Fri, 14 Dec 2012 11:56:36 -0500 >Subject: [PATCH] Bug 9288 - Add a script to test SIP from the command line > >This is a very basic start to a sip server testing script. >I imagine we will want to make it interactive in end, >essentially replicating what a SIP based self-checkout machine does. > >Signed-off-by: Adrien Saurat <adrien.saurat@biblibre.com> >--- > misc/sip_cli_emulator.pl | 129 ++++++++++++++++++++++++++++++++++++++++++++++ > 1 file changed, 129 insertions(+) > create mode 100755 misc/sip_cli_emulator.pl > >diff --git a/misc/sip_cli_emulator.pl b/misc/sip_cli_emulator.pl >new file mode 100755 >index 0000000..6b311d2 >--- /dev/null >+++ b/misc/sip_cli_emulator.pl >@@ -0,0 +1,129 @@ >+#!/usr/bin/perl >+ >+use IO::Socket::INET; >+use Getopt::Long; >+ >+my $help = 0; >+ >+my $host; >+my $port = '6001'; >+ >+my $login_user_id; >+my $login_password; >+my $location_code; >+ >+my $patron_identifier; >+my $patron_password; >+ >+GetOptions( >+ "a|address|host|hostaddress=s" => \$host, # sip server ip >+ "p|port=s" => \$port, # sip server port >+ "su|sip_user=s" => \$login_user_id, # sip user >+ "sp|sip_pass=s" => \$login_password, # sip password >+ "l|location|location_code=s" => \$location_code, # sip location code >+ >+ "patron=s" => \$patron_identifier, # patron cardnumber or login >+ "password=s" => \$patron_password, # patron's password >+ >+ 'h|help|?' => \$help >+); >+ >+if ( $help >+ || !$host >+ || !$login_user_id >+ || !$login_password >+ || !$location_code >+ || !$patron_identifier >+ || !$patron_password ) >+{ >+ print help(); >+ exit(); >+} >+ >+my ( $sec, $min, $hour, $day, $month, $year ) = localtime(time); >+$year += 1900; >+my $transaction_date = "$year$month$day $hour$min$sec"; >+ >+my $institution_id = $location_code; >+my $terminal_password = $login_password; >+ >+$socket = IO::Socket::INET->new("$host:$port") >+ or die "ERROR in Socket Creation host=$host port=$port : $!\n"; >+ >+my $login_command = "9300CN$login_user_id|CO$login_password|CP$location_code|"; >+ >+print "\nOUTBOUND: $login_command\n"; >+print $socket $login_command . "\r"; >+ >+$data = <$socket>; >+ >+print "\nINBOUND: $data\n"; >+ >+if ( $data =~ '^941' ) { ## we are logged in >+ >+ ## Patron Status Request >+ print "\nTrying 'Patron Status Request'\n"; >+ my $patron_status_request = "23001" >+ . $transaction_date >+ . "AO" . $institution_id >+ . "|AA" . $patron_identifier >+ . "|AC" . $terminal_password >+ . "|AD" . $patron_password; >+ >+ print "\nOUTBOUND: $patron_status_request\n"; >+ print $socket $patron_status_request . "\r"; >+ >+ $data = <$socket>; >+ >+ print "\nINBOUND: $data\n"; >+ >+ ## Patron Information >+ print "\nTrying 'Patron Information'\n"; >+ my $summary = " "; >+ my $patron_status_request = "63001" >+ . $transaction_date >+ . $summary >+ . "AO" . $institution_id >+ . "|AA" . $patron_identifier >+ . "|AC" . $terminal_password >+ . "|AD" . $patron_password; >+ >+ print "\nOUTBOUND: $patron_status_request\n"; >+ print $socket $patron_status_request . "\r"; >+ >+ $data = <$socket>; >+ >+ print "\nINBOUND: $data\n"; >+ >+} >+else { >+ print "\nLogin Failed!\n"; >+} >+ >+sub help() { >+ print >+q/ >+sip_cli_emulator.pl - SIP command line emulator >+ >+ Usage: >+ sip_cli_emulator.pl --address localhost -port 6001 --sip_user myuser --sip_pass mypass --location MYLOCATION --patron 70000003 --password Patr0nP@ssword >+ >+ Options: >+ --help brief help message >+ >+ -a --address SIP server ip address or host name >+ -p --port SIP server port >+ >+ -su --sip_user SIP server login username >+ -sp --sip_pass SIP server login password >+ >+ -l --location SIP location code >+ >+ --patron ILS patron cardnumber or username >+ --password ILS patron password >+ >+sip_cli_emulator.pl will make requests for information about the given user from the given server via SIP2. >+ >+/ >+ >+} >-- >1.7.9.5 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 9288
:
14146
|
14147
|
14148
|
14149
|
14150
|
14635
|
14640
|
18203
|
18268
|
19106
|
19476
|
21278
|
22286
|
22443
|
22444
|
22445
|
22446
|
23873