1 files changed, 0 insertions, 13 deletions
diff --git a/kio/useragent.pl b/kio/useragent.pl
deleted file mode 100755
index f31e31e1d..000000000
--- a/kio/useragent.pl
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/bin/perl
-# the script is called with interpreter, so don't worry about the path
-
-while(<>)
-{
-    if (($key, $domain, $useragent, $comment) = ($_ =~ /(Entry\d)=\.?([^:]+)::([^:]+)::([^\n]+)/))
-    {
-       printf ("[%s]\n", $domain);
-       printf ("UserAgent=%s\n", $useragent);
-       printf ("# DELETE %s\n", $key);
-    }
-}
-printf ("# DELETE EntriesCount\n");