#!/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 = (…)
Bonjour à tous,
Voila pour commencé, quelques precisions. Je suis entre un novice sous linux mais j'ai deja quelques essais sous debian (plus ou moins heureux lol)
La config:
Athlon XP 1800+
512 Mo de ram
CM asus a7n8x deluxe (2 carte ethernets integré, nvidia et 3com)
J'aimerai monter un petit serveur/passerelle. Mais voila je suis pas sur de tout comprendre, ce qu'il faut et ce qu'il faut pas…
Plan du reseau:
internet --- modem adsl ethernet --- serveur --- (…)