Perl: monitoring systému v trayi

31.1.2008 22:18 | Přečteno: 1554× | poslední úprava: 1.2.2008 12:00

Něco jsem vyrobil. Koukněte se na to ;) Allintray v.0.9

Co to umí

V oznamovací oblasti (tray) zobrazí vytížení procesoru, zaplnění RAM, síťový provoz (tam a zpět), hlasitost (Master a PCM) a hodiny. To samý se trochu podrobněji zobrazí v bublině (tooltipu) po najetí krysou.

Po kliknutí na různé části se může spustit například nějaký task manager (gtaskmanager nebo xterm s htopem), alsamixer, výstup programu free v xmessage nebo nějaký kalendář (ccal v xmessage).

Scrollování nad políčky Master nebo PCM mění hlasitost příslušného kanálu. Kliknutí prostředním tlačítkem tento kanál ztlumí.

Skrýnšot

Takhle to vypadá. Je to všechno od not doprava. Ty noty jsou plugin do xmms.

Daunloud

Zkrojový kod je zde: tray.pl nebo ke stažení přímo tady. Uložte to třeba jako tray.pl, nastavte tomu práva pro spuštění: chmod +x tray.pl a spusťte: ./tray.pl

update: kvalitnejsi mirror: abclinuxu ;)

Jak to funguje

Napsáno je to v perlu a používá to Gtk2 takže jsou potřeba moduly Gtk2 a Gtk2::TrayIcon.

Data to bere ze souborů /proc/stat a /proc/net/dev (jestli je máte jinde, přepište si to) a z programů free a amixer.

Proč to sem cpu

Možná by se to mohlo někomu hodit, nějakému uživateli evilwm ;) nebo jiného lehkého WM.

Hlavní důvod je ale aby mi někdo kdo umí perl (já to neumim) řekl "tohle máš blbě", "tohle se líp udělá takhle" a tak..

Co bych rád věděl

• Jak nastavit menší šířku těm progressbarům?
• Jak zmenšit velikost fontu v labelu? Chtěl bych dát datum a čas pod sebe ale nevejde se to tam navejšku
• Jak znázorňovat traffic? Zatim to mam tak, že zobrazuju v procentech z pevně zadané hodnoty v kBps. Když teče víc, je to furt 100%. Ale špatně se rozliší "neteče nic" od "teče to pomalu" (hlavně kdyby se ta hodnota nastavila vysoká kdyby měl někdo rychlejší připojení). Nebo průběžně zjišťovat maximální přenos a nastanovat hodnotu 100% na něj?
• Pište další návrhy, nápady, komentáře... Děkuji

       

Obrázky

Komentáře

[Kyosuke]

Moc pěkné. Něco takového si chci vyrobit taky, jen v jazyku postiženém parenthetitidou. A možná jen nad Xkama, Gtk je pro mazánky. Maje "podivné" připojení k síti, rád bych si nějak inteligentně zobrazoval SNMP data z našich dvou bran. Chvílema mám pocit, že v tom je nějakej (ne)řád. :-/

[Přemek Vyhnal]

"jen nad Xkama" by me mozna taky zajimalo.. ale neumim to ;) Gtk jsem zvladnul jenom protoze jsem mel hotovej priklad ;)

[Kvakor]

Pekne. Ten kombinovany tooltip je chytry napad - ja pouzivam System Monitor applet a ten ukazuje tooltipy jen ke kazdemu merici zvlast. Tohle je chytrejsi.

Mereni sitoveho provozu bych pravdepodobne udelal buddto s promenou velikosti maxima, nebo bych se uplne vykaslal na procenta a pouzil napr. logaritmickou stupnici, na ktere jsou videt male toky stejne jako velke. Bohuzel se z ni spatne odcita aktualni rychlost (ale ta je stejne v tooltipu).

Jako jedinou nevyhodu videl nutno neustaleho spousteni novych procesu pro free a amixer. To free lze celkem snadno nahradit parsovanim /proc/meminfo, bohuzel u zvuku mne nic takhle jednoducheho nenapada, leda si cist stav mixeru svepomoci (pokud vim, minimalne na urovni OSS by to mel Perl mohl).

