#!/usr/bin/perl

use IO::Socket::INET;
use Net::SIP::Leg;
use Net::SIP::Simple;

my $ip = "my ip ";
my $Proto_1 = 'tcp';
my $PeerPort_1 =5060;
my $user= "my user";
my $pass = "my password ";

$legsocket = IO::Socket::INET->new(
    Proto    => $Proto_1,
    PeerAddr => $ip,
    PeerPort => $PeerPort_1,
) ||  die "bad Socket n";

# print "good socketn";

my $legsocket = Net::SIP::Leg->new( sock => $legsocket)
    || die "bad Legn";

my $ua = Net::SIP::Simple->new(
    outgoing_proxy => $ip,
    registrar      => $ip,
    domain         => $ip,
    from           => $user,
    leg            => $legsocket,
    auth           => [ $user,$pass ]
);

$ua->register( expires => 1800 ) ; # <- Valeur mini chez free
print  $ua->error."n";
if ($ua->register( expires => 1800 )) {
    print "good register";
}

my $err = $ua->error;
my ($w1,$w2,$w3,$code) = split(" ", $err);
print "$ip:$PeerPort_1  $coden";

#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::INET;
use Net::SIP::Leg;
use Net::SIP::Simple;

my $domain  = "my-sip-domain.de";
my $proxy   = "127.0.0.1";
my $user    = "1001";
my $pass    = "1234";
my $app     = "SIP Test Client v1.0";

my $proxy_ip    = '127.0.0.1';
my $proxy_port  = 5080;
my $proxy_proto = 'tcp';

my $sock = IO::Socket::INET->new(
    Proto    => $proxy_proto,
    PeerAddr => $proxy_ip,
    PeerPort => $proxy_port,
) ||  die "Unable to open socket connection to SIP Proxy $proxy_proto:$proxy_ip:$proxy_port n";

my $leg = Net::SIP::Leg->new(sock => $sock)
    || die "Bad or invalid connection to SIP Proxy $proxy_proto:$proxy_ip:$proxy_port n";

# create new agent
my $ua = Net::SIP::Simple->new(
    outgoing_proxy => $proxy,
    registrar => $domain,
    domain => $domain,
    from => $user,
    auth => [$user, $pass],
    leg => $leg,
);

# register it
if(!$ua->register(expires=>300, 'user-agent'=>$app)) {
    if ($ua->error()) {
        print "Registration for '$user': ".$ua->error()."n";
        exit;
    } else {
        print "Registration for '$user' succeeded.n";
    };
};

$ua->loop(2);

# unregister it
if(!$ua->register(expires=>0, 'user-agent'=>$app)) {
    if ($ua->error()) {
        print "De-Registration for '$user': ".$ua->error()."n";
        exit;
    } else {
        print "De-Registration for '$user' succeeded.n";
    };
};