configure server with ACS enviroment variable

[Biblio-SIP2.git] / sc-emulator.pl

diff --git a/sc-emulator.pl b/sc-emulator.pl
index 8a1b32d..d958359 100755 (executable)
--- a/sc-emulator.pl
+++ b/sc-emulator.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|");