Comment programmer un SMS en Perl

La manière la plus simple d'envoyer des SMS depuis Perl est d'utiliser l'API HTTP/Rest intégrée d'Ozeki SMS Gateway. Lorsque vous utilisez cette API, vous enverrez des messages SMS en envoyant une requête HTTP Post à la passerelle SMS. La requête HTTP Post contiendra un message formaté en JSON. La passerelle SMS enverra ce SMS au téléphone du destinataire, et elle renverra une réponse HTTP 200 OK à votre requête.

comment programmer un sms en perl
Figure 1 - Comment programmer un SMS en Perl

Code Perl pour envoyer un SMS programmé vers un mobile

L'exemple de code Perl pour SMS ci-dessous montre comment envoyer des SMS en utilisant l'API HTTP Rest d'Ozeki SMS Gateway avec la bibliothèque Perl Ozeki.Libs.Rest. Cette bibliothèque vous est fournie gratuitement, et vous pouvez l'utiliser et la modifier dans tous vos projets.

SendScheduledSms.pl 
use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
use DateTime;

my $configuration = new Ozeki::Libs::Rest::Configuration();
$configuration->{ Username } = "http_user";
$configuration->{ Password } = "qwe123";
$configuration->{ ApiUrl } = "http://127.0.0.1:9509/api";

my $msg = new Ozeki::Libs::Rest::Message();
$msg->{ ToAddress } = "+36201111111";
$msg->{ Text } = "Hello world!";
$msg->{ TimeToSend } = DateTime->new(year=>2021,month=>7,day=>2,hour=>16,minute=>0,second=>0)->stringify;

my $api = new Ozeki::Libs::Rest::MessageApi($configuration);

my $result = $api->Send($msg);

print($result->stringify);

Comment utiliser l'exemple Perl pour SMS :

Cet exemple Perl pour SMS peut être utilisé dans n'importe quelle application Perl. Pour l'utiliser, vous devez ajouter la bibliothèque Ozeki.Libs.Rest à votre projet. Après avoir ajouté la bibliothèque, vous devez placer la directive using Ozeki.Libs.Rest; dans l'en-tête de votre code source Perl. Cela vous permettra d'utiliser les classes fournies par la bibliothèque Ozeki.Libs.Rest. Vous pouvez utiliser la classe Message pour créer le SMS. Vous pouvez utiliser la classe MessageApi pour envoyer le SMS programmé à la passerelle SMS. La passerelle SMS transmettra votre message au réseau mobile soit via une connexion sans fil, soit via Internet.

Télécharger SendScheduledSms.pl

Le code source expliqué dans cet article peut être téléchargé, utilisé et modifié gratuitement.
Télécharger : SendScheduledSms.pl.zip (76.1Kb)

Que contient le fichier SendScheduledSms.pl ?

Le fichier SendScheduledSms.pl contient la bibliothèque Ozeki.Libs.Rest, qui vous donne tous les outils nécessaires pour envoyer et recevoir des SMS. Vous trouverez également le fichier SendScheduledSms.pl dans le zip, qui contient le code exemple pour vous montrer comment envoyer un SMS programmé. Ce code exemple est listé ci-dessous.

Figure 2 - Contenu de SendScheduledSms.pl.zip

Comment envoyer un SMS programmé depuis Perl (Guide simple)

Pour envoyer un SMS programmé depuis Perl :

  1. Installer un utilisateur API HTTP
  2. Télécharger le fichier SendScheduledSms.pl.zip
  3. Extraire le fichier .zip du dossier Téléchargements
  4. Ouvrir le fichier SendScheduledSms.pl dans un éditeur de texte
  5. Modifier le fichier pour programmer un SMS depuis Perl
  6. Lancer Ozeki SMS Gateway
  7. Exécuter SendScheduledSms.pl via l'invite de commande
  8. Vérifier les logs

Installer Ozeki SMS Gateway et créer un utilisateur API HTTP

Pour pouvoir envoyer des SMS depuis Perl, vous devez d'abord installer Ozeki SMS Gateway. La passerelle SMS peut être installée sur le même ordinateur où vous développez votre code Perl dans Visual Studio. Après l'installation, l'étape suivante consiste à connecter Ozeki SMS Gateway au réseau mobile. Vous pouvez envoyer un SMS test depuis l'interface Ozeki pour vérifier que votre connexion au réseau mobile fonctionne. La dernière étape pour préparer votre environnement est de créer un utilisateur API HTTP pour SMS. Créez un utilisateur avec le nom d'utilisateur "http_user" et le mot de passe "qwe123" pour que l'exemple fonctionne sans modification.

