perl oicq code improved (addons 4 function get_online_num)

chenpeng

sub s_get_online_num {
  my ($self, $packet) = @_;
  my $plain = $self->decrypt(get_data($packet), $self->{Key});
  return unless defined $plain;
  my $starter = pack('C*', 0x30, 0x1f);
  return unless substr($plain, 0, 4) eq $starter x 2;
  my $num = substr($plain, 4);
  $self->msg("QQ online users: $num\n");
  return 1;
}

sub c_get_online_num { c_default_handler(@_) }