|
10 августа |
Облачность |
 |
Осадки |
 |
t° днем: |
+29 |
t° ночью: |
+23 |
t° моря: |
26 |
Переменная облачность, в горных районах дождь, ночью возможна гроза. Ветер северо-западный 1-3 м/с
|
|
|
|
#!/usr/bin/perl
# Script print news
$string = "$ENV{'QUERY_STRING'}";
($sys,$num) = split(/=/,$string);
$sys=news;
$file="news";
print "Content-type: text/html\n\n";
open (DB, "$file");
@totals = ;
$all_log = @totals;
close(DB);
foreach $total (@totals) {
if ($total =~ /(.*)/){
$d1 = $1;
if ($d1 ne '' && $d1 ne ' '){push(@D1S, $d1);}
}
}
foreach (@D1S) {$d1{($_)[0]}++;}
foreach (sort {$b <=> $a} keys %d1){
($data,$news) = split(/\::/,$_);
$i = $i + 1;
$s = $num;
$s = $s * 10;
$s1 = $s + 11;
if ( $i > $s && $i < $s1 ){
print "$data ";
print "$news \n";
print "![](\"/img/line.gif\")
\n";
}
else{
$cel_full = $i / 10;
($cel,$ne_cel) = split(/\./,$cel_full);
if ($cel > $cel_n){
$cel_n = $cel_n + 1;
$cel_x = ($all_log - 1) / 10;
if ($cel_n <= $cel_x){
$print = "$print $cel";
}
}
}
}
print "Архив: 0$print ";
exit;
|
|
©
ЗАО "Радио Ника" 2002-2005
