| … | |
… | |
| 25 | $self->send ("HTTP/1.1 500 internal error\015\012"); |
25 | $self->send ("HTTP/1.1 500 internal error\015\012"); |
| 26 | delete $self->{rw}; |
26 | delete $self->{rw}; |
| 27 | } |
27 | } |
| 28 | |
28 | |
| 29 | sub respond { |
29 | sub respond { |
| 30 | $_[0]->send ("HTTP/1.1 $_[1]\015\012content-length: " . (0 + length $_[2]) . "\015\012$_[3]\015\012$_[2]"); |
30 | $_[0]->send ("HTTP/1.1 $_[1]\015\012" |
|
|
31 | . "content-length: " . (0 + length $_[2]) . "\015\012" |
|
|
32 | . "access-control-allow-origin: *\015\012" |
|
|
33 | . "$_[3]\015\012$_[2]"); |
| 31 | } |
34 | } |
| 32 | |
35 | |
| 33 | my $cache_headers = "cache-control: max-age=8640000\015\012" |
36 | my $cache_headers = "cache-control: max-age=8640000\015\012" |
| 34 | . "etag: \"0\"\015\012"; |
37 | . "etag: \"0\"\015\012"; |
| 35 | |
38 | |
