diff options
author | Timothy Pearson <[email protected]> | 2013-01-27 01:04:16 -0600 |
---|---|---|
committer | Timothy Pearson <[email protected]> | 2013-01-27 01:04:16 -0600 |
commit | 5159cd2beb2e87806a5b54e9991b7895285c9d3e (patch) | |
tree | 9b70e8be47a390f8f4d56ead812ab0c9dad88709 /tdeio/useragent.pl | |
parent | c17cb900dcf52b8bd6dc300d4f103392900ec2b4 (diff) | |
download | tdelibs-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-x | tdeio/useragent.pl | 13 |
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"); |