m-am uitat la repezeala pe tcpstat. daca face ce am inteles eu, nu pricep ce nevoie ai de el? tot scrii perl, nu? citeste din /proc/net/dev, parseaza ce este acolo, scade cit erau counterele la pasul anterior, imparti la _delay_sleep; faci sleep.. etc
On Fri, Jun 14, 2002 at 06:20:08PM +0200, Ciprian Niculescu wrote: > urmatorul script: > #!/usr/bin/perl > $TCS="/usr/local/bin/tcpstat"; > > # ethernet 2 > $a[1][1]=qx/$TCS -i eth2 -f "ip[1]=0x10" -o "%b" -s 5/; > print "$a[1][1]\n"; > $a[2][1]=qx/$TCS -i eth2 -f "ip[1]=0x08" -o "%b" -s 5/; > print "$a[2][1]\n"; > > > totul merge bine si frumos, atata vreme cat exista trafic, daca nu > exista tcpstat se blocheaza in asteptarea unui pachet. > > cine nu stie: tcpstat baga info de trafic instantaneu, cu parametrul -s > 5, am specificat ca dupa 5 secunde se opreste si baga traficul pe output. > > Am scris autorului de acest bug, dar pana atunci, cum as putea sa pun un > timeout ceva, dar cat mai simplu. > > C > > > --- > Pentru dezabonare, trimiteti mail la > [EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'. > REGULI, arhive si alte informatii: http://www.lug.ro/mlist/ -- ___ <o-o> Viorel ANGHEL <vang @ lug.ro> [`-'] -"-"- In Linux We Trust. --- Pentru dezabonare, trimiteti mail la [EMAIL PROTECTED] cu subiectul 'unsubscribe rlug'. REGULI, arhive si alte informatii: http://www.lug.ro/mlist/
