Skip to content

Instantly share code, notes, and snippets.

View kazeburo's full-sized avatar

Masahiro Nagano kazeburo

420 followers · 72 following
View GitHub Profile
@kazeburo
kazeburo / gist:393484
Created May 7, 2010 14:28
#!/usr/bin/perl
package Worker;
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Curl;
use Coro;
@kazeburo
kazeburo / gist:395632
Created May 10, 2010 03:09
!/usr/bin/perl
se strict;
se warnings;
se AnyEvent;
se AnyEvent::Curl;
se HTTP::Request;
se Time::HiRes qw//;
use Coro;
@kazeburo
kazeburo / gist:399570
Created May 13, 2010 06:45
#!/usr/bin/perl
package Worker;
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Curl;
use Coro;
@kazeburo
kazeburo / gist:469203
Created July 9, 2010 07:49
package CloudForecast::Data::Gearmanstarter;
use CloudForecast::Data -base;
use IO::Socket::INET;
=head1 NAME
CloudForecast::Data::Gearmanstarter
=head1 SYNOPSIS
@kazeburo
kazeburo / Qmailqueue.pm
Created August 4, 2010 06:52
package CloudForecast::Data::Qmailqueue;
use CloudForecast::Data -base;
use CloudForecast::Log;
rrds map { [ $_, 'GAUGE' ] } qw /queue preprocess/;
graphs 'queue' => 'Qmail Queue';
title { "Qmail Queue" };
fetcher {
@kazeburo
kazeburo / Postfixqueue.pm
Created August 12, 2010 08:22
package CloudForecast::Data::Postfixqueue;
use CloudForecast::Data -base;
use CloudForecast::Log;
rrds map { [ $_, 'GAUGE' ] } qw /incoming active deferred hold/;
graphs 'queue' => 'Postfix Queue';
title { 'Postfix Queue' };
fetcher {
@kazeburo
kazeburo / Postfixqueue.pm
Created August 12, 2010 09:31
package CloudForecast::Data::Postfixqueue;
use CloudForecast::Data -base;
use CloudForecast::Log;
rrds map { [ $_, 'GAUGE' ] } qw /incoming active deferred hold/;
graphs 'queue' => 'Postfix Queue';
title { 'Postfix Queue' };
fetcher {
@kazeburo
kazeburo / Qmailqueue.pm
Created August 12, 2010 10:01
package CloudForecast::Data::Qmailqueue;
use CloudForecast::Data -base;
use CloudForecast::Log;
rrds map { [ $_, 'GAUGE' ] } qw /queue preprocess/;
graphs 'queue' => 'Qmail Queue';
title { "Qmail Queue" };
fetcher {
@kazeburo
kazeburo / gist:526559
Created August 16, 2010 07:15
--- memcached-1.4.5.orig/memcached.c 2010-04-04 04:51:29.000000000 +0900
+++ memcached-1.4.5/memcached.c 2010-08-16 16:11:21.000000000 +0900
static void process_stat_settings(ADD_STAT add_stats, void *c) {
assert(add_stats);
- APPEND_STAT("maxbytes", "%u", (unsigned int)settings.maxbytes);
+ APPEND_STAT("maxbytes", "%llu", (unsigned long long)settings.maxbytes);
APPEND_STAT("maxconns", "%d", settings.maxconns);
APPEND_STAT("tcpport", "%d", settings.port);
APPEND_STAT("udpport", "%d", settings.udpport);
@kazeburo
kazeburo / Gearmand.pm
Created August 30, 2010 06:00
package CloudForecast::Data::Gearmand;
use CloudForecast::Data -base;
use IO::Socket::INET;
=head1 NAME
CloudForecast::Data::Gearmand
=head1 SYNOPSIS