#!/usr/bin/perl
#use CGI qw(:all);
#use CGI::Carp qw/fatalsToBrowser/; # working on refer
##############################################
# index.cgi - e_Board v2.1 - released 07/25/98
#
# This script runs a message board on your site. 
# It was inspired by Matt Wright's WWWBoard.
# This script by Mike Bagneski - copyright 1998. 
# Do not redistribute.
# 
# Achtung: Dieses Script ist NICHT Freeware!
#
# Modifiziert von Sven Sevke
# http://www.Algarve-Kontakt.com
##################################################
# CONFIGURATION SECTION

$maxMsgNo = 330;

# This is the complete path your eboard directory.
# relativ auf dem Server!
$htmlpath = '/www/sevke.net/www/sevke.net/algarve-kontakt/cgi/eboard';

# This is the URL of your eboard directory.
$htmlurl = 'http://www.sevke.net/algarve-kontakt/cgi/eboard';

# This is the URL of the [Exit Board] link.
$exiturl = 'http://blog.sevke.net';

# This is your admin password.
$password = 'melina';

# END OF CONFIGURATION SECTION
###################################################
# OPTIONS SECTION

#Quoting-Zeichen
$quotemark = '>';

# Uncomment one of the following, depending on how you want the 
# board to handle HTML.

#$html = 'no';		    # if you want all HTML removed from message
#$html = 'show';		# if you want to display the code as text
$html = 'allow';		# if you're nuts.

# This is the length of each line of quoted text in the reply form.
# You only need to change this if you change your textarea dimensions.
$len = 60;

# This is the default condition of the main message page.  
# Change to 'kompletter' if you want all messages displayed by default.
# Standard-Wert: 'kompakter', also nur die Ausgangs-Nachricht
$init_threads = 'kompletter';

# The number of seconds that a message is marked new.
# The default is 24 hours.
$newtime = 60*60*24*3;

# The number of seconds old a topic is before it expires from current messages.
# The default is 30 days.  If you don't want current messages to auto-expire, 
# set to 0.
$expiration1 = 0;

# The number of seconds old a topic is before it expires from archived messages.
# The default is 90 days.  If you don't want archived messages to auto-expire, 
# set to 0.
$expiration2 = 0;

# Set to 'no' if you want expired current topics to be deleted.
# Set to 'yes' to have them archived.
$x2archive = 'yes';

# This is the HTML of your NEW marker.  This can be an image if you want.
$new = '<font color=red> NEW</font>';

# Sven Sevke - Januar 1999
# Hier geben Sie an, ob die Nachrichten-Köpfe um die Anzahl der Replies ergänzt werden sollen
$count_replies = 'yes';  # Default-Wert ist 'yes', sonst 'no'

# This is the term used in the form to denote quoted text.
$wrote = 'hat geschrieben';

# This is the path to sendmail.  It's usually the default.
# Consult your provider if it isn't.
$sendmail = '/usr/lib/sendmail';

# This is the admin's e-mail address.  The admin will receive 
# a copy of each message, incluing IP and REMOTE HOST info.
$sysadmin = 'sven.sevke@sevke.net';
$mail = 1;              #Mail an Admin bei SUBSCRIBE/UNSUBSCRIBE

# This is the HTMl for reply indentation.  You can substitute
# a transparent image if you want.
$indent = ' &nbsp; &nbsp; &nbsp; &nbsp; ';

# After initial testing, set this to 'yes'.
# If your server allows file locking, this will reduce errors.
$lockon = 'yes';

# This is the list of naughty words, and what you want to convert
# them to.
%naughty = (fuck => 'hug', shit => 'pudding', pecker => 'puppy', asshole => 'angel', bitch => 'nice person', cunt => 'stopwatch', ' cock' => ' earlobe', 'cock!' => 'socks!', cocksucker => 'sweetheart', pussy => 'portable wishwasher', ' tit' => ' toe');

# These are the names and locations of the gifs shown with the lists.
$postimage = "$htmlurl/post.gif";
$replyimage = "$htmlurl/reply.gif";

