dxx.cgi

php 方式的发送短消息（包括短消息的平台库）

#!perl

use strict;
use Win32::OLE;

　　 print "Content-type:text/html\n\n";

　　 read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); 

　　 @pairs=split(/&/,$buffer); 
　　 foreach $pair(@pairs){ 
	　　 ($name,$value)=split(/=/,$pair); 
	　　 $value=~tr/+//; 
	　　 $value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1))/eg; 
	　　 $FORM{$name}=$value; 
　　 }  
　　 print ""; 
　　 print " 发短消息"; 
　　 
　　 foreach $check(values%FORM){ 
	　　 if($check eq ""){ 
		　　 print"----------------------------------------------------------------"; 
		　　 print"不能发空消息"; 
		　　 exit(0); 
	　　 } 
　　 } 
　　 
　　 $FORM{'suggest'}=~s/cMn/n/g; 
　　 #$filename="d:/wwww/dxx/book.html"; 
　　 
　　 #open(FILE,">> $filename"); 
　　 #print FILE "名字：$FORM{'name'}n"; 
　　 #print FILE "Email: 
　　 #print FILE "留言：$FORM{'suggest'}"; 
　　 #close{FILE}; 
　　 
	my $sendSms = Win32::OLE->new('EMA_API.EMASendMsg') or die ("Unable to instanciate EMASendMsg");
	my $isSend;
	
	#$sendSms->{EnterpriseID}="00019";
	#$sendSms->{LicenseKey}="zhijiangtest";
	#$sendSms->{AccountID}="000";
	#$sendSms->{EnterpriseID}="90003";
	#$sendSms->{LicenseKey}="90003";
	#$sendSms->{AccountID}="000";
	$sendSms->{EnterpriseID}="00029";
	$sendSms->{LicenseKey}="86465e";
	$sendSms->{AccountID}="000";
	$sendSms->AddMobile("13601732392");
	$sendSms->Send("test");	#$FORM{'content'}
	$sendSms->ClearMobiles();
	#$sendSms->GetSMSSentStates(long, ReceiverStates**)
	
　　 print "发送成功"; 
　　 
　　 exit(0);