#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use DBI; print "Content-type: text/html\n\n"; $xxx = $ENV{'QUERY_STRING'}; $xxx =~ s/[^0-9]//g; $xxx = 0 + $xxx; $db1 = DBI->connect("DBI:mysql:test:localhost","szoke","pass123"); $stat1 = <prepare($stat1); $st1->execute(); @ered1 = $st1->fetchrow_array(); $mwid = @ered1[1]; $mwid = 0 + $mwid; #print $mwid; $szinhaz = @ered1[0]; $width = @ered1[2]; $st1->fetchrow_array(); $db1->disconnect(); print <

$szinhaz vendégkönyve

Ez a $szinhaz fórum oldala. Itt hozzáadhatja megjegyzéseit.

EOF $dbh = DBI->connect("DBI:mysql:mwforum3:localhost","szoke","pass123"); $dbh->{'Warn'} = 0; #print $ENV{'REMOTE_USER'}; $statement = <prepare($statement); $sth->execute(); $c = $sth->rows(); while (@ered = $sth->fetchrow_array()) { if ($ered[3] eq "") { $ered[3] = 'http://'; } $ered[4] =~ s/(http:\/\/[^ \r\n<]{1,})/$1<\/font><\/a>/g; print <

${ered[1]} <${ered[2]}>
- ${ered[5]} [Válaszol]
${ered[7]}

${ered[4]}

EOF } $dbh->disconnect(); print < EOF