无忧启动论坛

标题: [转帖]QQ在线 QQ.cgi [打印本页]

作者: wuyou 时间: 2001-11-20 01:46
标题: [转帖]QQ在线 QQ.cgi
qq.cgi
#!/usr/bin/perl
use CGI qw(:standard);
$query = new CGI;
$oicq = $query -> param('oicq');
$geturl = "http://search.tencent.com/cgi-bin/friend/user_show_info?ln=$oicq";
eval("use HTTP::Request;");
eval("use LWP::UserAgent;");
$ua = new LWP::UserAgent();
$request = new HTTP::Request('GET',$geturl);
$response = $ua->request($request);
$out = $response->content;
($temp,$out) = split(/height=32/,$out);
($out,$temp) = split(/\" width=32/,$out);
($temp,$out) = split(/\"/,$out);
$request = new HTTP::Request('GET',$out);
$response = $ua->request($request);
$out = $response->content;
print "content-type: image\n\n";
print $out;
exit;

调用方法：
<img>http://XXX/cgi-bin/qq.cgi?oicq=16161444</img>
在論壇中只要把<>改成[]就行了!!!
PS:XXX為你上傳的地址!!

作者: king 时间: 2001-11-20 19:02
标题: [转帖]QQ在线 QQ.cgi
good

作者: 真水ying 时间: 2001-12-10 17:56
标题: [转帖]QQ在线 QQ.cgi
我怎么看不懂！老大讲一讲！……^&^

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)