… | |
… | |
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 | |