diff options
author | root <root@frank.tg14.gathering.org> | 2014-04-16 15:52:54 +0200 |
---|---|---|
committer | Roy Sindre Norangshol <roy.sindre@norangshol.no> | 2014-04-16 16:18:18 +0200 |
commit | cc9a6912958b0e2f78cc5d7b4b4797eca03dcfc7 (patch) | |
tree | b4747ead79c30d1677abda0a5b1b7cb70ce23840 | |
parent | 8c37af6dd3c23762540a312b90030e922938b324 (diff) |
Remove domain names from nettkart.pl.
-rwxr-xr-x | web/nms.gathering.org/nettkart.pl | 1 |
1 files changed, 1 insertions, 0 deletions
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); |