sub _update_friend{
my $self = shift;
my @query_string = (
skey => uri_escape($self->skey),
pass_ticket => $self->pass_ticket,
r => $self->now(),
skey => uri_escape($self->skey),
pass_ticket => $self->pass_ticket,
);
my $json = $self->http_post(gen_url($api,@query_string),("Content-Type"=>"application/json; charset=UTF-8"),Content=>"{}");
return unless defined $json;
my $d = $self->json_decode($json);
return unless defined $d;
return if $d->{BaseResponse}{Ret}!=0;
return if $d->{MemberCount} == 0;
my @friend_key = qw(HeadImgUrl NickName PYInitial PYQuanPin Alias Province City Sex Id Uin Signature DisplayName RemarkName RemarkPYInitial RemarkPYQuanPin);
for my $m (@{$d->{MemberList}}){
next if $m->{MemberCount}!=0;
$m->{Id} = $m->{UserName};delete $m->{UserName};
$m->{Sex} = code2sex($m->{Sex});
my $friend = {};
@{$friend}{@friend_key} = map {$_=encode_utf8($_);$_} @{$m}{@friend_key};
$self->add_friend($friend);
}
}
1;