abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 20:00 | Komunita

    V březnu loňského roku přestal být Redis svobodný. Společnost Redis Labs jej přelicencovala z licence BSD na nesvobodné licence Redis Source Available License (RSALv2) a Server Side Public License (SSPLv1). Hned o pár dní později vznikly svobodné forky Redisu s názvy Valkey a Redict. Dnes bylo oznámeno, že Redis je opět svobodný. S nejnovější verzí 8 je k dispozici také pod licencí AGPLv3.

    Ladislav Hagara | Komentářů: 0
    dnes 19:22 | IT novinky

    Oficiální ceny Raspberry Pi Compute Modulů 4 klesly o 5 dolarů (4 GB varianty), respektive o 10 dolarů (8 GB varianty).

    Ladislav Hagara | Komentářů: 0
    včera 22:33 | Nová verze

    Byla vydána beta verze openSUSE Leap 16. Ve výchozím nastavení s novým instalátorem Agama.

    Ladislav Hagara | Komentářů: 0
    včera 17:44 | Zajímavý článek

    Devadesátková hra Brány Skeldalu prošla portací a je dostupná na platformě Steam. Vyšel i parádní blog autora o portaci na moderní systémy a platformy včetně Linuxu.

    karkar | Komentářů: 0
    včera 12:11 | Humor

    Lidi dělají divné věci. Například spouští Linux v Excelu. Využít je emulátor RISC-V mini-rv32ima sestavený jako knihovna DLL, která je volaná z makra VBA (Visual Basic for Applications).

    Ladislav Hagara | Komentářů: 7
    včera 10:44 | IT novinky

    Revolut nabídne neomezený mobilní tarif za 12,50 eur (312 Kč). Aktuálně startuje ve Velké Británii a Německu.

    Ladislav Hagara | Komentářů: 28
    včera 09:55 | IT novinky

    Společnost Amazon miliardáře Jeffa Bezose vypustila na oběžnou dráhu první várku družic svého projektu Kuiper, který má z vesmíru poskytovat vysokorychlostní internetové připojení po celém světě a snažit se konkurovat nyní dominantnímu Starlinku nejbohatšího muže planety Elona Muska.

    Ladislav Hagara | Komentářů: 6
    včera 09:33 | IT novinky

    Poslední aktualizací začal model GPT-4o uživatelům příliš podlézat. OpenAI jej tak vrátila k předchozí verzi.

    Ladislav Hagara | Komentářů: 0
    včera 08:11 | Nová verze

    Google Chrome 136 byl prohlášen za stabilní. Nejnovější stabilní verze 136.0.7103.59 přináší řadu novinek z hlediska uživatelů i vývojářů. Podrobný přehled v poznámkách k vydání. Opraveno bylo 8 bezpečnostních chyb. Vylepšeny byly také nástroje pro vývojáře.

    Ladislav Hagara | Komentářů: 0
    29.4. 20:55 | Nová verze

    Homebrew (Wikipedie), správce balíčků pro macOS a od verze 2.0.0 také pro Linux, byl vydán ve verzi 4.5.0. Na stránce Homebrew Formulae lze procházet seznamem balíčků. K dispozici jsou také různé statistiky.

    Ladislav Hagara | Komentářů: 0
    Jaký filesystém primárně používáte?
     (58%)
     (1%)
     (9%)
     (21%)
     (4%)
     (1%)
     (2%)
     (0%)
     (1%)
     (3%)
    Celkem 497 hlasů
     Komentářů: 19, poslední včera 11:32
    Rozcestník

    ADSL FUP v Perlu (Radiokomunikace)

    29.8.2007 19:28 | Přečteno: 1439× | 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

    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.

           

    Hodnocení: 100 %

            špatnédobré        

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    Komentáře

    Vložit další komentář

    29.8.2007 19:54 sewi | skóre: 21 | blog: Bunker Hill | Prostějov
    Rozbalit Rozbalit vše Re: ADSL FUP v Perlu (Radiokomunikace)

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

    And they thought they were free
    Přemek Vyhnal avatar 29.8.2007 20:26 Přemek Vyhnal | skóre: 24 | blog: Toto není blog! | Dobřichovice
    Rozbalit Rozbalit vše Re: ADSL FUP v Perlu (Radiokomunikace)
    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..
    NO RAPTORS!
    29.8.2007 20:32 sewi | skóre: 21 | blog: Bunker Hill | Prostějov
    Rozbalit Rozbalit vše Re: ADSL FUP v Perlu (Radiokomunikace)

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

    And they thought they were free
    29.8.2007 21:18 _radek | skóre: 19
    Rozbalit Rozbalit vše Re: ADSL FUP v Perlu (Radiokomunikace)
    Nemluvíte náhodou každý o jiné službě: Classic / Premium
    29.8.2007 21:41 sewi | skóre: 21 | blog: Bunker Hill | Prostějov
    Rozbalit Rozbalit vše Re: ADSL FUP v Perlu (Radiokomunikace)

    Mluvime, pak mi to taky doslo.

    And they thought they were free
    30.8.2007 16:35 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: ADSL FUP v Perlu (Radiokomunikace)
    poznámka k vlastnostiam perlu:
    ($limit) = m/FUP limit: ([,\d]+) GB/;
    
    Přemek Vyhnal avatar 30.8.2007 17:40 Přemek Vyhnal | skóre: 24 | blog: Toto není blog! | Dobřichovice
    Rozbalit Rozbalit vše Re: ADSL FUP v Perlu (Radiokomunikace)
    Super! diky .-)
    NO RAPTORS!

    Založit nové vláknoNahoru

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.