ADSL FUP v Perlu (Radiokomunikace)

29.8.2007 19:28 | Přečteno: 1496× | poslední úprava: 31.1.2008 22:54

Uživatelům ADSL s FUP od Českých radiokomunikací by se mohl hodit script, který se připojí na FUP portál a stáhne a vypíše kolik dat je tento měsíc přeneseno a kolik zbývá.

Informace vypisuje na příkazové řádce a je napsaný v Perlu. Tady je:

1. #!/usr/bin/perl -w
2. # 2007-08-29 Premek Vyhnal <premysl.vyhnal gmail.com> (Public domain)
3.  
4. use LWP::UserAgent;
5.  
6. # NASTAVENI
7. # telefonni cislo
8. $tel = 000000000;
9. # heslo (defaultni je cislo smlouvy)
10. $pass = 00000000;
11.  
12. $ua = LWP::UserAgent->new;
13. $ua->agent(""); # User agent - identifikace "prohlizece"
14. $ua->cookie_jar({}); # zapnout cookies
15. # odeslat prihlasovaci formular pomoci POST
16. $req = HTTP::Request->new(POST => "https://fup.radiokomunikace.cz/index.php");
17. $req->content_type("application/x-www-form-urlencoded");
18. $req->content("action=login&user_name=$tel\@bluetone.adsl&user_password=$pass");
19. $ua->request($req);
20. $res = $ua->get("https://fup.radiokomunikace.cz/main.php");
21. if ($res->is_success) { $_ = $res->content;}
22. else { die $res->status_line, "\n"; } # skoncit v pripade chyby
23.  
24. # ukoncit v pripade spatneho jmena/hesla
25. die "Neplatne prihlasovaci udaje.\n" if(m/(Va.e p..hl..en. do aplikace nen. platn.)/);
26.  
27. ($perc) = m/<span id="progr">([.\d]+) %<\/span>/;
28. ($limit) = m/FUP limit: ([,\d]+) GB<br \/>/;
29. ($sezrano, $smgb) = m/Tento m.s.c: ([,\d]+) (\w)B<br \/>/;
30. ($zbyva, $zmgb) = m/Do p.ekro.en. zb.v.: ([,\d]+) (\w)B/;
31.  
32. s/,/./ foreach ($limit,$sezrano,$zbyva);
33.  
34. @cas = localtime(time);
35. ($den,$mesic,$rok) = ($cas[3],$cas[4]+1,$cas[5]+1900);
36. # pocet dnu v tomto mesici
37. @dny= qw( 31 28 31 30 31 30 31 31 30 31 30 31 );
38. $dnu = $dny[$mesic-1];
39. $dnu = 29 if ($mesic==2 and $rok%4==0 && $rok%100==0 || $rok%400==0);
40. $zbyvadnu = $dnu-$den+1; # dnu do konce mesice (vcetne dneska)
41.  
42. print "
43. Limit: $limit GB
44. ".int(($limit/$dnu)*100)/100 ." GB/den
45.  
46. Spotrebovano: $sezrano ".$smgb."B
47. $perc %
48. ".int(($sezrano/$den)*100)/100 ." ".$smgb."B/den
49.  
50. Zbyva: $zbyva ".$zmgb."B
51. $zbyvadnu dnu
52. ".int(($zbyva/$zbyvadnu)*100)/100 ." ".$zmgb."B/den
53. ";

Použití:

1. Uložit do souboru pod libovolným jménem např. někam do /usr/bin/
2. Na řádcích 8 a 10 vyplnit své telefonní číslo a heslo na fup portál - pokud jste ho neněnili je to číslo smlouvy
3. Nastavit práva pro spouštění (chmod +x jmenosouboru)
4. Pro spuštění napište jeho jméno na příkazové řádce

Script vypíše například:

Limit:        24.00 GB
              0.8 GB/den

Spotrebovano: 4.96 MB
              0 %
              4.96 MB/den

Zbyva:        24.00 GB
              30 dnu
              0.8 GB/den

Na výpisu je vidět

• celkový limit,
• průměr na jeden den,
• kolik již bylo přeneseno,
• kolik již bylo přeneseno v procentech z celkového limitu,
• kolik bylo přeneseno v průměru každý den,
• kolik zbývá přenést do konce měsíce,
• kolik zbývá přenést každý den (porovnáním s předchozími průměry jde zjistit jestli stahuji míň než můžu a nebo jestli musím začít brzdit).

Jestli někdo vidíte chybu nebo byste něco udělali líp/jinak, dejte mi vědět. Pak nevim jestli to bude fungovat i když někdo má nastaveno snížení rychlosti místo placení za data navíc. Testujte.

Upraveno: (2007-09-01) opraveno podle happy barney + funguje i když je některá hodnota v MB místo GB.

       

Komentáře

[sewi]

A jak je to s tim fupem u radiokomunikaci? Me uperatorka tvrdila, ze to neni poznat a ze zadna konkretni hodnota ani neni.

[Přemek Vyhnal]

hodnota je docela konkretni.. u kazdyho tarifu tam mas limit ja mam treba

Rychlost: 4096/256 kbps 
FUP limit: 24,00 GB

a sam si muzes vybrat jestli chces snizeni rychlosti nebo platit za GB ktery preneses navic..

kdyz mas to snizeni tak to mas po tejdnech (tydenni limit / 4) a kdyz dosahnes 80% (asi) tak ti snad zpomalej veci jako torrenty a tak.. a po 100% i web a mail. tu rychlost snizej docela dost.. vsechno to je v tom pdfku

a kdyz chces platit za data navic tak by to melo bejt ten limit na celej mesic ne tejdny..

[sewi]

docela pojeb, to kdyby mi rekla na infolajne kdyz me vabila na vyssi rychlost tak ji poslu nekam.

[_radek]

Nemluvíte náhodou každý o jiné službě: Classic / Premium

[sewi]

Mluvime, pak mi to taky doslo.

[happy barney]

poznámka k vlastnostiam perlu:

($limit) = m/FUP limit: ([,\d]+) GB/;

[Přemek Vyhnal]

Super! diky .-)