Une fois l'environnement configuré, vous pouvez exécuter votre code Perl.

URL de l'API HTTP pour envoyer des SMS depuis Perl

Pour envoyer des SMS depuis Perl, votre code Perl devra envoyer une requête HTTP à la passerelle SMS. L'URL de l'API est indiquée ci-dessous. Notez que l'adresse IP (127.0.0.1) doit être remplacée par l'adresse IP de votre passerelle SMS. Si Ozeki SMS Gateway est installé sur le même ordinateur que l'application Perl pour SMS, cette adresse peut être 127.0.0.1. S'il est installé sur un autre ordinateur, ce doit être l'adresse IP de cet ordinateur. 

http://127.0.0.1:9509/api?action=rest

Authentification HTTP pour envoyer des SMS depuis Perl

Pour authentifier le client Perl pour SMS, vous devez envoyer le nom d'utilisateur et le mot de passe sous forme de chaîne encodée en base64 au serveur dans une requête HTTP. Le format utilisé est : base64(nom_utilisateur+":"+mot_de_passe). En Perl, vous pouvez utiliser le code suivant pour effectuer cet encodage : 

my ($self, $Username, $Password) = @_;
my $Username_Password = "${Username}:${Password}";
my $Username_Password_encoded = encode_base64($Username_Password);
return "Basic ${Username_Password_encoded}";

Par exemple, si vous encodez le nom d'utilisateur 'http_user' et le mot de passe 'qwe123', vous obtiendrez la chaîne encodée en base64 suivante : aHR0cF91c2VyOnF3ZTEyMw==. Pour envoyer

En-tête de requête HTTP pour envoyer des SMS depuis C#

Pour envoyer les messages SMS, vous devez inclure les lignes suivantes comme en-têtes dans la requête HTTP. Notez que nous incluons un type de contenu et un en-tête Authorization. 

Content-Type: application/json
Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==

Requête HTTP pour envoyer un SMS programmé depuis Perl

Pour soumettre le SMS, votre application Perl enverra une requête HTTP similaire à celle ci-dessous. Notez que cette requête contient une partie en-tête HTTP et une partie corps HTTP. Le corps HTTP est une chaîne de données encodée en JSON. Il contient le numéro du destinataire et le texte du message. 

POST /api?action=sendmsg HTTP/1.1
Connection: TE, close
Content-Length: 998
Content-Type: application/json; charset=utf8
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 192.168.0.14:9509
Te: deflate,gzip;q=0.3
User-Agent: libwww-perl/6.43

{
	"messages": [
		{
			"message_id": "ab4c1e78-db41-11eb-8298-c00c4d4e2ea7",
			"to_address": "+36201111111",
			"text": "Hello world 1",
			"create_date": "2021-07-02T14:27:45",
			"valid_until": "2021-07-09T14:27:45",
			"time_to_send": "2021-07-02T14:27:45",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true,
			"tags": []
		},
		{
	  		"message_id": "ab4c4523-db41-11eb-838d-c00c4d4e2ea7",
	  		"to_address": "+36202222222",
	  		"text": "Hello world 2",
	  		"create_date": "2021-07-02T14:27:45",
	  		"valid_until": "2021-07-09T14:27:45",
	  		"time_to_send": "2021-07-02T14:27:45",
	  		"submit_report_requested": true,
	  		"delivery_report_requested": true,
	  		"view_report_requested": true,
	  		"tags": []
		},
		{
			"message_id": "ab4c59cd-db41-11eb-82c0-c00c4d4e2ea7",
			"to_address": "+36203333333",
			"text": "Hello world 3",
			"create_date": "2021-07-02T14:27:45",
			"valid_until": "2021-07-09T14:27:45",
			"time_to_send": "2021-07-02T14:27:45",
			"submit_report_requested": true,
			"delivery_report_requested": true,
			"view_report_requested": true,
			"tags": []
		}
	]
}

Réponse HTTP reçue par l'exemple Perl pour SMS

