GetNews

[Igor Tatkevitch]

kogda zhe my dozhdemsia subj :)
ya dazhe ne znayu TAKIH slov blagodarnosti, chtoby vyrazit' tebe svoyu priznatelnost'... v russkom est' tolko odno - SPASIBO :) tvoy proekt - eto imenno to, chto MNOGIE hoteli by imet' pod rukoy.
U menia och bolshaia set' (net), bankovskaya, kotoraya postepenno stanovicca :) korporativnoy, filialy podkluchaucca na vydelenku ili VOLS (leased line or volokonno-opticheskie linii sviazy) i vse nachinayut chitat' moy obschiy resurs.... napisannyi toboy. ecshe raz PASIBO. :)
P.S. prosba - otvechay hot' paru slovami na pisma, eto zhe tebia ni k chemu ne obiazyvaet - tipa: "da, znayu", "na kontrole", "imeyu vvidu" :) i prochee.
obi?

[Sergey Rusakov]

, !

lwp-download \         http://lenta.ru/r/EX/tabdelimited.html \         /home/info/info/lenta.ru/lenta.tmp \         2>&1 > /dev/null

...
sort -r \         /home/info/info/lenta.ru/lenta.tmp  > \         /home/info/info/lenta.ru/lenta.txt

:
<h1>Lenta.ru</h1>
<dl>
<%perl>
if (not open (F, "/home/info/info/lenta.ru/lenta.txt")) {
    $m->comp("/message.mc", ErrorMessage => "Cannot open file");
}

while (my $line = <F>) {
    chomp $line;
    $line = Convert::Cyrillic::cstocs('KOI', 'WIN', $line);
    my ($date, $url, $title, $news, $dopnews) = split '\t', $line, 5;
    </%perl>

%   if ($r->get_remote_host =~ /^172\.16\..*/) {
        <dd><li><a href="<% $url %>"><% $title %></a><br>
%   } else {
        <dd><li><b><font color="green"><% $title %></font></b><br>
% }
        <small>[<% $date %>] <% $dopnews %></small><p>

    <%perl>
}
close F;

</%perl>
</dl>

<%attr>
Title => "Lenta.ru"
</%attr>

<%once>
use Convert::Cyrillic;
</%once>