Some parts of this can (and should) be done more elegantly, but this is the script.
#!/usr/local/bin/perl
$time = time();
$timeago90 = $time - ( 24*60*60*90 ) ; # 90 days ago
$timeago360 = $time - ( 24*60*60*360 ) ; # 360 days ago
$boards90 = "41,42,1,40,28,39,37,36"; # comma delimited list of board IDs that have a 90 day expiration
$boards360 = "22";
# ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
# $year -= 1;
# $timeago = timelocal($sec,$min,$hour,$mday,$mon,$year);
use DBI;
# Replace with your connect information
$dbh = DBI->connect("DBI:mysql:DATABASENAME:localhost","DATABASEUSER","DATABASEPASSWORD");
# The prefix for my boards is "jbc_". Yours is likely different. You'd need to change that prefix wherever you find it below.
print "Beginning 90 day scan\n\n";
$sth = $dbh->prepare(qq(
select b.id_topic, m.subject, m.posterTime
from jbc_topics b, jbc_messages m
where b.id_last_msg = m.id_msg
and b.id_board IN ( $boards90 )
and b.isSticky = 0
and m.posterTime < $timeago90
));
$rv = $sth->execute;
while ( $row = $sth->fetchrow_hashref ) {
push(@topics,$row->{id_topic});
print "$row->{id_topic} ($row->{subject}) " . scalar(localtime($row->{posterTime})) . "\n";
}
print "\n\nBeginning 360 day scan\n\n";
$sth = $dbh->prepare(qq(
select b.id_topic, m.subject, m.posterTime
from jbc_topics b, jbc_messages m
where b.id_last_msg = m.id_msg
and b.id_board IN ( $boards360 )
and b.isSticky = 0
and m.posterTime < $timeago360
));
$rv = $sth->execute;
while ( $row = $sth->fetchrow_hashref ) {
push(@topics,$row->{id_topic});
print "$row->{id_topic} ($row->{subject}) " . scalar(localtime($row->{posterTime})) . "\n";
}
print $#topics + 1, " topics found\n\n";
print "\n\nBEGINNING TERMINATION in 5 seconds\n\n";
# Pause five seconds so you can kill the script from actually deleting topics. Point of no return after the break...
sleep 5;
foreach $topic ( @topics ) {
print "Expunging topic $topic\n";
$sth = $dbh->prepare(qq(
delete from jbc_messages where id_topic = $topic
));
$rv = $sth->execute;
$sth = $dbh->prepare(qq(
delete from jbc_topics where id_topic = $topic
));
$rv = $sth->execute;
}
print "Now that this is done, you need to 'Recount all forum stats' to get the boards to look right!\n";
