Mojo-Webqq
view release on metacpan or search on metacpan
doc/Webqq.pod view on Meta::CPAN
name #æµç§°
type #åºå®å¼"user"
phone #çµè¯
birthday #çæ¥
occupation #èä¸
college #大å¦
blood #è¡å
constel #æåº§
homepage #主页
state #å¨çº¿ç¶æ online|away|busy|callme|silent|hidden
country #å½å®¶
city #åå¸
displayname #å½ååæµç§°å®å
¨ä¸æ ·
shengxiao #çæ
email #é®ç®±
client_type #åºå®å¼"web"
province #ç份
sex #æ§å«
mobile #ææº
signature #个æ§ç¾å
doc/Webqq.pod view on Meta::CPAN
id #好åçidï¼ä»
卿¬æ¬¡ç»å½æé´å¯ä¸ï¼å¤æ¬¡ç»å½å¯è½ä¼åçååï¼è®°ä½ id䏿¯qqå·
uid #好åçqqå·ç
type #åºå®å¼"friend"
category #好åæå±çåç»
name #å¥½åæµç§°
markname #好å夿³¨åç§°
displayname #å¦æè®¾ç½®äºmarkname å°±è¿åmarkname å¦åè¿ånick
is_vip #æ¯å¦æ¯vipä¼å
vip_level #vipç级
state #好åç¶åµ online|away|busy|silent|offline
client_type #好å客æ·ç«¯ç±»å pc|mobile|iphone|unknown
æ¹æ³:
send #ç»å¥½å对象åéæ¶æ¯
is_friend #å¤æå¯¹è±¡æ¯å¦æ¯å¥½å
dump
代ç 示ä¾ï¼
my $friend = $client->search_friend(name=>xxx);
doc/Webqq.pod view on Meta::CPAN
$client->log_path #æ¥å¿è®°å½è·¯å¾ï¼é»è®¤undefï¼æå°å°STDOUT
$client->version #客æ·ç«¯çæ¬
$client->account #ç»å½å¸å·ï¼ä¸å¿
æ¯çå®çqqå·ç ï¼å¯ä»¥èªç±å®ä¹ï¼æ ¹æ®æ«ç ç¡®å®å®é
ç»éqq
=head1 客æ·ç«¯æ¹æ³
=head2 new()
account #ç»å½å¸å·ï¼é»è®¤default,ä¸å¿
æ¯çå®qqå·ç ï¼å¯èªç±å®ä¹ï¼æ ¹æ®æ«ç ç¡®å®å®é
ç»éqq
security #è®¾ç½®è¯¥åæ°ï¼å°ä½¿å¾åéåæ¥æ¶æ¶æ¯ä½¿ç¨httpså å¯
mode #设置ç»å½ç¶æï¼é»è®¤æ¯onlineï¼æ¯æonline|away|busy|silent|hidden|offline|callme
http_debug #è®¾ç½®è¯¥åæ°ï¼æå°è°è¯ä¿¡æ¯
keep_cookie #é»è®¤ä¸º1ï¼0表示ä¸ä¿åç»å½cookieï¼1表示ä¿åç»å½cookieæ¹ä¾¿ä¸æ¬¡ç´æ¥æ¢å¤ç»å½
disable_color #é»è®¤ä¸º0ï¼æ¯å¦ç¦ç¨ç»ç«¯å½©è²æå°
send_interval #é»è®¤ä¸º3sï¼å
¨å±åéæ¶æ¯æ¶é´é´éï¼é´é太å°ä¼å¯¼è´æ¶æ¯åéé¢ç¹ï¼å¯è½æè¢«å°å·çé£é©
ignore_send_retcode #对åéæ¶æ¯è¿åè¿äºç¶æç ä¸è®¤ä¸ºåé失败ä¸éè¯,åæ°æ¯ä¸ä¸ªæ°ç»å¼ç¨
#è®¾ç½®ç¤ºä¾ Mojo::Webqq->new(ignore_send_retcode=>[1202,100100]);
#é»è®¤å¼ [1202,100100] 䏿¸
æ¥ä½ç¨è¯·ä¸è¦éæè®¾ç½®
ignore_poll_retcode #å¯¹æ¥æ¶æ¶æ¯è¿åè¿äºç¶æç ä¸è®¤ä¸ºæ¥æ¶å¤±è´¥ï¼ä¸éæ°ç»å½ï¼é¿å
é¢ç¹æçº¿
#è®¾ç½®ç¤ºä¾ Mojo::Webqq->new(ignore_poll_retcode=>[102,109,110,1202,100012]);
lib/Mojo/Webqq.pm view on Meta::CPAN
use Mojo::Webqq::Cache;
use Time::HiRes qw(gettimeofday);
use File::Spec ();
use base qw(Mojo::Webqq::Model Mojo::Webqq::Client Mojo::Webqq::Plugin Mojo::Webqq::Request Mojo::Webqq::Util Mojo::Webqq::Model::Ext);
has domain => 'w.qq.com';
has account => sub{ $ENV{MOJO_WEBQQ_ACCOUNT} || 'default'};
has start_time => time;
has pwd => undef;
has security => 0;
has mode => 'online'; #online|away|busy|silent|hidden|offline|callme,
has type => 'smartqq'; #smartqq
has login_type => 'qrlogin'; #qrlogin|login
has http_debug => sub{$ENV{MOJO_WEBQQ_HTTP_DEBUG} || 0 };
has ua_debug => sub{$_[0]->http_debug};
has ua_debug_req_body => sub{$_[0]->ua_debug};
has ua_debug_res_body => sub{$_[0]->ua_debug};
has ua_connect_timeout => 10;
has ua_request_timeout => 120;
has ua_inactivity_timeout => 120;
has model_update_timeout => 15;#sub{$_[0]->ua_request_timeout};
lib/Mojo/Webqq.pod view on Meta::CPAN
name #æµç§°
type #åºå®å¼"user"
phone #çµè¯
birthday #çæ¥
occupation #èä¸
college #大å¦
blood #è¡å
constel #æåº§
homepage #主页
state #å¨çº¿ç¶æ online|away|busy|callme|silent|hidden
country #å½å®¶
city #åå¸
displayname #å½ååæµç§°å®å
¨ä¸æ ·
shengxiao #çæ
email #é®ç®±
client_type #åºå®å¼"web"
province #ç份
sex #æ§å«
mobile #ææº
signature #个æ§ç¾å
lib/Mojo/Webqq.pod view on Meta::CPAN
id #好åçidï¼ä»
卿¬æ¬¡ç»å½æé´å¯ä¸ï¼å¤æ¬¡ç»å½å¯è½ä¼åçååï¼è®°ä½ id䏿¯qqå·
uid #好åçqqå·ç
type #åºå®å¼"friend"
category #好åæå±çåç»
name #å¥½åæµç§°
markname #好å夿³¨åç§°
displayname #å¦æè®¾ç½®äºmarkname å°±è¿åmarkname å¦åè¿ånick
is_vip #æ¯å¦æ¯vipä¼å
vip_level #vipç级
state #好åç¶åµ online|away|busy|silent|offline
client_type #好å客æ·ç«¯ç±»å pc|mobile|iphone|unknown
æ¹æ³:
send #ç»å¥½å对象åéæ¶æ¯
is_friend #å¤æå¯¹è±¡æ¯å¦æ¯å¥½å
dump
代ç 示ä¾ï¼
my $friend = $client->search_friend(name=>xxx);
lib/Mojo/Webqq.pod view on Meta::CPAN
$client->log_path #æ¥å¿è®°å½è·¯å¾ï¼é»è®¤undefï¼æå°å°STDOUT
$client->version #客æ·ç«¯çæ¬
$client->account #ç»å½å¸å·ï¼ä¸å¿
æ¯çå®çqqå·ç ï¼å¯ä»¥èªç±å®ä¹ï¼æ ¹æ®æ«ç ç¡®å®å®é
ç»éqq
=head1 客æ·ç«¯æ¹æ³
=head2 new()
account #ç»å½å¸å·ï¼é»è®¤default,ä¸å¿
æ¯çå®qqå·ç ï¼å¯èªç±å®ä¹ï¼æ ¹æ®æ«ç ç¡®å®å®é
ç»éqq
security #è®¾ç½®è¯¥åæ°ï¼å°ä½¿å¾åéåæ¥æ¶æ¶æ¯ä½¿ç¨httpså å¯
mode #设置ç»å½ç¶æï¼é»è®¤æ¯onlineï¼æ¯æonline|away|busy|silent|hidden|offline|callme
http_debug #è®¾ç½®è¯¥åæ°ï¼æå°è°è¯ä¿¡æ¯
keep_cookie #é»è®¤ä¸º1ï¼0表示ä¸ä¿åç»å½cookieï¼1表示ä¿åç»å½cookieæ¹ä¾¿ä¸æ¬¡ç´æ¥æ¢å¤ç»å½
disable_color #é»è®¤ä¸º0ï¼æ¯å¦ç¦ç¨ç»ç«¯å½©è²æå°
send_interval #é»è®¤ä¸º3sï¼å
¨å±åéæ¶æ¯æ¶é´é´éï¼é´é太å°ä¼å¯¼è´æ¶æ¯åéé¢ç¹ï¼å¯è½æè¢«å°å·çé£é©
ignore_send_retcode #对åéæ¶æ¯è¿åè¿äºç¶æç ä¸è®¤ä¸ºåé失败ä¸éè¯,åæ°æ¯ä¸ä¸ªæ°ç»å¼ç¨
#è®¾ç½®ç¤ºä¾ Mojo::Webqq->new(ignore_send_retcode=>[1202,100100]);
#é»è®¤å¼ [1202,100100] 䏿¸
æ¥ä½ç¨è¯·ä¸è¦éæè®¾ç½®
ignore_poll_retcode #å¯¹æ¥æ¶æ¶æ¯è¿åè¿äºç¶æç ä¸è®¤ä¸ºæ¥æ¶å¤±è´¥ï¼ä¸éæ°ç»å½ï¼é¿å
é¢ç¹æçº¿
#è®¾ç½®ç¤ºä¾ Mojo::Webqq->new(ignore_poll_retcode=>[102,109,110,1202,100012]);
lib/Mojo/Webqq/Util.pm view on Meta::CPAN
}
return $out_and_err. ($is_truncated?"\n(å·²æªæ)":"");
}
sub code2state {
my $self = shift;
my %c = qw(
10 online
20 offline
30 away
40 hidden
50 busy
60 callme
70 silent
);
return $c{$_[0]} || "online";
}
sub code2client {
my $self = shift;
my %c = qw(
1 pc
21 mobile
( run in 0.434 second using v1.01-cache-2.11-cpan-87723dcf8b7 )