Pour ceux qui ont des soucis avec xpl-jabber, les actions décrites ici : http://hiddenrealms.org/articles/net-jabber1.php m’ont permis de le résoudre, je ne sais pas si l’erreur est liée au packaging de la distrib (ubuntu 10.04 pour ma part), mais ça a marché.

Pour la remarque de Mika, j’ai repris et un peu agrémenté pour discuter avec le réseau xpl x10 :

my ($cmd, $command, $device, $level) ;
if ($msg->GetBody() =~ /^(Allume|Eteint|Reduit|Augmente) .*/) {
my $body = $msg->GetBody();
chomp($body) ;
($cmd, $device,$level) = split(/ /,$body);
if ($cmd eq « Allume ») {
$command = ‘on’ ; $level = « 0″ ;
} elsif ($cmd eq « Eteint ») {
$command = ‘off’ ; $level = « 0″ ;
} elsif ($cmd eq « Reduit ») {
$command = ‘dim’ ;
} elsif ($cmd eq « Augmente ») {
$command = ‘bright’ ;
}

my $xplmsgJab = xPL::Message->new(message_type => « xpl-cmnd »,
head => { source => $xpl->id, },
class => ‘x10.basic’,
body =>
{
device => $device,
command => $command,
level => $level,
});
print $xplmsgJab->summary,’\n’ if ($verbose);
$xpl->send($xplmsgJab);
}

à mettre dans sub handle_message

C’est grossier, mais ça remplit les fonctions de base :
Allume a1 -> exécute la commande « on a1″
Eteint a2 -> exécute la commande « off a2″
Reduit a3 10 -> exécute la commande « dim a3 10″
Augmente a4 20 -> exécute la commande « bright a4 20″

Have fun !

if ($msg->GetBody() eq « Allume ») {
#/usr/bin/xpl-sender -m xpl-cmnd -c x10.basic device=a2 command=on
my $xplmsgmika = xPL::Message->new(message_type => ‘xpl-cmnd’,
head => { source => $xpl->id, },
class => ‘x10.basic’,
body =>
{
device => ‘a2′,
command => ‘on’,
});

print $xplmsgmika->summary, »\n » if ($verbose);
$xpl->send($xplmsgmika);
}

Tu parles de xplhal… existe t-il un équivalent pour linux ?
Merci pour tes réponses

Fonctionne très bien.
Juste le même pb que ci-dessus fichier sendmsg.im.yaml à copier manuellement dans le répertoire /usr/share/perl5/xPL/schema

Quelque pourrait il me depanner ???

Merci Pascal, ton debug servira probablement à d’autres utilisateurs !

bon, j’ai trouvé.

Il y a un problème avec le Makefile.pl.

Lorsque je ne mets pas de prefix le fichier sendmsg.im.yaml est bien copié dans /usr/local/share/perl/5.10.0/xPL/schema mais si je lui passe /usr en prefix alors le fichier n’est pas copié dans /usr/share/perl5/xPL/schema mais dans /usr/share/perl/5.10.0/xPL/.
Le problème c’est que libxpl-perl est installé dans /usr/share/perl5/ il ne trouve donc pas le fichier sendmsg.im.yaml

Si je copie ce fichier à la main dans /usr/share/perl5/xPL/schema tout fonctionne correctement

Je ne connais rien au Makefile.pl ni au Makefile d’ailleurs , je te laisse regarder ce qui ne va pas.

Pour info j’utilise une Debian Lenny.

Pascal.

J’utilise un package Debian compilée sur ma machine depuis le svn mais pour vérifier j’ai utilisé le package que tu indiques, le résultat estle même .

Aurais-tu des indications a me fournir pour debugger ?

J’utilise la même version que toi : la 0.10 prépackagée en deb (http://www.xpl-perl.org.uk/download/debian/libxpl-perl_0.10-1_all.deb).
Elle est installée sur des ubuntu chez moi, mais ça devrait fonctionner sur des debian aussi.

Est-ce bien la même version que toi ?

Bravo pour le travail effectué, plusieurs points sont bien intéressants

J’ai installé le module xpl-jabber mais j’ai une erreur lors de l’envoi d’un message :

Can’t locate object method « to » via package « xPL::Message » at /usr/bin/xpl-jabber line 176.

J’utilise la version 0.10 de libxpl-perl en paquet Debian Lenny.

La dernière version de xpl-perl 0.11 ne fonctionne pas j’ai un problème avec xPL::ConfigUnion à la ligne 34 de Dock.pm, je n’ai donc pas pu tester xpl-jabber avec cette dernière version.

Quelle version de xpl-perl utilises-tu ?

Merci.