summaryrefslogtreecommitdiffstats
path: root/tdeio/useragent.pl
diff options
context:
space:
mode:
authorTimothy Pearson <kb9vqf@pearsoncomputing.net>2013-01-27 01:04:16 -0600
committerTimothy Pearson <kb9vqf@pearsoncomputing.net>2013-01-27 01:04:16 -0600
commit5159cd2beb2e87806a5b54e9991b7895285c9d3e (patch)
tree9b70e8be47a390f8f4d56ead812ab0c9dad88709 /tdeio/useragent.pl
parentc17cb900dcf52b8bd6dc300d4f103392900ec2b4 (diff)
downloadtdelibs-5159cd2beb2e87806a5b54e9991b7895285c9d3e.tar.gz
tdelibs-5159cd2beb2e87806a5b54e9991b7895285c9d3e.zip
Rename a number of libraries and executables to avoid conflicts with KDE4
Diffstat (limited to 'tdeio/useragent.pl')
-rwxr-xr-xtdeio/useragent.pl13
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");