Ahoj, potrebuji pomoct s Tv pogtamem program se obevi, ale nevypisuji se nazvy stanic.
Conky:
stippled_borders 0
border_margin 6
border_width 0
own_window yes
own_window_type override
own_window_transparent yes
own_window_hints undecorated,below,sticky,skip_taskbar,skip_pager
double_buffer yes
use_spacer yes
use_xft yes
update_interval 1.0
draw_shades no
draw_outline no
draw_borders yes
xftfont ae_AlMothnna:size=7
uppercase no
#default_color ff9730
alignment top_left
text_buffer_size 2500
gap_x 975
gap_y 20
TEXT
$color
${color #ffffff}$kernel ${color #ffffff}$machine ${alignr} ${color #ffffff}${nodename}
${color #ffffff}Uptime: $uptime ${alignr}Load: $loadavg
${color #ffffff}CPU: ${color #ffffff}${freq cpu1}MHz ${cpu}% ${cpubar}
${cpugraph cpu0 40 ffffff ffffff}
${color #ffffff}PROCESY ${alignr}CPU% MEM%
${color #ffffff}${top name 1} ${alignr} ${top cpu 1} ${top mem 1}
${color #ffffff}${top name 2} ${alignr} ${top cpu 2} ${top mem 2}
${color #ffffff}${top name 3} ${alignr} ${top cpu 3} ${top mem 3}
${color #ffffff}${top name 4} ${alignr} ${top cpu 4} ${top mem 4}
${color #ffffff}${top name 5} ${alignr} ${top cpu 5} ${top mem 5}
${color #ffffff}Celkem: $processes, běžící: $running_processes
${color #ffffff}RAM: ${color #ffffff}$mem / max: $memmax ${color #ffffff}${membar 6}$color
${color #ffffff}SWAP: ${color #ffffff}$swap / max: $swapmax ${color #ffffff} ${swapbar 6}$color
${color #ffffff}Ubuntu: ${color #ffffff}${fs_free /} / ${fs_used /} / ${fs_size /} ${fs_bar 6 /}
${color #ffffff}Windows: ${color #ffffff}${fs_free /media/disk} / ${fs_used /media/disk} / ${fs_size /media/disk} ${fs_bar 6 /media/disk}
${color #ffffff}Bordel: ${color #ffffff}${fs_free /media/Bordel } / ${fs_used /media/Bordel } / ${fs_size /media/Bordel } ${fs_bar 6 /media/Bordel }
${color #ffffff}DVD: ${color #ffffff}${fs_free /media/cdrom} / ${fs_used /media/cdrom} / ${fs_size /media/cdrom} ${fs_bar 6 /media/cdrom}
${color #ffffff}SÍŤ: ${alignr}${color #ffffff}${addr eth0}
${color #ffffff}Příjem: ${color #ffffff} ${downspeed eth0} ${color #ffffff} KiB/s ${alignr} Odesílání: ${color #ffffff}${upspeed eth0}${color #ffffff} KiB/s
${color #ffffff}Příjem: ${totaldown eth0} ${alignr}Odesílání: ${totalup eth0}
${color #ffffff}${downspeedgraph eth0 40,140 ffffff ffffff}${alignr}${upspeedgraph eth0 40,140 ffffff ffffff}
${color #ffffff}
${texeci 360 perl ~/.conky/weather.pl Ostrava cz m ~/.conky/weather.template ~/.conky/weather.conky}
${execpi 247 cat ~/.conky/weather.conky}
TV program ${time %T} -------------------------------------------------------------
${execpi 200 cat ~/.conky/tv.conky}${texeci 300 ~/.conky/tv.pl 4 49 color3 > ~/.conky/tv.conky}
Kurzy měn ---------------------------------------------------------------------------------
${texeci 3600 ~/.conky/rates.pl}
tv.pl:
#!/usr/bin/perl
use Text::Wrap;
use Encode;
$file = "$ENV{HOME}/.conky/tv.xml";
$indent = " " x $ARGV[0];
$Text::Wrap::columns = $ARGV[1];
$description = $ARGV[2];
`wget -O $file "http://www.tampiss.com/rss/tv_online.xml"`;
$skip = 0;
open (FILE, "<:encoding(utf8)", $file);
if ($description eq "yes") {
while (<FILE>) {
if (m/\<title\>(.*) \> (.{13}) \> ([\S| ]*\S)/){
print encode_utf8 sprintf("%-5s $2\n", $1);
print encode_utf8 wrap($indent,$indent, $3."\n");
}
}
}
elsif ($description eq "yes") {
while (<FILE>) {
if (m/\<title\>(.*) \> (.{13}) \> ([\S| ]*\S)/){
print encode_utf8 sprintf("%-5s $2\n", $1);
print encode_utf8 wrap($indent,$indent, $3."\n");
}
elsif (m/\<description\>([\S| ]*\S).*\<\/description\>/) {
if ($skip == 0) { $skip++ }
elsif ($1 ne "") {print encode_utf8 wrap($indent,$indent, $1)."\n"};
}
}
}
elsif ($description =~ m/color[0-9]/) {
while (<FILE>) {
if (m/\<title\>(.*) \> (.{13}) \> ([\S| ]*\S)/){
print encode_utf8 sprintf("%-5s $2\n", $1);
print encode_utf8 wrap($indent,$indent, $3."\n");
}
elsif (m/\<description\>([\S| ]*\S).*\<\/description\>/) {
if ($skip == 0) { $skip++ }
elsif ($1 ne "") {print "\$\{$description\}".encode_utf8 wrap($indent,$indent, $1)."\$Color\n"};
}
}
}
close (FILE);