search route

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};

iiplc.app

@@ -19,6 +19,7 @@ use warnings;
 use Plack::Builder;
 use Plack::Request;
 use Plack::Response;
+
 # Static files
 use Plack::App::File;
 
@@ -176,16 +177,31 @@ 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 "/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 '/get'    => $get;
     mount '/send'   => $send;
     mount '/enc'    => $enc;
     mount '/out'    => $out;