# These are the names of the various files.  No need to change them
# unless you change the actual file names.
# Sven Sevke - 01.02.1999: Admin-Template hinzugefügt
$list_template = 'template/listtmp.txt';
$msg_template = 'template/msgtmp.txt';
$prev_template = 'template/pretmp.txt';
$error_template = 'template/errtmp.txt';
$subscribe_template = 'template/subtmp.txt';
$form_template = 'template/formtmp.txt';
$admin_template = 'template/admin.txt';
$banlist = 'banlist.txt';
$mlist = 'mlist.txt';
$alist = 'alist.txt';
$countfile = 'counter.txt';

# END OF OPTIONS SECTION
############################################

# Set to flush output

select (STDOUT);
$| = 1;

############################################
# get form data

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'})
	{$buffer = "$buffer\&$ENV{'QUERY_STRING'}";
}
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
	($name,$value) = split(/=/,$pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	if (($html eq 'no') or ($name eq 'subject') or ($name =~ /url/)){
		$value =~ s/<.*?>//g;
		$value =~ s/"/&quot;/g;
	}elsif($html eq 'show'){
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
		$value =~ s/"/&quot;/g;
	}

	# Censor Naughty Words
	for(keys(%naughty)){
		$value =~ s/$_/$naughty{$_}/gi;
	}
	$value = '' if(($name eq 'email') and ($value !~ /.*\@.*\..*/));
	$value = '' if(($name =~ /url$/) and ($value !~ /.*tp:.*\..*/));
	$FORM{$name} = $value;
}

$FORM{'threads'} = $init_threads unless $FORM{'threads'};
$FORM{'mode'} = 'aktuelle' unless $FORM{'mode'};
$FORM{'actionurl'} = $ENV{'SCRIPT_NAME'};

if($FORM{'mode'} =~ /aktuelle/){$FORM{'mode'} = 'aktuelle'}

if($FORM{'mode'} ne 'archivierte') {
	open(LIST, "$htmlpath/$mlist");
	flock LIST, 2 if $lockon eq 'yes';
	@list = <LIST>;
	&expire1 if $expiration1;
} else {
	open(LIST, "$htmlpath/$alist");
	flock LIST, 2 if $lockon eq 'yes';
	@list = <LIST>;
	&expire2 if $expiration2;
}


########################################
# check for banned status

$ip = $ENV{'REMOTE_HOST'};

open (BANLIST,"$htmlpath/$banlist");
@blist = <BANLIST>;
close (BANLIST);

foreach $bannedip (@blist) {
	chomp($bannedip);
	if ($ip =~ /$bannedip/) {
		print "Content-type: text/html\n\n";
		print "<html><head></head><body>\n";
		print "<h1 align=center>Sorry, Sie sind von dem Diskussionsforum ausgeschlossen worden.</h1>\n";
		print "</body></html>";
		exit;
	}
}


if (exists($FORM{'post'})){
	if(($FORM{'name'}) and ($FORM{'subject'}) and ($FORM{'body'})){
		&post;
		exit;
	}else{
		&error;
		exit;
	}
}

if (exists($FORM{'preview'})){
	if(($FORM{'name'}) and ($FORM{'subject'}) and ($FORM{'body'})){
		&preview;
		exit;
	}else{
		&error;
		exit;
	}
}

if (exists($FORM{'message'})){
	open(MESSAGE, "$htmlpath/messages/$FORM{'message'}.txt");
	@data = <MESSAGE>;
	close(MESSAGE);
	$message = $FORM{'message'};
	print "Content-type: text/html\n\n";
	&view;
	exit;
}

if (exists($FORM{'admin'})){
	&password;
	exit;
}

# Sven Sevke - 01.02.1999
# Administration
if (exists($FORM{'password'})){
	if($FORM{'password'} ne $password){
		$FORM{'admin'} = $FORM{'admmessage'};
		&password;
		exit;
	}elsif($FORM{'admincommand'} eq 'count') {
		&adminCountReplies;
	}elsif($FORM{'admincommand'} eq 'delete') {
		&delete;
	}elsif($FORM{'admincommand'} eq 'archive') {
		&delete;
	}
}

if (exists($FORM{'subform'})){
	open(SUBSCRIBE, "$htmlpath/$subscribe_template");
	@lines = <SUBSCRIBE>;
	close(SUBSCRIBE);
	chomp(@lines);

	print "Content-type: text/html\n\n";

	foreach $line (@lines){
		$line =~ s/\*boardurl\*/$ENV{'SCRIPT_NAME'}\?threads=$FORM{'threads'}&mode=$FORM{'mode'}/;
		$line =~ s/\*actionurl\*/$FORM{'actionurl'}/;
		print "$line\n" if $line !~ /<!--.+-->/ and $line ne '';
	}
	exit;
}

