Je cherche à ecrire un script Perl se connectant au manager API d'Asterisk. On s'y connecte "humainement" avet un simple telnet sur le port 5038. Ensuite on peut envoyer des commandes à Asterisk qui se présentent sous cette forme: action: login\n
username: office\n
secret: welcome\n
\n
et lui même nous envoie des élément de la même forme: Event: PeerStatus
Privilege: system,all
Peer: SIP/103
PeerStatus: Registered
Mon but est de me coonecter à cet API et évidemment de pouvoir envoyer (...)
je programme actuellement une interface en Gtk2 ou j'utilise des champs de date pour lancer une exploitation de logs entre ces dates.
C'est très simple, j'ai deux champs $datedebut et $datefin qui sont du type Gtk2::Entry->new_with_max_length(10) et j'ai également un bouton qui appel la fonction "lancer"
dans cette fonction "lancer" je fais mes deux récupérations de valeurs :
my $debut_exp = $datedebut->get_text();
my $fin_exp = $datefin->get_text();
Celà marche bien. Mais quand mon exploitation est terminée et que (...)
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 (...)
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 (...)
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??
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.....
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??
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
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 (...)
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 (...)
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 (...)
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"; (...)
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 ) (...)
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 (...)
je suis debutente dans la programmation avec perl
j'aime bien avoir un programme qui ouvre un flux sur le fichier /et/c/shadow
il parcoure le fichier et verifie si un nom d'utilistaeur existe ou pas
dans le cas ou il n'existe pas il va le creer avec la commande useradd
une reponse svp
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 (...)
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.