#### Delete members who've not posted for # days,
#### by C.v. Marle (C.A.vanMarle@inter.NL.net)

#### This hack makes an extra function in the "set members"
#### wich gives you the uppertunity to delete members
#### who have not posted for # days.

# Some things may differ, because I've a very modified board...
# Sorry... If you can't find any thing, please mail me...
# BACK-UP all your files before editing!!!
# Don't blame me if your board's messed up

# All the edits are done in setmembers.cgi

>> Aftter:
            my %Mode = ( 
            'updatecount'        =>    \&docount,
            'viewletter'         =>    \&viewletter,
            'edit'               =>    \&edit,        
            'deletemember'       =>    \&deletemember,
            'unban'              =>    \&unban

>> add this:

			'deldatofpos'        =>    \&deldatofpos,
			'suredeldatpos'      =>    \&suredeldatpos

>> and add a , [comma] after &unban

>> after:

    foreach (@sortedletters) {
        unless ($_ eq "$ltr") {
            $tempoutput .= qq~<a href="$thisprog?action=viewletter&letter=$_">&nbsp;$_&nbsp;</a>~;
            $ltr = "$_";
            }
        }
    
    print qq~
    Current Member Sections:<p>$tempoutput
    </td>
    </tr>


>> add:

	<tr>
	<form action="$thisprog" method=post><input type=hidden name="action" value="deldatofpos">
	<td bgcolor=#FFFFFF valign=middle align=left colspan=2>
	<font face=verdana color=#333333 size=2><b>Delete all members who have not posted for # days</b><BR>
	Delete all members who have not posted for <input type=text size=3 maxlength=3 name=daytodel> days<BR>
	, have <input type=text name=numberofposts size=3 maxlength=3> posts or less and are member for more<BR>
	 than that amount of days. <input type=submit value="Delete">
	</td>
	</form>
	</tr>	


>> And the end before:

print qq~</td></tr></table></body></html>~;
exit;

>> add:

############### delete members who've not posted for specified # of days
sub deldatofpos {

$numofdays = $query -> param('daytodel');
$numofpos = $query -> param('numberofposts');

    $dirtoopen = "$ikondir" . "members";

    opendir (DIR, "$dirtoopen"); 
    @filedata = readdir(DIR);
    closedir (DIR);

    @sortedfile = sort(@filedata);
    @sortedfile = grep(/cgi/,@sortedfile);
    @sortedfile = sort alphabetically(@sortedfile);

$days = $numofdays * 24 * 60 * 60;
$now = time;
$deldate = $now - $days;
   
   
	$tempoutput = "";
	foreach (@sortedfile) {
		unless ($_ eq "$ltr") {
			$member = $_;
			open (FILE, "$ikondir" . "members/" . "$_");
			$todeldata = <FILE>;
			close (FILE);
			@totrash = split(/\|/,$todeldata);
			$lastpostdate = @totrash[14];
			$registerdate = @totrash[13];
			$numofmsgs = @totrash[4];
			($userinfo_POSTDATE, $userinfo_POSTURL, $userinfo_POSTTOPIC) = split(/\%%%/,$lastpostdate);
			if (($userinfo_POSTDATE <= $deldate)&&($registerdate<$deldate)){
				if ($numofmsgs <= $numofpos) {
					push(@todelete,$_);
					$memnam = $_;
					$memnam =~ s/.cgi//ig;
					$hisdate = &longdate($userinfo_POSTDATE);
					$regdate = &longdate($registerdate);
					$tempoutput .= qq~<font color="green">$memnam</font> has made his/her last post on <font color="red">$hisdate</font>, has <font color="orange">$numofmsgs</font> posts and is member since <font color="blue">$regdate</font><BR>~;
				}	
			}
			$ltr = "$_";
		}
	}
	
	$todelwithcomma = qq~<input type=hidden name=suredeldat value="~;
	$num=0;
	foreach $del (@todelete) {
		if ($num eq 0) { $todelwithcomma .= qq~$del~; }
		else {
		$todelwithcomma .= qq~,$del~;
		}
		$num++;
	}
	$todelwithcomma .= qq~">~;

	if ($tempoutput) { $continuehtml = "<input type=submit value=\"Continue\">"; }
	else { $tempoutput = "Nobody fits this conditions"; $continuehtml = "<input type=button value=\"Back\" onClick=\"javascript:history.go(-1)\">"; }
	
    print qq~
	<form action="$thisprog" method="post">
	<input type="hidden" name="action" value="suredeldatpos">
    <tr>
    <td bgcolor=#EEEEEE valign=middle align=center colspan=2>
    <font face=verdana color=#990000 size=3><b>These members have not posted since $deldat and will be deleted</b><p>
	</td>
	</tr>
	<tr>
    <td bgcolor=#FFFFFF valign=middle align=center colspan=2>
    $tempoutput
    
	$todelwithcomma
    </td>
	</tr>
	<tr>
	<td bgcolor=#FFFFFF valign=middle align=center colspan=2>
	$continuehtml
	</form>
    </td>
    </tr>
    ~;

} # end route

sub suredeldatpos {

$todel = $query -> param('suredeldat');
@suredeldat = split(/\,/,$todel);

$deleted=0;
foreach $del (@suredeldat) {
		$dele = $del;
		$dele =~ s/.cgi//ig;
		$tempoutput .= qq~$dele<P>~;
		$filetounlink = "$ikondir" . "members/$del";
		unlink $filetounlink;
		$deleted++;
}

        require "$ikondir" . "data/boardstats.cgi";
        
		$newtotalmembers = $totalmembers - $deleted;
        $filetomake = "$ikondir" . "data/boardstats.cgi";
        
        open(FILE, ">$filetomake");
        flock(FILE, 2);
        print FILE "\$lastregisteredmember = \"$lastregisteredmember\"\;\n";
        print FILE "\$totalmembers = \"$newtotalmembers\"\;\n";
        print FILE "\$totalthreads = \"$totalthreads\"\;\n";
        print FILE "\$totalposts = \"$totalposts\"\;\n";
        print FILE "\n1\;";
        close (FILE);
		
	print qq~
	<tr>
	<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
	<font face=verdana color=#990000 size=3><b>These members have been deleted</b><p>
	</td>
	</tr>
	<tr>
	<td bgcolor=#FFFFFF valign=middle align=center colspan=2>

	$tempoutput

	</td>
	</tr>
	~;

} # end route


# I think that should do it...       ;)      

# Mzzl, Chris

# P.S. if you find any bugs/errors please send me an e-mail