<%perl> use MOE::SQL::Page; use MFK; sub stripHTML { for(my $i=0; $i//gs; $_[$i] =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs; } } my $sql = q| SELECT DATE_FORMAT(Date, '%d.%m.%Y') AS Date, Name, EMail, Message FROM guestbook ORDER BY MessageID DESC |; my $a = MOE::SQL::Page->new( Cache => 'TotalURL', MaxRow => 1000, Scale => 10, MaxPage => 500, Contains => 20, Name => 'guestbook', Key => 'furkan', SQL => $sql, Handle => $G::dbhfurkan, Params => [] ); my $R = $a->Result; my @COMMENTS = (); for(my $i=0; $i[$i]; my ($date, $name, $email, $comments) = ( $H->{'Date'}, $H->{'Name'}, $H->{'EMail'}, $H->{'Message'} ); my $mail; if($date eq '') { $date=' '; } if($name eq '') { $name=' '; } if($email eq '') { $mail = ' '; } else { $mail = qq|$email|; } if(length $comments > 0) { stripHTML($comments, $name, $mail); $comments =~ s/[\012\015]+/
/g; push @COMMENTS, [$comments, $date, $name, $mail]; } } my $E = sub { my ($comments, $date, $name, $mail) = @{$_[0]}; $mail =~ s/@/ at /sg; $mail =~ s/\./ dot /sg; return qq|

$date	$name
$comments
$mail

|; }; my $guestbook = $m->scomp('/_lib/style:column', cols=>2, width=>310, e=>$E, listref=>\@COMMENTS, padding=>3, style=>'h'); my $counter = sprintf q|

|, $a->drawNavigation(QuickJump=>1, LeftArrow => '/images/icons/001L.gif', LeftArrow2 => '/images/icons/001L2.gif', RightArrow => '/images/icons/001R.gif', RightArrow2 => '/images/icons/001R2.gif'); $guestbook = $counter.$guestbook.$counter; $m->comp('.main_'.$G::LANG, $guestbook); <%def .main_en> % my $guestbook = $_[0]; At last I did manage to spare some 30 minutes time for my web page after 8 years! Now it has a guestbook of its own. What a shame for me being that much lazy :) (May 4th, 2004)

Leave Your Comments Here

<& '/_lib/form:draw', name=>'guestbook', action=>'/guestbook/addmessage.dwx', hidden => {'r' => param('r') } &>

<% $guestbook %>