From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 2 Aug 2010 11:41:37 +0000 (+0200)
Subject: listen on specified IP address
X-Git-Tag: RFID-Biblio-0.02~93
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=ae2eec01fb44c6ae826af21dcce27e15393d8f93

listen on specified IP address

We also use it to generate correct Location: redirect headers
---

diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl
index bd6ba9f..104ec85 100755
--- a/scripts/RFID-JSONP-server.pl
+++ b/scripts/RFID-JSONP-server.pl
@@ -20,8 +20,7 @@ use IO::Socket::INET;
 
 my $debug = 1;
 
-my $listen_port = 9000;                  # pick something not in use
-my $server_url  = "http://localhost:$listen_port";
+my $listen = '127.0.0.1:9000';
 
 my $reader = shift @ARGV;
 
@@ -29,6 +28,7 @@ use lib 'lib';
 use RFID::Biblio::RFID501;
 use RFID::Biblio::Readers;
 my $rfid = (RFID::Biblio::Readers->available( $reader ))[0]; # FIXME
+warn "using $rfid reader\n";
 
 my $index_html;
 {
@@ -36,17 +36,20 @@ my $index_html;
 	$index_html = <DATA>;
 }
 
+my $server_url;
+
 sub http_server {
 
 	my $server = IO::Socket::INET->new(
 		Proto     => 'tcp',
-		LocalPort => $listen_port,
+		LocalAddr => $listen,
 		Listen    => SOMAXCONN,
 		Reuse     => 1
 	);
 								  
 	die "can't setup server: $!" unless $server;
 
+	$server_url = 'http://' . $listen;
 	print "Server $0 ready at $server_url\n";
 
 	while (my $client = $server->accept()) {