fix notice

Author: cooper

modules/Core/OperNotices.module/OperNotices.json

@@ -9,5 +9,5 @@
    "description" : "the core set of oper notices",
    "name" : "Core::OperNotices",
    "package" : "M::Core::OperNotices",
-   "version" : "12.15"
+   "version" : "12.25"
 }

modules/Core/OperNotices.module/OperNotices.pm

@@ -46,7 +46,7 @@ our %oper_notices = (
     channel_mode_unknown    => 'Attempted to set %s, but this mode is not defined on %s; ignored',
 
     # servers
-    new_server              => '%s ircd %s, proto %s [%s] parent: %s',
+    new_server              => '%s ircd = %s, proto = %s [%s] parent: %s',
     server_closing          => 'Received SQUIT from %s; dropping link (%s)',
     server_quit             => '%s quit from parent %s (%s)',
     server_burst            => '%s is bursting information',

modules/ircd.module/pool.module/pool.pm

@@ -120,14 +120,14 @@ sub new_server {
     # become an event listener.
     $server->add_listener($pool, 'server');
 
-    my $ircd  = $server->{ircd} == -1 ? $server->{ircd_name} : $server->{ircd};
+    my $ircd = $server->{ircd} == -1 ?
+        $server->{ircd_name} : v('SNAME').' '.$server->{ircd};
     my $proto = ($server->{link_type}.' ' || '').$server->{proto};
 
     notice(new_server =>
         $server->notice_info,
         $ircd,
         $proto,
-        $server->{proto},
         $server->{desc},
         $server->{parent}{name}
     );