--- 3m-810.pl	2009/06/23 14:59:53	48
+++ 3m-810.pl	2009/06/24 09:30:28	50
@@ -12,6 +12,8 @@
 
 use IO::Socket::INET;
 
+my $debug = 0;
+
 my $meteor_server = '192.168.1.13:4671';
 my $meteor_fh;
 
@@ -78,7 +80,7 @@
 		$client->autoflush(1);
 		my $request = <$client>;
 
-		warn "<< $request\n";
+		warn "WEB << $request\n" if $debug;
 
 		if ($request =~ m{^GET (/.*) HTTP/1.[01]}) {
 			my $method = $1;
@@ -88,10 +90,10 @@
 					my ($n,$v) = split(/=/, $p, 2);
 					$param->{$n} = $v;
 				}
-				warn "<< param: ",dump( $param );
+				warn "WEB << param: ",dump( $param ) if $debug;
 			}
 			if ( my $path = static( $client,$1 ) ) {
-				warn ">> $path";
+				warn "WEB >> $path" if $debug;
 			} elsif ( $method =~ m{/scan} ) {
 				my $tags = scan_for_tags();
 				my $json = {};
@@ -129,8 +131,6 @@
 sub _log { _message('log',@_) };
 sub diag { _message('diag',@_) };
 
-my $debug = 0;
-
 my $device    = "/dev/ttyUSB0";
 my $baudrate  = "19200";
 my $databits  = "8";