X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2FRFID-JSONP-server.pl;h=974a316911fe33f89002d566d59eabcc3ab35027;hb=60d7c29357435918e04d82436fd64c4212934ed1;hp=6867f811b77e6b51a754c5b840cfca3b12784b4a;hpb=9d2f1172aad412d9fd0db1c687df4de87206301f;p=Biblio-RFID.git

diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl
index 6867f81..974a316 100755
--- a/scripts/RFID-JSONP-server.pl
+++ b/scripts/RFID-JSONP-server.pl
@@ -91,6 +91,9 @@ sub http_server {
 	print "Server $0 ready at $server_url\n";
 
 	while (my $client = $server->accept()) {
+
+	    eval { # don't die inside here!
+
 		$client->autoflush(1);
 		my $request = <$client>;
 
@@ -138,6 +141,7 @@ sub http_server {
 							warn "ERROR ", dump($borrower);
 						} else {
 							$hash->{borrower} = $borrower->{borrower};
+							$hash->{content}  = $borrower->{borrower}->{cardnumber}; # compatibile with 3M tags
 						}
 					} else {
 						$hash->{security} = uc unpack 'H*', $rfid->afi( $tag );
@@ -195,6 +199,12 @@ sub http_server {
 			print $client "HTTP/1.0 500 No method\r\n\r\n";
 		}
 		close $client;
+
+	    }; # end of eval
+	    if ( $@ ) {
+		warn "ERROR: $@";
+	    }
+
 	}
 
 	die "server died";