From 35a1d8178ec6e1af28864a6ebd75cb2cc68f7490 Mon Sep 17 00:00:00 2001 From: root 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/nms.gathering.org') 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