HPC.ru lite - Все форумы
Форум: КПК и смартфоны на Linux: Zaurus, планшеты Nokia, прочее
Тема: Weather
Страницы: 1 [2]
[Ответить]
svsleaves [29.09.2004 15:33] :
Будет время - переделаю скрипты, вытаскивающие прогноз погоды. Чтобы клали в календарь.
Syd [29.09.2004 16:43] :
svsleaves писал(а):
Будет время - переделаю скрипты, вытаскивающие прогноз погоды. Чтобы клали в календарь.
А в какой календарь? Мне вот, к примеру, интересен KO/Pi.
Кстати, а можно на скрипты посмотреть?
2igorekk: я не встречал, хотя может плохо искал.
svsleaves [29.09.2004 16:59] :
Syd писал(а):
[quote:bb4a9a60a5="svsleaves"]Будет время - переделаю скрипты, вытаскивающие прогноз погоды. Чтобы клали в календарь.
А в какой календарь? Мне вот, к примеру, интересен KO/Pi.
Кстати, а можно на скрипты посмотреть?
Мне KO/Pi тоже больше нравится. И формат у него подходящий.
#!/usr/bin/perl
use LWP::UserAgent;
$[ = 1;
$addr=join(" ",@ARGV);
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $url = "http://weather.cnn.com/weather/forecast.jsp?locCode=ULLL";
my $req = new HTTP::Request GET => $url;
my $res = $ua->request($req);
if ($res->is_success)
{
$out="";
$cont=$res->content;
while ($cont=~m%.*?(Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday).*?\((.*?)\°C\).*?\((.*?)\°C\).*?med/(.*?)\.gif%gs) {
$out=$out."$1 $2 $3 $4 ";
}
$out=~s/Sunday/Sun/;
$out=~s/Monday/Mon/;
$out=~s/Tuesday/Tue/;
$out=~s/Wednesday/Wed/;
$out=~s/Thursday/Thu/;
$out=~s/Friday/Fri/;
$out=~s/Saturday/Sat/;
$out=~s/\./ /g;
$out=~s/ $//;
$out=~s%partly cloudy%p/cloudy%g;
foreach $_ ( @ARGV )
{
open(FIFO,"| /usr/local/bin/sendsms.pl $_");
print FIFO $out;
close(FIFO);
}
exit;
}
Syd [29.09.2004 17:07] :
Интересно, а как запихнуть вывод в копи? Точнее не как, а в каком виде?
svsleaves [29.09.2004 17:15] :
Syd писал(а):
Интересно, а как запихнуть вывод в копи? Точнее не как, а в каком виде?
В том же, что и он сам кладет.
Примерно так:
~/kdepim/apps/korganizer/mycalendar.ics
PRODID:-//K Desktop Environment//NONSGML libkcal 3.1//EN
VERSION:2.0
...
BEGIN:VTODO
DTSTAMP:20040929T130515Z
ORGANIZER:MAILTO:svs@leaves.ru
X-KOPIEXTID::
CREATED:20040929T130511Z
UID:libkcal-654887343.538
SEQUENCE:0
LAST-MODIFIED:20040929T130511Z
DESCRIPTION:Wed 13 5 rain Thu 12 6 cloudy Fri 11 3 cloudy Sat 8 1 p/cloudy Sun 8 -1 p/cloudy
SUMMARY:Погода
LOCATION:Home
CLASS
UBLIC
PRIORITY:3
PERCENT-COMPLETE:0
END:VTODO
...
END:VCALENDAR
Syd [29.09.2004 17:29] :
Нет, я немного не об этом =))) Я про то, что погода будет отображаться как что - как ToDO, как евент или как запись в журнале? Хорошо бы еще иконки присобачить туда, как у того японца.
svsleaves [29.09.2004 17:39] :
Syd писал(а):
Нет, я немного не об этом =))) Я про то, что погода будет отображаться как что - как ToDO, как евент или как запись в журнале? Хорошо бы еще иконки присобачить туда, как у того японца.
Дерзайте.
[Ответить]
[< Назад]