一、簡介

移動夢網短信平臺可以通過SOAP、HTTP GET、HTTP POST方式發送短信，下面是我用perl寫的通過SOAP發送短信的腳本，它比夢網提供的php、java小多了，可以和nagios等系統集成；

二、用法

查詢余額: sendMsgSOAP.pl -u user -p passWord -b發送短信: sendMsgSOAP.pl -u user -p password -r receiver -m message

三、源代碼

#!/usr/bin/perl -w#hupeng@gkkxd.com use strict;use 5.10.1;use Getopt::Std;use SOAP::Lite;use Encode; use vars qw/ $opt_u $opt_p $opt_r $opt_m $opt_b /;getopts('u:p:r:m:b'); #查詢余額#USAGE: $0 -u user -p password -bif( $opt_b && $opt_u && $opt_p ){    my $soap = SOAP::Lite        -> uri('http://tempuri.org')        -> PRoxy('http://61.145.229.29:7903/MWGate/wmgw.asmx', timeout=>5);    my $som = $soap->call('MongateQueryBalance',        SOAP::Data->name('userId')->value($opt_u),        SOAP::Data->name('password')->value($opt_p)    );    die $som->faultstring if ($som->fault);    print $som->result, "/n"; #發送短信#USAGE: $0 -u user -p password -r receiver -m message}elsif( $opt_u && $opt_p && $opt_r && $opt_m ){     my $msg = decode('utf8',$opt_m);    my $count = split(',',$opt_r);     my $soap = SOAP::Lite        -> uri('http://tempuri.org')        -> proxy('http://61.145.229.29:7903/MWGate/wmgw.asmx', timeout=>5);    $soap->serializer->autotype(0);     my $som = $soap->call('MongateSendSubmit',        SOAP::Data->name('userId')->value($opt_u),        SOAP::Data->name('password')->value($opt_p),        SOAP::Data->name('pszMobis')->value($opt_r),        SOAP::Data->name('pszMsg')->value($msg),        SOAP::Data->name('iMobiCount')->value($count),        SOAP::Data->name('pszSubPort')->value('*'),        SOAP::Data->name('MsgId')->value('0')    );    die $som->faultstring if ($som->fault);    print $som->result, "/n"; }else{    print "查詢余額: $0 -u user -p password -b/n";    print "發送短信: $0 -u user -p password -r receiver -m message/n";    exit(1);}