- Comment ça marche ?
Methode HTTP : POST
Perl est un langage de programmation reprenant des fonctionnalités du langage C et des langages de scripts sed, awk et shell (sh).
Voici quelques exemple d'utilisation de ce script bash :
- Surveiller l'activitée d'un serveur (monitoring)
- Envoyer un SMS à la reception d'un paiement.
- Integrer un systeme d'envoi de SMS dans une application BASH.
- Execution script PERL :
Execution du script perl :
Changer les droits d'executions :
chmod 755 send_sms.pl
Commande : ./send_sms.pl
- Script PERL :
#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Request::Common;
use URI::Escape;
%post_data = ();
$post_data{'apikey'} = "";
$post_data{'message'} = "Alert SMS !";
$post_data{'number'} = "33600000000";
$post_data{'expediteur'} = "websms";
$post_data{'flash'} = "0";
$post_url = "http://www.envoyersms.org/api/v1/?method=send";
my $ua = LWP::UserAgent->new(agent => 'env perl client');
my $resp = $ua->request
(
POST $post_url,
Content_Type => 'form-data',
Content => [ %post_data ]
);
if ($resp->is_success)
{
print $resp->content."\n";
}
else {
print "Erreur: ".$resp->status_line."\n";
}