if(exists($FORM{'subscription'})){
	if($FORM{'subaddress'} =~ /@/){
		&subscribe;
	}
}

#####################################################
# View Main Page (default)

open(TEMPLATE, "$htmlpath/$list_template");
@lines = <TEMPLATE>;
close(TEMPLATE);
chomp(@lines);

print "Content-type: text/html\n\n";

foreach $line (@lines){
	next if $line =~ /<!--.+-->/ or $line eq '';
	if ($line !~ /\*\w+\*/) {
		print "$line\n";
		next;
	}
	$line =~ s/\*boardurla\*/$ENV{'SCRIPT_NAME'}\?mode=$FORM{'mode'}&threads=\*threads\*/g;
	$line =~ s/\*boardurlb\*/$ENV{'SCRIPT_NAME'}\?mode=\*mode\*&threads=$FORM{'threads'}/g;
	$line =~ s/\*boardurl\*/$ENV{'SCRIPT_NAME'}\?mode=$FORM{'mode'}&threads=$FORM{'threads'}/g;
	$line =~ s/\*htmlurl\*/$htmlurl/g;
	$line =~ s/\*exiturl\*/$exiturl/g;
	$line =~ s/\*nowmode\*/$FORM{'mode'}/g;
	if($line =~ /\*mode\*/) {
		if($FORM{'mode'} eq 'aktuelle'){$line =~ s/\*mode\*/archivierte/g};
		if($FORM{'mode'} eq 'archivierte'){$line =~ s/\*mode\*/aktuelle/g};
	}
	if($line =~ /\*threads\*/){
		if($FORM{'threads'} eq 'kompakter'){$line =~ s/\*threads\*/kompletter/g};
		if($FORM{'threads'} eq 'kompletter'){$line =~ s/\*threads\*/kompakter/g};
	}
	if($line =~ /\*list\*/){
		foreach $item (@list){
			@items = split(/\t/,$item);
			if(($FORM{'threads'} eq 'kompakter') and ($items[0]) and (time - $items[5] >= $newtime)){next}
			for($i=0;$i<$items[0];$i++){
				print "$indent";
			}
			if($items[0]){
				print "<img src=$replyimage align=middle alt=\"\">";
			}else{
				print "<img src=$postimage align=middle alt=\"\">";
			}
			if ($items[1]>$maxMsgNo) {
				print "$items[2] - <b>$items[3]<\/b> on <i><small>$items[4]<\/small><\/i>";
			} else {
				print "<a href=\"$ENV{'SCRIPT_NAME'}?threads=$FORM{'threads'}&mode=$FORM{'mode'}&message=$items[1]\">$items[2]<\/a> - <b>$items[3]<\/b> on <i><small>$items[4]<\/small><\/i>";
			}
			if ($count_replies eq "yes"){
				print "<small><i> ($items[6]) <\/I><\/small>";
				}
			if ((time - $items[5]) < $newtime){print "$new"}
			print "<br>\n";
		}
	}elsif($line =~ /\*form\*/){
		open(TEMPLATE, "$htmlpath/$form_template");
		@form = <TEMPLATE>;
		close(TEMPLATE);
		chomp(@form);
	
		foreach $formline (@form){
			$formline =~ s/\*actionurl\*/$FORM{'actionurl'}/g;
			$formline =~ s/\*threads\*/$FORM{'threads'}/;
			if($formline =~ /\*\w+\*/){
				$formline =~ s/\*\w+\*//g;
			}
			print "$formline\n" if $formline !~ /<!--.+-->/;
		}
	}else{
		print "$line\n";
	}
}


exit;

####################################################
# View a message

