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 $barcode  = 1301132799;
+our $barcode  = 1302029710;
 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;
 
-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|");