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 00:33 | Bezpečnostní upozornění

    V repozitáři AUR (Arch User Repository) linuxové distribuce Arch Linux byly nalezeny a odstraněny tři balíčky s malwarem. Jedná se o librewolf-fix-bin, firefox-patch-bin a zen-browser-patched-bin.

    Ladislav Hagara | Komentářů: 0
    dnes 00:22 | Komunita

    Dle plánu by Debian 13 s kódovým názvem Trixie měl vyjít v sobotu 9. srpna.

    Ladislav Hagara | Komentářů: 0
    včera 13:22 | Komunita

    Vývoj linuxové distribuce Clear Linux (Wikipedie) vyvíjené společností Intel a optimalizováné pro jejich procesory byl oficiálně ukončen.

    Ladislav Hagara | Komentářů: 1
    18.7. 14:00 | Zajímavý článek

    Byl publikován aktuální přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    18.7. 12:00 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Forgejo byla vydána ve verzi 12.0 (Mastodon). Forgejo je fork Gitei.

    Ladislav Hagara | Komentářů: 1
    17.7. 18:44 | Zajímavý článek

    Nová čísla časopisů od nakladatelství Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 155 (pdf) a Hello World 27 (pdf).

    Ladislav Hagara | Komentářů: 1
    17.7. 16:11 | Nová verze

    Hyprland, tj. kompozitor pro Wayland zaměřený na dláždění okny a zároveň grafické efekty, byl vydán ve verzi 0.50.0. Podrobný přehled novinek na GitHubu.

    Ladislav Hagara | Komentářů: 4
    17.7. 15:55 | Komunita

    Patrick Volkerding oznámil před dvaatřiceti lety vydání Slackware Linuxu 1.00. Slackware Linux byl tenkrát k dispozici na 3,5 palcových disketách. Základní systém byl na 13 disketách. Kdo chtěl grafiku, potřeboval dalších 11 disket. Slackware Linux 1.00 byl postaven na Linuxu .99pl11 Alpha, libc 4.4.1, g++ 2.4.5 a XFree86 1.3.

    Ladislav Hagara | Komentářů: 5
    16.7. 21:22 | IT novinky

    Ministerstvo pro místní rozvoj (MMR) jako první orgán státní správy v Česku spustilo takzvaný „bug bounty“ program pro odhalování bezpečnostních rizik a zranitelných míst ve svých informačních systémech. Za nalezení kritické zranitelnosti nabízí veřejnosti odměnu 1000 eur, v případě vysoké závažnosti je to 500 eur. Program se inspiruje přístupy běžnými v komerčním sektoru nebo ve veřejné sféře v zahraničí.

    Ladislav Hagara | Komentářů: 19
    16.7. 16:22 | IT novinky

    Vláda dne 16. července 2025 schválila návrh nového jednotného vizuálního stylu státní správy. Vytvořilo jej na základě veřejné soutěže studio Najbrt. Náklady na přípravu návrhu a metodiky činily tři miliony korun. Modernizovaný dvouocasý lev vychází z malého státního znaku. Vizuální styl doprovází originální písmo Czechia Sans.

    Ladislav Hagara | Komentářů: 26
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (15%)
     (15%)
     (8%)
     (0%)
     (0%)
     (8%)
     (0%)
     (54%)
    Celkem 13 hlasů
     Komentářů: 3, poslední včera 17:26
    Rozcestník

    Dotaz: Perl XMPP Jabber

    pepe_ avatar 10.9.2012 20:17 pepe_ | skóre: 48
    Perl XMPP Jabber
    Přečteno: 402×

    Zdravim , jelikoz neovladam perl ale mam v perlu scriptik pro ICQ , ten bych potreboval upravit pro XMPP :

     

    ---

     

    #!/usr/bin/perl
    use strict;
    #use warnings;
    use Net::OSCAR qw(:standard);
    use LWP::Simple;
    use Text::Iconv;
    
    my $screenname = '***icq-uin***';
    my $password   = '***icq-pass***';
    my $encoding = 'ISO-8859-2';
    #my $encoding = 'UTF-8';
    my $oscar;
    my $meme;
    my $iconv_utf8 = Text::Iconv->new("UTF-8", $encoding);
    my $iconv_utf16 = Text::Iconv->new("UTF-16BE", $encoding);
    
    $oscar = Net::OSCAR->new();
    $oscar->set_callback_im_in(\&im_in);
    $oscar->signon($screenname, $password);
    
    while(1) {
        $oscar->do_one_loop();
    }
    sub im_in {
        my($oscar, $sender, $message) = @_;
    
        $message = $iconv_utf16->convert($message) || $iconv_utf8->convert($message) || $message || return;
        print "\n\n\n\n*** \'".$sender."\' napsal: \'".$message."\' \n\n";
        my $bash_command='./icq_run.sh '.$message.' |';
        open(my $output,$bash_command) or die $!;
        while(my $line=<$output>){
        $oscar->send_im($sender, $line);
    }
    }
    

     

     

    ---

     

    Poradí někdo jak to předělat na XMPP / Jabber ?  Nějak mi ty návody nefungujou : ->

     

    viz :   http://codehacienda.wordpress.com/2011/02/25/perl-xmpp-library-for-creating-a-chat-bot-anyeventxmpp-example/

    Odpovědi

    mess avatar 10.9.2012 20:29 mess | skóre: 43 | blog: bordel | Háj ve Slezsku - Smolkov
    Rozbalit Rozbalit vše Re: Perl XMPP Jabber
    Několik jednoduchých kroků:
    1. Zahoď ten skript pro ICQ. Knihovna pro Jabber bude mít úplně jiné rozhraní a bude se úplně jinak používat.
    2. Stáhni si a uprav tohohle Jabber Bota (klikni si nahoře na "View source", ten jejich zvýrazňovač syntaxe tam nasekal nějaké chyby). Podle zběžného pohledu by to mělo umět poslat zpátky každou zprávu, kterou tomu pošleš.
    3. Profit!
    Cez párne mesiace zošíváš vaginy, cez neparne montuješ hajzle.
    pepe_ avatar 11.9.2012 00:05 pepe_ | skóre: 48
    Rozbalit Rozbalit vše Re: Perl XMPP Jabber

    Zatím mám :

     

    #!/usr/bin/python
    import xmpp
    login = 'uziv_jmeno' 
    pwd   = 'uziv_heslo'
    cnx = xmpp.Client('jabber.root.cz')
    cnx.connect( server=('jabber.root.cz',5223) )
    cnx.auth(login,pwd, 'chat')
    cnx.send(xmpp.dispatcher.Presence(status=""))
    
    def messageHandler(conex,msg):
      return cnx.send(xmpp.Message(str(msg.getFrom()) , str(msg.getBody())))
    
    
    cnx.RegisterHandler("message", messageHandler)
    
    while 1:
        try:
            cnx.Process(1)
        except KeyboardInterrupt:
            break
    

     

     

    Jenže stále to něco odesílá a nevim jak to má vypadat. Podadíš aby to vykonalo totéž ?

    mess avatar 11.9.2012 00:44 mess | skóre: 43 | blog: bordel | Háj ve Slezsku - Smolkov
    Rozbalit Rozbalit vše Re: Perl XMPP Jabber
    A proč sis nestáhl toho bota, co jsem na něj odkazoval? Tam ti stačí změnit login, heslo a upravit jednu funkci, která se automaticky spustí po přijetí zprávy. S tímhle pythonním skriptem ti nepomůžu, s xmpp knihovnou v pythonu nemám žádné zkušenosti.
    Cez párne mesiace zošíváš vaginy, cez neparne montuješ hajzle.
    pepe_ avatar 11.9.2012 20:20 pepe_ | skóre: 48
    Rozbalit Rozbalit vše Re: Perl XMPP Jabber

    Protože mně to nefunguje.

     

    root@alix:/# ./jaberboot
    Connected
    Authed
    Disconnected
    Can't call method "GetFrom" on an undefined value at ./jaberboot line 43.

    Založit nové vláknoNahoru

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

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