Admin Update 1.0 Updates and improves some administration features. 1) Remove old threads can be used on specified boards instead of entire forum, allowing boards such as ones used for announcements to be skipped over when deleting old messages. 2) Gives Maintenance Controls in Admin Center confirmation boxes so features are not accidentally executed by mistaken clicking. 3) Makes delete on messages as for confirmation of delete and makes remove thread confirmation into same confirmation box format. DaveB http://www.davesworldzone.com/ Sources/RemoveOldThreads.pl foreach $curboard (@catinfo) { chomp $curboard; if ($FORM{$curboard.'check'} == 1) { } fclose(FILE); } Sources/Admin.pl $txt{'610'}
$txt{'502'}
$txt{'504'}
$txt{'593'}
($txt{'595'})
$txt{'124'} $txt{'579'}
$txt{'610'}
$txt{'502'}
$txt{'504'}
$txt{'593'}
Remove Old Threads
 sub RebuildMemList { sub DeleteOldMessages { &is_admin; fopen(FILE, "$vardir/oldestmes.txt"); $maxdays = ; fclose(FILE); $yytitle = "Remove Old Threads"; &header; print <<"EOT";
Remove Old Threads

Input the maximum number of how many days old messages can be without being deleted during this process. Then select the boards in which you will be deleting messages that are older than the number of days old you specified.

$txt{'124'} $txt{'579'} in:

EOT fopen(FILE, "$vardir/cat.txt"); @categories = ; fclose(FILE); foreach $curcat (@categories) { chomp $curcat; fopen(FILE, "$boardsdir/$curcat.cat"); $curcatname = ; $curcataccess = ; chomp $curcatname; chomp $curcataccess; @catinfo = ; fclose(FILE); foreach $curboard (@catinfo) { chomp $curboard; fopen(FILE, "$boardsdir/$curboard.dat"); @boardinfo = ; fclose(FILE); chomp $boardinfo[0]; $boardname = $boardinfo[0]; chomp $curboard; $selectname = $curboard.'check'; print << "EOT"; EOT } } print << "EOT";
$boardname  
EOT &footer; exit; } YaBB.pl elsif ($action eq 'deletemultimembers') { require "$sourcedir/Admin.pl"; &DeleteMultiMembers; } elsif ($action eq 'deleteoldthreads') { require "$sourcedir/Admin.pl"; &DeleteOldMessages; }