1 files changed, 13 insertions, 0 deletions
diff --git a/tdeio/useragent.pl b/tdeio/useragent.pl
new file mode 100755
index 000000000..f31e31e1d
--- /dev/null
+++ b/tdeio/useragent.pl
@@ -0,0 +1,13 @@
+#!/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");