From cc9a6912958b0e2f78cc5d7b4b4797eca03dcfc7 Mon Sep 17 00:00:00 2001
From: root <root@frank.tg14.gathering.org>
Date: Wed, 16 Apr 2014 15:52:54 +0200
Subject: Remove domain names from nettkart.pl.

---
 web/nms.gathering.org/nettkart.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'web')

diff --git a/web/nms.gathering.org/nettkart.pl b/web/nms.gathering.org/nettkart.pl
index 19e48d1..6711dae 100755
--- a/web/nms.gathering.org/nettkart.pl
+++ b/web/nms.gathering.org/nettkart.pl
@@ -87,6 +87,7 @@ while (my $ref = $q->fetchrow_hashref()) {
 	
 	my $sysname = $ref->{'sysname'};
 	$sysname =~ s/-sekrit//;
+	$sysname =~ s/\..*$//;
 	
 	$ref->{'placement'} =~ /\((\d+),(\d+)\),\((\d+),(\d+)\)/;
 	$img->filledRectangle($3,$4,$1,$2,$clr);
-- 
cgit v1.2.3