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

somewhat working, placeholders arent working?

Browse source
This commit is contained in:
Ryan Voots 2017-04-24 20:30:02 -04:00
parent ed911cb12e
commit a30d19b19f
4 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/App.pm
View file

@ -11,6 +11,10 @@ use App::Config;
use App::Controller::Paste;
use App::Controller::Eval;
use App::Controller::Apiv1;
use App::Model::Paste;
use App::Model::Eval;
use App::Model::Perlbot;
sub startup {
my $self = shift;
@ -29,6 +33,10 @@ sub startup {
$self->plugin('BlogSpam' => ($cfg->{blogspam}->%*));
}
$self->helper(paste => sub {state $paste = App::Model::Paste->new});
$self->helper(eval => sub {state $eval = App::Model::Eval->new});
$self->helper(perlbot => sub {state $perlbot = App::Model::Perlbot->new});
$self->setup_routes();
}

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

@ -12,7 +12,7 @@ use POE::Filter::Reference;
use App::Config;
use App::Memcached;
has cfg => App::Config::get_config('evalserver');
has cfg => sub {App::Config::get_config('evalserver')};
sub get_eval {
my ($self, $paste_id, $code, $lang) = @_;
@ -37,3 +37,5 @@ sub get_eval {
return $str;
}
}
1;

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

@ -7,7 +7,7 @@ use DBI;
use Mojo::Base '-base';
# TODO config for dbname
has 'dbh' = 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})};
sub insert_pastebin {
my $self = shift;

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

@ -7,7 +7,7 @@ use Data::Dumper;
use Mojo::Base '-base';
has config => App::Config::get_config('announce');
has config => sub {App::Config::get_config('announce')};
sub announce {
my $self = shift;