Skip to content

Instantly share code, notes, and snippets.

View jshirley's full-sized avatar

Jay Shirley jshirley

131 followers · 31 following
View GitHub Profile
@jshirley
jshirley / yui_dynamic_select.js
Created June 25, 2009 17:31
YUI().use("node", function(Y) {
/*
The dynamic_forms variable is setup in the page during construction as follows:
<script type="text/javascript">
if ( typeof dynamic_forms === 'undefined' )
dynamic_forms = {};
dynamic_forms['timezone'] = { source: 'timezones', events: 'country' };
@jshirley
jshirley / cgi.pm.patch
Created August 17, 2009 15:47
diff --git a/lib/Catalyst/Engine/CGI.pm b/lib/Catalyst/Engine/CGI.pm
index 48dc201..ef8aa2a 100644
--- a/lib/Catalyst/Engine/CGI.pm
+++ b/lib/Catalyst/Engine/CGI.pm
@@ -67,6 +67,9 @@ sub prepare_connection {
# as 127.0.0.1. Select the most recent upstream IP (last in the list)
my ($ip) = $ENV{HTTP_X_FORWARDED_FOR} =~ /([^,\s]+)$/;
$request->address($ip);
+ if ( defined $ENV{HTTP_X_FORWARDED_PORT} ) {
+ $ENV{SERVER_PORT} = $ENV{HTTP_X_FORWARDED_PORT};
@jshirley
jshirley / yuiloader_override.html
Created August 19, 2009 16:26
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title>yuiloader test</title>
<script type="text/javascript" src="../../../build/yuiloader-dom-event/yuiloader-dom-event.js"></script>
<script type="text/javascript">
(function() {
@jshirley
jshirley / gist:180597
Created September 3, 2009 23:13
use Data::Verifier;
use DateTimeX::Easy;
use MooseX::Types::DateTime qw(TimeZone DateTime);
use MooseX::Types::Moose qw/Str/;
use MooseX::Types;
use feature ':5.10';
coerce DateTime => from Str,
via { DateTimeX::Easy->parse_date($_); };
@jshirley
jshirley / gist:180623
Created September 4, 2009 00:18
package MyApp::SchemaRole::Verifier;
use Moose::Role;
use Try::Tiny;
sub validate_and_create {
my ( $self, $data ) = @_;
try {
my $name = $self->result_source->source_name;
$name =~ s/^MyApp::Schema\d?:://;
@jshirley
jshirley / Environment.pm
Created September 15, 2009 19:52
package MooseX::Role::Environment;
use Moose::Role;
use MooseX::Types::Path::Class qw/File Dir/;
use FindBin;
use Data::Visitor::Callback;
use Scalar::Util qw(blessed);
use Hash::Merge;
use Carp;
@jshirley
jshirley / gist:189393
Created September 19, 2009 03:27
sub register {
my ( $self, $data ) = @_;
my $rels = {};
foreach my $key ( keys %$data ) {
if ( $self->result_source->has_relationship($key) ) {
$rels->{$key} = delete $data->{$key};
} elsif ( not $self->result_source->has_column($key) ) {
# Delete things we don't have
@jshirley
jshirley / find_project.pl
Created September 23, 2009 17:00
#!/usr/bin/perl
use warnings;
use strict;
use Path::Class;
# I put all of my code in a couple directories, based on project or "group"
# which makes me have a big long list of aliases and I have to sync it.
#
@jshirley
jshirley / gist:192728
Created September 24, 2009 13:19
package Greenspan::Test::WWW::Mechanize::Catalyst;
use Moose;
extends 'Test::WWW::Mechanize::Catalyst';
has 'context' => (
is => 'rw',
isa => 'Object'
);
@jshirley
jshirley / Environment.pm
Created September 30, 2009 14:42
package MooseX::Role::Environment;
use Moose::Role;
use MooseX::Types::Path::Class qw/File Dir/;
use YAML::XS;
use FindBin;
use Data::Visitor::Callback;
use Scalar::Util qw(blessed);
use Hash::Merge;