#### Delete members who've not posted for # days UPDATE!!!,
#### 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.

#### -->>-->>UPDATE<<--<<--
#### Now You Can Specify Number Of Posts TOO

# 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

>> change:

	<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<input type=submit value="Delete">
	</td>
	</form>
	</tr>

>> to:

	<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>	


>> change:

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

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

    $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;
    
	foreach (@sortedfile) {
		unless ($_ eq "$ltr") {
			$member = $_;
			open (FILE, "$ikondir" . "members/" . "$_");
			$todeldata = <FILE>;
			close (FILE);
			@totrash = split(/\|/,$todeldata);
			$lastpostdate = @totrash[14];
			($userinfo_POSTDATE, $userinfo_POSTURL, $userinfo_POSTTOPIC) = split(/\%%%/,$lastpostdate);
			if ($userinfo_POSTDATE <= $deldate) {
				push(@todelete,$_);
				$memnam = $_;
				$memnam =~ s/.cgi//ig;
				$hisdate = &longdate($userinfo_POSTDATE);
				$tempoutput .= qq~<font color="green">$memnam</font> has made his/her last post on <font color="red">$hisdate</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~">~;
     
    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>
	<input type=submit value="Continue">
	</form>
    </td>
    </tr>
    ~;

} # end route

>> to:

############### 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


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

# Mzzl, Chris

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