Forum Programmation.perl quota Cyrus::Imap:Admin

Posté par .
Tags : aucun
0
13
juin
2006
salut
j'ai ne sais pas comment utiliser la fonction listquota de cyrus::imap :admin
module
le resultat de fonction executé à partir de la ligne de commande à l'aide de la commande cyradm est different à celui de mon code
svp regardez mon code au dessous
* a l'aide la commande Iq cyradm
lq mailbox
STORAGE 48/120000 (0.04%)

mon script perl est comme ça;
Cyrus::IMAP:Admin:
my %quota;
my $e;
my $r;
my $mailbox = 'user/bob@xxxxxxxxx';
($e, %quota, $r) = $cyrus->quota($mailbox);
print (...)

Forum Programmation.perl Perl html

Posté par .
Tags : aucun
0
12
juin
2006
bonjour,
j'ai developper un script cgi et j'integre dans ce script un code html.
tous va bien seulement il n'accepte pas le backgroud, j'ai essayer avec bgcolor est il fonctionne. voila mon instruction:
print "<body background=\ " image.jpg\"> "
avez vous une idée??

Forum Programmation.perl un Checkbox dans un TreeView en GTK

Posté par (page perso) .
Tags : aucun
0
12
juin
2006
Hello, voila quelques jours maintenant que je cherche comment mettre une checkBox dans les lignes de mon TreeView.

j'ai réussi a l'insérer en faisant

my $model=Gtk2::TreeStore->new('Glib::Boolean','Glib::String');
....

puis j'ai créer la colonne avec

my $col1=Gtk2::TreeeViewColumn->new_with_attribute('Titre',Gtk2::CellRendererToggle->new);


quand je met le cellrenderer à activatable, j'arrive à éditer le boutons, mais tous en même temps.....
impossible de faire fonctionner les checkbox indépendemment......

je n'ai pas compri non plus comment initialisé le checkbox à l'ajout.....

si quelqu'un peut m'aidé?

Forum Programmation.perl session CGI

Posté par .
Tags : aucun
0
12
juin
2006
bonjour,
je suis entrain de développer une application web et je veut récupérer les valeurs de login et le mot de passe d'une page php pour qu'ils soient vu dans plusieurs script CGI. je pense à l'aider d'introduire la notion de session mais je n'ai pas une idée sur son syntaxe sous perl/cgi.
comment pourrais je récupérer des valeurs dans une session pour qu'il soit existé dans plusieurs script CGI??

Forum Programmation.perl cgi et perl

Posté par .
Tags : aucun
0
9
juin
2006
j'aurais aimé savoir comment récupérer les valeurs de checkbox (passées par une méthode post):
print"<input type=\"checkbox\" name=\"Mailbox\" size=\"1\" value=\"$NameMailBox[1]\">".$Liste[0]."".$Liste[6]."".$Liste[7]."".$Liste[0]."".$QuotaValue."";
}
pour cela je tape le code suivant pour la recuperation
my $query= new CGI;
@checkbox = $query->param('Mailbox');
print "ddddkkk";
foreach $checkbox (@checkbox)
{
print "$checkbox \n";
}
ça ne me retoure aucun champ
Savez vous ou est l'erreur ? ou comment peut on proceder autremen t?
merci

Forum Programmation.perl session en perl

Posté par .
Tags : aucun
0
7
juin
2006
Salut ,

j'ai une autre question cette fois concerne la notion de session en perl
en effet , l'administarteur doit entrer avec un lodin et password
ceci doit être recuperer pendant toute sa manipulationde l'application puisque chaque tache qui va effectuer necessite la login et le mot de pass grace à l'instrution suivante (en perl )
use Cyrus::IMAP::Admin;
my $cyrus = Cyrus::IMAP::Admin->new('localhost');
$cyrus->authenticate('$Mechanism','imap','','$login','0','10000','$password');
$cyrus->nom_de_methode (listing renommage , modifier quota ....)
pour ce la je pense au notion de session en (...)

Forum Programmation.perl split en perl

Posté par .
Tags : aucun
0
6
juin
2006
j'ai une phrase comprend des points (user.nom_de_user)
je veux recuperer seulement le nom_de_user pour cela j'ai essayé avec le code suivant :
my $phrase = "user.nom_user";
my @mots = split(/./, $phrase);
my $nombre = @mots;
print "username ".$mots[1];
avec ce code il ne m'affiche pas le nom de user sachant que lorque j'ai changé le separateur par un autre (: , espace ) pour le test le pg fonction normalement
est ce que il ya un traitement spécial de caractère (...)