sub view{

	chomp(@data);

	open(TEMPLATE, "$htmlpath/$msg_template");
	@lines = <TEMPLATE>;
	close(TEMPLATE);
	chomp(@lines);

	#############################################
	# generate substitution fields
	
	@fields = ('getemail', 'subject', 'name', 'email', 'date', 'body', 'previoussubject', 'previousname', 'previousfilename', 'previousdate', 'url', 'urltitle', 'imageurl');

	for ($i=0;$i<=$#data;$i++){
		$mfields{"$fields[$i]"} = "$data[$i]";
	}

	$mfields{'list'} = '';
	$mfields{'form'} = '';
	$mfields{'previousfilenameurl'} = "$ENV{'SCRIPT_NAME'}?message=$mfields{'previousfilename'}&threads=$FORM{'threads'}&mode=$FORM{'mode'}";
	$mfields{'message'} = $message;
	$mfields{'urltitle'} = $mfields{'url'} if $mfields{'urltitle'} eq '';
	$mfields{'boardurl'} = "$ENV{'SCRIPT_NAME'}?mode=$FORM{'mode'}&threads=$FORM{'threads'}";
	$mfields{'htmlurl'} = $htmlurl;

	$body = $mfields{'body'};
	$body =~ s/\*br\*/<br>/g;
	$body =~ s/\*p\*/<p>/g;
	$mfields{'body'} = $body;


	#############################################
	# Generate Message

	foreach $line (@lines){
		exit if $line =~ /name=\"followup/ and defined($counter);
        $line = '' if $line =~ /Antwort.+<\/a>/i and defined($counter); #Sevke 10.08.1998
		foreach $field (keys(%mfields)){
			if($line =~ /\*$field\*/){
				if($field eq 'list'){
					&replylist;
					$line = '';
				}elsif($field eq 'form'){
					&doform;
					$line = '';
				}elsif(($mfields{"$field"} ne '') or ($line =~ /value=/)){
					$line =~ s/\*$field\*/$mfields{"$field"}/g;
				}elsif($field eq 'email'){
					$line =~ s/<a.+?>//i;
					$line =~ s/<\/a>//i;
				}else{
					$line = '';
				}
			}
		}
		print "$line\n" if $line !~ /<!--.+-->/ and $line ne '';
	}
}

####### Display Message Form

sub doform{

	############## Generate Substitution Fields

	$ffields{'name'} = '';
	$ffields{'email'} = '';
	$ffields{'subject'} = '';
	$ffields{'url'} = '';
	$ffields{'urltitle'} = '';
	$ffields{'imageurl'} = '';
	$ffields{'previoussubject'} = $mfields{'subject'};
	$ffields{'previousname'} = $mfields{'name'};
	$ffields{'previousfilename'} = $FORM{'message'};
	$ffields{'previousdate'} = $mfields{'date'};
	$ffields{'quotedsubject'} = ($mfields{'subject'} =~ /Re:/) ? "$mfields{'subject'}" : "Re: $mfields{'subject'}";
	$ffields{'getemail'} = ($mfields{'getemail'} !~ /@/) ? '' : "$mfields{'getemail'}";
	$ffields{'actionurl'} = $FORM{'actionurl'};
	$ffields{'threads'} = $FORM{'threads'};
	$ffields{'mode'} = $FORM{'mode'};

	$text = $mfields{'body'};

	###########################################
	# Quote Text

	@sections = split(/<p>/, $text);
	for($k=0;$k<=$#sections;$k++){
		@paragraphs = split(/<br>/, $sections[$k]);
		for($i=0;$i<=$#paragraphs;$i++){
			$para = $paragraphs[$i];
			if($para =~ /^$quotemark/){next};
			if (length($para) > $len){
				@sub = ();
				while(length($para) > $len){
					$j = $len;
					while((substr($para,$j,1) ne ' ') and ($j)){$j--};
					unless($j){$j = $len};
					$pretext = substr($para,0,$j+1);
					$para = substr($para,$j+1);
					push(@sub, $pretext);
				}
				push(@sub, $para);
				splice(@paragraphs, $i, 1, @sub);
				$i += $#sub;
			}
		}
		$sections[$k] = join('<br>', @paragraphs);
	}
	$text = join('<p>', @sections);

	$text = "\n" . '<B><I>' . $ffields{'previousname'} . " $wrote," . '</B></I>' . "<br>$text" . '<br>';

	$text =~ s/<br>/\n$quotemark /g;
	$text =~ s/<p>/\n$quotemark\n$quotemark /g;
	$text =~ s/</&lt;/g;
	$text =~ s/>/&gt;/g;
	$text =~ s/"/&quot;/g;
	$text =~ s/: $//;
	$ffields{'quotedtext'} = $text;

	##############################################
	# Print Message Form

	open(TEMPLATE, "$htmlpath/$form_template");
	@form = <TEMPLATE>;
	close(TEMPLATE);

	chomp(@form);

	foreach $formline (@form){
		if($formline =~ /getemail/){
			$formline = "<input type=hidden name=getemail value=\"$ffields{'getemail'}\">";
		}
		foreach $field (keys(%ffields)){
			if($formline =~ /\*$field\*/){
				$formline =~ s/\*$field\*/$ffields{"$field"}/g;
			}
		}
	print "$formline\n" if $formline !~ /<!--.+-->/ and $formline ne '';
	}
}

