Discussion :

[nicolaskarp]

Bonjour,

J'utilise le module SipSak qui vient avec smokeping afin d'essayer de monitorer ma gateway SIP.

Voici le script perl avec lequel j'ai un problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    $host = $vars->{user}.'@'.$host if $vars->{user};
    $host = $host . ':' . $vars->{port} if $vars->{port};
    my @extra_opts = ();
    @extra_opts = split /\s/, $vars->{params} if $vars->{params};
    open (my $sak,'-|',$self->{properties}{binary},'-vv','-A',$pingcount,'-s','sip:'.$host,@extra_opts)

Après quelques tests et debug, la variable host est égale à : "nobody@hostip:5060"

Si je compare à ce qui est lancé en bash, on obtient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

/usr/local/bin/sipsak -vv -A 20 -s sip nobody hostip 5060

Le problème est que le @ et le : inclus dans la variable "$host" ne sont pas passés en argument, ils sont tout bonnement supprimés.

J'ai également essayé d'utiliser les quotes inversées ` ` pour lancer le script bash, même problème..

Je suis sous Centos 6.3 // perl5.10.1 // Bash 4.1.2

Merci d'avance.

Nicolas

[Lolo78]

Je ne connais rien aux environnements dont tu parles, mais juste une idée comme cela: essaie de mettre un backslash avant l'arobase et le double point.

Autre truc à essayer: des guillemets autour de $host. Voire même des apostrophes avec un truc comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

... 'sip:'.'.$host.',@extra_opts

[Philou67430]

As-tu aussi essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $cmd = join " ", $self->{properties}{binary},'-vv','-A',$pingcount,'-s','sip:'.$host,@extra_opts;
print "Starting $cmd\n";
open (my $sak,'-|',$cmd);