Forum Programmation.perl TreeView dynamique avec GTK2

Posté par (page perso) .
Tags : aucun
0
5
juin
2006
Hello,
je débute avec perl-gtk et j'essaye de construire une vue des dossiers en arbre afin de choisir les dossier de travail.
un peu comme dans un explorateur.

pour l'instant ce que j'ai réussi à construire est une fonction récursive qui ajoute au chargement les fichiers dans l'arbre.
le problème est que plus les répertoires à analyser sont nombreux plus la fonction est lente (logique) mais ça devient vite lent... :'(
et aussi que les répertoire ne sont pas mis (...)

Forum Programmation.perl Session en perl !!

Posté par .
Tags : aucun
0
5
juin
2006
salut
une pb m 'a rencontré lors de manipulation de notion de session en perl (je suis debutante dans la programmation avec la lanquage perl !!)
en effet , j 'ai besoin de recuperer le login et le password d'un administrateur pendant toute les etapes demanipulation d'une application des gestions de comptes de messageries pour cela j 'ai pensé au notion de session
dans mon permier page (creation de session ) j'ai fais ce code
#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
(...)

Forum Programmation.perl connaitre le mot de pass crypté

Posté par .
Tags : aucun
0
5
juin
2006
Salut
je suis entraion develloper une application (php ,perl ) permet d'adminstrer un systeme de messagerie(sendmail cyrus imap)
l'authentification imap d'un utilisateur systeme existe deja (cree avecc useradd) necessite le meme login et password.
sa creation doit etre faite à l'aide de commande suivante
saslpasswd2 -c nom_user
Password:/// donner le password du user qui est déjà ajouté avec user add sinon ellene fonctionne pas (authentication failed).
ma question est il'ya -il une fonction perl ( ou un programme perl ) (...)

Forum Programmation.perl Session en perl

Posté par .
Tags : aucun
0
3
juin
2006
j'ai un epage php qui contient un formulaire (login, password) un clic sur un bouton submit telecharge un fichier cgi .j'ai recupereé mes parametres à partir de page php dans la page cgi mias j'aime bien que ces paramètres soient sauvgarder tout au long mon navigation dans le site car j'en ai besoin comme des paramètres pour des methodes définis dans des autres pages

dans mon fich .cgi j'effectue letraitement suivant
....
use CGI::Session;
use CGI ;
my $cgi=new CGI (...)

Forum Programmation.perl CTmaiL

Posté par .
Tags : aucun
0
2
juin
2006
bonjour,
j'ai installé CTmaiL pour configurer le serveur sendmail à distance et qu'on je teste setup.php
une erreur déclanchée(relatif à CGIwrap )
CGIWrap Error: Script dir not found
The specified user does not have a script directory set up for execution of cgi scripts, or the directory permissions prevent cgiwrap from using that directory.
dans son installation j'utilise le doc d'installation de CGIWrap
et cette erreur reste toujours
y-t-il une personne entre vous qui peut m'aider et dire comment je (...)

Forum Programmation.perl appel un script php dans un code CGI

Posté par .
Tags : aucun
0
31
mai
2006
je fais un appel d'un script php dans un script cgi a l'aide de la ligine suivante
.....
{
exec "php -f connect.php";
}
else
{
....
}
lors de l'execution il me declenche l'erreur suivante
400 Content-type: text/html Security Alert! The PHP CGI cannot be accessed directly.

This PHP CGI binary was compiled with force-cgi-redirect enabled. This means that a page will only be served up if the REDIRECT_STATUS CGI variable is set, e.g. via an Apache Action directive.

(...)

Forum Programmation.perl recuperation de data dans un thread

Posté par .
Tags : aucun
0
31
mai
2006
bonjour, J'ai un script qui ressemble à ça:


#! /usr/pkg/bin/perl -w

use strict ; 
use Config ; 
use threads ; 

my %a ; 
my $key ;
my $thrd1 ;
my $thrd2

sub deck {
    my %b=( 'deck' => '5567' , 
            'raym' => 'fooo' )  ; 
    print "Je fais plein de chose...\n\n\n" ; 
    return %b ;
}

$thrd1 = threads->new(\&deck) ; 
$thrd2 = threads->new(\&deck) ; 


$thrd1->join ; 
$thrd2->join ; 
Comment faire pour recuperer le hash qui est dans $thrd1...? Je dois (...)

