sub requestmod
{
    my ( $session, $heap, $args ) = @_[ SESSION, HEAP, ARG0 ];
    my $kernel = $_[KERNEL];
    my %args = %{$args};

    #if ( $args{arg1} )
    if ( $args{arg} =~ m/^\!\S+\s(.+)$/i )
    {
        my $msg = $1;
        my $name = "";
        my $string = "";
        my $players_gdi = serverStatus::getPlayers_GDI();
        my $players_nod = serverStatus::getPlayers_Nod();
        my $maxplayers = $players_nod + $players_gdi;
        my $msglength = length($msg);
        if ( $msglength > 248 ) { sendmsg("Your Message is too long.", $args{nicktype}, "A", $args{nick} ); return; }
                elsif ($maxplayers < 1) { sendmsg("No players in Game", $args{nicktype}, "A", $args{nick} ); return; }
        else
        {
            my %playerlist = playerData::getPlayerList();
            while ( my ( $id, $player ) = each ( %playerlist ) )
            {

                if ((modules::IsHalfMod($player->{'name'}) || modules::IsFullMod($player->{'name'}) || modules::IsAdmin($player->{'name'}) || modules::IsOwner($player->{'name'}) ))
                {
                    $name = "$player->{'name'} ";
                    $string = $string . $name;
                    modules::pagePlayer ( $player->{'id'}, "Admin", "Player $player->{'name'} requested a moderator for: $msg" );
                    $name = "$player->{'name'} ";
                    $string = $string . $name;

                }
                else {
            brIRC::ircmsg ( "[9Moderator Request] $player->{'name'} requested a moderator for: $msg", "A" ); return;
            modules::pagePlayer ( $player->{'id'}, "Admin", "Player $player->{'name'} requested a moderator for: $msg" );
            }
            }
        }
    }
    else { sendmsg("Syntax !requestmod [reason] ", $args{nicktype}, "A", $args{nick} ); }
}