;
chop (@LINES);
close(FILE);
$SIZE=@LINES;
open (GUEST,">$guestbookreal");
for ($i=0;$i<=$SIZE;$i++) {
$_=$LINES[$i];
print GUEST "$_\n";
if (//) {
if ($in{'email'} ne '') {
print GUEST "";
print GUEST "$in{'name'}:
\n";
} else {
print GUEST "$in{'name'}:
\n";
}
if ($in{'www'} ne '') {
print GUEST "";
print GUEST "$in{'www'}
\n";
}
print GUEST "$in{'body'}\n";
}
}
close (GUEST);
print "Location: $return\n\n";