Hi Ron

ok, here we go, but need extra string for Visible for:   This is need for posting page  

Code

%read_txt = (
'visible_for' => "Diese Nachricht ist für: ",
'only_visible_for' => "Diese Nachricht ist nur für ",
'and_up' => "und höher.",
'0' => "Jeden",
'1' => "Mitglieder sichtbar",
'3' => "Moderatoren sichtbar",
'4' => "Global Moderatoren sichtbar",
'5' => "Administratoren sichtbar",
); 

Code

%read_txt = (
'visible_for' => "Diese Nachricht ist sichtbar für: ",
'only_visible_for' => "Diese Nachricht ist nur sichtbar für ",
'and_up' => "und höher.",
'0' => "Jeden",
'1' => "Mitglieder",
'3' => "Moderatoren",
'4' => "Global Moderatoren",
'5' => "Administratoren",
); 

Code

	for ($i = 0; $i < @data; $i++) {
		($mtime, $curboard, $tnum, $treplies) = split(/\|/, $data[$i]);

		fopen(REC_THRETXT, "$datadir/$tnum.txt") || next;
		while (<REC_THRETXT>) { $message = $_; }

		# get only the last post for this thread.
		fclose(REC_THRETXT);
		chomp $message;

		if ($message) {
			($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $message, $mns) = split(/\|/, $message);
			$messages[$numfound] = "$curboard|$tnum|$treplies|$msub|$mname|$mdate|$musername";
			$numfound++;
		}
		if ($numfound == $display) { last; }
	}
 

Code

	for ($i = 0; $i < @data; $i++) {
		($mtime, $curboard, $tnum, $treplies) = split(/\|/, $data[$i]);

		fopen(REC_THRETXT, "$datadir/$tnum.txt") || next;
		while (<REC_THRETXT>) { $message = $_; }

		# get only the last post for this thread.
		fclose(REC_THRETXT);
		chomp $message;

		if ($message) {
			($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $message, $mns) = split(/\|/, $message);

			$readlevel = 0;
			if ($message =~ /^\[admin only\]/) { $readlevel = 5; }
			elsif ($message =~ /^\[gmod only\]/) { $readlevel = 4; }
			elsif ($message =~ /^\[mod only\]/) { $readlevel = 3; }
			elsif ($message =~ /^\[member only\]/){ $readlevel = 1; }
			else { $readlevel = 0; }
			if (($iamguest && $readlevel > 0) || (!$iamguest && !$iammod && !$iamgmod && !$iamadmin && $readlevel > 2) || (($iammod && !$iamadmin) && $readlevel > 3) || ($iamgmod && $readlevel > 4)){
				next;
			}

			$messages[$numfound] = "$curboard|$tnum|$treplies|$msub|$mname|$mdate|$musername";
			$numfound++;
		}
		if ($numfound == $display) { last; }
	}