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 18:22 | IT novinky

    T-Mobile od 15. září zpřístupňuje RCS (Rich Communication Services) zprávy i pro iPhone.

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

    Společnost ARM představila platformu Arm Lumex s Arm C1 CPU Cluster a Arm Mali G1-Ultra GPU pro vlajkové chytré telefony a počítače nové generace.

    Ladislav Hagara | Komentářů: 0
    dnes 05:44 | Nová verze

    Unicode Consortium, nezisková organizace koordinující rozvoj standardu Unicode, oznámila vydání Unicode 17.0. Přidáno bylo 4 803 nových znaků. Celkově jich je 159 801. Přibylo 7 nových Emoji.

    Ladislav Hagara | Komentářů: 0
    včera 21:00 | IT novinky Ladislav Hagara | Komentářů: 9
    včera 18:33 | Nová verze

    Realtimová strategie Warzone 2100 (Wikipedie) byla vydána ve verzi 4.6.0. Podrobný přehled novinek, změn a oprav v ChangeLogu na GitHubu. Nejnovější verzi Warzone 2100 lze již instalovat také ze Snapcraftu a Flathubu.

    Ladislav Hagara | Komentářů: 1
    včera 12:22 | IT novinky

    Polské vývojářské studio CD Projekt Red publikovalo na Printables.com 3D modely z počítačové hry Cyberpunk 2077.

    Ladislav Hagara | Komentářů: 1
    včera 11:44 | Pozvánky

    Organizátoři konference LinuxDays 2025 vydali program a zároveň otevřeli registrace. Akce se uskuteční 4. a 5. října na FIT ČVUT v pražských Dejvicích, kde vás čekají přednášky, workshopy, stánky a spousta šikovných lidí. Vstup na akci je zdarma.

    Petr Krčmář | Komentářů: 7
    8.9. 22:00 | IT novinky

    Uživatelé komunikátoru Signal si mohou svá data přímo v Signalu bezpečně zálohovat a v případě rozbití nebo ztráty telefonu následně na novém telefonu obnovit. Zálohování posledních 45 dnů je zdarma. Nad 45 dnů je zpoplatněno částkou 1,99 dolaru měsíčně.

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

    Server Groklaw, zaměřený na kauzy jako právní spory SCO týkající se Linuxu, skončil před 12 lety, resp. doména stále existuje, ale web obsahuje spam propagující hazardní hry. LWN.net proto v úvodníku připomíná důležitost zachovávání komunitních zdrojů a upozorňuje, že Internet Archive je také jen jeden.

    🇵🇸 | Komentářů: 22
    8.9. 14:22 | Nová verze

    Jakub Vrána vydal Adminer ve verzi 5.4.0: "Delší dobu se v Admineru neobjevila žádná závažná chyba, tak jsem nemusel vydávat novou verzi, až počet změn hodně nabobtnal."

    Ladislav Hagara | Komentářů: 4
    Pro otevření více webových stránek ve webovém prohlížečí používám
     (83%)
     (7%)
     (2%)
     (3%)
     (4%)
     (2%)
    Celkem 160 hlasů
     Komentářů: 12, poslední dnes 13:00
    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.