Всем доброго времени суток.
С коньками только начал разбираться, всё работает отлично, но многое пока не совсем ясно, особенно со скриптами.
Захотелось сделать в коньках отображение
цитат с башорга и
погоду для своего города.
Использовал чьи-то скрипты, они работают, НО:
1. Цитаты с баша приходят, всё норм, но отображаются только 8 строк максимум (и всегда по-разному, иногда и только 5 строк), соответственно, большинство цитат обрезается. Я ничего не понимаю в скриптах, но может взглянет кто-нибудь опытным глазом и подскажет, что делать.
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use Text::Wrap qw($columns &wrap);
# С помощью этого параметра указывается макс длина строки
$columns=60;
#Забираем цитату с сервака
my $URL="
http://bash.org.ru/forweb/?u";
my $content = get($URL);
#обрабатываем, оставляем только текст
$content=~/\<\'\s\+\s\'br\>(.*)\<\'\s\+\s\'br\>/;
$content=$1;
$content=~s/\<\'\s\+\s\'br\>/\n/g;
$content=~s/\<\'\s\+\s\'br\s+\/\>/\n/g;
$content=~s/\<//g;
$content=~s/\>//g;
$content=~s/\"\;/\"/g;
print wrap("", "", $content);
#print $content;
print "\n";
#the end
2. Погода отлично обновляется и показывается для Питера, пробовал в этот скрипт сунуть код своего города - отображает одно и то же, не обновляется.
#!/usr/bin/perl
if($fc = `curl -s
http://informer.gismeteo.ru/text/26063-1.JS | iconv -f CP1251 -t UTF-8`){
$fc =~ s/(\)+/:/g;
my ($t0,$city,$date,$sky,$prec,$temp,$wind,$site) = split(/:/, $fc);
print "$city: $temp, $sky, $prec; ветер: $wind\n";
}
Подскажите, если нужно что-то исправить. Ну или подскажите, где можно посмотреть готовые скрипты с данными функциями.
А еще помогите настроить отображение
amarok в коньках.
amarok 2.0.2
Как я понял, для этого нужен скрипт в ~/.conky с такими строками (это часть скрипта)
#!/bin/bash
case "$1" in
# Now Playing Info
artist) dcop amarok player artist ;;
title) dcop amarok player title ;;
album) dcop amarok player album ;;
year) dcop amarok player year ;;
genre) dcop amarok player genre ;;
progress)
curr=`dcop amarok player trackCurrentTime`
tot=`dcop amarok player trackTotalTime`
if (( $tot )); then
expr $curr \* 100 / $tot
fi
;;
а в самих коньках строки
$color$stippled_hr${if_running amarok}
${color}${alignc}Сейчас слушаю${color white}
${alignc}${execi 10 ~/.conky/amarok artist}
${alignc}${execi 10 ~/.conky/amarok title}
${execibar 1 ~/.conky/amarok progress}
${alignc}"${execi 10 ~/.conky/amarok album}"
${alignc}${execi 10 ~/.conky/amarok year} - ${color white}${alignc}${execi 10 ~/.conky/amarok genre}
Информация не появляется, а в терминале пишет
ERROR: Couldn't attach to DCOP server!