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 |