11.93: added 'truncate_hosts' ircd option to specify the max host length an ircd supports. closes #135. the 'no_host_slashes' ircd option now replaces slashes with dots. closes #115 for now.

Author: cooper

INDEV

@@ -3695,3 +3695,6 @@ CHANGES:
             ircd and proto server keys are now always numeric. update oper notice to use link_type and ircd_name.
 
         92. cleaned up ircd.pm by splitting the initializing process into 8 phases. closes #129.
+
+        93. added 'truncate_hosts' ircd option to specify the max host length an ircd supports. closes #135.
+            the 'no_host_slashes' ircd option now replaces slashes with dots. closes #115 for now.

VERSION

@@ -1 +1 @@
-11.92
+11.93

etc/default.conf

@@ -295,6 +295,7 @@
     nicklen         = 9                         # maximum nicj length
     no_host_slashes = on                        # don't allow slashes in hosts
     burst_topicwho  = on                        # include the 'setby' param in TB
+    truncate_hosts  = 63                        # truncate hosts to 63 characters
 
 [ ircd_umodes: ratbox ]
 

modules/TS6/Outgoing.module/Outgoing.json

@@ -12,5 +12,5 @@
    "description" : "basic set of TS6 outgoing commands",
    "name" : "TS6::Outgoing",
    "package" : "M::TS6::Outgoing",
-   "version" : "13.4"
+   "version" : "13.5"
 }

modules/TS6/Outgoing.module/Outgoing.pm

@@ -21,7 +21,7 @@ use 5.010;
 
 use Scalar::Util qw(blessed);
 use M::TS6::Utils qw(ts6_id ts6_prefixes ts6_prefix ts6_closest_level);
-use utils qw(notice);
+use utils qw(notice cut_to_length);
 
 our ($api, $mod, $pool, $me);
 my ($TS_CURRENT, $TS_MIN) =(
@@ -154,19 +154,16 @@ sub safe_nick {
 # ts6 host safety
 sub safe_host {
     my ($host, $serv) = @_;
-    my $ircd = $serv->{ircd_name} // '';
 
+    # truncate when necessary
+    if (my $limit = $serv->ircd_opt('truncate_hosts')) {
+        $host = cut_to_length($limit, $host);
+    }
+
+    # replace slashes with dots when necessary
     # HACK: see issue #115
     if ($serv->ircd_opt('no_host_slashes')) {
-        my $out = '';
-        for (split //, $host) {
-            if (/[\/]/) {
-                $out .= '.-'.ord().'.';
-                next;
-            }
-            $out .= $_;
-        }
-        $host = $out;
+        $host =~ s/\//\./g;
     }
 
     return $host;