# Open Link File to Output
open (GUEST,">$guestbookreal") || die "Can't Open $guestbookreal: $!\n";
for ($i=0;$i<=$SIZE;$i++) {
$_=$LINES[$i];
if (//) {
if ($entry_order eq '1') {
print GUEST "\n";
}
if ($line_breaks == 1) {
$FORM{'comments'} =~ s/\cM\n/
\n/g;
}
print GUEST "$FORM{'comments'}
\n";
print GUEST "$FORM{'realname'}";
if ($FORM{'username'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
$FORM{'username'} eq '' ||
$FORM{'username'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
print GUEST " <$FORM{'username'}>";
}
else {
if ($linkmail eq '1') {
print GUEST " \<$FORM{'username'}\>";
}
}
print GUEST "
\n";
if ( $FORM{'city'} ){
print GUEST "$FORM{'city'},";
}
if ( $FORM{'street'} ){
print GUEST " $FORM{'street'}";
}
if ( $FORM{'country'} ){
print GUEST " $FORM{'country'}";
}
if ($separator eq '1') {
print GUEST " - $date
\n\n"; } if ($entry_order eq '0') { print GUEST "\n"; } } else { print GUEST $_; } } close (GUEST);