discordianfish

#!/usr/bin/env perl
use strict;
use warnings;

use Data::Dumper;
use constant THRESHOLD => 5;
my $count;

while ($_ = <STDIN>)
{

discordianfish

# 'notify-by-irc'
define command {
        command_name notify-by-irc
        command_line /srv/nagios/nagbot-notify.sh "$NOTIFICATIONTYPE$;$SERVICEDESC$;$HOSTALIAS$;$HOSTADDRESS$;$SERVICESTATE$;$LONGDATETIME$;$SERVICEOUTPUT$"
}

---

define contact {
  name                            default-contact

discordianfish

D/GsmDataConnectionTracker( 1307): [GsmDataConnectionTracker] rx 0, tx 0, pre_rx 0, pre_tx 0, netStatPollEnabled true
D/GsmDataConnectionTracker( 1307): [GsmDataConnectionTracker] next poll in 1000 milliseconds
D/dalvikvm( 2143): GC_EXPLICIT freed 6656 objects / 314112 bytes in 73ms
W/Flex    ( 1307): getString FLEX_OPERATOR_CODE OPEN
D/GsmDataConnectionTracker( 1307): [GsmDataConnectionTracker] rx 0, tx 0, pre_rx 0, pre_tx 0, netStatPollEnabled true
D/GsmDataConnectionTracker( 1307): [GsmDataConnectionTracker] next poll in 1000 milliseconds
W/Flex    ( 1307): getString FLEX_OPERATOR_CODE OPEN
D/GsmDataConnectionTracker( 1307): [GsmDataConnectionTracker] rx 0, tx 0, pre_rx 0, pre_tx 0, netStatPollEnabled true
D/GsmDataConnectionTracker( 1307): [GsmDataConnectionTracker] next poll in 1000 milliseconds
W/Flex    ( 1307): getString FLEX_OPERATOR_CODE OPEN

discordianfish

perl-base:
  Installed: 5.10.0-19lenny5
  Candidate: 5.10.1-17squeeze2
  Version table:
     5.10.1-17squeeze2 0
        600 http://ftp.nl.debian.org squeeze/main Packages
 *** 5.10.0-19lenny5 0
        100 /var/lib/dpkg/status
     5.10.0-19lenny3 0
        700 http://ftp.de.debian.org lenny/main Packages

discordianfish

  def foo(queue, options = {}, &blk)
                bar = lambda do
                        MQ.queue(queue, :durable => true, :auto_delete => false).subscribe(:ack => true) do |h,m|
                                return if AMQP.closing?
....

discordianfish

foo bar
foo baz
bla bar
bla blub
--
foo bar baz
bla bar blub

discordianfish

#!/usr/bin/env perl
use strict;
use warnings;

my $DELIM = shift || ' ';

my $last;
my @stash;

while (<STDIN>)

discordianfish

# generated by fai-chboot for host default with IP no IP
SERIAL 0 115200
default fai-generated

label fai-generated
kernel vmlinuz-2.6.32-5-amd64
append initrd=initrd.img-2.6.32-5-amd64 ip=dhcp  root=/dev/nfs nfsroot=10.x.x.x:/srv/fai/nfsroot boot=live  FAI_FLAGS=verbose,sshd,createvt FAI_ACTION=install console=ttyS0,115200n8 console=vga

discordianfish

package main

import (
	"fmt"
	"io"
	"log"
	"net/http"
	"os"
)

discordianfish

package main

import (
	"bytes"
	"fmt"
	"log"
	"github.com/mreiferson/go-httpclient"
	"net/http"
	"os"
	"time"