- my $time = (stat("/srv/analysis.sesse.net/analysis.json"))[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');
- open my $fh, "<", "/srv/analysis.sesse.net/analysis.json"
- or die "/srv/analysis.sesse.net/analysis.json: $!";
+ open my $fh, "<", $json_filename
+ or die "$json_filename: $!";