Bonjour à tous!
Je suis actuellement en stage et je fait des test sur ma maquette OpenLDAP comprenant 2 proxy et 3 serveurs multi maitre derriere.
J'ai deja créée un petit script pour tester ma disponibilité que voici:
J'ai utilisé les bibliothèques Net::LDAP mais maintenant j'aimerais intégrer à ce script la commande systeme : time. J'exécute mon script depuis mon client et je veux récupérer le temps que prend chaque requêtes à l'annuaire dans un fichier texte et ensuite le grapher. j'ai pas trouvé de fonctions perl identiques à la commande time d'unix ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 [/#!/usr/bin/perl -w use Net::LDAP; use strict; my $mesg; while (1) { #liste de mes serveurs my $adrServ=['ldap://proxyldap1','ldap://proxyldap2']; my $ldap = Net::LDAP->new($adrServ) or die "erreur LDAP: Impossible de contacter l'annuaire ($adrServ)"; $mesg=$ldap->bind ( "cn=admin,dc=iut-tlse3,dc=fr", password => "toto" ); # requete recherche $mesg = $ldap->search(base => "dc=iut-tlse3,dc=fr", filter => "(objectClass=*)"); #boucle d'affichage résultat foreach my $entry ($mesg->all_entries) { print "dn: ".$entry->dn()."\n"; } print "\n"; $ldap->unbind(); }
Si vous pouviez me donner la solution car ça fait un moment que je patoge dans la semoule !
Merci beaucoup à vous!!
Pierre.
Partager