TDE core libraries
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

useragent.pl 369B

12345678910111213
  1. #!/usr/bin/perl
  2. # the script is called with interpreter, so don't worry about the path
  3. while(<>)
  4. {
  5. if (($key, $domain, $useragent, $comment) = ($_ =~ /(Entry\d)=\.?([^:]+)::([^:]+)::([^\n]+)/))
  6. {
  7. printf ("[%s]\n", $domain);
  8. printf ("UserAgent=%s\n", $useragent);
  9. printf ("# DELETE %s\n", $key);
  10. }
  11. }
  12. printf ("# DELETE EntriesCount\n");