[工具開發] 移動夢網簡訊發送用戶端

標籤：

一、簡介

移動夢網簡訊平台可以通過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#[email protected] 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);}

 

[工具開發] 移動夢網簡訊發送用戶端