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 15:55 | Nová verze

    Byl vydán Mozilla Firefox 118.0. Přehled novinek v poznámkách k vydání, poznámkách k vydání pro firmy a na stránce věnované vývojářům. Vypíchnout je nutno automatický lokální strojový překlad webových stránek. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 118 je již k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 1
    dnes 12:55 | Nová verze

    Byla vydána nová major verze 15.0.0 softwaru OCRmyPDF pro přidávání textové vrstvy k naskenovaným PDF dokumentům (PDF/A). Přehled novinek v poznámkách k vydání. OCRmyPDF využívá pro optické rozpoznávání znaků (OCR) engine Tesseract.

    Ladislav Hagara | Komentářů: 4
    dnes 12:22 | Zajímavý software

    Karel Matějka zveřejnil druhé demo své chystané hry Bzzzt. Kromě verze pro Windows a macOS je dostupná i verze pro Linux. Plná verze hry má vyjít zanedlouho.

    Ondřej J | Komentářů: 3
    včera 20:33 | IT novinky

    Noví Bulánci byli oficiálně vydáni. V roce 2021 bylo na Startovači na podporu vývoje této hry vybráno 7,3 miliónů Kč. Hra je zatím určena jenom pro Windows, díky Protonu ale běží také na Linuxu.

    Ladislav Hagara | Komentářů: 8
    včera 14:55 | IT novinky

    ChatGPT může vidět, slyšet a mluvit.

    Ladislav Hagara | Komentářů: 4
    včera 14:33 | Zajímavý software

    Upscaler je open source nástroj pro zvýšení rozlišení a vylepšení obrázků pomocí AI. Vývoj probíhá na GitLabu. Instalovat lze také z Flathubu. Stejně jako Upscayl je Upscaler postaven nad Real-ESRGAN.

    Ladislav Hagara | Komentářů: 1
    včera 12:11 | Nová verze

    GNUnet (Wikipedie) byl vydán v nové major verzi 0.20.0. Jedná se o framework pro decentralizované peer-to-peer síťování, na kterém je postavena řada aplikací.

    Ladislav Hagara | Komentářů: 0
    včera 11:55 | Komunita

    V Dublinu o víkendu proběhla dvanáctá iterace multimediální konference Video Dev Days, kterou pravidelně pořádá nezisková organizace VideoLAN. Záznamy přednášek z prvního a druhého dne jsou dostupné na YouTube.

    elenril | Komentářů: 0
    24.9. 20:44 | Nová verze

    LibrePCB, tj. svobodný multiplatformní softwarový nástroj pro návrh desek plošných spojů (PCB), dospěl po pěti letech vývoje do verze 1.0.0. Přehled novinek v příspěvku na blogu a v aktualizované dokumentaci. Zdrojové kódy jsou k dispozici na GitHubu pod licencí GPLv3.

    Ladislav Hagara | Komentářů: 0
    23.9. 16:55 | IT novinky

    Facebook má nové logo. Poznáte rozdíl?

    Ladislav Hagara | Komentářů: 8
    Knihy s linuxovou tematikou
     (19%)
     (15%)
     (51%)
     (27%)
    Celkem 277 hlasů
     Komentářů: 11, poslední 17.9. 19:19
    Rozcestník

    Dotaz: Perl XMPP Jabber

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

    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.