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

Should be working now, except announcement

Browse source
This commit is contained in:
Ryan Voots 2017-04-24 20:52:23 -04:00
parent a30d19b19f
commit ccb4e90463
4 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/App/Controller/Apiv1.pm
View file

@ -25,7 +25,7 @@ sub api_get_paste {
my $c = shift; my $c = shift;
my $pasteid = $c->param('pasteid'); my $pasteid = $c->param('pasteid');
my $row = get_paste($pasteid); my $row = $c->paste->get_paste($pasteid);
if ($row) { if ($row) {
my $data = { my $data = {
@ -51,7 +51,7 @@ sub api_post_paste {
my @args = map {($c->param($_))} qw/paste username description channel expire language/; my @args = map {($c->param($_))} qw/paste username description channel expire language/;
my $id = insert_pastebin(@args); my $id = $c->paste->insert_pastebin(@args);
my ($code, $who, $desc, $channel) = @args; my ($code, $who, $desc, $channel) = @args;
# TODO select which one based on config # TODO select which one based on config

5
lib/App/Controller/Paste.pm
View file

@ -63,6 +63,7 @@ sub post_paste {
sub edit_paste { sub edit_paste {
my $c = shift; my $c = shift;
my $pasteid = $c->param('pasteid'); my $pasteid = $c->param('pasteid');
my $row = $c->paste->get_paste($pasteid); my $row = $c->paste->get_paste($pasteid);
@ -71,7 +72,7 @@ sub edit_paste {
$c->stash({pastedata => $row->{paste}, channels =>$cfg->{announce}{channels}}); $c->stash({pastedata => $row->{paste}, channels =>$cfg->{announce}{channels}});
$c->stash({page_tmpl => 'editor.html'}); $c->stash({page_tmpl => 'editor.html'});
$c->render('page'); $c->render(template => 'page');
} else { } else {
return $c->reply->not_found; return $c->reply->not_found;
} }
@ -100,7 +101,7 @@ sub get_paste {
if ($row) { if ($row) {
$c->stash($row); $c->stash($row);
$c->stash({page_tmpl => 'viewer.html'}); $c->stash({page_tmpl => 'viewer.html'});
$c->stash({eval => get_eval($pasteid, $row->{paste}, $row->{lang})}); $c->stash({eval => $c->eval->get_eval($pasteid, $row->{paste}, $row->{lang})});
$c->stash({paste_id => $pasteid}); $c->stash({paste_id => $pasteid});
$c->render('page'); $c->render('page');

2
lib/App/Model/Eval.pm
View file

@ -1,4 +1,4 @@
package Eval::Perlbot; package App::Model::Eval;
use strict; use strict;
use warnings; use warnings;

4
lib/App/Model/Paste.pm
View file

@ -5,6 +5,7 @@ use warnings;
use DBI; use DBI;
use Mojo::Base '-base'; use Mojo::Base '-base';
use DateTime;
# TODO config for dbname # TODO config for dbname
has 'dbh' => sub {DBI->connect("dbi:SQLite:dbname=pastes.db", "", "", {RaiseError => 1, sqlite_unicode => 1})}; has 'dbh' => sub {DBI->connect("dbi:SQLite:dbname=pastes.db", "", "", {RaiseError => 1, sqlite_unicode => 1})};
@ -28,7 +29,8 @@ sub insert_pastebin {
} }
sub get_paste { sub get_paste {
my ($self, $pasteid) = shift; my ($self, $pasteid) = @_;
my $dbh = $self->dbh; my $dbh = $self->dbh;
my $row = $dbh->selectrow_hashref(q{ my $row = $dbh->selectrow_hashref(q{
SELECT p.* SELECT p.*