#!/usr/bin/perl -w -I../perllib

# json.cgi:
# A small JSON API for FixMyStreet
#
# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
# Email: louise@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: json.cgi,v 1.3 2009-07-01 13:02:07 louise Exp $

use strict;
use Error qw(:try);
use JSON;
use Standard;
 
sub main {
    my $q = shift;
    my $problems;
    my $type = $q->param('type') || '';
    my $start_date = $q->param('start_date') || '';
    my $end_date = $q->param('end_date') || '';
    if ($type eq 'new_problems'){
        $problems = Problems::created_in_interval($start_date, $end_date);
    } elsif ($type eq 'fixed_problems') {
        $problems = Problems::fixed_in_interval($start_date, $end_date);
    }
    print $q->header( -type => 'application/json; charset=utf-8' );
    my $out = JSON::to_json($problems);
    print $out;  
}


Page::do_fastcgi(\&main);