diff options
Diffstat (limited to 'web/test.cgi')
-rwxr-xr-x | web/test.cgi | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/web/test.cgi b/web/test.cgi deleted file mode 100755 index c9b36e6b7..000000000 --- a/web/test.cgi +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w -I../perllib - -# test.cgi -# Part of test suite to force an error to check error handling works. -# -# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. -# Email: matthew@mysociety.org. WWW: http://www.mysociety.org -# -# $Id: test.cgi,v 1.1 2009-07-15 20:51:21 matthew Exp $ - -use strict; -use Standard; - -sub main { - my $q = shift; - - print $q->header(-charset => 'utf-8', -content_type => 'text/plain'); - if ($q->param('error')) { - print 10 / 0; # Cause an error by dividing by zero. - } - print "Success"; -} - -Page::do_fastcgi(\&main); - |