#!/usr/bin/env perl

use strict;
use warnings;

BEGIN {
    use File::Basename qw(dirname);
    use File::Spec;
    my $d = dirname( File::Spec->rel2abs($0) );
    require "$d/../../setenv.pl";
}

use FixMyStreet::Cobrand;
use Getopt::Long::Descriptive;

my ($opts, $usage) = describe_options(
    '%c %o',
    ['commit|c', 'actually cancel the bookings'],
    ['verbose|v', 'more verbose output'],
    ['help|h', "print usage message and exit" ],
);
$usage->die if $opts->help;

my $cobrand = FixMyStreet::Cobrand->get_class_for_moniker('bromley')->new;
$cobrand->cancel_bulky_collections_without_payment(
    {   commit  => $opts->commit,
        verbose => $opts->verbose,
    },
);