Difrex/iiplc
Difrex/iiplc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

search route

Browse Source
This commit is contained in:
Difrex(Denis Zheleztsov) 2014-08-12 10:42:27 +04:00
parent 8be1c614f1
commit 52503dfebf
2 changed files with 32 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
II/DB.pm
View File

@ -20,6 +20,7 @@ sub new {
return $self; return $self;
} }
# Check message hash
sub check_hash { sub check_hash {
my ( $self, $hash, $echo ) = @_; my ( $self, $hash, $echo ) = @_;
my $dbh = $self->{_dbh}; my $dbh = $self->{_dbh};
@ -39,6 +40,7 @@ sub check_hash {
} }
} }
# Begin transaction
sub begin { sub begin {
my ($self) = @_; my ($self) = @_;
my $dbh = $self->{_dbh}; my $dbh = $self->{_dbh};

44
iiplc.app
View File

@ -19,6 +19,7 @@ use warnings;
use Plack::Builder; use Plack::Builder;
use Plack::Request; use Plack::Request;
use Plack::Response; use Plack::Response;
# Static files # Static files
use Plack::App::File; use Plack::App::File;
@ -65,7 +66,7 @@ my $thread = sub {
my $get = sub { my $get = sub {
$config = $c->reload(); $config = $c->reload();
my $GET = II::Get->new($config); my $GET = II::Get->new($config);
my $msgs = $GET->get_echo(); my $msgs = $GET->get_echo();
my $new_mes = $render->new_mes($msgs); my $new_mes = $render->new_mes($msgs);
return [ 200, [ 'Content-type' => 'text/html' ], ["$new_mes"], ]; return [ 200, [ 'Content-type' => 'text/html' ], ["$new_mes"], ];
@ -176,19 +177,34 @@ my $user = sub {
return [ 200, [ 'Content-type' => 'text/html' ], [$mes_from], ]; 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 # Mountpoints
builder { builder {
mount "/static" => Plack::App::File->new(root => './s/')->to_app; mount "/static" => Plack::App::File->new( root => './s/' )->to_app;
mount '/' => $root; mount "/search" => $search;
mount '/e' => $echo; mount '/' => $root;
mount '/s' => $thread; mount '/e' => $echo;
mount '/u' => $user; mount '/s' => $thread;
mount '/me' => $me; mount '/u' => $user;
mount '/tree' => $tree; mount '/me' => $me;
mount '/get/' => $get; mount '/tree' => $tree;
mount '/send' => $send; mount '/get' => $get;
mount '/enc' => $enc; mount '/send' => $send;
mount '/out' => $out; mount '/enc' => $enc;
mount '/push' => $push; mount '/out' => $out;
mount '/new' => $new; mount '/push' => $push;
mount '/new' => $new;
}; };