reyjrar

#!/usr/bin/env perl

use strict;
use warnings;

use HTTP::Status;
use URI;

use Snort::Rule;

reyjrar

#------------------------------------------------------------------------#
package base;
use MooseX::POE;

with qw( MooseX::POE::Aliased );

event process => sub {
    my ($self,$thing) = @_[OBJECT,ARG0];
    print "base::process called with $thing\n";
};

reyjrar

package dns::monitor::plugin::sniffer::log::dest::stdout;

use Moose;

extends 'dns::monitor::plugin::sniffer::log';

sub write {
	my ($self,$line) = @_;

	print $line,"\n";

reyjrar

#!/bin/bash

BINDIR="/usr/local/sbin"
SVNURL="file:///repo/projects/dns-monitor"
TARGET="/opt/www/dns-monitor"

$BINDIR/svncheckrel $SVNURL $TARGET
rc=$?;

if [ "$rc" -eq "0" ]; then

reyjrar

#=======================================
# Part 1 is Setting up the Mirror Server

# Install CPAN::Mini
$ curl -L http://cpanmin.us | perl - --sudo CPAN::Mini

# Select a CPAN Mirror URL from http://mirrors.cpan.org/
#   - We'll use http://cpan.pair.com
# Pick a directory to mirror to, I'll use /var/www/cpan

reyjrar

#!/bin/sh
# Assumes /var/log/remote/%HOSTNAME/ configuration for central logger
#

# collect data
time=`date +%s`;
distinct=`find /var/log/remote -mmin -60 | cut -d/ -f5| sort -u |wc -l`

# send it!
echo "syslog.distinct_hosts $distinct $time" | nc graphite 2003

reyjrar

#!/bin/sh
#
# Script to manage syslog storage capacity

# Remove anything older than 1 year
find /var/log/remote/ -mindepth 2 -mtime +365 -type f -exec rm '{}' \;

# Remove empty directories
find /var/log/remote/ -type d -empty -exec rmdir '{}' \;

reyjrar

(* 
 * New-iTerm-Window.scpt
 * 
 * Intended for use with QuickSilver
 *  I mapped option-y to running this script to create
 *  a new iTerm window on the current workspace
 *
 * Based on much Googling - very little "original" code here
 *   Comments/Suggestions to [email protected]
 *)

reyjrar

input {
    tcp {
        type => "syslog"
        port => 8514
    }
}

filter {

## DISCARD IMPROPERLY FORMATTED MESSAGES

reyjrar

int Accumulate(Eventinfo *lf)
{
    // Declare our variables
    bool do_update = false;

    char _key[OS_ACM_MAXKEY];
    char _data[OS_ACM_MAXDATA];

    char hashed_line[OS_ACM_MAXDATA];
    char hash_buffer[OS_ACM_MAXELM];