Ja osobne mam neco podobneho, az na to, ze misto do listy (kde uz na to mam gnomacke applety) bezi na pozadi jako demon a zobrazuje udaj na dvojte segmisegmentovce a nekolika diodach. Audio a pamet neumi (mam 2GB a zvuk nastavuju 99% casu na zesilovaci), ale zase ctu teploty a otacky ventilatoru ze senzoru pres /sys. Pokud by nekdo chtel neco podobneho a bez pouzit libsensors, tak je nutne soubor pokazde znovu otevrit, seekovani na zacatek nezpusobi update obsahu (leda ze by to v novych jadrech opravili).

BTW: Nekolisa ta zatez procesru moc? Ja pouzivam zprumerovavani ze ctyr po sobe jdoucich hodnot a jeste delam potlaceni fluktuace. Pro zobrazeni v tray to mozna tak nevadi, ale u display zobrazujiciho cisla to znamena docela velky rozdil. A osobne pocitam do "idle" stavu pouze idle a iowait (tj. ctvrtou a patou hodnotu z /proc/stats).

[Přemek Vyhnal]

ten free nahradim to jo, diky

o tom zprumerovani sem taky premejslel.. no kolisa to tak trosku;).. nevadi to .. taky ze to obnovuje jenom jednou za vterinu. Kdyby se to prumerovalo za delsi dobu tak by zas nebyla hned videt zmena.

a jak mas zapojeny ty segmentovky a diody? neco takovyho taky chystam .) mam tady par LEDek na paralelni port a k nim script na binarni hodiny ;) vytizeni ram a tak... Asi bych ty ledky dal do zaslepky na pozici cd mechaniky ale nez tu zaslepku zacnu nicit tak bych radsi sehnal nakou jinou ktera tam bude pasovat ;)

[Kvakor]

Ja zpumerovani mam, protoze to obnovuju ctyrikrat za sekundu. U jednosekundovych intervalu to ale nejspis vadit nebude. Jedina nevyhoda zprumerovani je to, ze trva jednu sekundu, nez ze po prepnuti zobrazi nejaka smyslupna hodnota.

Ty moje sedmisegmentovky jsou pripojeny pres dva BCD dekodery 74LS48 na vystupy D0-D3 a D4-D7 z paraleniho portu (piny 2 az 9), jejich ~BI vstupy jsou zapojeny na STROBE (pin 1), aby svitily az kdyz je nahodim. Neni treba ani plosnak - mam prislusne vystupy patic a sedmisegmentovky propojene draty, oba obvody jsou pro jistotu v paticich a cele je to zalite lepici pistoli do jedineho bloku, z ktereho koukaji jenom dva dekodery. Ostani LEDky jsou pripojene pres odpory (pokud si pamatuju, tak 220 Ohmu) k zbyvajicim trem vystupum, pokud tam budou jenom LEDky, tak je staci pripojit na vystupy D0 az D7 pres odpor (podle typu) k zemi.

Ovladaci demon je v Ccku, rezidnente ma obsazeno asi 470KB (na 64bitech) a pouziva dve vlakna (jedno na heartbeat, druhe na senzorove udaje). Pouziva jen libc a libpthread, veskera aritmetika je celociselna (pozustatek z doby, kdy to jeste melo vyznam). Tlacitka se ctou pollingem, takze se musi chvilku podrzet. Hearbeat je nastaveny na realtime prioritu, abych vedel, ze stroj opravdu bezi (kdyz neblika, je stroj na 99.9% tvrde rizly). Demona startuju v okamziku, kdy se namountuje /proc. Kdysi jsem mel na jedno tlacitko nastaveny i restart a vypnuti, ale od nove desky, kde mi funguji ACPI tlacitka, to nechavam na ACPI.

[Kyosuke]

To je moc složitý. Kamarád má na tohle k počítači připojený starý dobrý analogový budíky. Není nad klasiku!

[happy barney]

návrhy: cmd-line argumenty: Getopt::Long
vnútorná štruktúra: rozdeľ si každý zdroj dát do samostatného package už teraz (v rámci jednoho súboru). Neskôr ti to umožní implementovať zdroj dát pluginom

[Přemek Vyhnal]

Getopt::Long: no ja skoro ani ty parametry nepotrebuju.. mozna jestli zacnou nejaky casem pribejvat ;)

a ohledne "package" se budu muset teprve vzdelat ;) takze "casem" ;) Mam tu takovou strasne tlustou knizku o perlu ;)