Forum Programmation.perl Problème avec Net::Jabber

Posté par .
Tags : aucun
0
20
avr.
2006
J'ai un problème avec Perl et Net::Jabber. Voici mon code :
#!/usr/bin/perl
use Net::Jabber;
$jabber = new Net::Jabber::Client();
$jabber->Connect(hostname => "fritalk.com",
port => 5222,
timeout => 90,
connectiontype => "tcpip",
ssl => 0);
@r = $jabber->AuthSend(username => "yannbng",
password => "********",
resource => "Perl-Net::Jabber",
register => 0);
$SIG{ALRM} = \&qqch;
$jabber->SetCallBacks( presence => \&handle_presence,
message => \&handle_message );
@contacts = $jabber->RosterGet();
$jabber->PresenceSend();
qqch();
print "Connecté !";
while(defined($jabber->Process())) { }
sub qqch {
$jabber->Process(1);
}
sub handle_message {
my $message = (...)

Forum Programmation.perl Appel de fonction dynamique sans eval?

Posté par (page perso) .
Tags : aucun
0
3
avr.
2006
Hello,
voila je suis occuper à créer un programme qui parse pas mal de ligne dans un fichier.
il effectue des actions chaque ligne dans différents modules que je charge en fonction d'un fichier de configuration.

pour l'appel des fonction , j'utilise un eval($NomdeFct.'()')
je trouve pas ca fort propre, de plus, ce code rallenti beaucoup ( plus de 2X) le code...
y'aurai t-il pas un moyen plus élégant et surtout plus rapide d'executer des fonctions dont on connait le (...)

Forum Programmation.perl mod_perl, require() et ~userdir

Posté par .
Tags : aucun
0
24
mar.
2006
Bonjour,
je cherche une solution à ce problème depuis quelques heures et je n'ai rien trouvé pour le moment. Lorsque l'on utilise require(), mod_perl regarde à l'intérieur de la liste des répertoires contenus dans la variable @INC. J'aimerais pouvoir séparer un script en plus petites parties (faire des modules .pm) mais je n'arrive pas à faire en sorte que require() regarde dans le répertoire du script. Lors de l'exécution du script, le répertoire courant est / et non celui du (...)

Forum Programmation.perl Tableau de hash, comment connaitre ça taille.

Posté par .
Tags : aucun
0
23
mar.
2006
bonjour,

Avec la bibliotheque XML::Simple, quand je parse mon fichier,
j'obtient un tableau de hash...

@int = $fichier->{int};

print Data::Dumper->Dump([\@int],['*int']);

@int = (
[
{
'type' => 'vl1',
'mib' => '1',
'descr' => {}
},
{
'type' => 'fa0/1',
'mib' => '2',
'descr' => 'deck'
},
{
'type' => 'fa0/2',
'mib' => '3',
'descr' => 'deck2'
},
{
'type' => 'fa0/3',
'mib' => '4',
'descr' => ' user440 '
},
{
'type' => 'fa0/4',
'mib' => '5',
'descr' => 'same-as-you'
(...)

Forum Programmation.perl Parser des doc XML en Perl

Posté par .
Tags : aucun
0
20
mar.
2006
Bonjour,

J'essaye desperement de poster un bout de code,
et je n'y arrive pas, comment faire pour poster du code,
y compris avec des "plus grnad que" et "plus petit que"...



un exemple de ce que ça me donne...


Bonjour à tous.

J'ai fais un script qui sauvegarde la configuration des equipements
reseaux du site sur lequel je boss.

Il donne des fichiers comme ça:



salle server 18
suresnes/e/e4
cisco internetwork operating system software ios (tm) c2900xl software (c2900xl-c3h2s-m), version (...)

Forum Programmation.perl besoin de commande perl pour éviter une boucle sur grep, un if et un sed (en clair un rechercher remplacer conditionnel)

Posté par .
Tags : aucun
0
8
mar.
2006
Bonjour,
J'ai un soucis de performance donc je cherche des solutions type awk voir perl.
Pour toutes les lignes commencant par ACT, je veux remplacer la valeur du champ 12 avec celle du champ 14 si la valeur du champ 12 commence par 0.
Pour l'instant j'ai une boucle qui prend toutes les lignes commencant par ACT et je teste si le champ 12 commence par zéro, si oui je fais un sed. Pour plus de performance, j'ai voulu contstruire (...)