Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl
#
# Brad's el-ghetto do-our-storage-stacks-lie?-script
#
sub usage {
die <<'END';
Usage: diskchecker.pl -s <server[:port]> verify <file>
diskchecker.pl -s <server[:port]> create <file> <size_in_MB>
diskchecker.pl -l [port]

Backend Architectures

ARCHITECTURES

ror, scala, jetty, erlang, thrift, mongrel, comet server, my-sql, memchached, varnish, kestrel(mq), starling, gizzard, cassandra, hadoop, vertica, munin, nagios, awstats

@byte
byte / gist:2928241
Created June 14, 2012 06:06 — forked from jayjanssen/gist:2911398
Monitor checkpoint age on any Innodb server
#!/usr/bin/perl
#LOG
#---
#Log sequence number 248 2222568315
#Log flushed up to 248 2222533410
#Last checkpoint at 248 1843690869
#
use strict;
require 'fileutils'
start_time = Time.now
SOURCE_DB = {
:name => 'db_name',
:user => 'db_user',
:password => 'db_pass',
:host => 'localhost'