######## Display Message Page Replies

sub replylist{
	for($j=0;$j<=$#list;$j++){
		@item = split(/\t/,$list[$j]);
		if($FORM{'message'} eq $item[1]){
			$j++;
			$toplevel = $item[0];
			for ($j=$j;$j<=$#list;$j++){
				@subitem = split(/\t/,$list[$j]);
				if($subitem[0] gt $toplevel){
					for($k=$toplevel;$k<$subitem[0];$k++){
						print "$indent";
					}
					print "<img src=$replyimage align=absmiddle alt=\"\"><a href=\"$mfields{'boardurl'}&message=$subitem[1]\">$subitem[2]<\/a> - <b>$subitem[3]<\/b><i><small> on $subitem[4]<\/small><\/i><br>\n";
				}else{last};
			}
		}
	}
}

##################################################
# View Preview Message

sub preview{

	open(TEMPLATE, "$htmlpath/$prev_template");
	@lines = <TEMPLATE>;
	close(TEMPLATE);
	chomp(@lines);

	&show_rest;
}

##################################################
# View Error Message

sub error{

	open(TEMPLATE, "$htmlpath/$error_template");
	@lines = <TEMPLATE>;
	close(TEMPLATE);
	chomp(@lines);

	&show_rest;
}	

##################################################
# Display the Rest of the Page

sub show_rest{

	print "Content-type: text/html\n\n";

	############################################
	# Generate Substitution Fields

	$FORM{'date'} = localtime;
	$FORM{'body'} =~ s/\r//g;
	$FORM{'quotedtext'} = $FORM{'body'};
	$FORM{'body'} =~ s/\n\n/<p>/g;
	$FORM{'body'} =~ s/\n/<br>/g;

	$FORM{'quotedsubject'} = $FORM{'subject'};

	$FORM{'boardurl'} = "$ENV{'SCRIPT_NAME'}?threads=$FORM{'threads'}&mode=$FORM{'mode'}";
	$FORM{'previousfilenameurl'} = "$FORM{'boardurl'}&message=$FORM{'previousfilename'}";
	$FORM{'actionurl'} = $ENV{'SCRIPT_NAME'};

	$FORM{'form'} = '';

	if ($FORM{'urltitle'} eq ''){
		$FORM{'urltitle'} = $FORM{'url'};
	}

	##############################################
	# Print Preview or Error Message

	foreach $line (@lines){
		foreach $field (keys(%FORM)){
			if($line =~ /\*$field\*/){
				if(($FORM{"$field"} ne '') or ($line =~ /value=/)){
					$line =~ s/\*$field\*/$FORM{"$field"}/g;
				}elsif($field eq 'email'){
					$line =~ s/<a.+?>//;
					$line =~ s/<\/a>//;
				}elsif($field eq 'form'){
					open(TEMPLATE, "$htmlpath/$form_template");
					@form = <TEMPLATE>;
					close(TEMPLATE);
					chomp(@form);

					foreach $formline (@form){
						if($formline =~ /getemail/){
							unless ($FORM{'previousfilename'}){
								$formline =~ s/>/ CHECKED>/ if $FORM{'getemail'} eq 'yes';
							}else{
								$formline = "<input type=hidden name=getemail value=\"$FORM{'getemail'}\">";
							}
						}
						foreach $formfield (keys(%FORM)){
							if($formline =~ /\*$formfield\*/){
								$formline =~ s/\*$formfield\*/$FORM{"$formfield"}/g;
							}
						}
						print "$formline\n" if $formline !~ /<!--.+-->/ and $formline ne '';
					}
					$line = '';
				}else{
					$line = '';
				}
			}
		}
	print "$line\n" if $line !~ /<!--.+-->/ and $line ne '';
	}
}

####################################################
# Post Message

