|
';
$cnt=0;
while(my @w=$sth->fetchrow_array()){
$cnt++;
print "$w[0] ($w[1])
\n";
if($cnt>3){ last; }
}
print '
|
|
';
$cnt=0;
while(my @w=$sth->fetchrow_array()){
$cnt++;
print "$w[0] ($w[1])
\n";
if($cnt>3){ last; }
}
print '
|
|
|
|
';
$cnt=0;
while(my @w=$sth->fetchrow_array()){
$cnt++;
print "$w[0] ($w[1])
\n";
if($cnt>3){ last; }
}
print '
|
|
';
$cnt=0;
while(my @w=$sth->fetchrow_array()){
$cnt++;
print "$w[0] ($w[1])
\n";
if($cnt>3){ last; }
}
print '
|
|
|
|
|
Latest news
|
 |
';
my $pth=$dbh->prepare("select feeds.id,categ,title,feeds.cas,sources.nazov,sources.id,max(date_format(feeds.cas,'%Y%m%d')) from feeds left join sources on sources.id=feeds.id_source group by sources.id order by feeds.cas desc limit 0,20");
$pth->execute();
while(my @p=$pth->fetchrow_array()){
$p[2]=~s/[\s\t\r\n ]{1,10}$//goim;
$p[2]=~s/^[\s\t\r\n ]{1,10}//goim;
$p[4]=~s/[\s\t\r\n ]{1,10}$//goim;
$p[4]=~s/^[\s\t\r\n ]{1,10}//goim;
my $uurl=$p[4];
my $uurl=$p[4];
$uurl=lc $uurl;
$url=$uurl;
my $title=$p[2];
$title=lc $title;
$url=~s/[^a-zA-Z0-9]{1,100}/ /goim;
$url=~s/[\s\t\r\n ]{1,10}$//goim;
$url=~s/^[\s\t\r\n ]{1,10}//goim;
$url=~s/[\s\n\r\t ]{1,10}/-/goim;
$url.="-$p[5]-$p[6]";
$title=ucfirst $title;
if(length($title)>30){ $title=substr($title,0,30)." ..."; }
print "| $title | ";
}
print '
|
|
|
