}
}
+sub tidy_activation
+{
+ my $query = q{SELECT uid,id FROM activation WHERE register_date < now() - interval'35 days'};
+
+ my $sth = $dbh->prepare ($query) or die "Can't prepare Query: $DBI::errstr\n";
+ my $rv = $sth->execute or die "Can't execute query: $DBI::errstr\n";
+
+ my @uids = ();
+ push @uids, $_->{uid} while ($_ = $sth->fetchrow_hashref);
+
+ if ($#uids > -1) {
+ $query = sprintf('DELETE FROM users WHERE id in (%s)',
+ join(',', @uids));
+ $dbh->do($query);
+ }
+}
+
sub archive_topics
{
my $query = q{SELECT id FROM topics WHERE archived IS false AND modified < now() - interval'2 weeks'};
tidy_online;
archive_topics;
# tidy_tags;
+tidy_activation;