Split applications into different .psgi files

* Развёл по разным файлам функции ботов, репозитория и остальное
* Починил modeline там где он был
* Небольшая чистка

myapi-bots.psgi

@@ -0,0 +1,50 @@
+use strict;
+use warnings "all";
+
+# my plugins
+use lib qw(./lib ./vendor_perl ./vendor_perl/lib/perl5);
+use conf;
+use jabberbot;
+use telegrambot;
+use threads;
+
+my $CONF = loadConf();
+
+if ($CONF->{api}->{prefix} eq '/') { $CONF->{api}->{prefix} = ''; }
+my $prefix = $CONF->{api}->{prefix};
+
+threads->create('run_jabberbot')->detach;
+threads->create('run_telegrambot')->detach;
+
+my $app = sub {
+	my $env = shift;
+
+	my $msg = "Your Opinion is very important for us, please stand by.\n";
+	my $status = '404';
+	my $content = 'text/plain';
+
+	if ($env->{PATH_INFO} eq "$prefix/help") {
+		$status = '200';
+		$msg = << 'EOL';
+/ping - pong
+/ip - your ip
+/getaddrbyname - header hostname must be set
+/getnameaaddr - header adderess must be set
+/punycoder - header hostname must be set
+/punydecoder - header hostname must be set
+/time - current time
+/quote - famous or not famous quotes
+/fortune - synonym for quote
+EOL
+	}
+
+
+	return [
+		$status,
+		[ 'Content-Type' => $content, 'Content-Length' => length($msg) ],
+		[ $msg ],
+	];
+};
+
+__END__
+# vim: set ft=perl noet ai ts=4 sw=4 sts=4: