John Barrett jbarrett

## chmayor.pl
#!/usr/bin/env perl

# Change the mayor's name in SimCity 2000
#
# You should probably stick with plain ASCII if you use it.

use strict;
use warnings;

use bytes;

## QDB.pm
package WWW::QDB;

use v5.10.1;

use strict;
use warnings;

use HTTP::Tiny;
use HTML::TreeBuilder::XPath;
use Scalar::Util qw/looks_like_number/;

## shizzle.pl
# vim: filetype=perl

use strict;
use warnings;

use Irssi;
use WWW::Mechanize;

=encoding utf8

## post-receive.sh
#!/bin/bash

# Git hook to link a commit's BugzID in Fogbugz.
#
# Instead of a filename, script populates URL with repository name.
# This saves us needing to configure a repository per-project in Fogbugz.

# Description, first word in file should be repository-name.git
DESC=description

## bitrate_report.pl
#!/usr/bin/env perl

use strict;
use warnings;

use v5.10.1;

use Image::ExifTool qw/:Public/;
use Getopt::Long;
use File::Which qw/which/;

## db_migrate.pl
#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Foo::Schema;

## testloop.sh
#!/bin/bash

# Wait for project changes, run tests, report.

RED=1
GREEN=2
testcmd="make test"
exclude='^\.git|.*swp'

function report {

## controller.pl
#!/usr/bin/env perl

use MIDI::ALSA;
use SDL;
use SDL::Joystick;
use Time::HiRes qw( usleep );

SDL::init_sub_system(SDL_INIT_JOYSTICK);
my $joystick = SDL::Joystick->new(0);
my $x;

## rssfs.pl
#!/usr/bin/env perl

# rssfs.pl

use strict;
use warnings;

use Date::Parse;
use Fuse;
use HTML::FormatText::WithLinks;

## .bash_profile
# from http://www.entropy.ch/blog/Developer/2009/03/30/Git-and-SVN-Status-in-the-Bash-Prompt.html :
# Prompt setup, with SCM status
parse_git_branch() {
    local DIRTY STATUS
    STATUS=$(git status 2>/dev/null)
    [ $? -eq 128 -o $? -eq 127 ] && return
    [[ "$STATUS" == *'working directory clean'* ]] || DIRTY=' *'
    echo "($(git branch 2>/dev/null | sed -e '/^[^*]/d' -e 's/* //')$DIRTY)"
}
	#!/usr/bin/env perl

	# Change the mayor's name in SimCity 2000
	#
	# You should probably stick with plain ASCII if you use it.

	use strict;
	use warnings;

	use bytes;
	package WWW::QDB;

	use v5.10.1;

	use strict;
	use warnings;

	use HTTP::Tiny;
	use HTML::TreeBuilder::XPath;
	use Scalar::Util qw/looks_like_number/;
	# vim: filetype=perl

	use strict;
	use warnings;

	use Irssi;
	use WWW::Mechanize;

	=encoding utf8
	#!/bin/bash

	# Git hook to link a commit's BugzID in Fogbugz.
	#
	# Instead of a filename, script populates URL with repository name.
	# This saves us needing to configure a repository per-project in Fogbugz.

	# Description, first word in file should be repository-name.git
	DESC=description
	#!/bin/bash

	# Wait for project changes, run tests, report.

	RED=1
	GREEN=2
	testcmd="make test"
	exclude='^\.git\|.*swp'

	function report {
	#!/usr/bin/env perl

	use MIDI::ALSA;
	use SDL;
	use SDL::Joystick;
	use Time::HiRes qw( usleep );

	SDL::init_sub_system(SDL_INIT_JOYSTICK);
	my $joystick = SDL::Joystick->new(0);
	my $x;
	#!/usr/bin/env perl

	# rssfs.pl

	use strict;
	use warnings;

	use Date::Parse;
	use Fuse;
	use HTML::FormatText::WithLinks;
	# from http://www.entropy.ch/blog/Developer/2009/03/30/Git-and-SVN-Status-in-the-Bash-Prompt.html :
	# Prompt setup, with SCM status
	parse_git_branch() {
	local DIRTY STATUS
	STATUS=$(git status 2>/dev/null)
	[ $? -eq 128 -o $? -eq 127 ] && return
	[[ "$STATUS" == 'working directory clean' ]] \|\| DIRTY=' *'
	echo "($(git branch 2>/dev/null \| sed -e '/^[^]/d' -e 's/ //')$DIRTY)"
	}