Skip to content

Instantly share code, notes, and snippets.

View amiri's full-sized avatar

Amiri Barksdale amiri

View GitHub Profile
@amiri
amiri / gist:750583
Created December 21, 2010 20:53
Rewrite/redirect a POST with nginx?
server {
listen 80;
server_name blog.akbuntu.local;
location / {
default_type text/html;
root /home/amiri/roosterpirates/Ripe/RoosterPirates-Web/root/yar;
autoindex on;
expires 30d;
}
@amiri
amiri / gist:1094007
Created July 19, 2011 23:30
Async fail
<script type="text/javascript">/* <[CDATA[ */
(function() {
var e = document.createElement('script'); e.type="text/javascript"; e.async = true;
e.src = document.location.protocol + '//platform.twitter.com/widgets.js';
(document.getElementsByTagName('head')[0] || document.getElementsByTagName('body')[0]).appendChild(e);
Page.onReady('node-base', function(Y) {
twttr.events.bind('follow', function(event) {
console.log(event);
console.log("I got a follow!");
@amiri
amiri / gist:1249360
Created September 28, 2011 21:53
Login
package RoosterPirates::Web::Controller::Login;
use Moose;
use namespace::autoclean;
BEGIN { extends 'Catalyst::Controller'; }
sub index : Chained('/') PathPart('login') Args('0') {
my ( $self, $c ) = @_;
$c->stash( template => 'login.tt2' );
@amiri
amiri / gist:1453889
Created December 9, 2011 23:53
Possible regex mistake?
#!/usr/bin/perl
use strict;
use warnings;
my $original = "belize-i-27869844";
(my $original_regexed = $original) =~ s/^(.*)?-(\d+|i-[0-9a-f]{8})\b(.*)/$1-$3/;
print STDERR "My original regex turns $original into $original_regexed\n";
@amiri
amiri / gist:1997939
Created March 8, 2012 01:47 — forked from ryannscy/gist:1997306
A tasks data structure
my $tasks = [
# Task 1
{ id => 1,
title => "Do stuff",
date_created => "2012-03-06 22:42:40",
date_modified => undef,
date_ended => undef,
priority_level => "2",
status_level => "active",
# Two goals for task 1
@amiri
amiri / gist:2294573
Created April 3, 2012 18:43
How I use setup/teardown for these
package CE::Selenium::FacebookRegistration;
use CE::Config;
use Test::Class::Most parent => 'CE::Test::Class::WWWSelDriver';
sub class {'CE'}
sub new_obj {
return shift;
}
@amiri
amiri / gist:3814924
Created October 1, 2012 22:39
Current ignores in CE::Amazon::Route53
my @originals = grep { $_->type !~ /^(NS|SOA)$/ } @$original_rrsets;
# The current version of Net::Amazon::Route53 does not support A "ALIAS"
# records, so set them manually in the AWS console and strip them out here.
@originals = grep { $_->values->[0] !~ /This resource record set includes an attribute that is unsupported on this Route 53 endpoint/ } @originals;
@amiri
amiri / gist:7814520
Created December 5, 2013 21:46
Invalid service provider 'supervisor' with puppet-module-supervisor
Error: Parameter provider failed on Service[supervisor::starling]: Invalid service provider 'supervisor' at /vagrant/etc/puppet/modules/supervisor/manifests/service.pp:94
Wrapped exception:
Invalid service provider 'supervisor'
@amiri
amiri / gist:8202105
Created December 31, 2013 20:49
Railroad GeoJSON
{
"features": [
{
"geometry": {
"coordinates": [
[
-86.971542,
34.626099
],
[
@amiri
amiri / gist:8202126
Created December 31, 2013 20:51
d3 code to render railroad json
var width = 1000,
height = 2000;
var projection = d3.geo.mercator().scale(400).translate([width / 2, height / 2]);
var path = d3.geo.path().projection(projection);
var svg = d3.select("body").append("svg").attr("width", width).attr("height", height).call(d3.behavior.zoom().translate(projection.translate()).scale(projection.scale()).on("zoom", redraw));
var axes = svg.append("g").attr("id", "axes"),