#!/usr/bin/env perl
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/lib";
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->stash({pastedata => q{}, channels => \%channels});
$c->render(template => "editor");
};
get '/pastebin' => sub {$_[0]->redirect_to('/')};
get '/paste' => sub {$_[0]->redirect_to('/')};
post '/paste' => sub {
my $c = shift;
$c->render(text => "post accepted!");
};
get '/pastebin/:pasteid' => sub {
my $c = shift;
my $pasteid = $c->param('pasteid');
$c->stash({pastedata => q{
use strict;
use warnings;
use Data::Dumper;
use v5.24;
say "Hello Perlbot";
}, channels => \%channels});
$c->render(template => "editor");
};
app->start;
__DATA__
@@ editor.html.ep
Editor