[工具开发]一信通Web短信发送客户端

#!/usr/bin/perl -w

#Hu Peng
#penghu.zh@gmail.com

use strict;
use 5.10.1;
use CGI;
use Encode;

my $form_action = '/yxt/send.pl';

my $q = CGI->new;

my $smsMsg = '您的验证码为1232';

print   $q->header(-type=>'text/html',-charset=>'UTF-8'),
    $q->start_html(-title=>'一信通短信平台测试'),
    $q->start_form(-action=>$form_action, -method=>'post'),
    $q->p({-align=>'center'},'一信通短信平台测试'),

        $q->start_table({-align=>'center',-border=>'0',-cellpadding=>'4',-cellspacing=>'0'}),

    $q->start_Tr,
    $q->start_td({-align=>'left'}),'短信内容:  '.$q->input({-id=>'smsMsg',-type=>'text',-name=>'smsMsg',-value=>$smsMsg}),$q->end_td,
    $q->end_Tr,

    $q->start_Tr,
    $q->start_td({-align=>'left'}),'接收号码:  '.$q->input({-id=>'smsPhone',-type=>'text',-name=>'smsPhone',-title=>'多个号码用,隔开'}),$q->end_td,
    $q->end_Tr,

    $q->end_table,

    $q->p({-align=>'center'},$q->submit(-value=>'发 送')),
        $q->end_form,
        $q->br,
    $q->end_html;

#!/usr/bin/perl -w

#Hu Peng
#penghu.zh@gmail.com

use strict;
use 5.10.1;
use CGI;
use Encode;
use LWP::UserAgent;

my $form_action = '/yxt/index.pl';
my $q = CGI->new;

sub sendSMS {
    my ($opt_u,$opt_p,$opt_r,$opt_m) = @_;
        my $msg = encode('gbk',decode('utf8',$opt_m));

        my $ua = LWP::UserAgent->new;
        my $url = 'http://js.ums86.com:8899/sms/Api/Send.do?SpCode=201971&LoginName='.$opt_u.'&Password='.$opt_p.'&MessageCOntent='.$msg.'&UserNumber='.$opt_r.'&SerialNumber=&ScheduleTime=&f=1';
        my $resp = $ua->get($url);

        if ($resp->is_success) {
                my $message = encode('utf8',decode('gbk',$resp->decoded_content));
                return "$message\n";
        }else{
                return "HTTP GET error code: ".$resp->code.':'.$resp->message."\n";
        }
}

my $smsMsg = defined($q->param('smsMsg'))?$q->param('smsMsg'):'';
my $smsPhone = defined($q->param('smsPhone'))?$q->param('smsPhone'):'';

my $return = &sendSMS('YOUR_ACCOUNT','YOUR_PASSWORD',$smsPhone,$smsMsg);

print   $q->header(-type=>'text/html',-charset=>'UTF-8'),
    $q->start_html(-title=>'一信通短信平台测试'),
    $q->start_form(-action=>$form_action, -method=>'post'),
    $q->p({-align=>'center'},'一信通短信平台测试'),

        $q->start_table({-align=>'center',-border=>'0',-cellpadding=>'4',-cellspacing=>'0'}),

    $q->start_Tr,
    $q->start_td({-align=>'left'}),'返回信息:  '.$return,$q->end_td,
    $q->end_Tr,

    $q->end_table,

    $q->p({-align=>'center'},$q->submit(-value=>'返 回')),
        $q->end_form,
        $q->br,
    $q->end_html;