8.99: $user->events_for_message($msg) returns events for user handlers.

            fixed $user->handle() and $user->handle_unsafe() for use with the new system.
            registration commands now utilize the new parameter parser.
            other cleanup.

Author: cooper

INDEV

@@ -2523,6 +2523,11 @@ CHANGES:
             numerics are no longer sent to servers (not with the server as the target anyway).
             servers now do not send ERR_UNKNOWNCOMMAND to other registered servers, and all incoming numerics are ignored.
 
+        99. $user->events_for_message($msg) returns events for user handlers.
+            fixed $user->handle() and $user->handle_unsafe() for use with the new system.
+            registration commands now utilize the new parameter parser.
+            other cleanup.
+            
 
 
 

VERSION

@@ -1 +1 @@
-8.98
+8.99

modules/Base/RegistrationCommands.module/RegistrationCommands.json

@@ -1,5 +1,5 @@
 {
-   "version" : "8.94",
+   "version" : "8.99",
    "name" : "Base::RegistrationCommands",
    "author" : {
       "website" : "https://github.com/cooper",

modules/Base/RegistrationCommands.module/RegistrationCommands.pm

@@ -40,13 +40,14 @@ sub register_registration_command {
     }
 
     # parameter check callback.
-    my $command = uc delete $opts{name};
-    my $params  = $opts{parameters};
-    $pool->on("connection.command_$command" => sub {
-            my ($event, @args) = @_;
+    my $command    = uc delete $opts{name};
+    my $event_name = "connection.message_$command";
+    my $params     = $opts{parameters};
+    $pool->on($event_name => sub {
+            my ($event, $msg) = @_;
 
             # there are enough.
-            return 1 if @args >= $params;
+            return 1 if $msg->params >= $params;
 
             # not enough.
             my $conn = $event->object;
@@ -59,17 +60,24 @@ sub register_registration_command {
         _caller  => $mod->package
     ) or return if $params;
 
-    # wrapper that prevents execution after registration.
+    # wrapper.
     my $code = sub {
-        my ($conn, $event) = @_;
+        my ($conn, $event, $msg) = @_;
+        
+        # prevent execution after registration.
         return if $conn->{type} && !$opts{after_reg};
-        $opts{code}(@_);
+        
+        # arguments.
+        my @args = $msg->params;
+        unshift @args, $msg       if $opts{with_msg};
+        unshift @args, $msg->data if $opts{with_data};
+        
+        $opts{code}($conn, $event, @args);
         $event->cancel('ERR_UNKNOWNCOMMAND');
         $event->stop unless $opts{continue_handlers}; # prevent later user/server handlers.
     };
 
     # attach the callback.
-    my $event_name = 'connection.command_'.$command.($opts{with_data} ? '_raw' : '');
     my $result = $pool->on($event_name => $code,
         name     => $opts{cb_name},
         with_eo  => 1,

modules/Core/RegistrationCommands.module/RegistrationCommands.json

@@ -1,5 +1,5 @@
 {
-   "version" : "6.1",
+   "version" : "6.3",
    "name" : "Core::RegistrationCommands",
    "author" : {
       "website" : "https://github.com/cooper",

modules/Core/RegistrationCommands.module/RegistrationCommands.pm

@@ -30,25 +30,23 @@ sub init {
     );
 
     $mod->register_registration_command(
-        name       => shift @$_, code      => shift @$_,
-        parameters => shift @$_, with_data => shift @$_,
-        after_reg  => shift @$_
+        name       => shift @$_, code       => shift @$_,
+        parameters => shift @$_, after_reg  => shift @$_
     ) or return foreach (
     #
     # PARAMS = number of parameters
-    # DATA   = true if include $data string
     # LATER  = true if the command should be handled even after registration
     #
-    #   [ NAME      => \&sub            PARAMS  DATA    LATER
-        [ PING      => \&rcmd_ping,     1,      undef,  1       ],
-        [ PONG      => sub { 1 },       undef,  undef,  1       ],
-        [ CAP       => \&rcmd_cap,      1,      undef,  1       ],
-        [ NICK      => \&rcmd_nick,     1,      undef,          ],
-        [ USER      => \&rcmd_user,     4,      1,      1       ],
-        [ SERVER    => \&rcmd_server,   5,      undef,          ],
-        [ PASS      => \&rcmd_pass,     1,      undef,          ],
-        [ QUIT      => \&rcmd_quit,     undef,  1,              ],
-        [ ERROR     => \&rcmd_error,    1,      undef,  1       ],
+    #   [ NAME      => \&sub            PARAMS  LATER
+        [ PING      => \&rcmd_ping,     1,      1       ],
+        [ PONG      => sub { 1 },       undef,  1       ],
+        [ CAP       => \&rcmd_cap,      1,      1       ],
+        [ NICK      => \&rcmd_nick,     1,              ],
+        [ USER      => \&rcmd_user,     4,      1       ],
+        [ SERVER    => \&rcmd_server,   5,              ],
+        [ PASS      => \&rcmd_pass,     1,              ],
+        [ QUIT      => \&rcmd_quit,     undef,          ],
+        [ ERROR     => \&rcmd_error,    1,      1       ],
     );
 
     return 1;
@@ -199,7 +197,7 @@ sub rcmd_nick {
 }
 
 sub rcmd_user {
-    my ($connection, $event, $data, @args) = @_;
+    my ($connection, $event, @args) = @_;
 
     # already registered.
     if ($connection->{type}) {
@@ -208,8 +206,8 @@ sub rcmd_user {
     }
 
     $connection->{ident} = $args[0];
-    $connection->{real}  = col((split /\s+/, $data, 5)[4]);
-    $connection->fire_event(reg_user => @$connection{ qw(ident real) });
+    $connection->{real}  = $args[3];
+    $connection->fire_event(reg_user => @args[0,3]);
     $connection->reg_continue('id2');
 }
 
@@ -264,8 +262,8 @@ sub rcmd_pass {
 
 # not used for registered users.
 sub rcmd_quit {
-    my ($connection, $event, $data, $arg) = @_;
-    my $reason = defined $arg ? col((split /\s+/,  $data, 2)[1]) : 'leaving';
+    my ($connection, $event, $arg) = @_;
+    my $reason = $arg // 'leaving';
     $connection->done("~ $reason");
 }
 

modules/Core/UserNumerics.module/UserNumerics.json

@@ -1,13 +1,13 @@
 {
-   "version" : "8.78",
+   "version" : "8.99",
    "name" : "Core::UserNumerics",
    "author" : {
       "website" : "https://github.com/cooper",
       "name" : "Mitchell Cooper"
    },
    "description" : "the core set of user numerics",
-   "package" : "M::Core::UserNumerics",
    "depends" : {
       "modules" : "Base::UserNumerics"
-   }
+   },
+   "package" : "M::Core::UserNumerics"
 }

modules/Core/UserNumerics.module/UserNumerics.pm

@@ -158,7 +158,7 @@ sub rpl_isupport {
         $lines[$curr] .= $val eq 'YES' ? "$param " : "$param=$val ";
     }
 
-    return map { "$_:are supported by this server" } @lines
+    return map { "$_:are supported by this server" } @lines;
 }
 
 # CHANMODES in RPL_ISUPPORT.
@@ -170,7 +170,7 @@ sub isp_chanmodes {
     #   status          (4)
     #   key             (5)
     my %m;
-    my @a = ('', '', '', '', '');
+    my @a = ('') x 5;
 
     # find each mode letter.
     foreach my $name ($ircd::conf->keys_of_block(['modes', 'channel'])) {
@@ -188,7 +188,7 @@ sub isp_chanmodes {
     # alphabetize each group.
     foreach my $type (keys %m) {
         my @alphabetized = sort { $a cmp $b } @{ $m{$type} };
-        $a[$type] = join '', @alphabetized
+        $a[$type] = join '', @alphabetized;
     }
 
     return "$a[3],$a[1],$a[2],$a[0]";

modules/ircd.module/connection.module/connection.json

@@ -1,5 +1,5 @@
 {
-   "version" : "8.98",
+   "version" : "8.99",
    "name" : "ircd::connection",
    "no_bless" : 1,
    "author" : {

modules/ircd.module/connection.module/connection.pm

@@ -109,10 +109,7 @@ sub handle {
 
     # user events.
     my $user = $connection->user;
-    push @events,
-        [ $user, message          => $msg ],
-        [ $user, "message_${cmd}" => $msg ]
-    if $user;
+    push @events, $user->events_for_message($msg) if $user;
 
     # fire with safe option.
     my $fire = $connection->prepare(@events)->fire('safe');