--- 3m-810.pl 2009/06/24 13:13:15 53 +++ 3m-810.pl 2009/06/24 13:39:43 54 @@ -14,7 +14,11 @@ my $debug = 0; -my $meteor_server = '192.168.1.13:4671'; +my $tags_data; +my $tags_security; +my $visible_tags; + +my $meteor_server; # = '192.168.1.13:4671'; my $meteor_fh; sub meteor { @@ -100,6 +104,7 @@ map { my $d = decode_tag($_); $d->{sid} = $_; + $d->{security} = $tags_security->{$_}; push @{ $json->{tags} }, $d; } keys %$tags; print $client "HTTP/1.0 200 OK\r\nContent-Type: application/x-javascript\r\n\r\n", @@ -205,9 +210,6 @@ =cut -my $tags_data; -my $visible_tags; - my $item_type = { 1 => 'Book', 6 => 'CD/CD ROM', @@ -432,6 +434,7 @@ ( $from_tag, $security ) = ( substr($rest,0,8), substr($rest,8,1) ); die "security from other tag: ",as_hex( $from_tag ) if $from_tag ne str2bytes( $tag ); $security = as_hex( $security ); + $tags_security->{$tag} = $security; warn "# SECURITY $tag = $security\n"; } );