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í
×
    včera 01:00 | Komunita

    Debian dnes slaví 32 let. Ian Murdock oznámil vydání "Debian Linux Release" 16. srpna 1993.

    Ladislav Hagara | Komentářů: 10
    15.8. 17:44 | IT novinky

    Policisté zadrželi odsouzeného drogového dealera Tomáše Jiřikovského, který daroval ministerstvu spravedlnosti za tehdejšího ministra Pavla Blažka (ODS) bitcoiny v miliardové hodnotě, a zajistili i darovanou kryproměnu. Zadržení Jiřikovského může být podle ministerstva důležité k rozuzlení kauzy, která vypukla koncem května a vedla ke konci Blažka. Zajištění daru podle úřadu potvrzuje závěry dříve publikovaných právních

    … více »
    Ladislav Hagara | Komentářů: 6
    15.8. 13:44 | IT novinky

    Administrativa amerického prezidenta Donalda Trumpa jedná o možném převzetí podílu ve výrobci čipů Intel. Agentuře Bloomberg to řekly zdroje obeznámené se situací. Akcie Intelu v reakci na tuto zprávu výrazně posílily. Trump minulý týden označil Tana za konfliktní osobu, a to kvůli jeho vazbám na čínské společnosti, čímž vyvolal nejistotu ohledně dlouholetého úsilí Intelu o obrat v hospodaření. Po pondělní schůzce však prezident o šéfovi Intelu hovořil příznivě.

    Ladislav Hagara | Komentářů: 3
    15.8. 05:44 | IT novinky

    Společnost Purism stojící za linuxovými telefony a počítači Librem má nově v nabídce postkvantový šifrátor Librem PQC Encryptor.

    Ladislav Hagara | Komentářů: 10
    14.8. 18:00 | Nová verze

    VirtualBox, tj. multiplatformní virtualizační software, byl vydán v nové verzi 7.2. Přehled novinek v Changelogu. Vypíchnou lze vylepšené GUI.

    Ladislav Hagara | Komentářů: 0
    14.8. 14:11 | IT novinky

    Eric Migicovsky, zakladatel společnosti Pebble, v lednu oznámil, že má v plánu spustit výrobu nových hodinek Pebble s již open source PebbleOS. V březnu spustil předprodej hodinek Pebble Time 2 (tenkrát ještě pod názvem Core Time 2) za 225 dolarů s dodáním v prosinci. Včera představil jejich konečný vzhled (YouTube).

    Ladislav Hagara | Komentářů: 26
    14.8. 12:44 | Zajímavý software

    Byla oznámena nativní podpora protokolu ACME (Automated Certificate Management Environment) ve webovém serveru a reverzní proxy NGINX. Modul nginx-acme je zatím v preview verzi.

    Ladislav Hagara | Komentářů: 1
    14.8. 12:22 | Nová verze

    Vývojáři KDE oznámili vydání balíku aplikací KDE Gear 25.08. Přehled novinek i s náhledy a videi v oficiálním oznámení.

    Ladislav Hagara | Komentářů: 0
    13.8. 11:55 | IT novinky

    Společnost Perplexity AI působící v oblasti umělé inteligence (AI) podala nevyžádanou nabídku na převzetí webového prohlížeče Chrome internetové firmy Google za 34,5 miliardy dolarů (zhruba 723 miliard Kč). Informovala o tom včera agentura Reuters. Upozornila, že výše nabídky výrazně převyšuje hodnotu firmy Perplexity. Společnost Google se podle ní k nabídce zatím nevyjádřila.

    Ladislav Hagara | Komentářů: 5
    13.8. 04:33 | Bezpečnostní upozornění

    Intel vydal 34 upozornění na bezpečnostní chyby ve svých produktech. Současně vydal verzi 20250812 mikrokódů pro své procesory řešící 6 bezpečnostních chyb.

    Ladislav Hagara | Komentářů: 0
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (52%)
     (19%)
     (4%)
     (5%)
     (2%)
     (1%)
     (1%)
     (17%)
    Celkem 403 hlasů
     Komentářů: 23, poslední 4.8. 13:01
    Rozcestník

    Dotaz: Perl a Net::LDAP

    6.2.2009 22:17 aquilegia | skóre: 4
    Perl a Net::LDAP
    Přečteno: 356×

    pokouším se napsat malý skript v perlu, který by měl z LDAP databáze vrátit comon name jednoho uživatele, jehož uid je předáno funkci jako parametr. Využívám modul Net::LDAP, skript funguje, pokud při volání funkce metody search uvedu staticky uid=jmeno, ale pokud se pokusím zadat uid=$uid, pak se hledání neprovede. Kde tedy dělám chybu? Omlouvám se za kostrbatý zápis.

    sub ldap_vypis{
        my ($self, $uid) = @_;
        my $ldap = Net::LDAP->new('127.0.0.1');
        my $mesg = $ldap->bind("cn=uzivatel,ou=Lide_skupiny,dc=firma,dc=cz",password=>"heslo");
        $mesg = $ldap->search(filter=>"uid=$uid",
                    base=>"ou=Lide_skupiny,dc=ferram,dc=cz",
                    scope=>"one");
        my $pol = $mesg->entry(0);
        my $data = $pol->get_value("cn");
        return $data;
        }
    

    Odpovědi

    6.2.2009 22:38 Norbert Volf | skóre: 8 | blog: norbert
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP

    A zkontroloval sis to $uid, jestli je v nem to pozadovane "jmeno". Net::LDAP sice nepouzivam, ale v tom zapisu chybu nikde nevidim.

    Norbert

    6.2.2009 22:46 aquilegia | skóre: 4
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP

    na 100%  je v tom $uid hodnota. několikrát jsem odzkoušel.

    6.2.2009 23:01 Norbert Volf | skóre: 8 | blog: norbert
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP

    Pak me napada jeste jeden tip a to utf8 - nevim co pozaduje LDAP server a nevim jestli ten string je v utf8 a jestli je pouzita pragma use utf8 ... ale to hle me nekdy potrapi.

     

    Norbert

     

    6.2.2009 23:11 aquilegia | skóre: 4
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP

    no hodnoty, které jsou v proměnné $uid uložené, jsou vždy bez diakritiky, tak to snad nemá vliv

    6.2.2009 23:18 Norbert Volf | skóre: 8 | blog: norbert
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP

    Pak bych zkusil takovou tu magii - dat hodnotu do $uid az v te funkci a pak pouzit ... ale to uz jsi asi zkousel. Takze asi nevim.

    Norbert

    6.2.2009 23:00 aquilegia | skóre: 4
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP

    Jinak ty jsi někdy řešil obdobný problém? Já jsem prvoplánově použil modul Net::LDAP, ale ještě je možnost využít DBD::LDAP. Který by byl podle tebe vhodnější?

    Zdraví Ondra

    6.2.2009 23:09 Norbert Volf | skóre: 8 | blog: norbert
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP

    Neresil. Ted jsem kouknul na CPAN a DBD::LDAP pouziva pro dotazovani SQL, kdezto Net::LDAP pouziva filtry podobne jako ldapsearch - to je myslim definovane v nejakem RFC. Zivejsi podle poctu verzi a cerstvosti mi prijde NET::LDAP - to casto znamena, ze je dany modul lepsi.

    Norbert

    20.7.2011 14:44 pogomaniak
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP
    Já bych to zkusil takto:
    sub ldap_vypis{
        my ($self, $uid) = @_;
        my $ldap = Net::LDAP->new('127.0.0.1:389');
        my $mesg = $ldap->bind("cn=uzivatel,ou=Lide_skupiny,dc=firma,dc=cz",password=>"heslo");
        $mesg = $ldap->search(filter=>"uid=$uid",
                    base=>"ou=Lide_skupiny,dc=ferram,dc=cz",
                    scope=>"sub",
                    attrs=>['cn']);
        $mesg->code && die $mesg->error;
        foreach my $zaznam (mesg->entry){
          print $zaznam->get_value("cn")."\n";
        }
    }
    
    28.7.2011 11:57 ph0enix | skóre: 18 | Praha
    Rozbalit Rozbalit vše Re: Perl a Net::LDAP
    Urcite je $uid inicializovano? Podle toho kodu je uvedena rutina zrejme metodou objektu. Je mi ale divne, ze nikde dal $self nepouzijes... Principialne tam chybu nevidim. Melo by to fungovat pokud je funkce zavolana jednim z nasledujicich zpusobu
    • $objekt->ldap_vypis('jmeno');
    • ldap_vypis($objekt, 'jmeno');

    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.