Perlbot/perlbuut-pastebin
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut-pastebin synced 2025-06-07 22:26:01 -04:00
Code Issues Releases Wiki Activity

Starting DB

Browse source
This commit is contained in:
Ryan Voots 2016-06-16 02:02:03 -04:00
parent 7eb52e2f8c
commit 1526c0c601
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
app.pl
View file

@ -19,10 +19,12 @@ get '/' => sub {
$c->stash({pastedata => q{}, channels => \%channels}); $c->stash({pastedata => q{}, channels => \%channels});
$c->render(template => "editor"); $c->render(template => "editor");
}; };
get '/pastebin' => sub {$_[0]->redirect_to('/')};
get '/paste' => sub {$_[0]->redirect_to('/')};
get '/pastebin' => sub { post '/paste' => sub {
my $c = shift; my $c = shift;
$c->redirect_to('/'); $c->render(text => "post accepted!");
}; };
get '/pastebin/:pasteid' => sub { get '/pastebin/:pasteid' => sub {

BIN
pastes.db Normal file
View file

Binary file not shown.