1 files changed, 0 insertions, 38 deletions
diff --git a/bin/test-mailin b/bin/test-mailin
deleted file mode 100755
index 3f101b438..000000000
--- a/bin/test-mailin
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl -w -I../commonlib/perllib
-#
-# test-mailin:
-# Receives incoming mail for the test harness, and stores it in the database
-# for the test harness to access.
-# 
-# Hook this up with something like this in /etc/aliases...
-#   pbharness: "| /home/francis/devel/mysociety/pb/bin/test-mailin"
-# ... or some other appropriate way.
-#
-# Copyright (c) 2005 UK Citizens Online Democracy. All rights reserved.
-# Email: francis@mysociety.org; WWW: http://www.mysociety.org/
-#
-
-# Horrible boilerplate to set up appropriate library paths.
-use FindBin;
-use lib "$FindBin::Bin/../perllib";
-use lib "$FindBin::Bin/../commonlib/perllib";
-chdir $FindBin::Bin;
-
-use File::Slurp;
-
-use mySociety::SystemMisc qw(print_log);
-mySociety::SystemMisc::log_to_stderr(0);
-
-use mySociety::Config;
-mySociety::Config::set_file('../conf/general');
-use mySociety::WebTestHarness;
-
-print_log('notice', "started");
-our $wth = new mySociety::WebTestHarness();
-$wth->database_connect('FMS_');
-print_log('notice', "reading mail from STDIN");
-my $slurped = read_file(\*STDIN);
-print_log('notice', "calling email_incoming");
-$wth->email_incoming($slurped);
-print_log('notice', "done");
-