From ae2eec01fb44c6ae826af21dcce27e15393d8f93 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 2 Aug 2010 13:41:37 +0200 Subject: [PATCH] listen on specified IP address We also use it to generate correct Location: redirect headers --- scripts/RFID-JSONP-server.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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 = ; } +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()) { -- 2.20.1