aboutsummaryrefslogtreecommitdiffstats
path: root/web/json.cgi
diff options
context:
space:
mode:
authorMatthew Somerville <matthew@mysociety.org>2011-06-03 12:29:21 +0100
committerMatthew Somerville <matthew@mysociety.org>2011-06-03 12:29:21 +0100
commita0740c6513a2bb21bfbeda02c5fe673a191f72af (patch)
tree2a2f901b88f802860583ad5fea3d26935fe1b92b /web/json.cgi
parente8d2fd68b5a594e1f03fc4a4ca338fcd83f16bdf (diff)
Move alert emails to new location, delete some unused ones.
Diffstat (limited to 'web/json.cgi')
-rwxr-xr-xweb/json.cgi35
1 files changed, 0 insertions, 35 deletions
diff --git a/web/json.cgi b/web/json.cgi
deleted file mode 100755
index 70ae2a76f..000000000
--- a/web/json.cgi
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/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.4 2010-01-20 11:31:26 matthew 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 ($start_date !~ /^\d{4}-\d\d-\d\d$/ || $end_date !~ /^\d{4}-\d\d-\d\d$/) {
-# $problems = { error => 'Invalid dates supplied' };
-# } elsif ($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' );
-# print JSON::to_json($problems);
-# }
-#
-#
-# Page::do_fastcgi(\&main);
-#