Skip to content

Instantly share code, notes, and snippets.

View hinrik's full-sized avatar

Hinrik Örn Sigurðsson hinrik

View GitHub Profile
from Munin [email protected]
date Thu, Oct 27, 2011 at 10:02 AM
subject Re: [Munin] #819: mailman plugin fails to start for the first time
#819: mailman plugin fails to start for the first time
---------------------+------------------------------------------------------
Reporter: Hinrik | Owner: nobody
Type: defect | Status: closed
Priority: normal | Milestone: Munin 1.4.3
Component: plugins | Version: 1.4.2
@hinrik
hinrik / echo_server.rb
Created September 29, 2011 14:40 — forked from tarcieri/echo_server.rb
Cool.io echo server using the fancy new DSL
require 'rubygems'
require 'cool.io'
ADDR = 'localhost'
PORT = 4321
cool.io.server ADDR, PORT do
on_connect do
puts "#{remote_addr}:#{remote_port} connected"
end
\version "2.12.2"
\relative c' {
\tempo 4 = 60
\key c \major
\time 4/4
a1 b c d
\bar "||"
\break
Delivered-To: [email protected]
Received: by 10.204.40.78 with SMTP id j14cs44920bke;
Thu, 18 Aug 2011 05:49:59 -0700 (PDT)
Received: by 10.224.198.195 with SMTP id ep3mr611992qab.229.1313671798102;
Thu, 18 Aug 2011 05:49:58 -0700 (PDT)
Return-Path: <[email protected]>
Received: from mail1.agstrading.com (mail1.agstrading.com. [66.197.134.122])
by mx.google.com with ESMTP id ew5si2667374qab.61.2011.08.18.05.49.57;
Thu, 18 Aug 2011 05:49:58 -0700 (PDT)
use strict;
use warnings FATAL => 'all';
use POE;
use Test::More tests => 2;
{
package WheelWrapper;
use strict;
use warnings FATAL => 'all';
package NicelandYouTube;
use strict;
use warnings FATAL => 'all';
use List::MoreUtils 'any';
use POE::Component::IRC::Plugin 'PCI_EAT_NONE';
use POE::Component::IRC::Plugin::URI::Find;
use POE::Quickie;
sub new {
@hinrik
hinrik / 02_success.t
Created May 19, 2011 02:42
SIGCHLD sometimes not delivered. Race condition?
use strict;
use warnings FATAL => 'all';
use POE;
use POE::Quickie;
use Test::More tests => 5;
POE::Session->create(
package_states => [
(__PACKAGE__) => [qw(
_start
#!/usr/bin/env perl
use strict;
use warnings;
use POE;
use POE::Wheel::ReadLine;
use POE::Wheel::Run;
use POE::Wheel::ReadWrite;
use Symbol 'gensym';
use Test::More tests => 4;
\version "2.12.3"
foo = {
\relative c' {
<<
{
e8-1 b e b e b e b
d-1 b d b d b d b
d-1 b d b d b d b
d-1 a d a d a d a
\version "2.12.3"
\score {
\new PianoStaff <<
\new Staff {
\relative c'' {
a4 b c d
<<
{ <c e g>1 }
\\