Skip to content

Instantly share code, notes, and snippets.

Keybase proof

I hereby claim:

  • I am reyjrar on github.
  • I am reyjrar (https://keybase.io/reyjrar) on keybase.
  • I have a public key ASBhL2F7FpCetTBbHeSajnZusy0pe2QJNTX69go64Lwm_wo

To claim this, I am signing this object:

@reyjrar
reyjrar / es-utils-4.4-release-notes
Created February 27, 2016 07:26
es-utils-4.4-release-notes
==================================================
Changes from 2014-02-27 00:00:00 +0000 to present.
==================================================
----------------------------------------
version 4.4 at 2016-02-27 07:15:06 +0000
----------------------------------------
Change: 4a832f92659ebc575d2de0948dbb01b8e349138b
Author: Brad Lhotsky <[email protected]>
@reyjrar
reyjrar / emailnotifications.pl
Last active November 19, 2015 20:25
Email notifications for privmsgs, mentions, and hilights.
#!/usr/bin/env perl
use strict;
use warnings;
use Irssi;
use Irssi::Irc;
use MIME::Lite;
use Sys::Hostname;
@reyjrar
reyjrar / del-aggregated.sql
Created May 30, 2015 12:21
Deletion with Aggregated Data
WITH dups AS(
select response_id, answer_id, section
from meta_answer
group by response_id, answer_id, section
having count(1) > 1
)
DELETE FROM meta_answer ma
WHERE EXISTS (
SELECT 1
FROM dups
#!/usr/bin/env perl
#
use strict;
use warnings;
use Benchmark qw(cmpthese timethese);
my @tests = (
q{testing 12345 some more stuff},
q{123 testing some stuff},
@reyjrar
reyjrar / mbsyncrc
Created January 12, 2015 20:51
New old mail setup
Expunge Slave
Create Both
CopyArrivalDate yes
Sync All
SyncState *
IMAPAccount company
Host imap.company.com
CertificateFile ~/Certificates/godaddy.pem
UseIMAPS yes
@reyjrar
reyjrar / git-log-code-review.log
Created April 10, 2014 20:59
Sample output of a 'git log --reverse' when using Git::Code::Review
commit 32e77a880484a60431b7e2d841549e0b6a96057f
Author: Brad Lhotsky <[email protected]>
Date: Wed Apr 2 22:11:05 2014 +0200
Initializing source repository.
---
audit_repo: /Users/blhotsky/tmp/repo
branch: master
reviewer: [email protected]
source_repo: [email protected]:reyjrar/Parse-Syslog-Line.git
@reyjrar
reyjrar / digiti-matching.pl
Created December 8, 2013 12:20
Testing variations on matching digits with Perl Regex
#!/usr/bin/env perl
#
use strict;
use warnings;
use Benchmark qw(cmpthese);
my @tests = (
q{testing 12345 some more stuff},
q{123 testing some stuff},
@reyjrar
reyjrar / adobe.txt
Last active December 29, 2015 21:59
Output from a bitsquatting whois tool I'm working on. GOOGLEUSERCONTENT.COM is rated #44 on the Alexa Top Sites
$ ./bin/bit-whois.pl adobe.com
adobe.com variation bdobe.com is taken (ns01.domaincontrol.com)
adobe.com variation aeobe.com is !! ERROR !!
No Match Domain!
adobe.com variation acobe.com is taken (ns1.s416.sureserver.com)
adobe.com variation adpbe.com is taken (ns2.hastydns.com)
adobe.com variation adnbe.com is ** AVAILABLE **
adobe.com variation adoce.com is taken (ns2.warptech.net)
adobe.com variation adoae.com is ** AVAILABLE **
adobe.com variation adobf.com is ** AVAILABLE **
@reyjrar
reyjrar / feature.xml
Created July 9, 2013 12:06
Possible enhancement to the decoders/rules
<decoder name="uptime">
<regex>load avergage: (\S+),</regex>
<order>var:load<order>
</decoder>
<rule id="100000" level="10">
<decoded_as>uptime</decoded_as>
<compare var="load" is="numeric" check="gt">2</compare>
</rule>