#!/usr/bin/perl
#
# http://clanlib.org/~mbn/webcomments.cgi/modules.html
#

use English;
use CGI;

$query = new CGI;

if ($ENV{REQUEST_URI} =~ /$ENV{SCRIPT_NAME}\/(.*)$/)
{
	$filename = $1;
	$filename .= "index.html" if ($filename =~ /\/$/);
}
else
{
	exit;
}

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

if ($filename =~ /^(.*)\?(.*)$/)
{
	$filename = $1;
	$params = $2;
	
}

if ($params eq "add_submit")
{
	$from = $query->param('from');
	$text = $query->param('text');
	if ($text ne "")
	{
		$date = `date`;
		chop $date;

		open (MAIL, "|/var/qmail/bin/qmail-inject clanlib-cvs") || die;
		print MAIL "To: ClanLib CVS Commit list <clanlib-cvs\@clanlib.org>\n";
		print MAIL "From: ClanLib Web Comment script <clanlib-devel\@clanlib.org>\n";
		print MAIL "Subject: Comment added on $filename\n";
		print MAIL "\n\n";
		print MAIL "$from changed the following page:\n";
		print MAIL "\n";
		print MAIL "\thttp://clanlib.org/documentation/ClanLib-0.7.cgi/$filename\n";
		print MAIL "\n";
		print MAIL "User comment added:\n\n";
		print MAIL $text;
		close (MAIL);

		$text =~ s/&/&amp;/gs;
		$text =~ s/</&lt;/gs;
		$text =~ s/>/&gt;/gs;
		$text =~ s/\n\n+/<\/p><p>;/gs;
		$text =~ s/\r\n(\r\n)+/<\/p><p>/gs;
		$text =~ s/\r\n/<br>/gs;
		$text =~ s/\n/<br>/gs;
		
		
		
		open (SILLY_FILE, ">>comments.db") || die;
		print SILLY_FILE "--SILLY_BEGIN FROM=$from DATE=$date FILE=$filename\n";
		print SILLY_FILE $text."\n";
		print SILLY_FILE "--SILLY_END $filename\n";
		close (SILLY_FILE);
	}
}

$fullname = "ClanLib-0.7/$filename";

open(FILE, $fullname) || die;
while ($line = <FILE>)
{
	if ($line =~ /<!-- clanlib header end -->/)
	{
		if ($params eq "add")
		{
			print "<form method=post action=\?add_submit>\n";
			print "<table><tr><td colspan=2>";
			print "<p><b>Please enter your comment and press submit:</b></p></td></tr><tr><td valign=top>";
			print "<p>Name:<p/></td><td valign=top><p><input name=from size=35 value=\"Anonymous\"></p></tr><tr><td valign=top>\n";
			print "<p>Comment:</p></td><td>\n";
			print "<p><textarea rows=10 cols=80 name=text></textarea></p></td></tr>\n";
			print "<tr><td colspan=2 align=right valign=top><p><input type=submit value=\"Submit\"></p></td></tr></table>\n";
			print "</form>\n";
			print "<p>The comment is posted as plain text, as seen in the text area. Newlines translate into &lt;br&gt;'s, double newlines become a new paragraph and everything is written in a fixed pitch font.</p>\n";
			print "<br><hr><br>\n";
		}
	}

	if ($line =~ /<!-- clanlib footer begin -->/)
	{
		print "<br><p><b>User comments:</b></p><table border=0 cellspacing=0 width=100%>";
		
		open (SILLY_FILE, "comments.db") || die;
		$include_line = 0;
		while ($silly_line = <SILLY_FILE>)
		{
			if ($silly_line =~ /^--SILLY_BEGIN FROM=(.*) DATE=(.*) FILE=$filename$/)
			{
				$from = $1;
				$date = $2;
				$include_line = 1;
				print "<tr><td bgcolor=#e4e4e4><p>";
				print "<b>$from</b></p></td><td bgcolor=#e4e4e4><p align=right>$date</p></td></tr>";
				print "<td bgcolor=#f4f4f4 colspan=2><p><font face='courier'>";
			}
			elsif ($silly_line =~ /^--SILLY_END $filename$/)
			{
				$include_line = 0;
				print "</font></p></td></tr>\n";
				print "<tr><td>&nbsp;</td></tr>";
			}
			else
			{
				while ($silly_line =~ s/^(\s*)\t/$1&nbsp;&nbsp;&nbsp;&nbsp;/s || $silly_line =~ s/^(\s*) /$1&nbsp;/s)
				{
				}
				print $silly_line if ($include_line);
			}
		}

		print "<tr><td><p><a href=\"?add\">Add a comment</a></p></td></tr></table>";
	}

	print $line;
}
close(FILE);