Screen3 - виджет на рабочем столе, обновляемые погода, гороскоп, новости Поделиться Опции

[ldv]

Откуда его взять или как активировать? проша 14R_F6 modded

[Silent_Bob]

Исходники имеюцца ???

[luckydevil13]

Исходники имеюцца ???

ато )

CODE

use LWP::Simple;
use Encode;
use Tie::IxHash;
use Net::Telnet;

$xml = get("http://www.kawa.net/works/perl/feedpp/feed-merge.cgi?format=Atom&src1=http%3A%2F%2Fbash.org.ru%2Frss%2F");
Encode::from_to($xml, 'utf-8', 'windows-1251');
$xml=~s#<br>#\n#gs;
$xml=~s#&quot;##gs;
$xml=~s#&##gs;
$xml=~s#gt;##gs;
$xml=~s#lt;##gs;


tie %m, "Tie::IxHash";
(%m)=$xml=~/\<title.+?\>(.+?)\<\/title\>.+?\<content.+?\>(.+?)\<\/content\>/gs;
$new='<?xml version="1.0" encoding="windows-1251"?><entry-pkg>';
$i=1;

while (($ttl, $desc) = each(%m)) {
$i++;
$new=$new.'<entry><index>65535</index><seqNumber>'."$i".'</seqNumber><ctxtID>monternet02</ctxtID><feedCtxtID>00000004</feedCtxtID><templateID></templateID>';
$new=$new.'<title>'."$ttl".'</title>';
$new=$new.'<summary>'."$desc".'</summary>';
$new=$new.'<entry-type>cs</entry-type><link>https://forum.motofan.ru/index.php?showforum=158</link><canExcerpt>1</canExcerpt><activation>1</activation><referenced>1</referenced></entry>';
if ($i == 50) {last;}

}

$new=$new.'</entry-pkg>';

open( TXT, ">entry.xml" );
print TXT "$new";
close (TXT);

system("copy /Y entry.xml \\\\192.168.16.2\\System\\ezxlocal\\download\\appwrite\\dynamicidle\\di\\pluginlib\\newsreader\\xml");

$t = new Net::Telnet (Timeout => 10, Prompt => '/# $/');
$t->open("192.168.16.2");
$t-> waitfor('/login: $/i');
$t-> print('root');
$t-> waitfor('/# $/i');
$t-> print('ps ax | grep news');
($pids) = $t-> waitfor('/# $/i');
($pid)=$pids=~/(\d+).+?newsreader\/new/gs;
$t-> print("kill $pid");
$t-> waitfor('/# $/i');
$t->close;