Code: Select all
for (my $i = 0; $i < @::chatRoomsID; $i++) {
next if ($::chatRoomsID[$i] eq "");
my $pubOwnerID = unpack("L1",$::chatRoomsID[$i]);
print $pubOwnerID . "\n";
}
Code: Select all
sub chat_info {
my ($self, $args) = @_;
my $title;
$self->decrypt(\$title, $args->{title});
$title = bytesToString($title);
my $chat = $chatRooms{$args->{ID}};
if (!$chat || !%{$chat}) {
$chat = $chatRooms{$args->{ID}} = {};
binAdd(\@chatRoomsID, $args->{ID});
Plugins::callHook('packet_chat', {ID => $args->{ID}, title => $title});
}
$chat->{title} = $title;
$chat->{ownerID} = $args->{ownerID};
$chat->{limit} = $args->{limit};
$chat->{public} = $args->{public};
$chat->{num_users} = $args->{num_users};
}
I want to print pubOwnerID pubOwner pubTitle pubOwnerMap pubOwnerX pubOwnerY