sub post{

	##############################################
	# Increment counter

	open(COUNTER, "+<$htmlpath/$countfile");
	flock COUNTER, 2 if $lockon eq 'yes';
	$counter = <COUNTER>;
	$counter ++;
	seek (COUNTER, 0, 0);
	print COUNTER "$counter";
	close(COUNTER);

	$FORM{'date'} = localtime;

	$FORM{'emailbody'} = $FORM{'body'};
	$FORM{'emailbody'} =~ s/&lt;/</g;
	$FORM{'emailbody'} =~ s/&gt;/>/g;

	$FORM{'emailsubject'} = $FORM{'subject'};
	$FORM{'emailsubject'} =~ s/&quot;/\"/;

	$FORM{'body'} =~ s/\r//g;
	$FORM{'body'} =~ s/\n\n/*p*/g;
	$FORM{'body'} =~ s/\n/*br*/g;


	$FORM{'message'} = $counter;

	if($FORM{'getemail'} eq 'yes'){
		$FORM{'getemail'} = $FORM{'email'};
	}

	#################################################
	# Write message Data to File

	open(MESSAGE, ">$htmlpath/messages/$counter.txt");
	flock MESSAGE, 2 if $lockon eq 'yes';
	print MESSAGE "$FORM{'getemail'}\n";
	print MESSAGE "$FORM{'subject'}\n";
	print MESSAGE "$FORM{'name'}\n";
	print MESSAGE "$FORM{'email'}\n";
	print MESSAGE "$FORM{'date'}\n";
	print MESSAGE "$FORM{'body'}\n";
	print MESSAGE "$FORM{'previoussubject'}\n";
	print MESSAGE "$FORM{'previousname'}\n";
	print MESSAGE "$FORM{'previousfilename'}\n";
	print MESSAGE "$FORM{'previousdate'}\n";
	print MESSAGE "$FORM{'url'}\n";
	print MESSAGE "$FORM{'urltitle'}\n";
	print MESSAGE "$FORM{'imageurl'}\n";
	close(MESSAGE);

	###########################################
	# Update Message List (mlist)

	$FORM{'name'} =~ s/<.*?>//g;
	$time = time;

	unless($FORM{'previousfilename'}){
		$newitem = "0\t$counter\t$FORM{'subject'}\t$FORM{'name'}\t$FORM{'date'}\t$time\n";
		unshift(@list,$newitem);
	}else{
		for($i=0;$i<=$#list;$i++){
			@item = split (/\t/,$list[$i]);
			if($item[1] eq $FORM{'previousfilename'}){
				$level = $item[0];
				$newlevel = $level + 1;
				$newitem = "$newlevel\t$counter\t$FORM{'subject'}\t$FORM{'name'}\t$FORM{'date'}\t$time\n";
				splice(@list, $i+1, 0, $newitem);
				last;
			}
		}
	}

	#reply-counts ermitteln und schreiben
	&countReplies;
	
	if($FORM{'mode'} eq 'aktuelle') {
		open(LIST, ">$htmlpath/$mlist");
	}else{
		open(LIST, ">$htmlpath/$alist");
	}
	
	flock LIST, 2 if $lockon eq 'yes';
	seek (LIST, 0, 0);
	print LIST @list;
	close(LIST);

	open(MESSAGE, "$htmlpath/messages/$counter.txt");
	@data = <MESSAGE>;
	$message = $counter;
	print "Content-type: text/html\n\n";
	&email;  #Sevke 10.08.1998
	&view;

}

#################################################
# Sven Sevke - 31-01-1999
# Seite verschönert, Count-Replies eingebaut
# Get password