[happy barney]

príklad ...

package main;

use Getopt::Long;

# pouzitie:
# $0 -d mem -D mix-path=/dev/mixer -D mem-size=64G

GetOptions (
  my $args = {},
  'enable-module|e=@s',
  'disable-module|d=@s',
  'define|D=%s',
);

$args->{define}{'cpu-path'} ||= '/...';

my $modules = {
  cpu => 'Plugin::CPU',
  mem => 'Plugin::MEM',
  mix => 'Plugin::Mixer',
};

for my $module (values %$modules) {
  $module = $module->new ($args->{define});
}

...

package Plugin::CPU;

use IO::File;

sub new {
  my ($proto, $param) = @_;
  bless {
    fh => new IO::File ($param->{'cpu-path'}, 'r'),
  };
}

sub process {
  my $self = shift;
  $self->{fh}->seek (0, 0);
  $self->{fh}->getline =~ ...
  # obsah terajsej sub cpu
}

package Plugin::MEM;
...

[Přemek Vyhnal]

cool ;) moc dik!

[happy barney]

niet zač, kľudne skritizujem aj ďaľšiu verziu

[CET]

No, vypada to zajimave, prinejmensim bych to chtel zkusit. Ale ten pastebin.com je nejakej mrtvej. Nemuzes to dat na nejakej normalni funkci server?

Jeste jsem to nevyzkousel, takze nevim, jak "hezky" to funguje, ale momentalne pouzivam na jednoduchy monitorovani (TRUE/FALSE) xbiff.

Xbiff je primarne pro onamovani emailu v lokalnim mailboxu a zobrazuje pouze dva stavy "zadny novy email" nebo "novy email ve schrance". Protoze umoznuje zmenit ikonu, velikost a testovaci prikaz, tak jsem si udelal ikonky velikost 8x32 a 8x16 na monitorovani dostupnosti nejakyho serveru (ping) a stav pripojeni USB disku k PC a zvlast mount stav pasrtisny. Funguje to dobre, ale je to takovy neslany-nemastny reseni - ty grafy, tooltipy a moznosti definice akce na ikone by se hodily. Bohuzel jsem nenasel nic jineho nez xbiff, co by splnovalo moje pozadavky

• Moznost nastavit sirku a vysku a pozici. Mam WindowMaker s ikonama 32x32 pouze jeden sloupecek vlevo na obrazovce a aplikace maximalizuju tak, aby neprekryvaly ty ikony, cili tam mam volne misto prave na sirku 32, vysku bych pak chtel regulovat podle obsahu informace. Vetsina monitorovacich nastroju pro WMaker vetsinou ukazuji detailni informace, ale jsou delane pro okno min.48x48, takze kdyz je pomoci -geometry zmensim, tak vidim prd.
• Pripadne nastavovat druh obsahu okna (ikona/obrazek, text+velikost, graf, progressbar).
• Moznost zobrazovat pouze vnitrek okna, zadne okraje, titulek (tohle si dokazu nastavit ve WindowMakerovi).
• Moznost definovat pocet informacnich okynek a prikaz na zjistovani - momentalne pouzivam bash skripty, ktery jsou xbiffem opakovane spoustene. (neni to super reseni, ale myslim, ze ping -c 2, grep na /proc/mounts a ls zas tolik systemu neberou, ale mozna kdyby to bylo napsany kompletne v perlu, tak by to mozna bylo o malicko lepsi)
• Dulezite informace by mely byt videt hned (detaily treba po najeti v tooltipu, jak je tady v tom). Tedy zadnou jednu ikonku, na kterou musim klepnout, aby se mi otevrelo nejaky okno.
• A nejdulezitejsi! Nesmi to byt zavisle na window manageru, cili zadny integrovane do KDE/Gnome atd. melo by to byt proste okno, chci to spoustet ve WindowMakeru (ani s dockama nemam moc dobry zkusenosti, prave proto, ze jsou obvykle delany pro vetsi rozmery, nez ja chci a pri zmenseni neni obsah videt).

Existuje neco takovyho? Diky.

[happy barney]

A nejdulezitejsi!

subset, pche osobne som zástanca superset-u

[CET]

A nejdulezitejsi!

subset, pche osobne som zástanca superset-u

Hehe, nechapu Muzes tu tvoji reakci nejak rozvest? Diky

