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 23:55 | Komunita

    Ubuntu 26.04 LTS bude (𝕏) Resolute Raccoon (rezolutní mýval).

    Ladislav Hagara | Komentářů: 0
    včera 21:00 | Nová verze

    Netwide Assembler (NASM) byl vydán v nové major verzi 3.00. Přehled novinek v poznámkách k vydání v aktualizované dokumentaci.

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

    Linuxová distribuce Frugalware (Wikipedie) ke konci roku 2025 oficiálně končí.

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

    Byla vydána nová verze 3.0.6 svobodné aplikace pro úpravu a vytváření rastrové grafiky GIMP (GNU Image Manipulation Program). Přehled novinek v oznámení o vydání a v souboru NEWS na GitLabu. Nový GIMP bude brzy k dispozici také na Flathubu.

    Ladislav Hagara | Komentářů: 0
    včera 16:11 | IT novinky

    Americký výrobce čipů AMD uzavřel s americkou společností OpenAI smlouvu na několikaleté dodávky vyspělých mikročipů pro umělou inteligenci (AI). Součástí dohody je i předkupní právo OpenAI na přibližně desetiprocentní podíl v AMD.

    Ladislav Hagara | Komentářů: 1
    včera 12:22 | Nová verze Ladislav Hagara | Komentářů: 0
    5.10. 20:00 | Komunita

    Byly zpracovány a na YouTube zveřejněny videozáznamy z konference LinuxDays 2025.

    Ladislav Hagara | Komentářů: 0
    4.10. 15:22 | IT novinky

    Na konferenci LinuxDays 2025 byl oficiálně představen nový router Turris Omnia NG.

    Ladislav Hagara | Komentářů: 34
    4.10. 05:22 | Komunita

    Přímý přenos (YouTube) z konference LinuxDays 2025, jež probíhá tento víkend v Praze v prostorách FIT ČVUT. Na programu je spousta zajímavých přednášek.

    Ladislav Hagara | Komentářů: 16
    3.10. 22:44 | IT novinky

    V únoru loňského roku Úřad pro ochranu osobních údajů pravomocně uložil společnosti Avast Software pokutu 351 mil. Kč za porušení GDPR. Městský soud v Praze tuto pokutu na úterním jednání zrušil. Potvrdil ale, že společnost Avast porušila zákon, když skrze svůj zdarma dostupný antivirový program sledovala, které weby jeho uživatelé navštěvují, a tyto informace předávala dceřiné společnosti Jumpshot. Úřad pro ochranu osobních údajů

    … více »
    Ladislav Hagara | Komentářů: 10
    Jaké řešení používáte k vývoji / práci?
     (38%)
     (45%)
     (15%)
     (17%)
     (22%)
     (15%)
     (18%)
     (16%)
     (15%)
    Celkem 181 hlasů
     Komentářů: 12, poslední 4.10. 20:35
    Rozcestník

    Dotaz: Perl a Net::LDAP

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

    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.