#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long qw(:config posix_default bundling);
use Net::SIP;
#Usage

sub usage {
    print STDERR "ERROR: @_\n" if @_;
    print STDERR <<EOS;
usage: $0 [ options ]  нет телефона
Воспроизведение файла после того как собеседник берет трубку
Options:
  -R|--registrar host[:port]   Хост
  -S|--send filename           Звуковой файл
  --username name              Логин
  --password pass              пароль
EOS
    exit( @_ ? 1:0 );
}


my ($file,$registrar,$username,$password);

GetOptions(
    'R|registrar=s' => \$registrar,
    'S|send=s' => \$file,
    'username=s' =>\$username,
    'password=s' =>\$password,
) || usage( "bad option" );
my( $to )=@ARGV;
$to || usage( "нет назначения" );

# create new agent


print "Creating connection\n";
my $ua = Net::SIP::Simple->new(
registrar => $registrar,
domain => $registrar,
from => $username,
auth => [ $username,$password ],

);

# Register agent

$ua->register( expires => 1800 ) # <- Valeur mini chez free

|| die ( "Не зарегестрирован" . $ua->error );
print "Зарегестрирован
# Переменные.(-)

my $rtp_done;
print "Appelle ".$to.'@'.$registrar."\n";
my $call= $ua->invite( $to,
    init_media => $ua->rtp( 'send_recv', $file ),
    cb_rtp_done => \$rtp_done,
    asymetric_rtp => 0,
    rtp_param => [ 8, 160, 160/8000, 'PCMA/8000' ],

) ||die "invite failed: ".$ua->error;

# Mainloop

$ua->loop( \$rtp_done );
$call->Пока;