Parent Directory | Revision Log | Patch
revision 62 by dpavlin, Tue Feb 9 14:52:13 2010 UTC | revision 63 by dpavlin, Thu Feb 11 10:52:14 2010 UTC | |
---|---|---|
# | Line 121 sub http_server { | Line 121 sub http_server { |
121 | next unless $p =~ m/^tag_(\S+)/; | next unless $p =~ m/^tag_(\S+)/; |
122 | my $tag = $1; | my $tag = $1; |
123 | my $content = "\x04\x11\x00\x01" . $param->{$p}; | my $content = "\x04\x11\x00\x01" . $param->{$p}; |
124 | $content = "\x00" if $param->{$p} eq 'blank'; | |
125 | $status = 302; | $status = 302; |
126 | ||
127 | warn "PROGRAM $tag $content\n"; | warn "PROGRAM $tag $content\n"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |