return error to browser

diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl
index 76aa261..165dfdf 100755 (executable)
--- a/scripts/RFID-JSONP-server.pl
+++ b/scripts/RFID-JSONP-server.pl
@@ -203,6 +203,7 @@ sub http_server {
 
            }; # end of eval
            if ( $@ ) {
+               print $client "HTTP/1.0 500 Error\r\n\r\nContent-Type: text/plain\r\n$@";
                warn "ERROR: $@";
            }