code:


TEXT

${color green}$sysname $kernel $machine

Uptime: ${color yellow}$uptime

${color green}Battery: ${color yellow}$acpiacadapter  $battery

${color green}CPU: ${color yellow} $cpu% / $freq Mhz

${color grey}${cpugraph 16,260 0000ff 00ff00}

${color green}RAM: ${color yellow} $mem/$memmax $memperc%

${color grey}

${color green}mount:$color

 ${color yellow}/    $color${fs_size /}\${fs_used /} ${color #AABBCC}${fs_bar /}

 ${color yellow}/tmp $color${fs_size /tmp}\${fs_used /tmp} ${color #AABBCC}${fs_bar /tmp}

 ${color yellow}/var $color${fs_size /var}\${fs_used /var} ${color #AABBCC}${fs_bar /var}

 ${color yellow}/usr $color${fs_size /usr}\${fs_used /usr} ${color #AABBCC}${fs_bar /usr}



${color green}rl0 ${addr rl0}:  ${color yellow}in:${color grey}  ${downspeed rl0} k/s ${totaldown rl0} ${color yellow}out:${color grey} ${upspeed rl0} k/s ${totalup rl0}

${color grey}${downspeedgraph rl0 22,150 66CDAA 32CD32 } ${color grey}${upspeedgraph rl0 22,150 66CDAA 32CD32}

${color green}iwi0 ${addr iwi0}: ${color yellow}in:${color grey}  ${downspeed iwi0} k/s ${totaldown iwi0} ${color yellow}out:${color grey} ${upspeed iwi0} k/s ${totalup iwi0}

${color grey}${downspeedgraph iwi0 22,150 66CDAA 32CD32 } ${color grey}${upspeedgraph iwi0 22,150 66CDAA 32CD32}

${color green}Погода:${color yellow} 

${execi 3600 /usr/home/owner/weather}

code:


#!/usr/bin/perl



if ($fc = `curl -s http://informer.gismeteo.ru/text/34731-1.JS | iconv -f CP1251 -t koi8-r`)

{

    $fc =~ s/(\<((?!\< ).)*\>)+/:/g;

    my ($t0, $city, $date, $sky, $prec, $temp, $wind, $site) = split(/:/, $fc);

    print "$city: $temp, $sky, $prec; Ветер: $wind\n";

}