[PERL] Nagios check_sms script

[Naatan]

Hoi, ik heb een script gevonden waarmee ik via clickatell smsjes kan versturen vanuit nagios, maar het werkt van geen kanten.. het originele script zat vol met perl errors.. Ik heb ze kunnen fixen maar ik ben zelf geen perl programmer en nu zit ik echt vast.

Wanneer ik een bericht verstuurd gaat dat als volgt (via terminal):

./check_sms -a 12345 -u username -p password -m 'this is a test' -t 12345

Echter nu krijg ik enkel het bericht "this" aan.

Hoe zorg ik dat ik de hele lijn aan krijg?

Het script:

code:

#!/usr/bin/perl -wT

use strict;
use HTTP::Lite;
use Getopt::Long;
use vars qw($opt_version $opt_help $opt_username $opt_password $opt_api_id $opt_baseurl $opt_text $opt_to $PROGNAME);
use lib "/usr/lib/nagios/plugins" ;
use utils qw(%ERRORS &print_revision &support &usage);

$PROGNAME = "notify_sms";

sub print_help ();
sub print_usage ();

Getopt::Long::Configure('bundling');

GetOptions
        ("v"   => \$opt_version, "version"    => \$opt_version,
         "h"   => \$opt_help, "help"       => \$opt_help,
         "a=s" => \$opt_api_id, "apiid=s" => \$opt_api_id,
         "b=s" => \$opt_baseurl, "baseurl=s" => \$opt_baseurl,
         "m=s" => \$opt_text, "message=s" => \$opt_text,
         "p=s" => \$opt_password, "password=s" => \$opt_password,
         "t=s" => \$opt_to, "to=s" => \$opt_to,
         "u=s" => \$opt_username, "username=s"  => \$opt_username);

if ($opt_version) {
        print_revision($PROGNAME,'$Revision: 1.1 $');
        exit $ERRORS{'OK'};
}
if ($opt_help) {print_help(); exit $ERRORS{'OK'};}

($opt_api_id) || usage("Gateway api ID must be specified\n");
($opt_text) || usage("Message body must be specified\n");
($opt_password) || usage("Gateway login password must be specified\n");
($opt_to) || usage("Phone to number must be specified\n");
($opt_username) || usage("Gateway login username must be specified\n");
if (!$opt_baseurl) {
    $opt_baseurl = "http://api.clickatell.com";
}

my $login_url = $opt_baseurl."/http/auth?user=".$opt_username."&password=".$opt_password."&api_id=".$opt_api_id;

#print $text."\n";

my $http = new HTTP::Lite;
my $req = $http->request($login_url);
my $res = $http->body();
my @sres = split(":", $res);

if ($sres[0] eq "OK") {
    my $sess = $sres[1];
    chomp($sess);
    $sess = substr($sess,1);
    my $send_url = $opt_baseurl."/http/sendmsg?session_id=".$sess."&to=".$opt_to."&text=".$opt_text;
    my $rhttp = new HTTP::Lite;
    my $ret = $rhttp->request($send_url);
    my $nres = $rhttp->body();
    my @sent = split(":", $nres);
    if ($sent[0] eq "ID") {
        print "Message sent\n";
        exit $ERRORS{'OK'};
    } else {
        print "Gateway authentication failed\n";
        exit $ERRORS{'CRITICAL'};
    }
} else {
    print "Authentication failed\n";
}

sub urlencode {
    my $ask = shift @_;
    my @a2 = unpack "C*", $ask;
    my $s2 = "";
    while (@a2) {
        $s2 .= sprintf "%%%X", shift @a2;
    }
    return $s2;
}

sub print_usage () {
    print "Usage: $PROGNAME -u <gw_username> -p <gw_password> -a <gw_api_id> -b <gw_baseurl> -m <message_text> -t <to_msisdn>\n";
}

sub print_help () {
        print_revision($PROGNAME,'$Revision: 1.1 $');
        print "
Copyright (c) 2005 Serhan D. KIYMAZ <skiymaz\@netpia.com>
Netpia Internet Hizmetleri Pazarlama A.S. - TURKEY

This plugin sends SMS notification messages to contacts from a SMS Gateway.
It has been tested with Clickatell <www.clickatell.com>

";
        print_usage();
        print "
-a, --apiid=API_ID
   Api ID for gateway login. It is specified by gateway company.
-b, --baseurl=BASE_URL
   Base URL for login and send SMS actions of gateway. Default: http://api.clickatell.com.
-m, --message=MESSAGE_TEXT
   Message text that will be sent to TO number. Max: 160 chars.
-p, --password=PASSWORD
   Login password for gateway login.
-t, --to=TO_NUMBER
   GSM phone number that the message will be delivered to.
-u, --username=USERNAME
   Login username for gateway login.

";
        support();
    }

Bij voorbaat dank

[Ganja-Cape]

Ik denk dat dit niet in de code zit. Heb namelijk wel een vaker met een sms gateway moeten werken en 9 van de 10 keer gaan die dingen via GET's dus dat betekent spaties omzetten naar underscores, denk dat dit moet helpen.

edit:
Nog even je code bekeken en zie niet iets waardoor het verkeerd zal moeten gaan.

En ook onderaan zie je staan wat ik zei:
--message=MESSAGE_TEXT

[ Voor 27% gewijzigd door Ganja-Cape op 27-04-2008 12:58 ]

[Naatan]

ahh.. bedankt voor je reactie Het waren geen underscores maar je gaf me wel een idee.. spaties door %20 vervangen dit werkte wel

Is er in perl een functie om strings om te encoderen zodat ze compatible zijn met url's? (zoals urlencode in php)

[Verwijderd]

Misschien is dit van nut: http://melecio.org/urlencode-urldecode-in-perl

[Naatan]

had hem ook net gevonden ja Thanks..

misschien niet helemaal het juiste forum hiervoor maar wel related aan mijn thread (en aangezien Ganja-Cape er ervaring mee lijkt te hebben);

Weten jullie hoe je line-endings in een sms krijgt?

[Ganja-Cape]

Das een goede vraag waar ik eigenlijk geen zeker antwoord op kan geven, heb nog even gekeken of ik nog wat API docs had liggen, maar helaas

Heb je dit al gewoon dirty geprobeerd met iets zoals '\r\n'?

[Naatan]

\r\n nog niet maar aangezien hij \n gewoon mee gaf in de sms denk ik niet dat dit veel zal helpen.

Ik heb een mail gestuurd naar clickatell.. hopelijk kunnen zij me iets meer vertellen. Verder geen ramp natuurlijk.

[Ganja-Cape]

Ah ok, dan zal ik het 123 ook even niet weten

Zal even voor je kunnen googlen alleen loopt me vriendin aan me te trekken (nee niet op die manier ), dus succes je kan nu ieder geval meer dan 1 woord versturen

[Naatan]

Heb antwoord gekregen:

http://support.clickatell...w_entry&kbid=213&kbcat=24

Nog niet getest, maar ik ga er vanuit dat dit wel zal werken

Succes met die vriendin van je

[Creepy]

Ok.. je hebt een script van een ander en je hebt daar ook al support. Mooi! Hier draait het namelijk om eigen code. Voor supoprt op gedownloade code mote je bij de maker zijn en niet hier.