[happy barney]

subset = podmnožina (vlastností) ... žiadne gnome, žiadne kde

superset = nadmnožina ... aj gnome, aj kde (nech si user dokódi svoj vlastný plugin, ak nemá, čo práve chce)

[CET]

No, spis mi slo o to, aby to bylo neco univerzalniho. Bude mi trosku nahouby neco, co se bude snazit nacpat do nejakyho KDE/Gnome traye, kterej ja ve Window Makeru nemam - to jsem zazil u PSI, kterej se po minimalizaci zadokoval buh-vi-kam a ja ho pak musel killnout a rucne zmenit konfiguraci (vypnout dockovani). Takze takhle ne. No a pak na jednoduchy okno s textem myslim neni potreba ani super-featurky Qt nebo Gtk. A prestoze mam nainstalovany i Gtk, Gnome veci, Qt a KDE veci, tak spis hledam neco, co nebude mit tisice zavislosti, nemluve o nejakych silenych zavislostech na skoro-nepouzivanych knihovnach nebo baliccich.

[happy barney]

pri súčastnom stave knižníc to univerzálne nebude.

ono, je také ťažké niečo naprogramovať? pár knižiek, pár príkladov, trocha dobrej vôle, a môžeme sa baviť aj o vašom výtvore

[CET]

pri súčastnom stave knižníc to univerzálne nebude.

Ale jo. Jde to i univerzalne. Ale dneska kazdej chytne python+qt a uz to tam masti. Ale pak to neni pro kazdyho. Viz napr. xbiff nebo i ten gkrellm (kdyz koukam na jeho zavislosti v gentoo s vypnutyma vsema flagama, tak tam nevidim kde, gnome, gtk+ ani qt).

ono, je také ťažké niečo naprogramovať? pár knižiek, pár príkladov, trocha dobrej vôle, a môžeme sa baviť aj o vašom výtvore

Na tuhle otazku existuji dve odpovedi. Odpoved "Ne, neni to tezke" odpovi programator. Odpoved "Ano, je to tezsi" odpovi admin. Ja jsem spis admin, takze prevazne bashuju na cmdline a ke grafice se nedostanu. Pokud uz bych neco delal v grafice, tak to bude taky v nejakym perlu nebo tak a bude to klasicky okno (ktery bude urcite taky navazany, kvuli ruznym modulum, na dalsi knihovny). Tady bych ale potreboval nejakou light verzi okna, kde se zobrazi jenom jeden nebo dva prvky (text+bar, etc). Mozna nejlip v C/C++ nebo tak za pouziti standardnich C knihoven a X knihoven. A tohle uz bohuzel nezvladnu. Jak jsem psal, vzal jsem si xbiff a ten jsem si doupravil pomoci check-commandu, ikon a zmenou velikosti. Jeste bych mozna dokazal nejak lehce upravit zdrojak xbiffu. Ale pripsat tam neco dalsiho, to asi sotva. Ale neslo mi o to tady nekoho nutit, aby to pro me napsal. Spis me zajimalo, jestli nekdo neco takovyho uz nema nebo jestli to nezna. Zkousel jsem ruzne wm* dockapps, ale velikosti ikony me zklamaly. Taky se tam nedaly napasovat vlastni hlaseni a testy. Tak jsem znasilnil xbiff.

[CET]

Jo, takze presne tenhle skript je ukazka toho, co nechci. Pustim ten skript a nevidim nic - proste nemam trey, ikdyz si myslim, ze mam light WM, snad teda WMaker je light (aspon oproti KDE/Gnome). Tak skoda.

[Přemek Vyhnal]

nemas tray? tak to nemuze fungovat, je to udelany kvuli tomu aby se to zobrazovalo v tray ;) jestli to chces jako normalni okno tak by se to mozna dalo zmenit nekde jak je ř.100: $tray = Gtk2::TrayIcon->new("allintray"); prepsat na okno.. a jestli to chces doleva svisle tak asi HBox vymenit za VBox

jinak funguje to a otestovano to je v programu "trayer" To je myslim vykuchana "oznamovaci oblast" z panelu pro fluxbox nebo tak neco

[Přemek Vyhnal]

Příloha:

• tray.pl (8151 bytů)

V příloze to je ještě jednou. Kdyby někomu nejel pastebin.