Perl 微信模块--Weixin::Client

package Weixin::Client;
use strict;
use File::Spec;
use Weixin::Util;
use LWP::UserAgent;
use Weixin::UserAgent;
use LWP::Protocol::https;

use base qw(
Weixin::Message
Weixin::Client::Callback
Weixin::Client::Operate
Weixin::Client::Friend
Weixin::Client::Chatroom
Weixin::Client::Request
Weixin::Client::Cron
Weixin::Client::Plugin
Weixin::Client::Base
);

our $VERSION = "2.0";

sub new{
##$class 是Weixin::Client
my $class = shift;
##%pdebug0  是传入的my $client = Weixin::Client->new(debug=>0);
my %p = @_;
my $agent = 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062';
my $tmpdir = File::Spec->tmpdir();
my $cookie_filename = $p{login_file} || "$tmpdir/weixin_client_login.dat";
my $self = {
cookie_jar              => HTTP::Cookies->new(hide_cookie2=>1,file=>$cookie_filename,autosave=>1),
debug                   => $p{debug},
_token                  => {},
_watchers               => {},
_intervals              => {},
_synccheck_error_count  => 0,
_synccheck_running      => 0,
_sync_running           => 0,
_sync_interval          => 1,
_synccheck_interval     => 1,
_send_msg_interval      => 4,
_last_sync_time         => undef,
_last_synccheck_time    => undef,
_send_message_queue     => Weixin::Message::Queue->new,
_receive_message_queue  => Weixin::Message::Queue->new,
_data       => {
user                => {},
friend              => [],
chatroom            => [],
},
on_run                  => undef,
on_receive_msg          => undef,
on_send_msg             => undef,
is_stop                 => 0,
plugin_num              => 0,
plugins                 => {},
ua_retry_times          => 5,
tmpdir                  => $tmpdir,
client_version          => $VERSION,
};
$self->{ua} = LWP::UserAgent->new(
cookie_jar      =>  $self->{cookie_jar},
agent           =>  $agent,
timeout         =>  300,
ssl_opts        =>  {verify_hostname => 0},
);
$self->{asyn_ua} = Weixin::UserAgent->new(
cookie_jar  =>  $self->{cookie_jar},
agent       =>  $agent,
request_timeout =>  300,
inactivity_timeout  =>  300,
);

if($self->{debug}){
$self->{ua}->add_handler(request_send => sub {
my($request, $ua, $h) = @_;
print $request->as_string;
return;
});
$self->{ua}->add_handler(
response_header => sub { my($response, $ua, $h) = @_;
print $response->as_string;
return;

});
$self->{ua}->add_handler(
response_done => sub { my($response, $ua, $h) = @_;
print substr($response->content,0,1000),"\n" if $response->header("content-type")=~/^text/;
return;
});
}
##bless bless 的好处在于它提供给我们一种直接使用该对象的方式,如: bless后 $self 作为方法的第一个参数
#sub add_friend{
#my $self = shift;
#my $friend = shift;
#在这里,它是RegularEmployee.Perl于是就会如下所示调用这个函数 RegularEmployee::promote($emp1)

#换句话说,箭头左边的对象只是作为相应子例程的第一个参数。
#
bless $self,$class;
$self->prepare();
return $self;
}

1;