LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
楼主: perloicq

Perl Net::OICQ模块 腾讯秘密尽在其中

[复制链接]
发表于 2003-11-27 14:29:22 | 显示全部楼层
运行后出现这个信息:
Connecting to server 61.144.238.146:8000...Wide character in send at /usr/lib/perl5/5.8.0/i486-linux/IO/Socket.pm line 218.

why?
发表于 2003-11-28 14:08:32 | 显示全部楼层
0.7版有个毛病,有时候输入空行把小溪发送出去却美显示返回状态,结果这个小溪有时侯能发出去有时侯又不能,不知道你有没有碰见锅。
GG,不要GUI,一来费力,二来Perl也不时写GUI的料,把功能完善就好了,再加写有趣的功能,那是多么爽的事阿,呵呵
另外界面是不是该改进一下,不能把输入和输出搅在一起,当你写小溪的时候别人发小溪过来会把屏幕弄乱,不过不要加别的模块啊,用Term::Cap就行乐,就是有点原始,嘿嘿

最初由 perloicq 发表
Net::OICQ 0.8版今天放出,老地方 下载,欢迎转载,拜托各位弟兄把话放出去。
抱歉还是没有GUI,偶不是写GUI的料,主要是没有动力,半成品GUI代码不日放出
供参考。

Net::OICQ 0.8版   2003年11月26日

模块结构调整:

加密算法放到Crypt::OICQ模块,这样别的模块也可以调用加密算法。Crypt::OICQ
需要分别安装,请下载Crypt-OICQ-1.0.tgz然后安装:
$ tar zxvf Crypt-OICQ-1.0.tgz
$ cd Crypt-OICQ-1.0
$ perl Makefile.PL
$ make test
$ su
# make install

新加的功能:

1. 新命令/eval,让你即兴运行脚本,为所欲为。例如:
/eval print $oicq->{Trash} 会打印腾迅服务器送给你的垃圾。
注:$oicq是预先定义好的代表当前Net::OICQ object的变量

2. 新增plugin子程序,允许自定义自动回复插件,用法如下:

/plugin /xxxx/yyyy/zzzz.pl

注:/xxxx/yyyy/zzzz.pl必须是Perl程序,包含如下子程序:
    sub on_messages ($oicq, $her_id, $her_message)
    sub on_login ($oicq, $her_id)

3. 新增发话命令:/[号码] [要送出去的话] 可以马上发送,但不改缺省聊天对象

4. 新增快捷使用好友号码功能,/f命令输出的序列号可用于命令中代替好友QQ号,例如:
/10  设第10个好友的号为缺省聊天对象
/get 10  读取第10个好友的个人资料
/10 zzzzzzzzzzzzzzzzz 发单行话给第10个好友

5. 新增显视对方QQ版本功能(16进制表达)

修正的毛病:

1. 修正了收发时间错误

2. 解决模块在使用Perl 5.8版时的多字节字符问题

3. $oicq->{PWMD5}改为$oicq->{PWKey},因为v2000c 1230b以后使用密码的双重MD5

4. 解决perl oicq特色的“翁”毛病,让你看到对方使用的字体名

5. 可执行文件名字改为q。旧名字oicq在cygwin下和OICQ目录名冲突。
 楼主| 发表于 2003-11-28 23:56:58 | 显示全部楼层
最初由 dato 发表
我没看错的话你的readme可没这么说,
来啊拿证据给我看看:beat :thank :thank

真的没改过来,你的作风就像vsftpd的作者一样,程序一直在更新可是那个readme依然一样,走了不少弯路,我还以为gcc有问题呢

2. 新增plugin子程序,允许自定义自动回复插件,用法如下:

/plugin /xxxx/yyyy/zzzz.pl

注:/xxxx/yyyy/zzzz.pl必须是Perl程序,包含如下子程序:
sub on_messages ($oicq, $her_id, $her_message)
sub on_login ($oicq, $her_id)

这个功能还不知道怎么实现,也不知道该如何设置,oicq又id


README更新了,我以为没人读README :p

plugin不是非用不可的东西,真想用plugin的话,去代码里看plugin如何使用吧。
 楼主| 发表于 2003-11-29 00:03:14 | 显示全部楼层
最初由 windrose 发表
运行后出现这个信息:
Connecting to server 61.144.238.146:8000...Wide character in send at /usr/lib/perl5/5.8.0/i486-linux/IO/Socket.pm line 218.

why?


我也是用5.8的Perl,没见过这个错误信息。旧版本卸载了吗?0.8版由于模块结构
的调整,需要卸载旧版本。0.8版是纯Perl,不需要C编译。需要C的代码都归入
Crypt::OICQ模块。
 楼主| 发表于 2003-11-29 00:16:35 | 显示全部楼层
最初由 kiwen 发表
0.7版有个毛病,有时候输入空行把小溪发送出去却美显示返回状态,结果这个小溪有时侯能发出去有时侯又不能,不知道你有没有碰见锅。
GG,不要GUI,一来费力,二来Perl也不时写GUI的料,把功能完善就好了,再加写有趣的功能,那是多么爽的事阿,呵呵
另外界面是不是该改进一下,不能把输入和输出搅在一起,当你写小溪的时候别人发小溪过来会把屏幕弄乱,不过不要加别的模块啊,用Term::Cap就行乐,就是有点原始,嘿嘿


小溪发送的毛病我也见锅,这是UDP写意滴吻体,网络忙滴时候时有花生。用TCP
就会避免,所以懒得修补了。现在最想做滴是TCP版的OICQ,用HTTP代理跟腾迅
服务器交流,后患无穷啊。

也想过用Term::Cap,发现灰常麻烦,最后用ANSIColor打发了。
发表于 2003-12-1 15:12:48 | 显示全部楼层
支持。等待有高手搞出GUI!
发表于 2003-12-1 21:42:40 | 显示全部楼层

perl-oicq进入ports

恭喜恭喜,呵呵
发表于 2003-12-2 05:53:24 | 显示全部楼层
what's wrong here? help me please~~
when make Digest-MD5 i got the following messege~

[diff@localhost Digest-MD5-2.31]$ perl Makefile.PL
Testing alignment requirements for U32... no restrictions
Writing Makefile for Digest::MD5
[diff@localhost Digest-MD5-2.31]$ make test
Makefile:84: *** missing separator.  Stop.

:thank
 楼主| 发表于 2003-12-2 06:46:15 | 显示全部楼层
最初由 diffhapp 发表
what's wrong here? help me please~~
when make Digest-MD5 i got the following messege~

[diff@localhost Digest-MD5-2.31]$ perl Makefile.PL
Testing alignment requirements for U32... no restrictions
Writing Makefile for Digest::MD5
[diff@localhost Digest-MD5-2.31]$ make test
Makefile:84: *** missing separator.  Stop.

:thank


U32是什么操作系统?你用的是GNU make吗? 用make --version看看版本。
发表于 2003-12-2 18:12:47 | 显示全部楼层
最初由 perloicq 发表
U32是什么操作系统?你用的是GNU make吗? 用make --version看看版本。


GNU make 3.79.1啊
晕了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表