飞信(Fetion)的Perl命令行版本(2010-01-13)

枫影谁用了

原版本是csk@live.com写的。不过后来移动升级协议了，原版不能再用了。

主要修改：
1.修改支持移动飞信最新协议
2.修改支持群发(格式为13800,138000,13800),可以是手机号也可以是飞信号
3.修改没有使用原来的curl

[root@Hige perl]# perl perlfetion.pl 138****** 138*****  138******,642769312 test
USAGE: <this_script> <your_mobile_number> <password> <target_number> <message to send>
<target_number> eg:13800138000,123456,1382362200(mobile-no or fetion-number)
Retrieving the config xml...
Retrieving the SSIAPP URL...
Retrieving the SIPC Address...
Trying to get the fetion number of the current account...
Connecting to the SIPC via TCP socket...
Login OK
138******  tel:138******
Send SMS succeed
--------------------------------------------------
642769312  sip:642769312@fetion.com.cn;p=3751
Send SMS succeed
--------------------------------------------------

修改附件名为perlfetion.pl

[ 本帖最后由 枫影谁用了 于 2010-1-13 18:05 编辑 ]

lth0721

牛啊，感谢了

lewphee

好东西~~支持一个

lewphee

不行呐，楼主，压缩包坏了

兰花仙子

挺不错哦~
以前只见过python版本的~~

royalzhang

真不错！系统down了可以自动给自己发个短信啦。

枫影谁用了

原帖由 lewphee 于 2010-1-13 21:14 发表
不行呐，楼主，压缩包坏了

改gz这pl即可咯。注意看贴哦

lewphee

原帖由 枫影谁用了 于 2010-1-14 09:08 发表


改gz这pl即可咯。注意看贴哦

不好意思，没看到最后一句，

suxingwakeup

达人。。。瞻仰。。。