Been there, done that []/w3timages/icons/wink.gif[/]... and I mean, I just hacked it to be that way. Feel free to visit my
Test board and give it a spin. Since my addpost.pl has been so much hacked by now, [:red]I have no idea if my hack would work for anyone else, but if anyone wants to try it out, here it is:
in
preview.pl below
# ----------------
# Assign the stuff
my ($ResUsername,$Main,$Subject,$Body,$Approved,$Icon) = $sth ->fetchrow_array;
add this:
# ----------------------------------------------------------------------
# Copy everything to forward to preview screen (hack by Gerrit 01-08-01)
my $FormSubject = w3t::url_encode($Subject);
my $FormBody = w3t::url_encode($Body);
and below
<input type=hidden name=vc value="$vc">
add this:
<input type=hidden name=ResBody value="$FormBody">
<input type=hidden name=ResSubject value="$FormSubject">
<input type=hidden name=ResUsername value="$ResUsername">
and in addpost.pl below
my $vc = $FORM{'vc'};
add this:
my $ResBody = $FORM{'ResBody'};
my $ResSubject = $FORM{'ResSubject'};
my $ResUsername = $FORM{'ResUsername'};
my $FormResSubject = w3t::url_encode($ResSubject);
my $FormResBody = w3t::url_encode($ResBody);
my $FormResUsername = w3t::url_encode($ResUsername);
and below
<input type=hidden name=part value="$part">
add this:
<input type=hidden name=ResBody value="$FormResBody">
<input type=hidden name=ResSubject value="$FormResSubject">
<input type=hidden name=ResUsername value="$FormResUsername">
and right before
$sth -> finish;
w3t::send_footer;
w3t::exit();
}
# ---------------------------------------------------------
# Now everything below here is for actually adding the post
add this:
if ($ResSubject) {
$ResSubject =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
$ResBody =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
print "<p> </p>";
w3t::table_header("$lang{'IN_RESPONSE'}: ");
w3t::open_table();
print "<tr bgcolor="$theme{'tddark'}"><td>";
print "<b>$lang{'POSTER_TEXT'}: $ResUsername<b r>";
print "$lang{'SUBJECT_TEXT'}: $ResSubject</b>";
$Body =~s/"/"/g;
print "</td></tr><tr bgcolor="$theme{'tdlight'}"><td>";
print "<b r>$ResBody";
w3t::close_table();
}
(remove the space in the two occurances of <b r>)
Good luck and enjoy... at least when Scream adds this little bit to the release version, I'm sure he can work it in (if my code is incompatible) if there are enough requests for this feature.
