<\/a>/g;
+
+ # Not are regexp parsing
+ my $pre = 0;
+ my $txt;
+ open my $fh, '<', \$post or die $!;
+ while (<$fh>) {
+ my $line = $_;
+ if ( ( $line =~ /^====/ ) and ( $pre == 0 ) ) {
+ $txt .= $_;
+ $line =~ s/====//g;
+ $pre = 1;
+ }
+ elsif ( ( $line =~ /^====/ ) and ( $pre == 1 ) ) {
+ $line =~ s/====/<\/pre>\n====/g;
+ $pre = 0;
+ }
+ $txt .= $line;
+ }
+ close $fh;
+ return $txt;
+}
+
+sub foot {
+ my ($self) = @_;
+
+ my $f = HTML::Template->new( filename => 't/foot.html' );
+
+ return $f->output();
+}
+
+1;
diff --git a/config.ini b/config.ini
new file mode 100644
index 0000000..34a050c
--- /dev/null
+++ b/config.ini
@@ -0,0 +1,7 @@
+[auth]
+key = you_auth_key
+nick = you_nick
+
+[node]
+host = http://your_ii_node.ii
+echoareas = im.100
diff --git a/ii.sql b/ii.sql
new file mode 100644
index 0000000..2453b76
Binary files /dev/null and b/ii.sql differ
diff --git a/iiplc.app b/iiplc.app
new file mode 100644
index 0000000..b440aab
--- /dev/null
+++ b/iiplc.app
@@ -0,0 +1,157 @@
+use strict;
+use warnings;
+
+use Plack::Builder;
+use Plack::Request;
+use Plack::Response;
+
+use II::Config;
+use II::Get;
+use II::Send;
+use II::Render;
+use II::DB;
+use II::Enc;
+
+# Debug
+use Data::Dumper;
+
+my $c = II::Config->new();
+my $config = $c->load();
+
+my $GET = II::Get->new($config);
+my $render = II::Render->new();
+
+my $echo = sub {
+ my $env = shift;
+
+ my $req = Plack::Request->new($env);
+
+ my $query = $req->param('echo');
+
+ my $echo_messages = $render->echo_mes($query);
+
+ return [ 200, [ 'Content-type' => 'text/html' ], ["$echo_messages"], ];
+};
+
+my $thread = sub {
+ my $env = shift;
+
+ my $req = Plack::Request->new($env);
+
+ my $subg = $req->param('subg');
+ my $echo = $req->param('echo');
+
+ my $thread = $render->thread( $subg, $echo );
+
+ return [ 200, [ 'Content-type' => 'text/html' ], ["$thread"], ];
+};
+
+my $get = sub {
+ my $msgs = $GET->get_echo();
+ my $new_mes = $render->new_mes($msgs);
+ return [ 200, [ 'Content-type' => 'text/html' ], ["$new_mes"], ];
+};
+
+my $root = sub {
+ my $index = $render->index($config);
+ return [ 200, [ 'Content-type' => 'text/html' ], [$index], ];
+};
+
+my $me = sub {
+ my $messages = $render->to_me($config);
+ return [ 200, [ 'Content-type' => 'text/html' ], [$messages], ];
+};
+
+my $tree = sub {
+ my $subges = $render->tree($config);
+ return [ 200, [ 'Content-type' => 'text/html' ], ['Дерево'], ];
+};
+
+my $new = sub {
+ my $env = shift;
+
+ my $req = Plack::Request->new($env);
+ my $echo = $req->param('echo');
+
+ my $send = $render->send_new($echo);
+ return [ 200, [ 'Content-type' => 'text/html' ], [$send], ];
+};
+
+my $send = sub {
+ my $env = shift;
+
+ my $req = Plack::Request->new($env);
+ my $hash = $req->param('hash');
+ my $send = $render->send($hash);
+
+ return [ 200, [ 'Content-type' => 'text/html' ], [$send], ];
+};
+
+my $enc = sub {
+ my $env = shift;
+
+ my $req = Plack::Request->new($env);
+
+ # Get parameters
+ my $echo = $req->param('echo');
+ my $to = $req->param('to');
+ my $post = $req->param('post');
+ my $subg = $req->param('subg');
+ my $hash = $req->param('hash');
+ my $time = time();
+
+ print Dumper($config);
+ my $data = {
+ echo => $echo,
+ to => $to,
+ from => $config->{nick},
+ subg => $subg,
+ post => $post,
+ time => $time,
+ hash => $hash,
+ };
+
+ my $enc = II::Enc->new( $config, $data );
+ $enc->encode() == 0 or die "$!\n";
+
+ return [ 302, [ 'Location' => '/out' ], [], ];
+};
+
+my $out = sub {
+ my $out = $render->out();
+
+ return [ 200, [ 'Content-type' => 'text/html' ], [$out], ];
+};
+
+# Push message to server
+my $push = sub {
+ my $env = shift;
+
+ my $req = Plack::Request->new($env);
+
+ my $echo = $req->param('echo');
+ my $base64 = $req->param('base64');
+ my $hash = $req->param('hash');
+
+ my $s = II::Send->new( $config, $echo, $base64 );
+ $s->send($hash);
+
+ my $db = II::DB->new();
+ $db->update_out($hash);
+
+ return [ 302, [ 'Location' => "/e?echo=$echo" ], [], ];
+};
+
+builder {
+ mount '/' => $root;
+ mount '/e' => $echo;
+ mount '/s' => $thread;
+ mount '/me' => $me;
+ mount '/tree' => $tree;
+ mount '/get/' => $get;
+ mount '/send' => $send;
+ mount '/enc' => $enc;
+ mount '/out' => $out;
+ mount '/push' => $push;
+ mount '/new' => $new;
+};
diff --git a/run.sh b/run.sh
new file mode 100755
index 0000000..0a3677c
--- /dev/null
+++ b/run.sh
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+# Debug server
+plackup iiplc.app
+
+# Production
+# starman -l 127.0.0.1:5000 run.pl whatever
diff --git a/t/foot.html b/t/foot.html
new file mode 100644
index 0000000..691287b
--- /dev/null
+++ b/t/foot.html
@@ -0,0 +1,2 @@
+
+