diff --git a/bin/fixmystreet.com/buckinghamshire-flytipping b/bin/fixmystreet.com/buckinghamshire-flytipping deleted file mode 100755 index 06c4bf5377..0000000000 --- a/bin/fixmystreet.com/buckinghamshire-flytipping +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/env perl -# -# If an off-road flytipping report within Buckinghamshire has not been closed -# after three weeks, close it with a message. If it's older than six weeks, -# use a different message and suppress any alerts. - -use v5.14; -use warnings; - -BEGIN { - use File::Basename qw(dirname); - use File::Spec; - my $d = dirname(File::Spec->rel2abs($0)); - require "$d/../../setenv.pl"; -} - -use constant DAYS_OPEN => 21; -use constant DAYS_OPEN_ALERT => 42; - -use FixMyStreet::Script::UK::AutoClose; -use Getopt::Long::Descriptive; - -my ($opts, $usage) = describe_options( - '%c %o', - ['commit|c', "actually close reports and send emails. Omitting this flag will do a dry-run"], - ['help|h', "print usage message and exit" ], -); -print($usage->text), exit if $opts->help; - -warn "DRY RUN: use --commit to close reports\n" unless $opts->commit; - -my %shared = ( - commit => $opts->commit, - body_name => 'Buckinghamshire Council', - category => 'Flytipping (off-road)', -); - -FixMyStreet::Script::UK::AutoClose->new( - %shared, - template_title => 'Auto-closure', - from => DAYS_OPEN_ALERT, - to => DAYS_OPEN, - retain_alerts => 1, -)->close; - -FixMyStreet::Script::UK::AutoClose->new( - %shared, - template_title => 'Auto-closure (old)', - to => DAYS_OPEN_ALERT, - retain_alerts => 0, -)->close;