Skip to content

Instantly share code, notes, and snippets.

@terminalfool
terminalfool / keybase.md
Last active October 6, 2016 17:01
keybase.md

Keybase proof

I hereby claim:

  • I am terminalfool on github.
  • I am terminalfool (https://keybase.io/terminalfool) on keybase.
  • I have a public key whose fingerprint is 0067 C386 4B27 C170 6520 8790 D56A A350 432B 6928

To claim this, I am signing this object:

@terminalfool
terminalfool / otter.pl
Last active July 23, 2017 03:50
a daemon to remove tracking keys between browser sessions
#!/usr/bin/perl
#otter.pl v0.11 7/1/16
#scan and delete urchin cookies from mozilla cookie db
use strict;
use warnings;
use File::Monitor;
use File::Path qw(remove_tree);
@terminalfool
terminalfool / namecheap_ddns.pl
Last active May 1, 2019 00:24
Namecheap ddns updater. A self-contained version of http://search.cpan.org/~dwatson/App-DDNS-Namecheap/
#!/usr/bin/env perl
package App::DDNS::Namecheap;
use strict;
use warnings;
use Exporter;
use LWP::Simple qw($ua get);
$ua->agent("");
use Mozilla::CA;
@terminalfool
terminalfool / app.dns.adblock.plist
Last active August 29, 2015 13:56
launchctl plist files for adfilter modules
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>Label</key>
<string>app.dns.adblock</string>
<key>ProgramArguments</key>
<array>
<string>/usr/local/bin/adblock.pl</string>
</array>
@terminalfool
terminalfool / bind_config2.pl
Created March 27, 2012 13:50
A BIND ad filter refresh script. Intended for use under ''launchd'' (osx 10.5+). Loads ad domains from adblock plus filters.
#!/usr/bin/perl
use strict;
use Time::localtime;
use LWP::Simple qw($ua getstore);
$ua->agent("");
use Mozilla::CA;
#use Data::Dumper;
@terminalfool
terminalfool / bind_config.pl
Created March 27, 2012 13:39
A BIND ad filter refresh script. Loads ad domains from adblock plus filters
#!/usr/bin/perl
use strict;
use Proc::Simple;
use Proc::Killall;
use Time::localtime;
use LWP::Simple qw($ua getstore);
$ua->agent("");
use Mozilla::CA;