chrisa

* jon has the router password .... muhahahahahah!
<jon> all of XXXXXXXX is now in my hands ....!
<jon> and we have no management until Tuesday ....
-!- jon [jon@XXXXXXXXXXXXXX.com] has quit [Ping timeout]

chrisa

# extend PATH as necessary to include pg_config, mysql_config, etc.
PATH=/opt/local/lib/postgresql82/bin:/opt/local/lib/mysql5/bin:$PATH
export PATH

# this is where your tree will be build, relative to cwd
SITEPERL=venda-siteperl-5.8

# the perl you want to build against
PERL=~/perl5/perlbrew/perls/perl-5.8.8/bin/perl

chrisa

$VAR1 = {
          'route' => [
                       'Boston Manor',
                       'Northfields',
                       'South Ealing',
                       'Acton Town',
                       'Turnham Green',
                       'Gunnersbury',
                       'South Acton',
                       'Acton Central',

chrisa

use inc::Module::Install;

name     'ComplexApp';
all_from 'lib/ComplexApp/App.pm';

install_script  'bin/complexapp.psgi';
    
sub MY::postamble {
	use Config;
	my $postamble =<<"END";

chrisa

<?xml version="1.0"?>
<!-- ANT -->
<project name="Build Stuff" default="jar">

  <path id="classpath">
    <fileset dir="lib" includes="**/*.jar" />
  </path>

  <target name="compile-stuff">
    <mkdir dir="build/classes"/>

chrisa

<?xml version="1.0"?>
<!-- ANT -->
<project name="Build Stuff">

  <path id="classpath">
    <fileset dir="lib" includes="**/*.jar" />
  </path>

  <target name="compile-stuff">
    <mkdir dir="build/classes"/>

chrisa

// javascript:

var d = require('./lib/dtprovider');

var dtp = d.createDTraceProvider("nodeapp");
dtp.addProbe("probe1", "int");
dtp.addProbe("probe2", "char *");
dtp.enable();
dtp.fire("probe1", function(p) { return 42; });
dtp.fire("probe2", function(p) { return "hello, dtrace"; });

chrisa

use ORLite ();
use ORLite::Migrate ();

# ...

sub new {
	my $class = shift;
	my $self = $class->SUPER::new(@_);
	
	# Configure ORLite database

chrisa

sub new {
	my $class = shift;
	my $self = $class->SUPER::new(@_);
	
	# Dancer serves most of the site
	my $root = sub { 
		my $env = shift;
		my $request = Dancer::Request->new($env);
		Dancer->dance($request);
	};

chrisa

knife ec2 server create 'role[web]' \
  --region eu-west-1 \
  -Z eu-west-1a \
  -f t1.micro \
  -i ami-21eadf55 \
  -S chris2-keypair \
  -x ubuntu \
  -I ~/.ssh/id_rsa-chris2-keypair \
  -G ssh-home