Parent Directory | Revision Log | Patch
revision 60 by dpavlin, Mon Nov 16 16:23:05 2009 UTC | revision 61 by dpavlin, Tue Feb 9 13:55:18 2010 UTC | |
---|---|---|
# | Line 120 sub http_server { | Line 120 sub http_server { |
120 | foreach my $p ( keys %$param ) { | foreach my $p ( keys %$param ) { |
121 | next unless $p =~ m/^tag_(\S+)/; | next unless $p =~ m/^tag_(\S+)/; |
122 | my $tag = $1; | my $tag = $1; |
123 | my $content = $param->{$p}; | my $content = "\x04\x11\x00\x01" . $param->{$p}; |
124 | $status = 302; | $status = 302; |
125 | ||
126 | warn "PROGRAM $tag $content\n"; | warn "PROGRAM $tag $content\n"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |