X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=gatherstats.pl;h=0a5a9a24137a85947bf652c3dbc7d00087c498c3;hp=d2d4faa3365c4c281a0319bc2e88c8a029081365;hb=314e31aadfdadd37adb5723e7fad672e961699d9;hpb=43a0fc776902f3a7b3ea019e94b67cb7e4500039

diff --git a/gatherstats.pl b/gatherstats.pl
index d2d4faa..0a5a9a2 100755
--- a/gatherstats.pl
+++ b/gatherstats.pl
@@ -85,9 +85,15 @@ if ($Conf{'TLH'}) {
   }
   # strip whitespace
   $TLH =~ s/\s//g;
+  # add trailing dots if none are present yet
+  # (using negative look-behind assertions)
+  $TLH =~ s/(?<!\.):/.:/g;
+  $TLH =~ s/(?<!\.)$/./;
   # check for illegal characters
   &Bleat(2,'Config error - illegal characters in TLH definition!')
-    if ($TLH !~ /^[a-zA-Z0-9:]+$/);
+    if ($TLH !~ /^[a-zA-Z0-9:+.-]+$/);
+  # escape dots
+  $TLH =~ s/\./\\./g;
   if ($TLH =~ /:/) {
     # reformat $TLH from a:b to (a)|(b),
     # e.g. replace ':' by ')|('