David Leadbeater dgl

Simple PowerDNS MySQL replication monitoring

Replace domain in "ucheck.domain" with a domain of yours in both the SQL below and ucheck-check.sh. Normally use the one the DNS servers are in (this assumes your servers are called a.ns.domain, b.ns.domain, etc, change in ucheck-check.sh).

Do something like this in MySQL:

CREATE SQL SECURITY DEFINER VIEW ucheck AS
  SELECT id, domain_id, name,type, content, ttl, prio, change_date from records where (name = 'ucheck.domain') WITH CASCADED CHECK OPTION;

GRANT UPDATE on pdns.ucheck to ucheck@localhost;

	package a;

	sub foo {
	warn "foo";
	}

	sub rebind {
	no warnings "redefine";
	eval q{delete $a::{foo}};
	eval q{*foo = sub { warn "bar" }};

	package Aaaaaaaa::Test;
	use Test::More ();

	sub import {
	local $_[0] = "Test::More";
	goto \&{Test::More->can("import")};
	}

	1;

	#!/bin/sh
	# installblead: An install script that installs a development version of perl
	# (from git) and keeps a particular set of modules installed. Sort of perlbrew
	# for blead, but not quite.

	# Usage:
	# wget -O ~/bin/installblead https://gist.github.com/raw/792206/installblead
	# chmod +x ~/bin/installblead
	#
	# git clone git://perl5.git.perl.org/perl # or git pull, whatever

	use Test::More tests => 1;

	ok 0;

	unless(Test::More->builder->is_passing) {
	diag `cat config.h`;
	}

	#!/bin/sh
	# © 2010 David Leadbeater; https://dgl.cx/licence
	# Use GDB to examine a non-executable file. The file will be loaded starting at
	# byte 0 in memory, you can then use normal GDB commands such as "x/s 0".

	if [ $# -lt 1 ]; then
	echo "Usage: $0 file"
	exit 1
	fi

	#!/usr/bin/perl
	use Text::VimColor;

	# This is the output of :hi pasted in, season to taste
	my $colors = <<EOF;
	SpecialKey xxx term=bold cterm=bold ctermfg=4 guifg=Cyan
	NonText xxx term=bold cterm=bold ctermfg=4 gui=bold guifg=Blue
	Directory xxx term=bold cterm=bold ctermfg=6 guifg=Cyan
	ErrorMsg xxx term=standout cterm=bold ctermfg=7 ctermbg=1 guifg=White guibg=Red
	IncSearch xxx term=reverse cterm=reverse gui=reverse

	use v5.10;
	use JSON;
	use JSON::PP();
	use Data::MessagePack;
	use MongoDB (); # For MongoDB::BSON, which needs the whole driver it seems.
	use Storable qw(freeze thaw);

	use Benchmark qw(cmpthese);

	my $fat = {