From ce4a32fe52ef09d8f5ff1dd22c001110902b60a2 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 kio/useragent.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 kio/useragent.pl

(limited to 'kio/useragent.pl')

diff --git a/kio/useragent.pl b/kio/useragent.pl
new file mode 100755
index 000000000..f31e31e1d
--- /dev/null
+++ b/kio/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");
-- 
cgit v1.2.1