From 7eb52e2f8c5c7c1a032e6082eee185231293d862 Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Thu, 16 Jun 2016 01:51:08 -0400 Subject: [PATCH] Basic look is there, needs more backend --- app.pl | 81 ++++++++++++++++++++++++++++++++++++++-------------------- 1 file changed, 53 insertions(+), 28 deletions(-) diff --git a/app.pl b/app.pl index ce453a0..0eabf1e 100755 --- a/app.pl +++ b/app.pl @@ -8,9 +8,16 @@ use Data::Dumper; use Mojolicious::Lite; +# hardcode some channels first +my %channels = ( + "freenode#perlbot" => "#perlbot (freenode)", + "freenode#perl" => "#perl (freenode)", +); + get '/' => sub { my $c = shift; - $c->render(text => "Make a new paste"); + $c->stash({pastedata => q{}, channels => \%channels}); + $c->render(template => "editor"); }; get '/pastebin' => sub { @@ -21,7 +28,15 @@ get '/pastebin' => sub { get '/pastebin/:pasteid' => sub { my $c = shift; my $pasteid = $c->param('pasteid'); - $c->stash({pasteid => $pasteid}); + $c->stash({pastedata => q{ +use strict; +use warnings; + +use Data::Dumper; +use v5.24; + +say "Hello Perlbot"; + }, channels => \%channels}); $c->render(template => "editor"); }; @@ -46,7 +61,6 @@ __DATA__ - Editor