reyjrar

<!-- Decoder to enable extracting data from the crontab command

      Aug 30 17:13:02 server.example.com crontab[1347]: (root) LIST (root)
      Aug 30 17:13:38 server.example.com crontab[2852]: (root) BEGIN EDIT (root)
      Aug 30 17:13:41 server.example.com crontab[2852]: (root) REPLACE (root)
      Aug 30 17:13:41 server.example.com crontab[2852]: (root) END EDIT (root)
      Aug 30 17:14:01 server.example.com crond[1756]: (root) RELOAD (/var/spool/cron/root)
      Aug 30 17:14:01 server.example.com CROND[4018]: (root) CMD (/usr/lib64/sa/sa1 1 1)
      Aug 30 17:14:06 server.example.com crontab[4030]: (root) LIST (root)
      Aug 30 17:15:01 server.example.com CROND[5818]: (root) CMD (/usr/lib64/sa/sa1 1 1)

reyjrar

<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>

reyjrar

$ ./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

#!/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

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

Expunge Slave
Create Both
CopyArrivalDate yes
Sync All
SyncState *

IMAPAccount company
  Host imap.company.com
  CertificateFile ~/Certificates/godaddy.pem
  UseIMAPS yes

reyjrar

#!/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

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

reyjrar

#!/usr/bin/env perl

use strict;
use warnings;

use Irssi;
use Irssi::Irc;
use MIME::Lite;
use Sys::Hostname;

reyjrar

==================================================
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]>