perl oicq code improved (addons 3 function search_users)

chenpeng

sub s_search_users {
  my ($self, $packet) = @_;
  my $plain = $self->decrypt(get_data($packet), $self->{Key});
  return unless defined $plain;
  $self->msg('-'x28, ' Online Status [Max 25]', '-'x28, "\n");
  foreach my $line (split(/$RS/, $plain)) {
    my ($qid, $nick, $home, $pic) = split(/$FS/, $line);
    $nick =~ s/^\s+//g; $nick =~ s/\s+$//g;
    $home =~ s/^\s+//g; $home =~ s/\s+$//g;
    $self->msg(sprintf("%-10s [p %3s] %-30s %+20s\n",
              $qid, $pic, $nick, $home));
  }
  $self->msg('='x79, "\n");
  return 1;
}

sub c_search_users {
  my ($self, $packet) = @_;
  my $plain = $self->decrypt_client_data(get_data($packet));
  return unless defined $plain;
  $self->log("Client requests online users\n");
  $self->dumphex($plain);
  1;
}