sub password{
	print "Content-type: text/html\n\n";
	print "<html><head>\n";
	print "<title>Algarve-Kontakt [Diskussionsforum]: Administration</TITLE>\n";
	print "</head><BODY BACKGROUND=\"http://www.sevke.net/images/paper1.gif\">\n";
	print "<center><b>Kennwort eingeben und mit [Submit] ";
	print "die gewünschte Aktion ausführen";
	print "<form action=\"$ENV{'SCRIPT_NAME'}\" method=POST>\n";
	print "<input type=text name=password><p>\n";
	print "<b>Diese Message löschen</b><input type=radio name=admincommand value=delete CHECKED><br>\n" if $FORM{'mode'} eq 'aktuelle';
	print "<b>Archivieren dieser Message und aller Antworten</b><input type=radio name=admincommand value=archive><br>\n" if $FORM{'mode'} eq 'aktuelle';
	print "<b>Count-Replies ermitteln</b><input type=radio name=admincommand value=count><p>\n";
	print "<input type=submit><p>\n";
	print "<a href=\"$ENV{'SCRIPT_NAME'}\">[Zurück zum Diskussionsforum]</a>\n";
	print "<input type=hidden name=admmessage value=$FORM{'admin'}>\n";
	print "<input type=hidden name=threads value=$FORM{'threads'}>\n";
	print "<input type=hidden name=mode value=$FORM{'mode'}>\n";
	print "</form></center></body</html>\n";
}

################################################
# Delete messages

sub delete{
	$message = $FORM{'admmessage'};
	if ($FORM{'admincommand'} eq 'delete') {
		$archive = 'no';
	}else {
		$archive = 'yes';
	}
	@templist = () if $archive eq 'yes';
	unlink("$htmlpath/messages/$message.txt") if $archive eq 'no';
	for($i=0;$i<=$#list;$i++){
		@items = split (/\t/, $list[$i]);
		chomp(@items);
		if($items[1] eq $message){
			$mlevel = $items[0];
			$temp = splice(@list, $i, 1);
			push(@templist, $temp) if $archive eq 'yes';
			@items = split (/\t/, $list[$i]);
			while($items[0] gt $mlevel){
				unlink("$htmlpath/messages/$items[1].txt") if $archive eq 'no';
				$temp = splice(@list, $i, 1);
				push(@templist, $temp) if $archive eq 'yes';
				@items = split (/\t/, $list[$i]);
			}
			if($FORM{'mode'} eq 'aktuelle') {
				open(MLIST, ">$htmlpath/$mlist");
				flock MLIST, 2 if $lockon eq 'yes';
				print MLIST @list;
				close(MLIST);
				last if $archive eq 'no';
				open (ALIST, "$htmlpath/$alist");
				flock ALIST, 2 if $lockon eq 'yes';
				@alist = <ALIST>;
				unshift (@alist, @templist);
				open (ALIST, ">$htmlpath/$alist");
				flock ALIST, 2 if $lockon eq 'yes';
				print ALIST @alist;
				close (ALIST);
				last;
			}else {
				open (ALIST, ">$htmlpath/$alist");
				flock ALIST, 2 if $lockon eq 'yes';
				print ALIST @list;
				close (ALIST);
				last;
			}
		}
	}
}
################################################
#  Subscribe or Cancel

sub subscribe{
	open(SLIST, "$htmlpath/slist.txt");
	@subscribers = <SLIST>;
	close(SLIST);

	if ($FORM{'mode'} eq 'subscribe'){
		push(@subscribers,"$FORM{'subaddress'}\n") unless grep(/$FORM{'subaddress'}/, @subscribers);
	}else{
		for($i=0;$i<=$#subscribers;$i++){
			if($subscribers[$i] eq "$FORM{'subaddress'}\n"){
				splice(@subscribers,$i,1);
				last;
			}
		}
	}
	open(SLIST, ">$htmlpath/slist.txt");
	print SLIST @subscribers;
	close(SLIST);

# Mail Option   Sven Sevke 10.08.1998
if ($mail eq '1') {
   open (MAIL, "|$sendmail $sysadmin") || die "Can't open $sendmail!\n";

   print MAIL "Reply-to: $FORM{'subaddress'}\n";
   print MAIL "From: $FORM{'subaddress'}\n";
   print MAIL "Subject: AK-Diskussionsforum: $FORM{'mode'}\n\n";
   print MAIL "-----------------------------------------------------\n";
   print MAIL "Einschreibung: $FORM{'mode'} von $FORM{'subaddress'}\n";
   print MAIL "-----------------------------------------------------\n";

   close (MAIL);
   }

   $FORM{'mode'} = 'aktuelle';
}

#################################################
# Expire old current topics

sub expire1 {
	for($i=$#list;$i>=0;$i--) {
		@items = split(/\t/, $list[$i]);
		next if $items[0] ne '0';
		last if $items[5] > time - $expiration1;
		$FORM{'admmessage'} = $items[1];
		if ($x2archive eq 'yes') {
			$FORM{'admincommand'} = 'archive';
		}else {
			$FORM{'admincommand'} = 'delete';
		}
		&delete;
	}
}

