#!/Perl/bin/perl

require "cgi-lib.pl";
require "common.pl";
require "cookie.lib";

print &PrintHeader;

$aon=1;
&initial;
&getdate;

$in=$input{'in'};
$forum=$input{'forum'};
$topic=$input{'topic'};
$ref=$input{'ref'};

$file=$pathf . $s . $forum . $s . $ref;
open (IN,$file);
while (<IN>) {
print $_;
}
close IN;
print "<input type=hidden name=name value=$name>\n";
print "<input type=hidden name=type value=\"-R\">\n";
print "<input type=hidden name=topic value=Reply>\n";
print "<center><p><font class=s1>Your response:</font><br>\n";
print "<textarea name=in rows=5 cols=100></textarea><br>\n";
print "<font size=5><b><i><input type=submit value=\"Post\"></i></b></font>\n";
#print "<p><a href=javascript:history.back()>Back</a>\n";
print "</center>\n";
print "</form>\n";
print "</html>\n";