Skip to content

Instantly share code, notes, and snippets.

View benizi's full-sized avatar

Benjamin R. Haskell benizi

View GitHub Profile
@benizi
benizi / iam_fog.rb
Created December 6, 2013 06:44 — forked from mndoci/iam_fog.rb
# via http://blog.zerosum.org/2011/03/02/better-aws-access-control-with-iam-and-fog.html
require 'fog'
username = 'testuser'
bucket = 'uniquebucketname1234'
aws_credentials = {
:aws_access_key_id => 'YOUR-ACCESS-KEY-ID',
:aws_secret_access_key => 'YOUR-SECRET-ACCESS-KEY'
@benizi
benizi / Email
Created December 19, 2012 04:13 — forked from anonymous/Email
Next month, I'd like to finally kick off OpenHack Pittsburgh. OpenHack is an
initiative started by the Western NY Ruby Users Group to create a regularly
meeting, globally branded hacking event. The exact structure of OpenHack varies
by city, but the basic purpose is coding together. You can learn more at the
website - http://openhack.github.com/
You're receiving this email because you have either expressed interest in
OpenHack or have a hand in organizing a technology user group in Pittsburgh.
This is a polyglot event, and I want to be sure each user group is represented
and that the scheduling for OpenHack doesn't conflict with other events. If
@benizi
benizi / simpler
Created November 30, 2012 05:26 — forked from justinabrahms/colortest.py
Show how different terminals show bold colors
#!/bin/sh
# Print four lines showing blocks of colors: 0-7 | 0-7bold | 8-15 | 8-15bold
perl -CADS -lwe '
my $block = shift || (chr(0x2588) x 3);
for (["", 0], ["1;", 0], ["", 8], ["1;", 8]) {
my ($bold, $offset) = @$_;
my @range = map $offset + $_, 0..7;
printf "%s %-6s ", $bold ? "bold" : "norm", "$range[0]-$range[-1]";
print map("\e[${bold}38;5;${_}m$block", @range), "\e[0m"
}
@benizi
benizi / gist:1215848
Created September 14, 2011 04:22 — forked from mattn/gist:1215667
diff -r 1d5e7413d728 src/Make_ming.mak
--- a/src/Make_ming.mak Thu Sep 08 23:24:14 2011 +0200
+++ b/src/Make_ming.mak Wed Sep 14 10:47:48 2011 +0900
@@ -110,6 +110,14 @@
PERLLIBS=$(PERLLIB)/Core
endif
+XSUBPP=$(PERLLIB)/ExtUtils/xsubpp
+XSUBPP_EXISTS=$(shell perl -e "print 1 unless -e '$(XSUBPP)'")
+ifeq "$(XSUBPP_EXISTS)" ""