Parent Directory
| 
Revision Log
| 
Patch
| revision 65 by dpavlin, Thu Feb 11 13:23:26 2010 UTC | revision 66 by dpavlin, Thu Feb 11 14:14:21 2010 UTC | |
|---|---|---|
| # | Line 91 sub http_server { | Line 91 sub http_server { |
| 91 | my $status = 501; # Not implementd | my $status = 501; # Not implementd |
| 92 | ||
| 93 | foreach my $p ( keys %$param ) { | foreach my $p ( keys %$param ) { |
| 94 | next unless $p =~ m/^tag_(\S+)/; | next unless $p =~ m/^(E[0-9A-F]{15})$/; |
| 95 | my $tag = $1; | my $tag = $1; |
| 96 | my $content = "\x04\x11\x00\x01" . $param->{$p}; | my $content = "\x04\x11\x00\x01" . $param->{$p}; |
| 97 | $content = "\x00" if $param->{$p} eq 'blank'; | $content = "\x00" if $param->{$p} eq 'blank'; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |