| #!/bin/sh | |
| # Start a Plack daemon. | |
| PATH=/bin:/usr/bin:/sbin:/usr/sbin:$HOME/perl5/bin | |
| DAEMON="$HOME/perl5/bin/plackup" | |
| NAME="AppName" | |
| CWD=`pwd` | |
| # Defaults | |
| RUN="no" |
| open my $in, "oma_repl_language_text.sql"; | |
| open (my $out, ">:encoding(UTF-8)", "utf8.sql"); | |
| while (<$in>) { | |
| print $out $_; | |
| } |
| #!/usr/bin/perl -w | |
| use strict; | |
| use lib $ENV{MT_HOME} ? "$ENV{MT_HOME}/lib" : 'lib'; | |
| use MT::Bootstrap (); | |
| use MT::App::CMS; | |
| use CGI::PSGI; | |
| use Plack::Middleware qw(Static); | |
| use Plack::Builder; | |
| my $app = sub { |
| +my $cgi = new CGI; | |
| -$app = $class->new( %param ) or die $class->errstr; | |
| +$app = $class->new( %param, CGIObject => $cgi ) or die $class->errstr; | |
| local $SIG{__WARN__} = sub { $app->trace($_[0]) }; | |
| +$app->init_request(CGIObject => $cgi); | |
| $app->run; | |
| ## MAKE THIS A REAL FUCKING DIFF |
| #!/usr/bin/perl -w | |
| use strict; | |
| use lib $ENV{MT_HOME} ? "$ENV{MT_HOME}/lib" : 'lib'; | |
| use MT::Bootstrap (); | |
| use MT::App::CMS; | |
| use CGI::PSGI; | |
| use Plack::Builder; | |
| my $app = sub { | |
| my $cgi = CGI::PSGI->new(shift); |
This is a list of topics/ideas/wishes/dreams that we will discuss during the Moose hackathon at YAPC::NA this year. They are in no particular order, nor does inclusion of this list imply any type of endorsement of the idea, these are just ideas, so please feel free to add yours in.