#################################################
# Expire old archived topics

sub expire2 {
	for($i=$#list;$i>=0;$i--) {
		@items = split(/\t/, $list[$i]);
		next if $items[0] ne '0';
		last if $items[5] > time - $expiration2;
		$FORM{'admmessage'} = $items[1];
		$FORM{'admincommand'} = 'delete';
		&delete;
	}
}

#################################################
# Email routine

sub email {

	$script_name = $ENV{'SCRIPT_NAME'};
	$script_name =~ s#^/## ; 
	$cgiurl = "http://$ENV{'SERVER_NAME'}/$script_name";

	if($sysadmin){&send_email("$sysadmin")}

	if($FORM{'getemail'} =~ /\@/){&send_email("$FORM{'getemail'}")}

	open(SLIST, "$htmlpath/slist.txt");
	@subscribers = <SLIST>;
	close(SLIST);
	foreach $address (@subscribers){
		next if $address !~ /\@/;
		&send_email("$address");
	}
}
sub send_email {
	local($address) = @_;
	open(EMAIL, "|$sendmail $address");
	print EMAIL "From: $FORM{'email'}\n";
	print EMAIL "Subject: AK-Diskussionsforum: $FORM{'emailsubject'}\n"; #Sevke 10.08.1998
	print EMAIL "Reply-To: $FORM{'email'}\n\n";
	print EMAIL "$FORM{'emailbody'}\n\n";
	print EMAIL "LINK IN MESSAGE = $FORM{'url'}\n" if $FORM{'url'};
	print EMAIL "MESSAGE = $cgiurl?message=$counter\n\n";
	print EMAIL "Poster's Remote Host = $ENV{'REMOTE_HOST'}\n" if $address eq $sysadmin;
	close(EMAIL);
}

#################################################
# Count Replies routine

sub countReplies {
	#reply_count ermitteln (Sven Sevke - 02.01.1999)
	$last_level = "0";
	@nachrichtenkette ="0";
	foreach $line(@list){
			@item = split (/\t/,$line);     #Zeile in Einzelteile zerlegen
			$act_level = $item[0];          #zur besseren Lesbarkeit
			$message_number = $item[1];     #zur besseren Lesbarkeit 
			$replycount{$message_number} = "0";
			if ($act_level eq "0") {
	           $last_level = $act_level;
			   @nachrichtenkette = "";
			   }
			elsif ($act_level eq $last_level){
			      }
			elsif ($act_level gt $last_level){
			      $last_level = $act_level;
				  push(@nachrichtenkette,$last_message);	
			      }
			elsif ($act_level lt $last_level){
			      $last_level = $act_level;
				  pop(@nachrichtenkette);	
			      }  
			foreach $element(@nachrichtenkette){
					$replycount{$element}++;
					}	   
	        $last_message = $message_number;
			}
	
	#replycount in Liste einbauen (Sven Sevke - 02.01.1999)
	foreach $line(@list){
			@item = split (/\t/,$line);                      #Zeile in Einzelteile zerlegen
			if ($item[6]) {                                  #gibt es überhaupt einen replycounter?
				$item[6] = $replycount{$item[1]};			 #replycount aktualisieren
				$line = join("\t",@item) . "\n";             #Zeile zusammenbauen
				}
				else {
					 chomp ($line);       					 #Zeilenwechsel am Ende entfernen
	                 $line = "$line\t$replycount{$item[1]}\n";		 #replycount anfügen
	                 }
	    	}
	
}

#################################################
# Sven Sevke - 31.01.1999
# adminCountReplies

sub adminCountReplies {

	#Aktuelle Nachrichten
	open(LIST, "$htmlpath/$alist");
	@list = <LIST>;
	close(LIST);
	
	&countReplies;
	
	open(LIST, ">$htmlpath/$alist");
	flock LIST, 2 if $lockon eq 'yes';
	print LIST @list;
	close(LIST);

	#Archivierte Nachrichten
	open(LIST, "$htmlpath/$mlist");
	@list = <LIST>;
	close(LIST);
	
	&countReplies;
	
	open(LIST, ">$htmlpath/$mlist");
	flock LIST, 2 if $lockon eq 'yes';
	print LIST @list;
	close(LIST);
}