From 19673b27115a3aa65d3bed37b6162bef9a794e81 Mon Sep 17 00:00:00 2001
From: Steve Schnepp <steve.schnepp@pwkf.org>
Date: Sat, 1 Sep 2012 11:29:12 +0200
Subject: [PATCH] nn: use M::P::clean_fieldname()

---
 plugins/newznab/nn_ | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/plugins/newznab/nn_ b/plugins/newznab/nn_
index f044e10b..05ccf21c 100644
--- a/plugins/newznab/nn_
+++ b/plugins/newznab/nn_
@@ -72,6 +72,8 @@ use Data::Dumper;
 use feature 'say';
 use File::Basename;
 
+use Munin::Plugin;
+
 #-- CONFIG --#
 
 my %config = (
@@ -345,14 +347,6 @@ sub update_users {
 	$sth->finish();
 }
 
-sub clean_fieldname {
-	my $name = shift;
-	$name =~ s/^[^A-Za-z0-9_]+/_/;
-	$name =~ s/^[0-9]+$/a$name/;
-	$name = substr($name,-19);
-	return $name;
-}
-
 exit main() unless caller;