blob: 3df200d3d7564327b97bbf4586f69b58ba5665ff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#!/usr/bin/env perl
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 Getopt::Long;
use FixMyStreet::Script::Inactive;
use Pod::Usage;
my %h;
GetOptions(\%h, 'anonymize=i', 'email=i', 'verbose|v', 'help|h', 'dry-run|n');
pod2usage(0) if $h{help};
pod2usage(1) if !$h{anonymize};
pod2usage("Anonymize time must be greater than email time")
if $h{email} && $h{email} >= $h{anonymize};
FixMyStreet::Script::Inactive->new(%h)->users;
__END__
=head1 NAME
process-inactive-accounts - deal with anonymizing old inactive accounts
=head1 SYNOPSIS
process-inactive-accounts --anonymize N [--email N]
Options:
--anonymize Anonymize accounts inactive longer than this time (months)
--email Email accounts inactive longer than this time (months)
--dry-run Don't actually anonymize anything or send any emails
--verbose Output as to which users are being affected
--help This help message
=cut
|
