- my $time = (stat($json_filename))[9];
- my $lm_str = POSIX::strftime("%a, %d %b %Y %H:%M:%S %z", localtime($time));
-
- print CGI->header(-type=>'text/json',
- -last_modified=>$lm_str,
- -access_control_allow_origin=>'http://analysis.sesse.net',
- -expires=>'now');