search route
This commit is contained in:
parent
8be1c614f1
commit
52503dfebf
2
II/DB.pm
2
II/DB.pm
@ -20,6 +20,7 @@ sub new {
|
||||
return $self;
|
||||
}
|
||||
|
||||
# Check message hash
|
||||
sub check_hash {
|
||||
my ( $self, $hash, $echo ) = @_;
|
||||
my $dbh = $self->{_dbh};
|
||||
@ -39,6 +40,7 @@ sub check_hash {
|
||||
}
|
||||
}
|
||||
|
||||
# Begin transaction
|
||||
sub begin {
|
||||
my ($self) = @_;
|
||||
my $dbh = $self->{_dbh};
|
||||
|
44
iiplc.app
44
iiplc.app
@ -19,6 +19,7 @@ use warnings;
|
||||
use Plack::Builder;
|
||||
use Plack::Request;
|
||||
use Plack::Response;
|
||||
|
||||
# Static files
|
||||
use Plack::App::File;
|
||||
|
||||
@ -65,7 +66,7 @@ my $thread = sub {
|
||||
|
||||
my $get = sub {
|
||||
$config = $c->reload();
|
||||
my $GET = II::Get->new($config);
|
||||
my $GET = II::Get->new($config);
|
||||
my $msgs = $GET->get_echo();
|
||||
my $new_mes = $render->new_mes($msgs);
|
||||
return [ 200, [ 'Content-type' => 'text/html' ], ["$new_mes"], ];
|
||||
@ -176,19 +177,34 @@ my $user = sub {
|
||||
return [ 200, [ 'Content-type' => 'text/html' ], [$mes_from], ];
|
||||
};
|
||||
|
||||
# Search
|
||||
########
|
||||
my $search = sub {
|
||||
my $env = shift;
|
||||
|
||||
my $req = Plack::Request->new($env);
|
||||
my $query = $req->param('q');
|
||||
|
||||
my $db = II::DB->new();
|
||||
my $result = $db->do_search($q);
|
||||
|
||||
return [ 200, [ 'Content-type' => 'text/html' ], [$result], ];
|
||||
};
|
||||
|
||||
# Mountpoints
|
||||
builder {
|
||||
mount "/static" => Plack::App::File->new(root => './s/')->to_app;
|
||||
mount '/' => $root;
|
||||
mount '/e' => $echo;
|
||||
mount '/s' => $thread;
|
||||
mount '/u' => $user;
|
||||
mount '/me' => $me;
|
||||
mount '/tree' => $tree;
|
||||
mount '/get/' => $get;
|
||||
mount '/send' => $send;
|
||||
mount '/enc' => $enc;
|
||||
mount '/out' => $out;
|
||||
mount '/push' => $push;
|
||||
mount '/new' => $new;
|
||||
mount "/static" => Plack::App::File->new( root => './s/' )->to_app;
|
||||
mount "/search" => $search;
|
||||
mount '/' => $root;
|
||||
mount '/e' => $echo;
|
||||
mount '/s' => $thread;
|
||||
mount '/u' => $user;
|
||||
mount '/me' => $me;
|
||||
mount '/tree' => $tree;
|
||||
mount '/get' => $get;
|
||||
mount '/send' => $send;
|
||||
mount '/enc' => $enc;
|
||||
mount '/out' => $out;
|
||||
mount '/push' => $push;
|
||||
mount '/new' => $new;
|
||||
};
|
||||
|
Loading…
Reference in New Issue
Block a user