Comment supprimer un SMS en Perl

La manière la plus simple de supprimer des SMS depuis Perl est d'utiliser l'API HTTP/REST SMS intégrée d'Ozeki SMS Gateway. Lorsque vous utilisez cette API, vous enverrez des messages SMS en effectuant une requête HTTP POST vers 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 renverra une réponse HTTP 200 OK à votre requête.

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

Code Perl pour recevoir un SMS depuis un mobile

L'exemple de code Perl pour SMS ci-dessous montre comment vous pouvez recevoir des SMS en utilisant l'API HTTP REST SMS 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.

DeleteSms.pl 

use Ozeki::Libs::Rest::Configuration;
use Ozeki::Libs::Rest::MessageApi;
use Ozeki::Libs::Rest::Message;
use Ozeki::Libs::Rest::Folder;

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();
#Vous devez modifier cet attribut ID pour supprimer un message spécifique
$msg->{ ID } = "19fed2a2-da46-11eb-8339-ffacbeab4160";

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

my $result = $api->Delete(Ozeki::Libs::Rest::Folder->Inbox, $msg);

print($result);

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 "use Ozeki::Libs::Rest;" dans la section d'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 supprimer les SMS vers 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 DeleteSms.pl

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

Que contient le fichier DeleteSms.pl.zip ?

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

Figure 2 - Contenu de DeleteSms.pl.zip

Comment supprimer un SMS en Perl (étapes rapides)

Pour supprimer un SMS en Perl :

  1. Téléchargez le fichier DeleteSms.pl.zip
  2. Extrayez le fichier .zip depuis le dossier Téléchargements
  3. Ouvrez le fichier DeleteSms.pl dans un éditeur de texte
  4. Lancez Ozeki SMS Gateway
  5. Sélectionnez http_user dans l'onglet Utilisateurs et applications
  6. Vérifiez les détails du message dans la Boîte de réception
  7. Insérez l'ID du message SMS dans le code DeleteSms.pl
  8. Exécutez DeleteSms.pl pour supprimer le SMS avec Perl

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

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 HTTP API SMS. Créez un utilisateur avec le nom "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 un SMS depuis Perl

Pour envoyer un SMS depuis Perl, votre application Perl devra effectuer une requête HTTP vers 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 où l'application Perl SMS est exécutée, cela peut être 127.0.0.1. S'il est installé sur un autre ordinateur, cela doit être l'adresse IP de cet ordinateur. 

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

Authentification HTTP pour recevoir un SMS depuis Perl

Pour authentifier le client Perl 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

Requête HTTP pour supprimer un SMS avec Perl

Pour supprimer un 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. Elle contient le numéro du destinataire et le texte du message. 

POST /api?action=deletemsg HTTP/1.1
Connection: TE, close
Content-Length: 153
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

{
	"folder":"inbox",
	"message_ids":	[
		"da837770-e3bd-4970-a824-579423d9b242"
	]
}

En-tête de requête HTTP pour supprimer un SMS depuis Perl

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 en-tête Content-Type et un en-tête Authorization. 

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

Réponse HTTP reçue par l'exemple Perl 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": "",
	"data": {
	  "folder": "inbox",
	  "message_ids": [
	    "da837770-e3bd-4970-a824-579423d9b242"
	  ]
	}
}

Comment télécharger le code (Tutoriel vidéo)

Dans cette vidéo, nous allons vous montrer comment télécharger les fichiers du projet depuis cette page de tutoriel. La vidéo commencera par la recherche du lien de téléchargement et se terminera avec le code prêt à l'emploi. Vous apprendrez quelles commandes taper dans le terminal pour le préparer à l'exécution du code. La vidéo ne dure que 1:34 et est très détaillée. Vous n'aurez aucun problème à suivre les étapes.

Vidéo 1 - Comment télécharger et exécuter l'exemple de solution (Tutoriel vidéo)

Exemple Perl SMS : DeleteSms.pl

Le code d'exemple ci-dessous fait partie du DeleleSms.pl (Figure 3). Lorsque vous exécutez ce code, il supprimera un message avec l'ID fourni dans le code. Vous pouvez trouver l'ID fourni dans la variable 'ID'. Exécutez le code et il recherchera le message et le supprimera. Si vous êtes familier avec le langage de programmation Perl, n'hésitez pas à modifier le code.

Figure 3 - DeleteSms.pl

Utiliser le code (Tutoriel vidéo)

Dans cette vidéo, vous verrez le code en action. Nous allons vous présenter comment exécuter le code et vérifier ses résultats. Elle commencera avec un terminal ouvert et le code ouvert, et vous montrera le dossier Boîte de réception vide à la fin. La vidéo ne dure que 1:14 et est facile à suivre. Vous n'aurez aucun problème à suivre les étapes.

Vidéo 2 - Comment supprimer un SMS avec le code Perl ci-dessus (Tutoriel vidéo)

Résumé

Sur cette page, vous avez lu comment supprimer des messages SMS depuis Perl avec l'API HTTP REST SMS d'Ozeki SMS Gateway. Maintenant, vous pouvez créer les conditions pour utiliser le dépôt Perl téléchargeable afin de supprimer des messages SMS. Cette solution peut être un changement majeur dans votre système de messagerie grâce aux appels de méthodes bien écrits et à une classe SMS bien conçue qui vous permet de configurer les paramètres du SMS.

Ozeki SMS Gateway a beaucoup plus à vous offrir, alors allez découvrir un autre article passionnant. Je recommande le guide Comment télécharger la dernière bibliothèque Perl SMS depuis Github pour en savoir plus.

Téléchargez Ozeki SMS Gateway et configurez votre système dès maintenant !

More information