Une fois que la passerelle SMS reçoit cette requête, elle générera une réponse HTTP. La réponse HTTP contiendra un code de statut pour indiquer si la soumission du SMS a réussi ou non. Elle renverra également une structure encodée en JSON pour vous fournir des détails utiles sur la soumission du message. 

HTTP/1.1 200 OK
User-Agent: OZEKI 10.3.123 (www.myozeki.com)
Content-Type: application/json; charset=utf8
Last-Modified: Fri, 02 Jul 2021 16:00:35 GMT
Server: 10/10.3.123
Transfer-Encoding: chunked

{
	"http_code": 200,
	"response_code": "SUCCESS",
	"response_msg": "Messages en attente de livraison.",
	"data": {
	  "total_count": 1,
	  "success_count": 1,
	  "failed_count": 0,
	  "messages": [
	    {
	      "message_id": "7596081e-db3e-11eb-827e-c00c4d4e2ea7",
	      "from_station": "%",
	      "to_address": "+36201111111",
	      "to_station": "%",
	      "text": "Hello world!",
	      "create_date": "2021-07-02 14:04:47",
	      "valid_until": "2021-07-09 14:04:47",
	      "time_to_send": "2021-07-02 16:10:00",
	      "submit_report_requested": true,
	      "delivery_report_requested": true,
	      "view_report_requested": false,
	      "tags": [
	        {
	          "name": "Type",
	          "value": "SMS:TEXT"
	        }
	      ],
	      "status": "SUCCESS"
	    }
	  ]
	}
}

Exemple Perl pour SMS : SendScheduledSms.pl (Tutoriel vidéo)

Dans cette vidéo, vous allez apprendre le processus de téléchargement du fichier de projet SendScjheduledSMS.pl. La vidéo commencera par le téléchargement du dossier du projet. Elle vous guidera jusqu'à l'obtention du système complet que vous pouvez commencer à utiliser. Vous verrez ce que vous devez modifier dans le terminal. La vidéo ne dure que 1:36 mais elle est très détaillée. Vous n'aurez aucun problème à suivre les étapes.

Vidéo 1 - Comment télécharger et configurer la solution ci-dessus (Tutoriel vidéo)

Le code exemple

Le code exemple ci-dessous fait partie du fichier SendScheduledSms.pl.zip. Ce code enverra des SMS programmés au numéro stocké dans la variable 'ToAddress'. Le texte des messages sera celui des variables 'Text'. Exécutez le code pour envoyer tous les messages à tous les destinataires. Si vous êtes familier avec le langage de programmation Perl, n'hésitez pas à modifier le code selon vos préférences.

Figure 3 - SendScheduledSms.pl

Comment utiliser le code (Tutoriel vidéo)

Dans cette vidéo, vous allez apprendre le processus d'exécution du code et d'envoi de SMS au destinataire. La vidéo commencera avec le code ouvert et se terminera avec le journal des messages envoyés. À la fin de la vidéo, vous verrez un dossier dans Ozeki SMS Gateway, intitulé Messages reportés. Dans ce dossier, vous trouverez tous les messages envoyés. La vidéo ne dure qu'une minute et vous guide à travers toutes les étapes nécessaires pour envoyer les messages reportés. L'interface utilisateur d'Ozeki SMS Gateway est très intuitive, vous n'aurez donc aucun problème à suivre les étapes.

Vidéo 2 - Comment utiliser le fichier SendMultipleSms.pl (Tutoriel vidéo)

Résumé

Le but de cet article était de montrer les étapes de la programmation de SMS en Perl avec l'aide d'Ozeki SMS Gateway. Cette solution permet de reporter des messages, ce qui peut être très utile lorsque vous souhaitez vous assurer de ne pas déranger les clients lorsqu'ils sont occupés. En faisant cela, vous pouvez obtenir une image respectueuse des clients et améliorer l'efficacité. Les clients sont plus susceptibles de lire les messages lorsqu'ils ont du temps libre pour le faire. Il faut également dire qu'Ozeki SMS Gateway vous permet de gérer les coûts des SMS et de suivre le trafic SMS.

Assurez-vous que la lecture ne s'arrête pas ici, visitez la page des tutoriels d'Ozeki où plus d'informations peuvent être trouvées sur des sujets comme la suppression de SMS en Perl.

La seule chose à faire maintenant est de télécharger Ozeki SMS Gateway et de commencer à travailler !

More information