Passer un appel SIP via un script Perl

Le 28 septembre 2011 — par

Le monitoring fait partie de mes activités au quotidien, que ce soit de jour comme de nuit. Au fur et à mesure, je me suis vite rendu compte que les SMS ne me réveillaient pas vraiment la nuit lorsqu’un problème important déclenchait des alertes.

C’est pourquoi j’ai fait en sorte que mes scripts m’appellent automatiquement en SIP lorsque le besoin s’en fait ressentir. Voici le script que j’ai utilisé ci-dessous :

Comme vous pouvez l’imaginer vous avez besoin de Net::SIP pour que le script fonctionne correctement.

Même si le script supporte les arguments, je vous conseillerais de configurer en dur les variables de connexion SIP, celles-ci étant assez sensibles, quand même. Une fois le script prêt, un petit test avec ./call.pl [numéro] devrait être concluant.

Pour que le script se déclenche automatiquement, j’ai rajouté cette ligne en crontab :

Elle permet de lancer l’appel si jamais un de mes programmes a créé un fichier « call » dans le même répertoire que le script. Et d’insister si je ne réponds pas la première fois :)

Concernant les fournisseurs de téléphonie SIP, si vous êtes abonné Free c’est gratuit et disponible dans votre compte. N’étant plus abonné Free, j’ai testé et approuvé la téléphonie OVH qui a l’avantage de coûter à peine plus d’un euro par mois.

Source : Just Another SIP – Cenabumix.org

S'abonner au flux RSS du blog
Recevoir les nouveaux articles par e-mail :