projects
/
Biblio-SIP2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
show IP address that connects from correct socket
[Biblio-SIP2.git]
/
sc-emulator.pl
diff --git
a/sc-emulator.pl
b/sc-emulator.pl
index
8a1b32d
..
319bdf5
100755
(executable)
--- a/
sc-emulator.pl
+++ b/
sc-emulator.pl
@@
-6,7
+6,7
@@
use strict;
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
our $patron = 200000000042;
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
our $patron = 200000000042;
-our $barcode = 130
1132799
;
+our $barcode = 130
2029710
;
our $loc = 'FFZG';
require 'config.pl' if -e 'config.pl';
our $loc = 'FFZG';
require 'config.pl' if -e 'config.pl';
@@
-14,7
+14,7
@@
require 'config.pl' if -e 'config.pl';
use lib 'lib';
use SIP2::SC;
use lib 'lib';
use SIP2::SC;
-my $sc = SIP2::SC->new( '10.60.0.251:6001' );
+my $sc = SIP2::SC->new(
$ENV{ACS} ||
'10.60.0.251:6001' );
# login
$sc->message("9300CN$user|CO$password|");
# login
$sc->message("9300CN$user|CO$password|");