Initial commit

5 years ago · 4a0f2d370b
81 changed files with 2724 additions and 0 deletions
--- a/admin_scripts/auto_answer.pl
+++ b/admin_scripts/auto_answer.pl
@ -0,0 +1,59 @@
+#!/usr/bin/perl
+# (c) Pali 2019, Perl license
+
+use strict;
+use warnings;
+
+use Net::Telnet;
+use Time::HiRes qw(usleep);
+
+die "Usage: $0 host pass line 0|1\n" unless @ARGV == 4;
+my $host = $ARGV[0];
+my $pass = $ARGV[1];
+my $line = $ARGV[2];
+my $enable = $ARGV[3];
+
+die "Line $line is not valid line number [1-6]\n" unless $line =~ /^[1-6]$/;
+
+my $t = Net::Telnet->new(Timeout => 3, Prompt => '/[^\n]*> $/');
+
+$t->open($host);
+$t->waitfor('/Password :$/');
+$t->print($pass);
+$t->waitfor($t->prompt);
+
+my $failed;
+my $skip;
+my $auto_answer;
+
+for (1..10) {
+	if ($_ == 10) {
+		$failed = 1;
+		last;
+	}
+
+	($auto_answer) = map { /^auto_answer : ([0-9]+)$/ ? $1 : () } $t->cmd('show config');
+	if ($enable and ($auto_answer & (1 << ($line - 1)))) {
+		do { print "auto_answer on $host is already enabled\n"; $skip = 1 } if $_ == 1;
+		last;
+	} elsif (not $enable and not ($auto_answer & (1 << ($line - 1)))) {
+		do { print "auto_answer on $host is already disabled\n"; $skip = 1 } if $_ == 1;
+		last;
+	}
+
+	foreach ('open', 'key dir', 'key set', 'key set', 'key soft4', 'key set', 'key 6', 'key 8', "key $line", 'key soft1', 'key soft2', 'key set', 'close') {
+		$t->cmd("test $_");
+		usleep 200_000;
+	}
+}
+
+$t->print("exit");
+$t->close();
+
+if ($failed) {
+	warn (($enable ? "enabling" : "disabling") . " auto_answer on $host failed\n");
+	exit 1;
+} else {
+	print ("auto_answer on $host is now " . ($enable ? "enabled" : "disabled") . "\n") unless $skip;
+	exit 0;
+}
--- a/admin_scripts/erase_config.pl
+++ b/admin_scripts/erase_config.pl
@ -0,0 +1,25 @@
+#!/usr/bin/perl
+# (c) Pali 2019, Perl license
+
+use strict;
+use warnings;
+
+use Net::Telnet;
+
+die "Usage: $0 host pass\n" unless @ARGV == 2;
+my $host = $ARGV[0];
+my $pass = $ARGV[1];
+
+my $t = Net::Telnet->new(Timeout => 3, Prompt => '/[^\n]*> $/');
+
+$t->open($host);
+$t->waitfor('/Password :$/');
+$t->print($pass);
+$t->waitfor($t->prompt);
+
+$t->cmd('erase protflash');
+
+# TODO: check if erase was allowed
+
+$t->print('exit');
+$t->close();
--- a/admin_scripts/force_reboot.pl
+++ b/admin_scripts/force_reboot.pl
@ -0,0 +1,24 @@
+#!/usr/bin/perl
+# (c) Pali 2019, Perl license
+
+use strict;
+use warnings;
+
+use Net::Telnet;
+
+die "Usage: $0 host pass\n" unless @ARGV == 2;
+my $host = $ARGV[0];
+my $pass = $ARGV[1];
+
+my $t = Net::Telnet->new(Timeout => 3, Prompt => '/[^\n]*> $/');
+
+$t->open($host);
+$t->waitfor('/Password :$/');
+$t->print($pass);
+$t->waitfor($t->prompt);
+
+$t->print('reset');
+
+# TODO: check if reset was allowed
+
+$t->close();
--- a/admin_scripts/list_errors.pl
+++ b/admin_scripts/list_errors.pl
@ -0,0 +1,23 @@
+#!/usr/bin/perl
+# (c) Pali 2019, Perl license
+
+use strict;
+use warnings;
+
+use Net::Telnet;
+
+die "Usage: $0 host pass\n" unless @ARGV == 2;
+my $host = $ARGV[0];
+my $pass = $ARGV[1];
+
+my $t = Net::Telnet->new(Timeout => 3, Prompt => '/[^\n]*> $/');
+
+$t->open($host);
+$t->waitfor('/Password :$/');
+$t->print($pass);
+$t->waitfor($t->prompt);
+
+print "$_\n" foreach grep !/^(?:Current Phone Status|--------------------|I100 No errors|)$/, map { /^[\x00-\x31\s]*(.*?)\s*$/s; $1 } $t->cmd('show status');
+
+$t->print("exit");
+$t->close();
--- a/admin_scripts/normalize_volume.pl
+++ b/admin_scripts/normalize_volume.pl
@ -0,0 +1,29 @@
+#!/usr/bin/perl
+# (c) Pali 2019, Perl license
+
+use strict;
+use warnings;
+
+use Net::Telnet;
+use Time::HiRes qw(usleep);
+
+die "Usage: $0 host pass volume\n" unless @ARGV == 3;
+my $host = $ARGV[0];
+my $pass = $ARGV[1];
+my $vol = $ARGV[2];
+
+my $t = Net::Telnet->new(Timeout => 3, Prompt => '/[^\n]*> $/');
+
+$t->open($host);
+$t->waitfor('/Password :$/');
+$t->print($pass);
+$t->waitfor($t->prompt);
+
+foreach ('open', ('key voldn') x 16, ('key volup') x $vol, 'close') {
+	$t->cmd("test $_");
+	usleep 200_000;
+}
+
+$t->print("exit");
+$t->close();
+
--- a/admin_scripts/send_reboot.pl
+++ b/admin_scripts/send_reboot.pl
@ -0,0 +1,54 @@
+#!/usr/bin/perl
+# (c) Pali 2019, Perl license
+
+use strict;
+use warnings;
+
+use Net::SIP;
+use Net::SIP::Util qw(laddr4dst INETSOCK ip_sockaddr2parts);
+use Socket;
+
+die "Usage: $0 host line\n" unless @ARGV == 2;
+my $host = $ARGV[0];
+my $line = $ARGV[1];
+
+my $ip = inet_aton($host);
+die "ERROR: Cannot resolve host\n" unless defined $ip;
+my $addr = inet_ntoa($ip);
+
+my $laddr = laddr4dst($addr);
+die "ERROR: No route to host\n" unless $laddr;
+
+my $sock = INETSOCK(Proto => 'udp', LocalAddr => $laddr, LocalPort => 0);
+die "ERROR: Cannot create socket: $!\n" unless $sock;
+
+my $lport = (ip_sockaddr2parts(getsockname($sock)))[1];
+
+my $leg = Net::SIP::Leg->new(sock => $sock);
+die "ERROR: Cannot create leg: $!\n" unless $leg;
+
+my $ua = Net::SIP::Simple->new(from => "<sip:root\@$laddr:$lport>", leg => $leg);
+die "ERROR: Cannot create SIP user agent: $!\n" unless $ua;
+
+my ($stop, $code, $text);
+
+$ua->{endpoint}->new_request(
+	'NOTIFY',
+	{ from => $ua->{from}, to => "<sip:$line\@$host>" },
+	sub {
+		(undef, undef, undef, $code, my $packet) = @_;
+		(undef, $text) = $packet ? $packet->as_parts : ();
+		$stop = 1;
+	},
+	'',
+	uri => "sip:$line\@$addr",
+	Event => 'check-sync',
+	Contact => $ua->{from},
+);
+
+$ua->loop(3, \$stop);
+$ua->cleanup();
+
+die "ERROR: Timeout\n" unless $stop;
+die "ERROR: Invalid response\n" unless $code and $text;
+die "ERROR: SIP response: $code $text\n" unless $code eq '200';
--- a/admin_scripts/volume_up.pl
+++ b/admin_scripts/volume_up.pl
@ -0,0 +1,33 @@
+#!/usr/bin/perl
+# (c) Pali 2019, Perl license
+
+use strict;
+use warnings;
+
+use Net::Telnet;
+use Time::HiRes qw(usleep);
+
+die "Usage: $0 host pass ast_user\n" unless @ARGV == 3;
+my $host = $ARGV[0];
+my $pass = $ARGV[1];
+my $user = $ARGV[2];
+
+my $t = Net::Telnet->new(Timeout => 3, Prompt => '/[^\n]*> $/');
+
+$t->open($host);
+$t->waitfor('/Password :$/');
+$t->print($pass);
+$t->waitfor($t->prompt);
+
+foreach ('open', ('key volup') x 16, 'close') {
+	if (system('sh', '-c', qq[asterisk -rx "core show channels" |grep -q "$user"]) != 0) {
+		print STDERR "Call ended, exiting";
+		last;
+	}
+	$t->cmd("test $_");
+	usleep 200_000;
+}
+
+$t->print("exit");
+$t->close();
+
--- a/all_reboot.sh
+++ b/all_reboot.sh
@ -0,0 +1,6 @@
+#!/bin/sh
+pass=`sed -n 's/telnet_pass=//p' config.txt`
+ip=`sed -n 's/server_ip=//p' config.txt | sed 's/\.[0-9]*$//'`
+for i in `cat phones.txt | grep -v \- | sed -n 's/^\([0-9][0-9]\).*/\1/p'`; do
+	{ admin_scripts/send_reboot.pl "$ip.$i" "$i" 2>&1 || admin_scripts/force_reboot.pl "$ip.$i" "$pass" 2>&1 ; } | sed "s/^/$i: /"
+done
--- a/ann_end.sh
+++ b/ann_end.sh
@ -0,0 +1,14 @@
+#!/bin/bash
+
+line="$1"
+[[ -n "$line" ]] || { echo >&2 "usage: $0 <line>"; exit 1; }
+
+echo "Action: login
+username: admin
+secret: admin
+events: off
+
+Action: hangup
+Channel: /PJSIP/emerg$line-.*/
+" | socat - TCP:localhost:5038
+
--- a/ann_end_all.sh
+++ b/ann_end_all.sh
@ -0,0 +1,11 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+echo "Action: login
+username: admin
+secret: admin
+events: off
+
+Action: hangup
+Channel: /.*emerg.*/
+" | socat - TCP:localhost:5038
--- a/ann_listen.sh
+++ b/ann_listen.sh
@ -0,0 +1,21 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+line="$1"
+. config.txt
+
+./ann_end.sh "$line" # and any existing calls to prevent our call ending up in "call waiting" state (and thus not autoanswered)
+sleep 0.5
+./autoanswer_line.sh "$line" 1 || { echo >&2 "failed to enable autoanswer, exiting.";  exit 1; }
+
+fn=/var/spool/asterisk/tmp/ann_$line.call
+echo "
+Channel: PJSIP/emerg$line
+Context: emerg_listen
+Extension: 120
+Priority: 1
+" >$fn
+
+mv "$fn" /var/spool/asterisk/outgoing/
+
+./ann_volup.sh "$line" &
--- a/ann_listen_all.sh
+++ b/ann_listen_all.sh
@ -0,0 +1,5 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+cat phones.txt | awk '{print $1}' | grep '^[3-5]' |  xargs -n1 -P0 ./ann_listen.sh
+
--- a/ann_play.sh
+++ b/ann_play.sh
@ -0,0 +1,30 @@
+#!/bin/bash
+
+# By default, we operate in bracketed mode: initiate listening calls, play announcement and terminate them
+# With -n, we do not do bracketing, you have to initiate and terminate listening calls yourself
+# with ann_listen[_all].sh and ann_end[_all].sh. Useful if you want to combine playback and speech in
+# one announcement (call 121 to speak without bracketing).
+
+if [[ "$1" == -n ]]; then num=121; shift; else num=122; fi
+
+
+playstring="silence/1"
+i=0
+for arg in "$@"; do
+	if [[ "$arg" =~ ^silence ]]; then
+		playitem="$arg"
+	else
+		ffmpeg -i "$arg" -ar 8000 -ac 1 -y /tmp/ann$i.wav
+		playitem=/tmp/ann$i
+	fi
+	playstring="$playstring&$playitem"
+	i=$((i+1))
+done
+
+fn=/var/spool/asterisk/tmp/ann_play.call
+echo "
+Channel: Local/$num@orgs
+Application: Playback
+Data: $playstring
+" >$fn
+mv $fn /var/spool/asterisk/outgoing/
--- a/ann_play_unicast.sh
+++ b/ann_play_unicast.sh
@ -0,0 +1,36 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+line="$1"
+snd="$2"
+. config.txt
+
+./ann_end.sh "$line" # and any existing calls to prevent our call ending up in "call waiting" state (and thus not autoanswered)
+sleep 0.5
+./autoanswer_line.sh "$line" 1 || { echo >&2 "failed to enable autoanswer, exiting.";  exit 1; }
+
+playstring="silence/1"
+i=0
+for arg in "$@"; do
+	if [[ "$arg" =~ ^silence ]]; then
+		playitem="$arg"
+	else
+		ffmpeg -i "$arg" -ar 8000 -ac 1 -y /tmp/ann${line}_$i.wav
+		playitem=/tmp/ann${line}_$i
+	fi
+	playstring="$playstring&$playitem"
+	i=$((i+1))
+done
+
+fn=/var/spool/asterisk/tmp/ann_$line.call
+echo "
+Channel: PJSIP/emerg$line
+Application: Playback
+Data: $playstring
+Priority: 1
+" >$fn
+
+mv "$fn" /var/spool/asterisk/outgoing/
+
+./ann_volup.sh "$line" &
+
--- a/ann_stop.sh
+++ b/ann_stop.sh
@ -0,0 +1,18 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+./ann_end_all.sh
+echo "Action: login
+username: admin
+secret: admin
+events: off
+
+Action: hangup
+Channel: /.*emerg.*/
+
+Action: ConfbridgeKick
+Conference: 120
+Channel: all
+
+" | socat - TCP:localhost:5038
+
--- a/ann_volup.sh
+++ b/ann_volup.sh
@ -0,0 +1,18 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+line="$1"
+[[ "$line" =~ ^[0-9]+$ ]] || { echo >&2 "usage: $0 <line>"; exit 1; }
+. config.txt
+ip_prefix=${server_ip%.*}
+ip="$ip_prefix.$line"
+
+for i in $(seq 1 10); do
+	if asterisk -rx "core show channels" |grep -q "emerg$line"; then
+		./admin_scripts/volume_up.pl "$ip" "$telnet_pass" "emerg$line"
+		break
+	else
+		sleep 1
+	fi
+done
+
--- a/autoanswer_all.sh
+++ b/autoanswer_all.sh
@ -0,0 +1,15 @@
+#!/bin/bash
+
+state="$1"
+
+case $state in
+	1)
+		gr=enabled
+		;;
+	0)
+		gr=disabled
+		;;
+esac
+
+cd /opt/ksp
+cat phones.txt | awk '{print $1}' | grep '^[3-5]' |  xargs  -i -n1 -P0 ./autoanswer_line.sh '{}' "$state" | grep $gr | cut -d. -f4| cut -d' ' -f1
--- a/autoanswer_line.sh
+++ b/autoanswer_line.sh
@ -0,0 +1,12 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+line="$1"
+state="$2"
+{ [[ "$line" =~ ^[0-9]+$ ]] && [[ "$state" =~ ^[01]$ ]]; } || { echo >&2 "usage: $0 <line> <0|1>"; exit 1; }
+. config.txt
+ip_prefix=${server_ip%.*}
+ip="$ip_prefix.$line"
+
+./admin_scripts/auto_answer.pl "$ip" "$telnet_pass" 2 "$state"
+
--- a/24
+++ b/24
@ -0,0 +1,24 @@
+veřejné číslo pro volání zvenku: 910 128 976
+
+0   - 9   - nič
+20  - 29  - ORG cisco telefóny
+30  - 59  - zvyšné cisco telefóny
+60  - 99  - zvyšné ne-cisco telefóny (ak budeme zapájať iných SIP klientov)
+78  - (mnemonic: "su") Volání org-only čísel z libovolného telefonu, případně zvenku
+100 - 199 - čísla pre automaty, odkazové schránky a iné veci
+  - 11x... veřejné konference
+  - 12x announce mechanismus
+      - 120 announce listen
+      - 121 [org only] announce speak (jen umožňuje mluvit k posluchačům)
+      - 122 [org only] announce (připoj všechny účastníky do konference a pak mluv)
+      - 123xx [org only] unicast announce na telefon xx (funguje obousměrně; nezneužívat k odposlechu, ale můžete se bavit s účastníky)
+  - 130 - vytočí náhodnú non-ORG linku
+  - 131 - vyzvednutí hlasových zpráv
+  - 14xx - přímé zanechání hlasové zprávy pro linku xx
+  - 16x - IVR
+      - 161 - FBI
+
+Podle samolepek na telefonu:
+
+8888 - helpdesk -> FBI
+4445 - HR -> přečtení pokynů
--- a/clean.sh
+++ b/clean.sh
@ -0,0 +1,2 @@
+#!/bin/sh
+rm -f etc_asterisk/pjsip_wizard_phones.conf etc_asterisk/voicemail_gen.conf tftp_reflash/SIP00*.cnf tftp_reflash/SIPDefault.cnf tftp/Phones/SIP00*.cnf tftp/RINGLIST.DAT etc_dnsmasq.d/phones.conf www/directory.txt etc_asterisk/voicemail_gen.conf
--- a/config.txt
+++ b/config.txt
@ -0,0 +1,4 @@
+server_ip=172.16.0.1
+telnet_pass=FIXME
+hmac_key=FIXME
+fake_year=2114
--- a/conv_ring.sh
+++ b/conv_ring.sh
@ -0,0 +1,8 @@
+#!/bin/sh -e
+if test "$#" != "1"; then echo "Usage: $0 sound_file.ext"; exit 1; fi
+file="${1%.*}.pcm"
+ffmpeg -loglevel fatal -y -i "$1" -f u8 -c pcm_mulaw -ar 8000 -ac 1 "$file"
+size=`du -b "$file" | cut -f1`
+size=$(($size/240*240))
+if test "$size" -gt "16080"; then size=16080; fi
+truncate -s "$size" "$file"
--- a/etc_asterisk/confbridge.conf
+++ b/etc_asterisk/confbridge.conf
@ -0,0 +1,22 @@
+[default_bridge]
+type=bridge
+video_mode=none
+
+[ann_listen]
+type=user
+startmuted=yes
+quiet=yes
+announce_only_user=no
+
+[ann_speak]
+type=user
+quiet=yes
+announce_only_user=no
+startmuted=no
+
+[ann]
+type=bridge
+video_mode=none
+
+[empty_menu]
+type=menu
--- a/etc_asterisk/extensions.lua
+++ b/etc_asterisk/extensions.lua
@ -0,0 +1,141 @@
+extensions = {}
+extensions.participants = {}
+extensions.orgs = {}
+extensions.emerg = {}
+extensions.emerg_listen = {}
+extensions.ann_bracket = {}
+extensions.odorik = {}
+extensions.external = {}
+ 
+function sip_exten(ch, ext)
+    app.dial("PJSIP/" .. ext, 40)
+    local status = channel.DIALSTATUS:get()
+    app.verbose("status: " .. status)
+    if status == "BUSY" then
+        flags="b"
+    else
+        flags="u"
+    end
+    app.voicemail(ext, flags)
+end
+function ann_unicast(ch, ext)
+    app.dial("PJSIP/emerg" .. string.sub(ext, 4))
+end
+function sip_nightmode(ch, ext)
+    local hour = tonumber(os.date("%H"))
+    local minute = tonumber(os.date("%M"))
+    if hour < 12 or (hour == 12 and minute < 10) or hour > 23 or (hour == 23 and minute > 20) then
+        app.playback("/opt/ksp/sounds/nocni_klid")
+        app.voicemail(ext)
+    else
+        sip_exten(ch, ext)
+    end
+end
+function voicemail_direct(ch, ext)
+    app.voicemail(string.sub(ext, 3))
+end
+function voicemail_listen(ch, ext)
+    local caller = channel.CALLERID("num"):get()
+    app.voicemailmain(caller, "s") -- no password prompt
+end
+
+function conf(ch, ext)
+    app.confbridge(ext)
+end
+
+function add(ctxs, ext, func)
+    for i = 1, #ctxs do
+        extensions[ctxs[i]][ext] = func
+    end
+end
+
+function ann_listen(ch, ext)
+    app.confbridge("120", "ann", "ann_listen", "empty_menu")
+end
+function ann_speak(ch, ext)
+    app.confbridge("120", "ann", "ann_speak")
+end
+
+function ann_bracket(ch, ext)
+    app.system("/opt/ksp/ann_listen_all.sh")
+    app.confbridge("120", "ann", "ann_speak")
+end
+function ann_bracket_hangup(ch, ext)
+    app.system("/opt/ksp/ann_end_all.sh")
+end
+function ann_bracket_goto(ch, ext)
+    app.goto("ann_bracket", "122", 1)
+end
+
+function fbi(ch, ext)
+    app.dial("PJSIP/910119352@odorik")
+end
+
+function odorik_incoming(ch, ext)
+    app.answer()
+    app.read("klapka", "/opt/ksp/sounds/klapka")
+    local klapka = channel.klapka:get()
+    app.goto("external", klapka, 1)
+end
+
+function su(ch, ext)
+    app.read("heslo", "/opt/ksp/sounds/heslo")
+    local heslo = channel.heslo:get()
+    if heslo == "2886287" then
+        app.read("klapka", "/opt/ksp/sounds/klapka")
+        local klapka = channel.klapka:get()
+        app.goto("orgs", klapka, 1)
+    else
+        app.playback("/opt/ksp/sounds/spatne_heslo")
+        app.hangup()
+    end
+end
+
+--http://lua-users.org/wiki/StringTrim
+function trim1(s)
+   return (s:gsub("^%s*(.-)%s*$", "%1"))
+end
+function call_rand(ch, ext)
+    local caller = channel.CALLERID("num"):get():gsub("'", "")
+    local handle = io.popen("/opt/ksp/rand_line.sh '" .. caller .. "'")
+    local line = trim1(handle:read("*all"))
+    handle:close()
+    app.verbose("RAND: " .. line)
+    app.dial("PJSIP/"..line)
+end
+function snd(name)
+    return function(ch, ext)
+        app.answer()
+        app.playback("/opt/ksp/sounds/" .. name)
+        app.hangup()
+    end
+end
+ 
+add({"orgs"}, "_2X", sip_exten) -- org phones
+add({"orgs"}, "_[345]X", sip_exten) -- participant phones
+-- night mode restriction applies only when calling from participant phones
+add({"participants", "external"}, "_2X", sip_nightmode) -- org phones
+add({"participants", "external"}, "_[345]X", sip_nightmode) -- participant phones
+add({"orgs", "participants", "external"}, "_11.", conf)
+add({"orgs", "participants", "emerg_listen", "external"}, "120", ann_listen)
+add({"orgs"}, "121", ann_speak)
+-- Because hangup actions are per-context and not per-extension, we need to jump to
+-- a separate context to allow a hangup handler to terminate listeners after a call
+-- to 122 is done.
+add({"orgs"}, "122", ann_bracket_goto)
+add({"ann_bracket"}, "122", ann_bracket)
+add({"ann_bracket"}, "h", ann_bracket_hangup)
+add({"orgs"}, "_123XX", ann_unicast)
+add({"orgs", "participants"}, "131", voicemail_listen) -- does not work, done in extensions.conf!!
+add({"orgs", "participants", "external"}, "_14XX", voicemail_direct)
+add({"participants", "external"}, "78", su)
+add({"odorik"}, "s", odorik_incoming)
+add({"orgs", "participants", "external"}, "160", fbi)
+add({"orgs", "participants", "external"}, "910119352", fbi)
+-- Na některých telefonech je od původních majitelů nálepka "call helpdesk at 8888"
+add({"orgs", "participants", "external"}, "8888", fbi)
+add({"orgs", "participants", "external"}, "4445", snd("hr"))
+add({"orgs", "participants", "external"}, "130", call_rand)
+
+
+--add({"orgs", "participants"}, "_131", snd("sadtromb"))
--- a/etc_asterisk/logger.conf
+++ b/etc_asterisk/logger.conf
@ -0,0 +1,3 @@
+[logfiles]
+
+console => notice,warning,error,debug,verbose
--- a/etc_asterisk/manager.conf
+++ b/etc_asterisk/manager.conf
@ -0,0 +1,11 @@
+[general]
+enabled = yes
+webenabled = no
+
+port = 5038
+bindaddr = 127.0.0.1
+
+[admin]
+secret = admin
+read = all
+write = all
--- a/etc_asterisk/modules.conf
+++ b/etc_asterisk/modules.conf
@ -0,0 +1,73 @@
+;
+; Asterisk configuration file
+;
+; Module Loader configuration file
+;
+
+[modules]
+autoload=yes
+;
+; Any modules that need to be loaded before the Asterisk core has been
+; initialized (just after the logger has been initialized) can be loaded
+; using 'preload'. This will frequently be needed if you wish to map all
+; module configuration files into Realtime storage, since the Realtime
+; driver will need to be loaded before the modules using those configuration
+; files are initialized.
+;
+; An example of loading ODBC support would be:
+;preload => res_odbc.so
+;preload => res_config_odbc.so
+;
+; If you want, load the GTK console right away.  
+; Don't load the KDE console since
+; it's not as sophisticated right now.
+;
+noload => pbx_gtkconsole.so
+;load => pbx_gtkconsole.so
+noload => pbx_kdeconsole.so
+;
+; Intercom application is obsoleted by
+; chan_oss.  Don't load it.
+;
+noload => app_intercom.so
+;
+; The 'modem' channel driver and its subdrivers are
+; obsolete, don't load them.
+;
+noload => chan_modem.so
+noload => chan_modem_aopen.so
+noload => chan_modem_bestdata.so
+noload => chan_modem_i4l.so
+;
+; Comment this out (after installing CAPI middleware and hardware
+; drivers) if you have CAPI-able hardware and wish to use it in
+; Asterisk.
+;
+noload => chan_capi.so
+;
+load => res_musiconhold.so
+;
+; Do not load load local channel drivers (using the system speaker) by default,
+; they are not used in most installations and might block the sound hardware
+;
+noload => chan_alsa.so
+noload => chan_console.so
+noload => chan_oss.so
+;
+; Disable CDR logging to SQLite by default since it writes unconditionally to 
+; cdr.db without a way to rotate it.
+;
+noload => cdr_sqlite.so
+;
+; These conflict with app_directory.so and each other.
+noload => app_directory_odbc.so
+;
+; Enable these if you want to configure Asterisk in a database
+;
+noload => res_config_odbc.so
+noload => res_config_pgsql.so
+;
+; Module names listed in "global" section will have symbols globally
+; exported to modules loaded after them.
+;
+[global]
--- a/etc_asterisk/pjsip.conf
+++ b/etc_asterisk/pjsip.conf
@ -0,0 +1,10 @@
+[system-udp]
+type=transport
+protocol=udp
+bind=0.0.0.0
+ 
+ 
+[system-tcp]
+type=transport
+protocol=tcp
+bind=0.0.0.0
--- a/etc_asterisk/pjsip_wizard.conf
+++ b/etc_asterisk/pjsip_wizard.conf
@ -0,0 +1,36 @@
+[base_phone](!)
+type = wizard
+transport = system-udp
+accepts_registrations = yes
+sends_registrations = no
+accepts_auth = yes
+sends_auth = no
+aor/max_contacts = 1
+aor/remove_existing = yes
+endpoint/allow = !all,alaw
+endpoint/direct_media = yes
+
+[participant_phone](!,base_phone)
+endpoint/context = participants
+
+[participant_emerg](!,base_phone)
+endpoint/context = emerg
+
+[org_phone](!,base_phone)
+endpoint/context = orgs
+
+[odorik]
+type = wizard
+transport = system-udp
+sends_auth = yes
+sends_registrations = yes
+remote_hosts = 81.31.45.51 ; sip.odorik.cz
+; public number: 910 128 976
+outbound_auth/username = 747515
+#include odorik_pass.conf
+endpoint/context = odorik
+aor/qualify_frequency = 15
+endpoint/allow = !all,alaw
+
+#include pjsip_wizard_phones.conf
+
--- a/etc_asterisk/voicemail.conf
+++ b/etc_asterisk/voicemail.conf
@ -0,0 +1,6 @@
+[general]
+
+format=wav
+
+[default]
+#include voicemail_gen.conf
--- a/etc_dnsmasq.d/dhcp.conf
+++ b/etc_dnsmasq.d/dhcp.conf
@ -0,0 +1,6 @@
+interface=eth0
+bind-dynamic
+dhcp-authoritative
+listen-address=172.16.0.1
+dhcp-range=172.16.0.100,172.16.0.200
+dhcp-leasefile=/tmp/dhcp.leases
--- a/etc_dnsmasq.d/phones_tftp.conf
+++ b/etc_dnsmasq.d/phones_tftp.conf
@ -0,0 +1,4 @@
+dhcp-vendorclass=set:CiscoIPPhone,"Cisco Systems, Inc. IP Phone"
+dhcp-option=tag:CiscoIPPhone,150,0.0.0.0
+enable-tftp
+tftp-root=/opt/ksp/tftp
--- a/gen.pl
+++ b/gen.pl
@ -0,0 +1,174 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Digest::SHA qw(hmac_sha1_hex);
+use Encode;
+use Text::Unidecode;
+
+mkdir "tftp/Phones";
+
+my $fh;
+
+my %config;
+open $fh, '<', 'config.txt' or die "Cannot read file config: $!\n";
+while (<$fh>) {
+	chomp;
+	my ($key, $value) = split /=/, $_, 2;
+	$config{$key} = $value;
+}
+close $fh;
+
+my $server_ip = $config{server_ip};
+my $ip_template = $server_ip;
+$ip_template =~ s/\.[^.]*$//;
+my $fake_second_half = $config{fake_year};
+
+my $sipdefault_reflash = <<"EOD";
+image_version: P0S3-8-12-00
+phone_password: $config{telnet_pass}
+encrypt_key: 00000000000000000000000000000000
+telnet_level: 2
+tftp_cfg_dir: ""
+EOD
+chomp $sipdefault_reflash;
+
+open my $phones_fh, '<', 'phones.txt' or die "Cannot read file phones.txt: $!\n";
+open my $ast_fh, '>', 'etc_asterisk/pjsip_wizard_phones.conf' or die "Cannot create file etc_asterisk/pjsip_wizard_phones.conf: $!\n";
+open my $dnsmasq_fh, '>', 'etc_dnsmasq.d/phones.conf' or die "Cannot create file etc_dnsmasq.d/phones.conf: $!\n";
+open my $directory_fh, '>', 'www/directory.txt' or die "Cannot create file www/directory.txt: $!\n";
+open my $voicemail_fh, '>', 'etc_asterisk/voicemail_gen.conf'  or die "Cannot create file etc_asterisk/voicemail_gen.conf: $!\n";
+
+print $ast_fh "; This is autogenerated file, do not edit it!\n";
+print $dnsmasq_fh "# This is autogenerated file, do not edit it!\n";
+print $directory_fh "# This is autogenerated file, do not edit it!\n";
+print $voicemail_fh "; This is autogenerated file, do not edit it!\n";
+
+while (<$phones_fh>) {
+	chomp $_;
+	next if $_ =~ /^(?:#|$)/;
+	$_ =~ s/#.*//;
+	$_ =~ s/\s*$//;
+
+	my ($line, $mac, $alias, $name) = split /\s+/, $_, 4;
+	die "Invalid line $.: $_\n" unless defined $name;
+
+	$mac = uc $mac;
+	my $name_latin1 = $name;
+	Encode::from_to($name_latin1, 'UTF-8', 'ISO-8859-1', sub { unidecode(chr($_[0])) });
+
+	$line =~ /^[2-9][0-9]$/ or die "Invalid LINE $line on line $.: $_\n";
+	$alias =~ /^[A-Za-z0-9_]{1,20}$/ or die "Invalid ALIAS $alias on line $.: $_\n";
+	length $name_latin1 <= 30 or die "Too long NAME $name on line $.: $_\n";
+
+	my $parent = ($line =~ /^2[0-9]$/) ? 'org_phone' : 'participant_phone';
+	my $pass = substr(hmac_sha1_hex($line, $config{hmac_key}), 0, 12);
+
+	my $cisco_fh;
+	my $ciscofile;
+	if ($mac ne '-') {
+		$mac =~ /^(?:[0-9A-F]{2}:){5}[0-9A-F]{2}$/ or die "Invalid MAC $mac on line $.: $_\n";
+		$ciscofile = $mac;
+		$ciscofile =~ s/://g;
+
+		open $cisco_fh, '>', "tftp/Phones/SIP$ciscofile.cnf" or die "Cannot create file tftp/Phones/SIP$ciscofile.cnf: $!\n";
+		print $cisco_fh <<"EOD";
+# This is autogenerated file, do not edit it!
+phone_label: "$fake_second_half         Klapka $line  "
+phone_prompt: "Telnet phone $line"
+proxy_register: 1
+proxy1_address: $server_ip
+proxy1_port: 5060
+line1_name: $line
+line1_authname: $line
+line1_password: $pass
+line1_displayname: "$alias"
+line1_shortname: "$name_latin1"
+sntp_server: $server_ip
+sntp_mode: unicast
+services_url: http://$server_ip/services.xml
+directory_url: http://$server_ip/directory.xml
+logo_url: http://$server_ip/logo.bmp
+messages_uri: 131
+telnet_level: 2
+EOD
+		close $fh;
+	}
+
+	print $ast_fh <<"EOD";
+[$line]($parent)
+inbound_auth/username = $line
+inbound_auth/password = $pass
+endpoint/mailboxes = $line
+EOD
+	if ($parent eq 'participant_phone') {
+		print $ast_fh <<"EOD";
+[emerg$line](participant_emerg)
+inbound_auth/username = emerg$line
+inbound_auth/password = $pass
+EOD
+		if ($mac ne '-') {
+			print $cisco_fh <<"EOD"
+proxy2_address: $server_ip
+proxy2_port: 5060
+line2_name: emerg$line
+line2_authname: emerg$line
+line2_password: $pass
+line2_displayname: "Emergency $line"
+line2_shortname: " "
+EOD
+		}
+
+	} else {
+		if ($mac ne '-') {
+			print $cisco_fh <<"EOD"
+dnd_control: 0
+EOD
+		}
+	}
+	if ($mac ne '-') {
+		close $cisco_fh;
+		open $fh, '>', "tftp_reflash/SIP$ciscofile.cnf" or die "Cannot create file tftp_reflash/SIP$ciscofile.cnf: $!\n";
+		print $fh <<"EOD";
+# This is autogenerated file, do not edit it!
+$sipdefault_reflash
+proxy_register: 0
+line1_name: $line
+EOD
+	}
+	if ($mac ne '-') {
+		print $dnsmasq_fh <<"EOD";
+dhcp-host=$mac,$ip_template.$line,$alias
+EOD
+	}
+	print $directory_fh <<"EOD";
+$name=$line
+EOD
+
+	print $voicemail_fh <<"EOD"
+$line => 0000,$name
+EOD
+}
+
+close $phones_fh;
+close $ast_fh;
+close $dnsmasq_fh;
+close $directory_fh;
+close $voicemail_fh;
+
+open $fh, '>', 'tftp_reflash/SIPDefault.cnf' or die "Cannot create file tftp_reflash/SIPDefault.cnf: $!\n";
+print $fh <<"EOD";
+# This is autogenerated file, do not edit it!
+$sipdefault_reflash;
+EOD
+close $fh;
+
+open $fh, '>', 'tftp/RINGLIST.DAT' or die "Cannot create file tftp/RINGLIST.DAT: $!\n";
+foreach (<tftp/RingTones/*.pcm>) {
+	$_ =~ m{^tftp/(RingTones/(.*)\.pcm)$};
+	my ($file, $name) = ($1, $2);
+	$name =~ s/_/ /g;
+	print $fh "$name\t$file\n";
+}
+close $fh;
--- a/gen_hr.sh
+++ b/gen_hr.sh
@ -0,0 +1,11 @@
+#!/bin/bash
+
+i=0
+grep . hr.txt | while read line; do
+	i=$((i+1))
+	echo ">> [$i] $line"
+	fn=hr/$(printf %03d $i).wav
+	if [[ -e "$fn" ]]; then continue; fi
+	./tts.sh "$line" "$fn"
+	sleep 10
+done
--- a/gen_sounds.sh
+++ b/gen_sounds.sh
@ -0,0 +1,16 @@
+#!/bin/bash
+
+gen_sound() {
+	fn="sounds/$1.wav"
+	[[ -e "$fn" ]] || ./tts.sh "$2" "$fn"
+}
+gen_sound nocni_klid "Z důvodu nočního klidu budete přesměrováni do hlasové schránky. Pokud chcete telefonovat v reálném čase, můžete oba zavolat do společné konference."
+gen_sound heslo "Zadejte heslo"
+gen_sound spatne_heslo "Špatné heslo"
+gen_sound klapka "Zadejte číslo klapky"
+gen_sound wc_thanks "Děkujeme za použití toalety. Nezapomeňte si umýt ruce."
+gen_sound wc_thanks_m "Děkujeme, že jste použil naše toalety. Nezapomeňte si umýt ruce."
+gen_sound wc_thanks_f "Děkujeme, že jste použila naše toalety. Nezapomeňte si umýt ruce."
+gen_sound tp_prizemi "V kontaminační komoře na nulté palubě došel toaletní papír. Prosíme cestující, aby se solidárně podělili o své noviny."
+gen_sound tp_prvni "V kontaminační komoře na první palubě došel toaletní papír. Prosíme cestující, aby se solidárně podělili o své noviny."
+gen_sound tp_druhe "V kontaminační komoře na druhé palubě došel toaletní papír. Prosíme cestující, aby se solidárně podělili o své noviny."
--- a/hangup_all.sh
+++ b/hangup_all.sh
@ -0,0 +1,12 @@
+#!/bin/bash
+
+echo "Action: login
+username: admin
+secret: admin
+events: off
+
+Action: hangup
+Channel: /.*/
+" | socat - TCP:localhost:5038
+
+
--- a/hr.txt
+++ b/hr.txt
@ -0,0 +1,179 @@
+VŠEOBECNÉ SMĚRNICE PROVOZU LODI
+
+Pokud je vaše pracovní uniforma kontaminována dihydrogen monoxidem, použijte vysokokapacitní savou substanci pro odstranění kontaminace.
+
+Loď je vybavena telekomunikačním systémem, jehož terminály jsou rozmístěny ve většině obytných i jiných prostor.
+Tyto terminály smíte využívat pro vzájemnou komunikaci s posádkou i s vedením lodi.
+Váš hovor může být monitorován pro zlepšení služeb, které jsou k dispozici vedení lodi.
+Zároveň budou terminály využívány pro svolávání posádky či vyvolání poplachu.
+Tyto terminály je ZAKÁZÁNO ničit, vypojovat, poškozovat či jinak s nimi nemístně manipulovat.
+
+V případě katastrofálního nedostatku toaletního papíru, který je detekován až po zahájení využívání toalety, použijte pro přivolání asistence přiloženého telekomunikačního zařízení.
+
+Strava na lodi je vydávána nejméně třikrát denně (snídaně, oběd, večeře).
+Pro blaho posádky je povinnná účast na snídani.
+Snídani předchází dobrovolná tělesná rozcvička a preventivní test psychoakustické zdatnosti.
+Podmínkou účasti na snídani je účast na rozcvičce.
+
+Vzdělávání posádky je vedením podporováno.
+Z tohoto důvodu se ve společenských prostorách budou každý den pořádat přibližně tři bloky odborného trénování a lekcí z teorie civilizace a vesmírné kolonizace.
+Na těchto lekcích je přísně zakázáno rušit či spát.
+Spící osoby budou kosmeticky či geneticky modifikovány.
+
+Při rekreační rotační pohybové hře kruhozávodu po směru hodinových ručiček budou libovolné vzpoury tvrdě potlačeny.
+Viníci budou vyhozeni přetlakovou komorou do mezihvězdného prostoru, následně budou opět zachyceni a zpracováni na karbonovou pastu.
+
+Vedení by chtělo důrazně varovat posádku lodi o faktu, že kdo umře v Polsku, umře i ve skutečnosti.
+
+Je zakázáno chovat na lodi domácí mazlíčky či jinou zvěř mimo prostor skladiště biologického materiálu.
+Vyjímku tvoří lišky, hroši, prasata a medvědi.
+
+Každý lodní den bude vyhrazeno nejméně třicet tři procent dne na spánek či odpočinek.
+Definice lodního dne, spánku, odpočinku a procent bude upřesněna.
+
+Při zjištění incidentu zcizení vlastního předmětu jiným členem posádky je nutno zajistit znalost jména všech zúčastněných osob.
+
+V případě závady na skafandru je možno vyžádat si od vedení lodi náhradní.
+Mějte ovšem na paměti, že nadbytečných skafandrů je omezené množství.
+
+K respirátorům jsou k dispozici speciální kyslíkové náplně s vůní mrkve.
+
+Je přísně zakázáno krmit zvěř ve skladišti biologického materiálu.
+
+Po večerce se uložte ke spánku v gravitačních kójích.
+Pro kvalitní spánek je nutné nejdříve ke svému jazyku připojit kabely s koncovkou typu krokodýl, která stimuluje sny, detekuje náměsíčnost a slouží jako efektivní budíček.
+Budíček smí využívat pouze bezpečných úrovní napětí.
+
+Pokud nastane katastrofální selhání štěpného reaktoru, použijte k pacifikaci zběhlých neutronů vystužených kontrolních tyčí z boronu.
+
+Vedení lodi by chtělo zvlášť poděkovat umělci Markovi "Maark" Černému za design lodního exteriéru.
+
+Pro zlepšenou orientaci posádky je interiér lodi vybaven orietačními symboly a směrovkami.
+Mějte na paměti, že směrovky jsou orientované! Navíc je zaručeno, že graf směrovek je 2-souvislý.
+
+Je přísně zakázáno kontaminovat mezihvězdný prostor odpadky, jako jsou například konzervy.
+
+Veškerá rekreační zařízení jsou testována na dětech.
+
+Do stázové komory je vstup povolen pouze v pyžamu splňujícím normu 3GPP-4923587-3B.
+Nedodržení může vyústit ve smrt stářím.
+
+Berte na vědomí, že červená reflexní etiketa značí extrémně pálivé pokrmy.
+
+Politické mapy nově kolonizovaných území musí splňovat, že sousední území nejsou obarvena shodně a jsou použity nejvýše čtyři barvy.
+
+Pro případ politické diskuze jsou nouzové plamenomety uloženy na třetí palubě.
+
+Nekrmte lodní kočku bez jejího svolení.
+
+Veškerá data o posádce (včetně záznamů pohybu, biotelemetrie, vyhledávaných frází a publikovaných příspěvků na lodní sociální síti)
+budou využita pro algoritmické vylepšení a personalizaci lodních předpisů.
+
+Každý člen posádky musí znát nejméně 50 souhvězdí.
+
+
+
+
+
+POKYNY PŘI EVAKUACI
+
+Veškerá posádka lodi je povinna řídit se evakuačními pokyny.
+
+Pokud dojde k evakuaci z důvodu úniku radioaktivního materiálu ze štěpného reaktoru,
+z důvodu vniku radioaktivního materiálu do fůzního reaktoru,
+kvůli selhání vzduchotechniky, softwarové vyjímky, kolize s cizím objektem,
+kolize se spřízněným objektem, nebo z důvodu napadení cizí formou života,
+ignorujte v tomto případě všeobecné nařízení §451-3.
+
+Pokud dojde k evakuaci z důvodu ztráty elektrické energie,
+z důvodu vniku radioaktivního materiálu do fůzního reaktoru,
+kvůli prudkému poklesu tlaku, kontaminaci melounovou Kofolou či katastrofálnímu nadbytku čočky,
+ignorujte lemma 6.66.
+
+Pokyny:
+
+Každý člen posádky je především povinen řídit se pokyny z lodní telefonní sítě.
+S telefony je přísně zakázáno neoprávněně manipulovat či narušovat jejich činnost.
+
+Každý člen posádky je povinen řídit se pokyny velících důstojníků, a to i mimo své domovské oddělení.
+
+Evakuace je zahájena všeobecným poplachem.
+
+Po zahájení evakuace se urychleně připravte opustit loď.
+Očekávaná doba na přípravu je PĚT AŽ SEDM MINUT.
+Pomalejší členové posádky budou zanecháni na lodi!
+
+S sebou si vemte:
+nezbytnou osobní výbavu na 2 až 5 hodin v mezihvězdném prostoru,
+vhodný exosuit do slunečního větru, meteorického deště a zimy blízké absolutní nule,
+osobní jetpack,
+otvírák na konzervy a lžičku,
+diplomatickou příručku,
+šifrovací pomůcky
+kyanidovou tabletku.
+
+Po shromáždění osobní výbavy se urychleně přesuňte k přetlakové komoře.
+
+Zde vám bude vydán skafandr, který si nasaďte před opuštěním lodi.
+
+Po opuštění lodi se přesuňte k nástupnímu prostoru únikového modulu a urychleně do něj nastupte.
+
+Únikový modul má kapacitu DESET osob.
+
+Do únikového modulu vkročte PRAVOU nohou.
+
+Unikový modul odlétá do PATNÁCTI minut od zahájení evakuace a v zájmu záchrany co největší části posádky na nikoho nečeká.
+
+Jakmile budete v bezpečí, řiďte se pokyny pro zjistění stavu lodi a příčiny evakuace.
+
+
+
+
+
+POKYNY V PŘÍPADĚ KONTAKTU S CIZÍ FORMOU ŽIVOTA
+
+Při komunikaci ujistěte cizí formu života, že sdělené názory jsou vaše vlastní a nereprezentují oficiální stanovisko Hegemonie člověka.
+
+V případě nenalezení společného jazyka využijte Braillovo písmo.
+
+Při konfliktu s formou života na bázi stroje pamatujte, že před kyBorkem neutečete.
+
+
+
+
+
+POKYNY PRO POUŽÍVÁNÍ TELEKOMUNIKAČNÍCH ZAŘÍZENÍ
+
+Je přísně zakázáno libovolné telekomunikační zařízení vypínat, odpojovat z rozvodné sítě či jinak narušovat jeho činnost!
+
+Dále je zakázáno měnit nastavení libovolného terminálu.
+Při problémech se obraťte na vedení posádky či lodního síťaře.
+
+Nenechávejte vyvěšené sluchátko!
+
+V případě vypojení libovolného kabelu z terminálu DBEJTE ZVÝŠENÉ OPATRNOSTI! Terminály jsou netradičně napájeny z datových kabelů napětím 48V.
+
+Je zakázáno olizovat libovolné dráty.
+Některé jsou pod napětím.
+Navíc jsou ostré.
+
+Terminál může být použit k účelům všeobecné distribuce informace.
+
+
+
+
+
+POKYNY V PŘÍPADĚ NÁVŠTĚVY EXOPLANETY
+
+Tyto pokyny se vztahují pouze pro návštěvy exoplanet s prokazatelnou přítomností vyšších organismů.
+Na exoplanetách s pouze bakteriálním životem či zcela bez biosféry se řiďte předpisy pro návštěvu asteroidů vyjma sekce 3 pokynů pro chování v mikrogravitaci.
+
+Při pohybu na exoplanetách dbejte zvýšené opatrnosti.
+
+Všichni členové posádky jsou povinni pohybovat se ve skupinách nejméně dvou osob.
+
+V případě výskytu inteligentního domorodého života omezte kontakt na minimum, není-li vedením lodi specifikováno jinak.
+
+Je doporučeno zahrnout do výbavy expedice šifrovací pomůcky.
+
+Každá skupina je povinna mít s sebou nejméně jeden měřič ionizujícího záření.
--- a/hr_join.sh
+++ b/hr_join.sh
@ -0,0 +1,5 @@
+#!/bin/bash
+
+printf "file '%s'\n" hr/*.wav > hr_concat.txt
+ffmpeg -f concat -safe 0 -i hr_concat.txt -c copy sounds/hr.wav
+
--- a/list_errors.sh
+++ b/list_errors.sh
@ -0,0 +1,6 @@
+#!/bin/sh
+pass=`sed -n 's/telnet_pass=//p' config.txt`
+ip=`sed -n 's/server_ip=//p' config.txt | sed 's/\.[0-9]*$//'`
+for i in `cat phones.txt | grep -v backup | grep -v \- | sed -n 's/^\([0-9][0-9]\).*/\1/p'`; do
+	admin_scripts/list_errors.pl "$ip.$i" "$pass" 2>&1 | sed '/^$/d' | sed "s/^/$i: /"
+done
--- a/1
+++ b/1
@ -0,0 +1 @@
+*/10 * * * * cd /opt/ksp; ./list_errors.sh | sed -E 's/172\.16\.0\.//;s/,? ?port 23//;s/ ?at .* line [0-9]*//' > /tmp/error.log.new; mv /tmp/error.log.new /tmp/error.log
--- a/logo/anytoppm.sh
+++ b/logo/anytoppm.sh
@ -0,0 +1,54 @@
+#!/bin/bash -eu
+
+usage() {
+	echo >&2 "usage: $0 <input> <output>"
+	exit 1
+}
+
+[[ $# == 2 ]] || usage
+FW_INFILE="$1"
+FW_OUTFILE="$2"
+
+MIME=`file -b --mime-type "$FW_INFILE"`
+
+case $MIME in
+	image/gif)
+	giftopnm "$FW_INFILE" > "$FW_OUTFILE" 2>/dev/null
+	;;
+	image/jpeg |\
+	image/jpg)
+	jpegtopnm "$FW_INFILE" > "$FW_OUTFILE" 2>/dev/null
+	;;
+	image/png)
+	pngtopnm "$FW_INFILE" > "$FW_OUTFILE" 2>/dev/null
+	;;
+	image/x-ms-bmp |\
+	image/bmp |\
+	image/x-bmp |\
+	image/x-bitmap |\
+	image/x-xbitmap |\
+	image/x-win-bitmap |\
+	image/x-windows-bmp |\
+	image/ms-bmp)
+	bmptoppm "$FW_INFILE" > "$FW_OUTFILE" 2>/dev/null
+	;;
+	*)
+		echo "Unknown file contents. [$MIME]" >&2
+		exit 1
+	;;
+esac
+
+MIME2=`file -b --mime-type "$FW_OUTFILE"`
+case $MIME2 in
+	image/x-portable-pixmap |\
+	image/x-portable-bitmap |\
+	image/x-portable-greymap)
+	#temporary file created
+;;
+	*)
+		echo "Failed to convert file. [$MIME => $MIME2]" >&2
+		exit 1
+	;;
+esac
+
+exit 0
--- a/logo/hipporion.bmp
+++ b/logo/hipporion.bmp
--- a/logo/hipporion.png
+++ b/logo/hipporion.png
--- a/logo/hipporion2.bmp
+++ b/logo/hipporion2.bmp
--- a/logo/hipporion2.png
+++ b/logo/hipporion2.png
--- a/logo/ksp.bmp
+++ b/logo/ksp.bmp
--- a/logo/logo
+++ b/logo/logo
--- a/logo/logo.sh
+++ b/logo/logo.sh
@ -0,0 +1,55 @@
+#!/bin/bash
+set -eu
+
+CONVERTED_FILE=processed.pnm
+FW_INFILE="$1"
+TARGET="$2"
+./anytoppm.sh "$FW_INFILE" $CONVERTED_FILE || exit 1
+
+#generate logo for the phone
+PREVIEW=_preview.png
+FW_IDENT=logo_sip
+
+case $FW_IDENT in
+	logo_sip)
+		# BMP 90x56 (8-bit), phone can display 4 colors
+		{ cat $CONVERTED_FILE | pnmscale -width 90 -height 56 | ppmquant 4 | ./ppmfix.sh | ppmtobmp -bpp=8 > $TARGET; } 2>/dev/null
+
+		#generate logo preview for Operator's Administration
+		{ cat $TARGET | bmptopnm | ./ppmfix.sh | pnmtopng > $PREVIEW; } 2>/dev/null
+	;;
+	logo_sep_bw)
+		# PNG 320x196 (8-bit), phone can display a 4 color PNG file
+		{ cat $CONVERTED_FILE | pnmscale -width 320 -height 196 | ppmquant 4 | ./ppmfix.sh | pnmtopng > $TARGET; } 2>/dev/null
+		# BMP 80x49 (8-bit), phone can display a 4 color PNG file
+		{ cat $CONVERTED_FILE | pnmscale -width 80 -height 49 | ppmquant 4 | ./ppmfix.sh | pnmtopng > $TARGET_TN; } 2>/dev/null
+
+		#generate logo preview for Operator's Administration
+		cp $TARGET $PREVIEW
+	;;
+	logo_sep_color)
+		# PNG 320x212 (12-bit)
+		{ cat $CONVERTED_FILE | pnmscale -width 320 -height 212 | ppmquant 4096 | ./ppmfix.sh | pnmtopng > $TARGET; } 2>/dev/null
+		# PNG 80x53 (12-bit)
+		{ cat $CONVERTED_FILE | pnmscale -width 80 -height 53 | ppmquant 4096 | ./ppmfix.sh | pnmtopng > $TARGET_TN; } 2>/dev/null
+
+		#generate logo preview for Operator's Administration
+		cp $TARGET $PREVIEW
+	;;
+		logo_sep_color_16)
+		# PNG 320x212 (16-bit)
+		{ cat $CONVERTED_FILE | pnmscale -width 320 -height 212 | ppmquant 65536 | ./ppmfix.sh | pnmtopng > $TARGET; } 2>/dev/null
+		# PNG 80x53 (16-bit)
+		{ cat $CONVERTED_FILE | pnmscale -width 80 -height 53 | ppmquant 65536 | ./ppmfix.sh | pnmtopng > $TARGET_TN; } 2>/dev/null
+
+		#generate logo preview for Operator's Administration
+		cp $TARGET $PREVIEW
+	;;
+	*)
+		echo "Unknown logo ident. [$FW_IDENT]" >&2
+		exit 1
+	;;
+esac
+
+
+
--- a/logo/ppmfix.sh
+++ b/logo/ppmfix.sh
@ -0,0 +1,21 @@
+#!/usr/bin/gawk -f
+
+BEGIN {
+	fix = 0
+}
+
+NR == 3 && /^0$/ {
+	fix = 1
+	print "1"
+	next
+}
+
+fix == 0 {
+	print
+	next
+}
+
+fix == 1 {
+	gsub(/\x00/, "\x01", $0)
+	print $0
+}
--- a/message_receiver.pl
+++ b/message_receiver.pl
@ -0,0 +1,58 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use DBI;
+use Encode;
+use Net::SIP;
+use Net::SIP::Util qw(sip_hdrval2parts sip_uri2parts);
+
+my $addr = $ARGV[0];
+my $port = $ARGV[1];
+my $dbfile = $ARGV[2];
+
+die "Usage: $0 listen_address listen_port database_file\n" unless $addr and $port and $dbfile;
+
+my $dbh = DBI->connect("DBI:SQLite:$dbfile", undef, undef, { PrintError => 0, RaiseError => 1, sqlite_unicode => 1 });
+
+my $leg = Net::SIP::Leg->new(proto => 'udp', addr => $addr, port => $port) or die "Error: Cannot create leg: $!\n";
+my $ua = Net::SIP::Simple->new(from => '', leg => $leg) or die "Error: Cannot create user agent: $!\n";
+
+$dbh->do('CREATE TABLE IF NOT EXISTS messages(id INTEGER PRIMARY KEY AUTOINCREMENT, r INT NOT NULL DEFAULT 0, f TEXT NOT NULL, t TEXT NOT NULL, m TEXT NOT NULL)');
+$dbh->do('CREATE INDEX IF NOT EXISTS idx ON messages(r, t)');
+
+$ua->{endpoint}->set_application(sub {
+	my ($endpoint, $ctx, $packet, $leg, $from_addr) = @_;
+
+	return unless $packet->is_request;
+
+	my $resp;
+	if ($packet->method eq 'MESSAGE') {
+		my (undef, $for, undef, $message) = $packet->as_parts;
+		$message = decode('UTF-8', $message);
+		my $for_user = (sip_uri2parts($for))[1];
+		my ($from) = $packet->get_header('from');
+		($from) = sip_hdrval2parts(from => $from);
+
+		print "Recevied message for user $for_user from uri: $from\n";
+
+		my $success = eval { $dbh->do('INSERT INTO messages(f, t, m) VALUES(?, ?, ?)', undef, $from, $for_user, $message) };
+
+		if ($success) {
+			$resp = $packet->create_response('200', 'OK');
+		} else {
+			$resp = $packet->create_response('500', $dbh->errstr);
+		}
+	} elsif ($packet->method eq 'OPTIONS') {
+		$resp = $packet->create_response('200', 'OK');
+	} else {
+		$resp = $packet->create_response('606', 'Not Acceptable');
+	}
+
+	$resp->set_header('Allow' => 'OPTIONS, MESSAGE');
+	$endpoint->new_response($ctx, $resp, $leg, $from_addr);
+	$endpoint->close_context($ctx);
+});
+
+$ua->loop();
--- a/message_receiver.service
+++ b/message_receiver.service
@ -0,0 +1,4 @@
+[Service]
+ExecStart=/usr/bin/perl /opt/ksp/message_receiver.pl 172.16.0.1 5062 /tmp/messages.db
+[Install]
+WantedBy=multi-user.target
--- a/normalize_volume_all.sh
+++ b/normalize_volume_all.sh
@ -0,0 +1,12 @@
+#!/bin/bash
+
+vol=9
+
+
+cd /opt/ksp
+. config.txt
+ip_prefix=${server_ip%.*}
+./hangup_all.sh
+sleep 1
+cat phones.txt | awk '{print $1}' | grep '^[2-5]' |  xargs  -i -n1 -P0 ./admin_scripts/normalize_volume.pl "$ip_prefix.{}" "$telnet_pass" "$vol"
+
--- a/phones.txt
+++ b/phones.txt
@ -0,0 +1,40 @@
+# LINE MAC ALIAS NAME
+
+# org
+21 00:0c:85:b9:8d:72 org1 Org 1
+22 00:0a:41:9e:70:4c org2 Org 2
+23 00:1d:a2:66:e1:1b org3 Org 3
+24 00:1e:be:90:7a:1a org4 Org 4
+25 - lodni_kocka Lodní kočka # Medvěd
+
+# non-org
+31 00:0a:8a:2c:8c:d2 prechod_komora Přechodová komora                   # botnik
+32 00:0c:85:b9:8d:47 kontam_komora_0 Kontaminační komora 0              # wc přízemí
+33 00:1b:d4:60:6e:3f lodni_kaple_1 Lodní kaple 1                        # jedalen1
+34 00:1d:a2:66:e1:0b lodni_kaple_2 Lodní kaple 2                        # jedalen2
+35 00:0c:85:b9:8d:57 unikovy_vychod Únikový východ                      # chodba
+36 00:0a:41:f9:77:32 xenobio_lab_1 Xenobiologická laboratoř 1           # jedalen1 mala
+37 00:1e:f7:c2:28:66 xenobio_lab_2 Xenobiologická laboratoř 2           # jedalen2 mala
+38 00:0c:85:b9:8d:50 odd_inkub_techn Oddělení inkubačních techn.        # izba 6.c
+39 00:0c:85:b9:8a:63 odd_appl_noem Oddělení aplikované noematiky        # izba 5
+40 00:17:0e:c8:52:bf chodba_0 Chodba 0                                  # chodba
+41 00:1d:a2:66:e0:cc odd_rela_efekt Oddělení relat. efektů              # izba 4
+42 00:1b:d4:5f:f3:33 odd_auto_agrik Oddělení autonomní agrikultury      # izba 3
+43 00:0c:85:3b:ba:84 dekontam_sprcha Dekontaminační sprcha              # sprchy
+44 00:0c:85:b9:8d:5e kontam_komora_1 Kontaminační komora 1              # wc 1. patro
+45 00:0a:8a:2c:8d:73 odd_civil_vycvik Oddělení civilizačního výcviku    # izba 7
+46 00:1e:be:90:79:ea odd_psycho Oddělení psychoakustiky                 # izba 8
+47 00:0a:8a:21:57:38 serverovna Serverovna                              # switch
+48 00:0c:85:48:c9:c3 sklad_nebez_odpad Sklad nebezpečného odpadu        # schody
+49 00:0c:85:8d:18:2d chodba_1 Chodba 1                                  # chodba
+50 00:17:0e:c8:50:d2 odd_abstr_umeni Oddělení abstraktního umění        # izba 1
+51 00:0c:85:8d:16:13 odd_dezinfo Oddělení dezinformace                  # izba 2
+
+56 00:0a:8a:21:51:bc backup1 backup1
+57 00:0a:8a:66:49:8e backup2 backup2
+58 00:0a:8a:2c:8d:0b backup3 backup3
+59 00:0a:41:f9:79:2a backup4 backup4
+
+# dead
+#00:0a:8a:2c:8f:f1
+#00:0a:8a:2c:8d:74
--- a/pocasi.py
+++ b/pocasi.py
@ -0,0 +1,20 @@
+#!/usr/bin/python3
+
+import xml.etree.ElementTree as ET
+from datetime import datetime as dt
+from urllib import request
+
+xml = request.urlopen('https://www.yr.no/place/Czech_Republic/Olomouc/Ruda_nad_Moravou/forecast.xml').read()
+
+root = ET.fromstring(xml)
+days = ['Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Su']
+
+for time in root.iter('time'):
+	attrib = time.attrib
+	time_from = dt.strptime(attrib['from'], '%Y-%m-%dT%H:%M:%S')
+	time_to = dt.strptime(attrib['to'], '%Y-%m-%dT%H:%M:%S')
+	style = time.find('symbol').attrib
+	temperature = time.find('temperature').attrib
+	preci = time.find('precipitation')
+	output = days[time_from.weekday()] + time_from.strftime(' %H') + '-' + time_to.strftime("%Hh") +  ': ' + temperature['value'] + '°C' + ', ' + style['name']
+	print(output.replace('Partly', 'Pt.'))
--- a/rand_line.sh
+++ b/rand_line.sh
@ -0,0 +1,7 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+myself="$1"
+[[ -n "$myself" ]] || myself=xxx
+cat phones.txt | grep -E '^[3-5]' | cut -d' ' -f1 | grep -vFx "$myself" | sort -R | head -n 1
+
--- a/sounds/heslo.wav
+++ b/sounds/heslo.wav
--- a/sounds/klapka.wav
+++ b/sounds/klapka.wav
--- a/sounds/spatne_heslo.wav
+++ b/sounds/spatne_heslo.wav
--- a/tftp/Dialplan.xml
+++ b/tftp/Dialplan.xml
@ -0,0 +1,17 @@
+<DIALTEMPLATE>
+	<TEMPLATE MATCH="2." TIMEOUT="0"/>
+	<TEMPLATE MATCH="3." TIMEOUT="0"/>
+	<TEMPLATE MATCH="40" TIMEOUT="0"/>
+	<TEMPLATE MATCH="41" TIMEOUT="0"/>
+	<TEMPLATE MATCH="42" TIMEOUT="0"/>
+	<TEMPLATE MATCH="43" TIMEOUT="0"/>
+	<TEMPLATE MATCH="4445" TIMEOUT="0"/>
+	<TEMPLATE MATCH="45" TIMEOUT="0"/>
+	<TEMPLATE MATCH="46" TIMEOUT="0"/>
+	<TEMPLATE MATCH="47" TIMEOUT="0"/>
+	<TEMPLATE MATCH="48" TIMEOUT="0"/>
+	<TEMPLATE MATCH="49" TIMEOUT="0"/>
+	<TEMPLATE MATCH="5." TIMEOUT="0"/>
+	<TEMPLATE MATCH="8888" TIMEOUT="0"/>
+	<TEMPLATE MATCH="*" TIMEOUT="9999"/>
+</DIALTEMPLATE>
--- a/tftp/RingTones/Piano.pcm
+++ b/tftp/RingTones/Piano.pcm
@ -0,0 +1,9 @@
+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ________џ________________џџџџџ___________JR__пR!'8ЛЪ���ЁЂЏЇЪ5J�������В-!-",>ЪОЄ8ЄЪ��DЊ8Џ�,*џЪ_	JJ8����;Ъ$���2"�Л5Љ�������		
2�����Њ/->J*ЁФ'ЌЕ����Њ2ЌЉ>
*Ќ�)���ЁЌR
)��Ї,*_в-Џ�Љ-ЕЄ����п$ВЇФJ"пЊ�ОЏЪ"�ЅЌџ
И������в2Ф
	
�����ЊЏ,$"
)->8Џ�Ъ8вJ��--ЕЉВО2/RИDФ5J����Ъ"%'2Ќ��ФФв%'Є*5���ЁЌвФ!
+	/ЪЁЅ����RФЕ/*Ъ8*!Ё��в���пЪ/в������Ф8
_Є��Ъ8_2Л�ЏJЅJ>���5Ъ$)ЂЂ�ЇЕ-ЪЄ�,DЁЄЕ;/*_Е������ЌЛ	Л�����ЄЇЛЛ8%,$
!JџОЄ��вЅ�ЊпJ!5	RО'Ъ����џ5*$>���ЇЪп>'R_>ЄЅ���Ђ!%"
8ФФ_Фв����ЛВИЊ�R''�������ЉЌп
	D�����ЄИD2')-ВВD;ФЅ�ВJ�ЏИ_)'Фп,$*����ЪJ5в����ФвJ)_$/Є�����*%

)_џпЕВ��Ђ�ОИЛЕЅJ''�������ЉЌп
	D�����ЂЛ>-%-%DЂЊ>2џЊ�Њ/ВЏџ%);Е_>$Њ���ЛвR5�Ё��ИФџџ,$Є�����п$%
+)2В����ЌЊвRЪ$;8-"
'����Ђ���вD>
/������Ђ_2Љ��ЄЕJ!8ИЏ*$џЪЛ";Њ�ЇJJ5->8ЇЉЛ_*8Е�ЂВВ��ЌЪ
8J������ЁФ%
+Џ�����Њ_Jџ$%%_Rв���Ѕ��ЄЛџ/$
5_2џџЄ����ИDJЂ��ЄИФ>"*J5"/_п����В),2%5Фџвв��Ї��ФDЛОЛR
+R��������ЕDџ������Є-5"!DDЉџRR�ЁЛВЏЏЌD$%$!,Ев8,ЏЁ�ЊЇJ*-ОЇЂ��ЏВR,ФЅ�����О5*
*ИЄ����ЇЕВџ2"_5
$��������ФЛ28О������;*"*Џ���В;*џВ5RRJЛ5,RЌЇЏЏОR/*"JЪRЛD-%>ЏЄ�ЊЕЄ�2)пЄ������Џ$ОЄ����ЇЊЕJ,!5%%-'ВЂЊЅ��Ё�ЪФп*,2вв>Љ��Ё�ВJ-,Ф��ЂЕЏ2'");,,JФЌ���RвR'$>5-5ЛЏЏЉ�ЁЏЕОЛВJ*2'пЁ�����ЄЌ>/Є�����ЏЪ5,,!//RЛвФВВИџпФп;'2,)вЕЪ8;ОЕппОЏD)2ЪИЉ�ЅЊФ'$'%;ОЂ����О_J*%$;в���ЄЅЌЕЪ-8;5/!,ИЄЂЁ���ЌФЪ;%!,ЛЊЂЅЂ�Єп>;5'/џВ�ЅЕ_8џ>85JпJ;5RФЕЌЏЕЕв;-,2;>8J52DЪЄЉЏВЏИ_/''DЕ����ЄЅО;%),5вЉ���ЇЏЕв-)5--)*//DЪЛОИЏЌЌОввџ;)"'8пџJRвЕОЕВИОD-*)';ОЉЁЉЏИJ2*$/228D_ЪЄЁЏФООџ,!%-)$8пОЌЉЉЛЛФвџDD>*)_ВЂЁЅЇЊЛJ5-*%!2ЪВЌЄЁЂЊФR>5-$'/5_ИООвџвЛФЪФОЪ>;;-8RЛЕЪD;џ_5DЪОв>;>JвФОЕВЛЕп/-,*,,;JФЌЉЉЇЊЛЪп>;,"!$)*JЕЅЂЇЉВИв55>;;5,*,5JвЛВВЊЊЪвпJ5,/5;>JпФФвЛВОпJ;2,*'5џИЌЏВФвп;;DDD;5-2;_ЪОЕЕЏЏпџџJ8258;;DџЪЪпЛЏИЪџR;/,'/DвВЕИппџDDJRRD>2;RпФОИИЛв>8;88>___пФЕЕЛпЪФџR>82*,-;RвВЊЊЛИИвJ8RR;,)-28пВЅЊЏЛЪ>25588D>JJџЪпЪФпЪџR_RJ;5;џФвЪ_ЪЪ_ппФв_RDD55JЪВЕИЛпJ52888;џџпЪОВЪџпв_8-2822DџОЕВЊЕвJJ;>;>D882;RЪИЏЌВЛЪ_R>5;;;,,5JпвИЏЌЏЪпџ>/-28>DпИОЪџџЪDDR_JDJ_џRпИВИ_Rџ;//8JR_Jџ>%-8ЛВВЂ��ВЕпФЪ2-;ФJЏЁ��Џ8*58пЌОпЊ���Ќ/)_RJ)ЏЇ�����$'%��Ђ����џ''*)RR2п/$џ�����Ќ%!%џЕ��Ё�ЇЊЊ!%-*"ЕЏИЉDJ5_�ЇЏ_5ЉЊ*">ЏЊ"!-%58ВЇвЕЊв'џФЅЊ%ИИR);п-п_ВЉ��Џ>5>;!*2Ђ����ЕОJЪJ,*џ,!5џпВ_ЪЏппОЌ_-52,/ЏЊ;8О�ЂЏЁЪ2*'J2"J��Ѕ_DЛ;%)џJ)DОЕЏ��Ъ$">*'D_пЪЛФ��Ѕ�J/ИИФ*!_�������ЪD-Ё�����Єџ)8'')!Џ�ЉИ*RЂЉRJОџИD*)*џЪФЛ5/ФЉЇЌЌЪЪ;)џФЂЏОФВD2'>)/Є���ЏЏЛ8'",5J����ЪЏ_,>п"!п��ЏЁ���Ќџ''*�Ђ����ЅD)/$!џпЇЅџп;,RЊЪD_ИЌ_'DвЁИ%2;,'Rџ;џJЪџ"8Л��ОВ�Ќвп,8Ф�����ЉЉВ"/И����ЇЌЏЅR"5,%'>DОЌЂ�Љ��ЊЛ--*џЪвпВ�Ђ��ЏJ)%,*Љ��ЇвЛџ-%$*--)DпЪЉЁ�Љ8)58-*_;5RRЌЄ��ЏЛИЅВв)'Ф������ЁЌО*,Ђ�����ЄЛв8!%")ИЄФRџФ�ЉВЌЕJ$"%)пџџR8ЊЂЇЌЪИD"%>ЇЂ��ООЕ>%%)И�����Е>2)!"/пЂ����ВИЛФR;2Л�������ИRD
;Љ������И;/!!JЕЉЇЇЪ>RЕЕ>џпИФ*'_ВОвJJ>/пп_вџRџ)!,џЕЌЊЂЉЇФ5,,������ЊR-Њ�����ЊЉВ>/5/%)*>ЕЌЇЅ���ЊпR,)DФЛЉ���ЄО;'JЏ��ЄЊИ;$"%!!);ЏЅ���ЏЪЛп2)*2,"!8>пЉЊЉ���ВJ;%

)RВЉ�����ВJ,,џЅ�ЅЌВЛ>,,/2*5>RИЉ��Їџ>џ>*$"8;5/5ЪЕЏЇЄЏВЉЉп-)
DЊ������ЁФ'

%И������О82)"")џОФџџЄЉЉЊЌЛD)"'JпЪJџВЉВЕОв"'RВЉ�ЄЌЊЕJ!'8вЂ����Ќв_5%,DЏ���ЄЉЊЉЛџп2*;ЕЅ�����ЕR%)џЇ�����Ќв;-$"8џЕЊЌЪ>џЪRџџОФD-/џвЪФЪвџпRDRRJD>2)5DЛЅЊЌЉЄЌФR/!/вЂ�����Їџ-"'>Л����ЁЉЪ88/$!$$JИЕЊ����ЏЛп5%;џџИЅЉЇЂЏОJ*$!"*JИЉЏЕЌп;>-/;5;RRџЛЉЂпФпJ>')2/%*>џЛВЉЅЉЊЌЏЕ_55*/вЊ����ЄЉО2'"*пВЅ���ЁЌОџ;/%!)_ЪЪФЛЏЉЌЌЛп>,-$-DФЛввЕЕОвпЪD*%)/RОЇЌВИ>*"%'");вВЅЁ��ЛвD8)!!!%2ЪЉЄЄЄЇЇЌЛпJ5,%!5ЪЕЇ���ЂИџ/!/џИЌЇ�ЁЪR>-$!'/>ЪЕЕЪџпЪџJпЪвD28J_вввОФФЪџJD;;>2/5JОВВЌЏО_;)*RЏЄЄЄЁЁЇИJ;8)",JЏЅЄЅЉЉЪ_J8/)),,-8RпОВЇЄЌЕЛвJ-$$*8JџпФИИВЏИОR8/,,/>пЛЕВЕФ_>58;>>JJJвЛЕИФФЛОџ>882*,8DпЪИЏВЏВЕОп_J5%"*;ЪЇЄЄЄЉЕвD8,%"'/DвЕЉЂЂЉВФ_D-*,*5DJ__пЪОЛОЛФЪ_JD528Dџпџ_вв_џпЪпJD>>J_вФООВЛпJ58-,2;RџЪЛВВЛОФпџD5-*,*2DЪЕЏЊЌЌВФпR>2/,))->џОВЏЊЛФп_;///2/2>пЪФЕЏВЛвв_>5-88>пОИЪЪЪпRDDJJD>RR_џвЛЛИФџ_D>88>>DDRпФФФЛОФЪ_J8---22>пЛВЕВИвRJD;-*-/5DЪЏЌЏЕџD;522558;RвЪЛООИФвп_RD;28>DRRЪЪвЪЪФвџJJD55;,'2JЕЕВЊ�ЉИЛЪЕЪ>-'5JЉ����ЕЛФR/DJRџ,"DФВD-Ќ�R��Е�ЕЪ;$-пЁЁЪ%>%!2�����*
>Љ����ВЛ52��")п���ЊD;Ђ��$;�Є���Ќ_D2),�ЉИЪD%JИ/5�Ё58R;вЇD)"п�ЂJЌЁЉ,,"-Љ����)	2���Є��ЇИ$;/
ОЊ!8Љ��ЇЛ;Њ��в28����ИЕ->ЏЌ�Ќ)>)ЊЂ"2��вJ/,5/2Џп)2��ФвЏ>%'Ъ_���/*%$џ���Ѕ��ЊИ%-,!ЏЌ''в�ЌDЅ��Ѕ;"
+
����Є�ЏЪЄ_ОЕЕО)ЛЌв/Л�Ђџ*$)DФ'$Ї���J,Є��ЂИЌ_>DЁЇЊ���Ђ)*8Ъ/2D_вО�ОЪ���Џ)	Џ�������џ)
2R,25�ЪФЊФ8Ќ�ЅФ%"5В*"J���Є>,)Ф���Џ>8п''-%ЪЉВВВ��Ъ->*/џ8*%5%џ������Ѕ/
+	2����ЂЊ�_5/2_J$ЄЕОЛОЪЏ��ЅJJ>/И����;5,Ъ���ЊD2%!*$ФЇ�ЂВ��Ф!%!!/;ЕЕ285'!ЛЅЊЅ���Ї**	Ф������О',2,/Ъ��ЉЏОRЪЌЁ�И$*_D����ЌЛDЏ���_Л>-D>*"JФџЊ��џ;D2/ЪОФ-"*RЕ�����Ё;2
5�����ЁЄЪ2$
*2,Љ�ЁЂЏвЕ��Њ*$>в����ЂЅО"���ЊЪпR;Jџ!)>ЪЅЕ;ФЏ8D-'%-О��_-,ЛЕ����Ќп>

2������Џ;"!%88*Ъ��ЇЉЏRпЅ��Ъ!2Џ�����ЇЪ-
'Ѕ��ЌЅЕОЕЛ;''8ВЕ>;п_џRџ*>Џ�Ёџ>,%џЛЉЂ��ЇвR'_������п-2!)>!/ЛЊЄЇЅОЇ��Љ5
+$И�����ЅИ5$в��ЉЇЇО_ЛФ,,5И�џ)-8/5џ>,5И��ЄЪ/""5пЕ���ЂОRв�����В2,'%пJ/DИИОЇФЕЊ��Џ8$
,в�����Є5ИЁЌЂ�ЄОФЪ8,%JЂD*88-Rџ--DЇ��ЌџD"%-5Ф���џ;'"$)Е����Ђ_8;'$_в;5_п_ФЌЇЛЇ�Ёп'*">В����ЄЊџ)5ЕЌЊЅ�ЌЪИR5,/ЏЅФ**)%8DJ_>Е���в;)$)>Ќ��ЁИФ5"$!%"/Ї����В855*5ИRJв88пИЌФФЄ�Њџ5"*JЄ�����Ќ;'8ФЕЇ��ЇЌв_8,_ЛИ;%*)%/DRD_��ВџD/'!'$;Ї��ЊОФ;)'))8ЊЂЂ�ЄЛ_;5,;ОЛJDD8;ЪВВФЛЇ�ЏJ/!*JЄ����ЂВ8$;ФИЇ�ЁЉЏп_5-_ЛЛ8%,)'-D_DџЌ��ИџJ2*")$;Є��ЌОФD,*-,!DЊЅЇЁЅОФJ8-%DОвJD58JЛЌИЛВЉЂИ>-!-_Є����ЇФ5!%RЛИЇ�ЂФџ_52_Вв82,)',Jџ_Е��ЂО_D/$",ЪЄ�ЄИ_;2*-%$5ФЉЇЉВО_>2%%*пЕФвD58RФЕЪвЏЄЉЪ>-)!,5џЌ��ЂЂЌЪ8')%-J_ЛЉЄЇИЪФR>>џЪ_;2-)-;JRЪЌ�ЂВФџJ5'$$"/ЪЊЅЌЏИОп>8,)*>ОФЪИВВвJD5*)JЕВО_>;5Jв_RФЌЂвD2)!$**2џЉ��ЁЊИп22)"")8DџЕЌЌЛФОпRDRФФпJ8-''2;RИЇЁЅВФв_/*,*,5ФВИОИИ_>5-,2џвпЪОВОпџD5-;ЪИОџD;/5JR_ЪЅЉЕвD5,,5/,2вЌЉЅВЛJ;2*%'5JџЪОВЛЪпвп>DпЪЪ_D;/)-DџФВЉЉИв_8,-,*,JОЛВИЕЕпJ5-*-JџџвФЕИОвпJ2;вФФвџ_J8;JJ_ЪЏЏИЪJ>5/585->ФИЌВЕИвR82,*2>џЪОЕИЛФЪвDD_пввџR>-*5DџОЌЌЕФџ>/-/-*2RвЛЛЕЏЛв8,ФОЇ����ЅЊJ/D*JЊ��ЄВ';'*'Л�ЅЉ����ЁJЏ*	)-Џ�����2;>RRИЌ��ФD�ЄЉ��Е
	R�������D2%

R��Ќ),2ЊRв'D���ЇЄD>>пЂВ8%)��J-О�џJО8Ѕ�Ќ22���Ъ����J,J


$����ЇЕ�ИR5!-%;џЏ�О,ОЕ�Ѕ"JО,%$ЪИ�;8)_���Ќ8),2Њ�Є����в>/)����Е�Ї*,Љ�����Ќ>_ЁRJDО$/���DJ���Ѕ-)'8В�����Љ>)���Є%"DDпЌОвЉЕп�Ё,Ї22��ЂО)!-ЊЁЄ*J��ЂR5
)Л�������Ф,	Њ���ЅВЊЛвJD)R5$'вЌЊ>��ЂФЉ�Л*,
%ЛЕ$Љ����_5"-���ЊЊЅФR2,;5$����ЉЌ)*/*>Џџ/пО��џп__ИЄ�Ъ5"%��пЉ�����Ъ-
+Л������Џ_$R_Љ�О)$DЛЄВ)В�ЉФ,>_вR;'*%����в2*вЁЇЄ��ЄЛ_*"����ЏЅп%*;ЪЪ���В5впЛЕ_ВЌ/џ��ЌЁ��ЁЪ)8

$>_Ђ����ЂО-Џ���Фџ,,8ФЛ$)RОџ2D��Ќ5D58Ъ_ЄЊ>2"!JЂЇИвФ��ЅЪ
,JЂ���Ё��О--�����Љпп52/D8'$/ЇвDЌИЪRЏ�ЂЊФR-пФ)>Ъ����Ф$
Е����ИО;$)!)ОЄ����_$%>)*ЪЇпRФЉЏвЕО_5Љ�ЉЌ/!	в�Ї������п2
/Ѕ�����ЇФ)*')RЏИЌЌ-8DЌЊ>ОЊИ2$8,пЏв,)DЂЁЅЕИџ$>JЪЁЄ��ИR*О�����Ђ_>)%$>Є����ЏООD2)-Ов%8�ЄЏИ����ФВ2
RЉ�����Є/%'п����в/%5J!%;JЛппВ�ЂОЪ5,$!',ЊОФ5)8ВЉЛЕ��ЅJ2
п������ЂJ-�����ЕџФв,*!5Ф2$")-*ЛЊОВЅЂЁ�ЕвD>DЪJ_Ё��ЊЊп*"%_Ё��ЊИЪ-*%%,!)пЊЇ���Ъ>пJп8/JЏЊЌ��ЊввпФJ2-
5Ф������ЂЊ8
џ������пD-"%_вИ�ЏJ8ФФ_R>ИЅп5>,'ФВJ*$/�ЉИ,!)џЕЂ��ЄЏџ%п������џ**-RЛЇ��ЄвОФ_J)RВЪ;$-ЕЇЌЅ���ЄЛФ2!$2Ї���Ё�И-/8*!вЅ��ВR-,JD5;JЪвФJ_ВЕИЪвџ8!"8пЪJ>п5-вЌ�ЏџВЇЊЪ8)*JЅ����ЁЇD"!%)*ЛЂ���ЉВВџ>!-/222;>пЛИЛОФЪЕЏВЕџ/%JО8->ИЅВЊЕџ8*)$/Ё�ЇЛ5)'%*)'2ЪВЉ��ЅЪ>>8),J_;ОЏЏЊЏЕЕ_DџвОФџD'%ЪВЉ����ЇИ>)""вЂЅЄ��ЏФ;DJ,'%8џпЕЏп;>>_џ>JОЕИ_RD-DЪЕО>/5ФФRвЛв;2/;_пФЛЊЊИЛR'*%'*,/DЏ��ЄЅЏ_J;2/%$/25ОЄЁЇВЕЛО_28џR85'$-8џЛЛЕЛЊЊОЛИџ2*),2,,DвФОЉЅОЪЪ_5)!8ЪЛЕЛпJD;;5;DRОЛпЕЏЛФппJ5%!,;JџОЕФОИЕЛпDDФИЪп>>5))'-DЪЌЁЄЌЊЏп8-8/$!5џЪЅЅЕФвJ>//;__Rџџџџ_пџвЪвФФпв_D2,8пФЪџJппJRJпRD_RџJRФВЏЪв_;-,;__RRОЛФИВЕџJпџ>%%-855_ЪЕЕЉО_DJ>DD>;/28RпФВЏЊВЛФJD55;52,/JвФОИВВЛR__>//;>_пОВФпRџ_25RџџџџџпRпЕОџ88D58DџЪвџ_џџJR_ппввџRџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ
--- a/tftp/SIPDefault.cnf
+++ b/tftp/SIPDefault.cnf
@ -0,0 +1,230 @@
+# SIP Default Generic Configuration File
+
+# Image Version
+image_version: P0S3-8-12-00
+
+# Proxy Server (Can be dotted IP or FQDN)
+proxy1_address: ""
+proxy2_address: ""
+proxy3_address: ""
+proxy4_address: ""
+proxy5_address: ""
+proxy6_address: ""
+
+# Proxy Server Port (default - 5060)
+proxy1_port: ""
+proxy2_port: ""
+proxy3_port: ""
+proxy4_port: ""
+proxy5_port: ""
+proxy6_port: ""
+
+# Proxy Registration (0-disable (default), 1-enable)
+proxy_register: 0
+
+# Phone Registration Expiration [1-3932100 sec] (Default - 3600)
+timer_register_expires: 3600
+
+# Codec for media stream (g711ulaw (default), g711alaw, g729a)
+preferred_codec: g711alaw
+
+# Inband DTMF Settings (0-disable, 1-enable (default))
+dtmf_inband: 0
+
+# Out of band DTMF Settings (none-disable, avt-avt enable (default), avt_always-always avt)
+dtmf_outofband: avt
+
+# DTMF dB Level Settings (1-6dB down, 2-3db down, 3-nominal (default), 4-3db up, 5-6dB up)
+dtmf_db_level: 3
+
+# SIP Timers
+timer_t1: 500; Default 500 msec
+timer_t2: 4000; Default 4 sec
+sip_retx: 10; Default 10
+sip_invite_retx: 6; Default 6
+timer_invite_expires: 180; Default 180 sec
+
+####### New Parameters added in Release 2.0 #######
+
+# Dialplan template (.xml format file relative to the TFTP root directory)
+dial_template: Dialplan
+
+# TFTP Phone Specific Configuration File Directory
+tftp_cfg_dir: Phones/; Example: ./sip_phone/
+
+# Time Server (There are multiple values and configurations refer to Admin Guide for Specifics)
+sntp_server: ""; SNTP Server IP Address
+sntp_mode: unicast; anycast (default), unicast, multicast, or directedbroadcast
+time_zone: CET; Time Zone Phone is in
+dst_offset: 1; Offset from Phone's time when DST is in effect
+dst_start_month: April; Month in which DST starts
+dst_start_day: ""; Day of month in which DST starts
+dst_start_day_of_week: Sun; Day of week in which DST starts
+dst_start_week_of_month: 1; Week of month in which DST starts
+dst_start_time: 02; Time of day in which DST starts
+dst_stop_month: Oct; Month in which DST stops
+dst_stop_day: ""; Day of month in which DST stops
+dst_stop_day_of_week: Sunday; Day of week in which DST stops
+dst_stop_week_of_month: 8; Week of month in which DST stops 8=last week of month
+dst_stop_time: 2; Time of day in which DST stops
+dst_auto_adjust: 1; Enable(1-Default)/Disable(0) DST automatic adjustment
+time_format_24hr: 1; Enable(1 - 24Hr Default)/Disable(0 - 12Hr)
+
+# Do Not Disturb Control (0-off (default), 1-on, 2-off with no user control, 3-on with no user control)
+dnd_control: 2
+
+# Caller ID Blocking (0-disabled, 1-enabled, 2-disabled no user control, 3-enabled no user control)
+callerid_blocking: 0; (Default is 0 - disabled and sending all calls as anonymous)
+
+# Anonymous Call Blocking (0-disabled, 1-enabled, 2-disabled no user control, 3-enabled no user control)
+anonymous_call_block: 0; (Default is 0 - disabled and blocking of anonymous calls)
+
+# DTMF AVT Payload (Dynamic payload range for AVT tones - 96-127)
+dtmf_avt_payload: 101; Default 101
+
+# Sync value of the phone used for remote reset
+# Value against which to compare the value in the syncinfo.xml file before a remote reboot is performed
+sync: 1; Default 1
+
+####### New Parameters added in Release 2.1 #######
+
+# Backup Proxy Support
+proxy_backup: 0.0.0.0; Dotted IP of Backup Proxy
+proxy_backup_port: ""; Backup Proxy port (default is 5060)
+
+# Emergency Proxy Support
+proxy_emergency: 0.0.0.0; Dotted IP of Emergency Proxy
+proxy_emergency_port: ""; Emergency Proxy port (default is 5060)
+
+# Configurable VAD option (voice activation detection)
+enable_vad: 0; VAD setting 0-disable (Default), 1-enable
+
+####### New Parameters added in Release 2.2 ######
+
+# NAT/Firewall Traversal
+nat_enable: 1; 0-Disabled (default), 1-Enabled
+nat_address: ""; WAN IP address of NAT box (dotted IP or DNS A record only)
+voip_control_port: 5060; UDP port used for SIP messages (default - 5060)
+start_media_port: 16384; Start RTP range for media (default - 16384)
+end_media_port: 32766; End RTP range for media (default - 32766)
+nat_received_processing: 1; 0-Disabled (default), 1-Enabled
+
+# Outbound Proxy Support
+outbound_proxy: ""; restricted to dotted IP or DNS A record only
+outbound_proxy_port: ""; default is 5060
+
+####### New Parameter added in Release 3.0 #######
+
+# Allow for the bridge on a 3way call to join remaining parties upon hangup
+cnf_join_enable: 1; 0-Disabled, 1-Enabled (default)
+
+####### New Parameters added in Release 3.1 #######
+
+# Allow Transfer to be completed while target phone is still ringing
+semi_attended_transfer: 1; 0-Disabled, 1-Enabled (default)
+
+# Telnet Level (enable or disable the ability to Telnet into the phone)
+telnet_level: 2; 0-Disabled (default), 1-Enabled, 2-Privileged
+
+####### New Parameters added in Release 4.0 #######
+
+# XML URLs
+services_url: ""; URL for external Phone Services
+directory_url: ""; URL for external Directory location
+logo_url: ""; URL for branding logo to be used on phone display
+
+# HTTP Proxy Support
+http_proxy_addr: ""; Address of HTTP Proxy server
+http_proxy_port: ""; Port of HTTP Proxy Server (80-default)
+
+# Dynamic DNS/TFTP Support
+dyn_dns_addr_1: ""; restricted to dotted IP
+dyn_dns_addr_2: ""; restricted to dotted IP
+dyn_tftp_addr: ""; restricted to dotted IP
+
+# Remote Party ID
+remote_party_id: 0; 0-Disabled (default), 1-Enabled
+
+####### New Parameters added in Release 4.4 #######
+
+# Call Hold Ringback (0-off, 1-on, 2-off with no user control, 3-on with no user control)
+call_hold_ringback: 0; Default 0 (Call Hold Ringback feature is off)
+
+####### New Parameters added in Release 6.0 #######
+
+# Dialtone Stutter for MWI
+stutter_msg_waiting: 1; 0-Disabled (default), 1-Enabled
+
+# RTP Call Statistics (SIP BYE/200 OK message exchange)
+call_stats: 1; 0-Disabled (default), 1-Enabled
+
+####### Other parameters #######
+
+date_format: D/M/Y; Default is M/D/Y
+dscpForAudio: 184; Differentiated Services Code Point (DSCP) specifies the class of service for each audio packet
+garp_enable: 0; Gratuitous ARP
+language: english; English is the only value that is currently supported
+local_cfwd_enable: 1; Whether the phone can do local call forwarding
+messages_uri: ""; Configures the voice-mail number that is dialed when the messages button is pressed
+network_media_type: Auto; Auto (default), Full100, Half100, Full10, Half10
+network_port2_type: Hub/Switch; Hub/Switch (default), PC (Specifying the PC option and then connecting port 2 to a switch results in spanning-tree loops and network confusion)
+rfc_2543_hold: 0; 0 (default)
+sip_max_forwards: 70; The phone uses the value specified in this parameter in the Max-Forwards header of the SIP requests that it generates
+timer_register_delta: 5; Configures the time interval at which reregistration will occur
+
+####### Phone specific ######
+
+autocomplete: 1; Configures automatic completion of numbers
+call_waiting: 1;
+phone_label: ""; Text desired to be displayed in upper right corner
+#phone_password: cisco; Password to be used for console or telnet login (default: cisco)
+phone_prompt: "SIP Phone"; The prompt that will be displayed on console and telnet (default: "SIP Phone")
+user_info: none; User classification used when Registering [none (default), phone, ip]
+
+line1_authname: ""
+line2_authname: ""
+line3_authname: ""
+line4_authname: ""
+line5_authname: ""
+line6_authname: ""
+line1_contact: ""
+line2_contact: ""
+line3_contact: ""
+line4_contact: ""
+line5_contact: ""
+line6_contact: ""
+line1_displayname: ""
+line2_displayname: ""
+line3_displayname: ""
+line4_displayname: ""
+line5_displayname: ""
+line6_displayname: ""
+line1_name: ""
+line2_name: ""
+line3_name: ""
+line4_name: ""
+line5_name: ""
+line6_name: ""
+line1_password: ""
+line2_password: ""
+line3_password: ""
+line4_password: ""
+line5_password: ""
+line6_password: ""
+line1_shortname: ""
+line2_shortname: ""
+line3_shortname: ""
+line4_shortname: ""
+line5_shortname: ""
+line6_shortname: ""
+
+call_manager1_addr: ""
+call_manager2_addr: ""
+call_manager3_addr: ""
+call_manager4_addr: ""
+call_manager5_addr: ""
+call_manager1_sip_port: ""
+call_manager2_sip_port: ""
+call_manager3_sip_port: ""
+call_manager4_sip_port: ""
+call_manager5_sip_port: ""
--- a/tftp/syncinfo.xml
+++ b/tftp/syncinfo.xml
@ -0,0 +1,3 @@
+<SYNCINFO>
+	<IMAGE VERSION="*" SYNC="2"/>
+</SYNCINFO>
--- a/tftp_reflash/XMLDefault.cnf.xml
+++ b/tftp_reflash/XMLDefault.cnf.xml
@ -0,0 +1,26 @@
+<Default>
+	<callManagerGroup>
+		<members>
+			<member priority="0">
+				<callManager>
+					<ports>
+						<ethernetPhonePort>2000</ethernetPhonePort>
+						<mgcpPorts>
+							<listen>2427</listen>
+							<keepAlive>2428</keepAlive>
+						</mgcpPorts>
+					</ports>
+					<processNodeName></processNodeName>
+				</callManager>
+			</member>
+		</members>
+	</callManagerGroup>
+	<loadInformation8 model="IP Phone 7940">P0S3-8-12-00</loadInformation8>
+	<loadInformation7 model="IP Phone 7960">P0S3-8-12-00</loadInformation7>
+	<authenticationURL></authenticationURL>
+	<directoryURL></directoryURL>
+	<idleURL></idleURL>
+	<informationURL></informationURL>
+	<messagesURL></messagesURL>
+	<servicesURL></servicesURL>
+</Default>
--- a/toilet_paper.sh
+++ b/toilet_paper.sh
@ -0,0 +1,25 @@
+#!/bin/sh
+
+cd "$(dirname "$0")"
+line="$1"
+stamp=/tmp/last_tp
+
+case "$line" in
+	32)
+		snd="tp_prizemi"
+		;;
+	44)
+		snd="tp_prvni"
+		;;
+	49)
+		snd="tp_druhe"
+		;;
+	*)
+		exit
+		;;
+esac
+
+
+if find "$stamp" -mmin -120 | grep -q .; then echo "Too soon"; exit 2; fi
+/opt/ksp/ann_play.sh /opt/ksp/sounds/$snd.wav
+touch "$stamp"
--- a/tts.sh
+++ b/tts.sh
@ -0,0 +1,3 @@
+#!/bin/bash
+
+curl "https://translate.google.com/translate_tts?ie=UTF-8&q="$(perl -MURI::Escape -e 'print uri_escape($ARGV[0])' "$1")"&tl=cs&client=tw-ob" -H 'Referer: http://translate.google.com/' -H 'User-Agent: stagefright/1.2 (Linux;Android 5.0)' |ffmpeg -i - -ar 8000 -ac 1 -y "$2"
--- a/wc_thanks.sh
+++ b/wc_thanks.sh
@ -0,0 +1,5 @@
+#!/bin/bash
+
+cd "$(dirname "$0")"
+
+./ann_play_unicast.sh 32 /opt/ksp/sounds/wc_thanks
--- a/webapp/directory.psgi
+++ b/webapp/directory.psgi
@ -0,0 +1,157 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use utf8;
+use feature 'unicode_strings';
+
+use Encode;
+use Text::Unidecode;
+use URI::Escape;
+
+my %directory;
+open my $fh1, '<', '/opt/ksp/www/directory.txt' or die "Cannot open file directory.txt: $!\n";
+open my $fh2, '<', '/opt/ksp/www/directory_external.txt' or die "Cannot open file directory_external.txt: $!\n";
+for my $fh ($fh1, $fh2) {
+	while (<$fh>) {
+		chomp;
+		next if /^#/;
+		next unless /^\s*(.*?)\s*=\s*([^=]*?)\s*$/;
+		my ($key, $value) = ($1, $2);
+		next unless length $key and length $value;
+		$directory{decode('UTF-8', $key)} = decode('UTF-8', $value);
+	}
+}
+close $fh1;
+close $fh2;
+
+sub search {
+	my ($keyword, $page) = @_;
+	my @keys = sort keys %directory;
+	@keys = grep /\Q$keyword\E/i, @keys if length $keyword;
+	splice @keys, 0, $page * 32;
+	my $next = splice @keys, 32;
+	return $next, map { $_ => $directory{$_} } @keys;
+}
+
+sub escape {
+	my ($text) = @_;
+	$text =~ s/&/&amp;/g;
+	$text =~ s/</&lt;/g;
+	$text =~ s/>/&gt;/g;
+	$text =~ s/\x00//g;
+	$text =~ s/['"]/_/g; # XML parser does not accept input which contains "&quot;" or "&apos;"
+	$text =~ s/\x86/_/g; # IP Phone firmware crashes when input contains byte 0x86
+	return $text;
+}
+
+sub string {
+	return escape(encode('ISO-8859-1', $_[0], sub { unidecode(chr($_[0])) }));
+}
+
+my $app = sub {
+	my ($env) = @_;
+
+	return [ '405' ] if $env->{REQUEST_METHOD} !~ /^(?:HEAD|GET)$/;
+
+	my %raw_args = map { (split /=/, $_, 2)[0,1] } split /&/, $env->{QUERY_STRING} // '';
+	my %args = map { decode('ISO-8859-1', uri_unescape($_ // '')) } %raw_args;
+	my $keyword = $args{keyword} // '';
+	my $page = $args{page} // '';
+	$page = 0 unless $page =~ /^[0-9]+$/;
+
+	my $current_url = $env->{'psgi.url_scheme'} . '://' . $env->{HTTP_HOST} . $env->{PATH_INFO};
+
+	if (not $args{search}) {
+		return [
+			'200',
+			[ 'Content-Type' => 'text/xml; charset="ISO-8859-1"' ],
+			[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneInput>
+	<Title>Search for an entry</Title>
+	<Prompt>Enter a search keyword</Prompt>
+	<URL>$current_url?search=1</URL>
+	<InputItem>
+		<DisplayName>Keyword</DisplayName>
+		<QueryStringParam>keyword</QueryStringParam>
+		<InputFlags></InputFlags>
+		<DefaultValue></DefaultValue>
+	</InputItem>
+</CiscoIPPhoneInput>
+EOD
+			],
+		];
+	}
+
+	my $title = length $keyword ? 'Search Result' : 'External Directory';
+
+	if ($args{end}) {
+		return [
+			'200',
+			[ 'Content-Type' => 'text/xml; charset="ISO-8859-1"' ],
+			[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneText>
+	<Title>$title</Title>
+	<Text>No more entries</Text>
+</CiscoIPPhoneText>
+EOD
+			],
+		];
+	}
+
+	my ($next, %search_result) = search($keyword, $page);
+
+	if (not keys %search_result) {
+		my $text = length $keyword ? 'No matching entry' : 'Directory is empty';
+		return [
+			'200',
+			[ 'Content-Type' => 'text/xml; charset="ISO-8859-1"' ],
+			[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneText>
+	<Title>$title</Title>
+	<Text>$text</Text>
+</CiscoIPPhoneText>
+EOD
+			]
+		];
+	}
+
+	my @next_args;
+	push @next_args, 'search=1';
+	push @next_args, "keyword=$raw_args{keyword}" if length $keyword;
+	push @next_args, 'page=' . ($page+1) if $next;
+	push @next_args, 'end=1' unless $next;
+	my $next_url = $current_url . '?' . (join '&', @next_args);
+
+	my $directories = '';
+	foreach (sort keys %search_result) {
+		my $key = $_;
+		my $name = string($key);
+		my $telephone = string($search_result{$key});
+		$directories .= <<"EOD";
+	<DirectoryEntry>
+		<Name>$name</Name>
+		<Telephone>$telephone</Telephone>
+	</DirectoryEntry>
+EOD
+	}
+
+	return [
+		'200',
+		[
+			'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+			'Refresh' => "0; url=$next_url",
+		],
+		[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneDirectory>
+	<Title>$title</Title>
+	<Prompt>Select an entry</Prompt>
+$directories</CiscoIPPhoneDirectory>
+EOD
+		]
+	];
+};
--- a/webapp/directory.service
+++ b/webapp/directory.service
@ -0,0 +1,4 @@
+[Service]
+ExecStart=/usr/bin/uwsgi --ini=/opt/ksp/webapp/directory.uwsgi
+[Install]
+WantedBy=multi-user.service
--- a/webapp/directory.uwsgi
+++ b/webapp/directory.uwsgi
@ -0,0 +1,6 @@
+[uwsgi]
+socket=/tmp/directory.sock
+plugin=psgi
+psgi=/opt/ksp/webapp/directory.psgi
+chmod-socket=666
+
--- a/webapp/hraj.pl
+++ b/webapp/hraj.pl
@ -0,0 +1,33 @@
+
+
+my $app = sub {
+	my ($env) = @_;
+	my $path = $env->{PATH_INFO};
+	my $meth = $env->{REQUEST_METHOD};
+	if ($path =~ m|^/hraj/?$| && $meth eq "GET") {
+		my $r = '<html><body>';
+		$r .= qq[<div><form action="/hraj/stop" method="POST"><button style="font-size: 28px;" type="submit">Zastavit vše</button></form></div>];
+		opendir my $dir, "/opt/ksp/znelky" or die "Cannot open directory: $!";
+		for (readdir $dir) {
+			next if /^\./;
+			$r .= qq[<div><form action="/hraj/play/$_" method="POST" onsubmit="return confirm('Přehrát $_?')"><button style="font-size: 28px;" type="submit">$_</button></form></div>];
+		}
+		closedir $dir;
+		$r .= '</body></html>';
+		return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$r]];
+	} elsif ($path =~ m|^/hraj/play/(.*)$| && $meth eq "POST") {
+		system "/opt/ksp/ann_play.sh", "/opt/ksp/znelky/$1";
+		my $r = '<html><body style="font-size: large; ">';
+		$r .= qq[Přehrávám $1<br/><a href="/hraj">Zpět</a>];
+		$r .= '</body></html>';
+		return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$r]];
+	} elsif ($path =~ m|^/hraj/stop$| && $meth eq "POST") {
+		system "/opt/ksp/ann_stop.sh";
+		my $r = '<html><body style="font-size: large; ">';
+		$r .= qq[Zastaveno<br/><a href="/hraj">Zpět</a>];
+		$r .= '</body></html>';
+		return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$r]];
+	} else {
+		return [404, [], []];
+	}
+}
--- a/webapp/hraj.service
+++ b/webapp/hraj.service
@ -0,0 +1,4 @@
+[Service]
+ExecStart=/usr/bin/uwsgi --ini=/opt/ksp/webapp/hraj.uwsgi
+[Install]
+WantedBy=multi-user.service
--- a/webapp/hraj.uwsgi
+++ b/webapp/hraj.uwsgi
@ -0,0 +1,7 @@
+[uwsgi]
+
+socket=/tmp/hraj.sock
+chmod-socket=666
+plugin=psgi
+psgi=/opt/ksp/webapp/hraj.pl
+
--- a/webapp/services.psgi
+++ b/webapp/services.psgi
@ -0,0 +1,676 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use utf8;
+use feature 'unicode_strings';
+
+use DBI;
+use Encode;
+use Net::SIP;
+use Net::SIP::Util qw(laddr4dst INETSOCK ip_sockaddr2parts sip_uri2parts);
+use Socket;
+use Text::Unidecode;
+use URI::Escape;
+
+my $dbfile = '/tmp/messages.db'; # TODO
+
+my $dbh = DBI->connect("DBI:SQLite:$dbfile", undef, undef, { PrintError => 0, RaiseError => 1, sqlite_unicode => 1 });
+$dbh->do('CREATE TABLE IF NOT EXISTS messages(id INTEGER PRIMARY KEY AUTOINCREMENT, r INT NOT NULL DEFAULT 0, f TEXT NOT NULL, t TEXT NOT NULL, m TEXT NOT NULL)');
+$dbh->do('CREATE INDEX IF NOT EXISTS idx ON messages(r, t)');
+
+my $mlsnikfile = '/opt/ksp/mlsnik.db';
+my $mlsnik_dbh = DBI->connect("DBI:SQLite:$mlsnikfile", undef, undef, { PrintError => 0, RaiseError => 1, sqlite_unicode => 1 });
+$mlsnik_dbh->do('CREATE TABLE IF NOT EXISTS nakup(id INTEGER PRIMARY KEY AUTOINCREMENT, meno TEXT NOT NULL, tovar TEXT NOT NULL, cena INT NOT NULL)');
+$mlsnik_dbh->do('CREATE INDEX IF NOT EXISTS idx ON nakup(meno)');
+
+sub escape {
+	my ($text) = @_;
+	$text =~ s/&/&amp;/g;
+	$text =~ s/</&lt;/g;
+	$text =~ s/>/&gt;/g;
+	$text =~ s/\x00//g;
+	$text =~ s/['"]/_/g; # XML parser does not accept input which contains "&quot;" or "&apos;"
+	$text =~ s/\x86/_/g; # IP Phone firmware crashes when input contains byte 0x86
+	return $text;
+}
+
+sub string {
+	return escape(encode('ISO-8859-1', $_[0], sub { unidecode(chr($_[0])) }));
+}
+
+my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+my @day_names = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
+sub sip_date {
+	my @time = gmtime(time());
+	return sprintf('%s, %02u %s %04u %02u:%02u:%02u GMT', $day_names[$time[6]], $time[3], $month_names[$time[4]], $time[5] + 1900, $time[2], $time[1], $time[0]);
+}
+
+sub send_sip_message {
+	my ($from_ip, $to, $message) = @_;
+
+	# HACK: fill sender
+	$from_ip =~ /\.([0-9]+)$/;
+	my $user = $1 // 'message';
+	my $domain = '172.16.0.1:5062';
+	$to .= "\@$domain";
+
+	my ($host, $recipient) = sip_uri2parts($to);
+	($host, $recipient) = sip_uri2parts("$to\@$domain") unless defined $host;
+	return '400 Bad Request' unless defined $host;
+
+	my $port = ($host =~ s/:([0-9]+)$//) ? $1 : undef;
+
+	my $ip = inet_aton($host);
+	return "478 Unresolvable destination" unless defined $ip;
+	my $addr = inet_ntoa($ip);
+
+	my $laddr = laddr4dst($addr);
+	return '478 Unresolvable destination' unless $laddr;
+
+	my $sock = INETSOCK(Proto => 'udp', LocalAddr => $laddr, LocalPort => 0);
+	return "500 Cannot create socket: $!" unless $sock;
+
+	my $lport = (ip_sockaddr2parts(getsockname($sock)))[1];
+
+	my $leg = Net::SIP::Leg->new(sock => $sock);
+	return "500 Cannot create leg: $!" unless $leg;
+
+	my $ua = Net::SIP::Simple->new(from => "<sip:$user\@$domain>", leg => $leg);
+	return "500 Cannot create SIP user agent: $!" unless $ua;
+
+	my ($stop, $code, $text);
+
+	$ua->{endpoint}->new_request(
+		'MESSAGE',
+		{ from => $ua->{from}, to => ('<sip:' . (defined $recipient ? "$recipient\@" : '') . $host . (defined $port ? ":$port" : '') . '>') },
+		sub {
+			(undef, undef, undef, $code, my $packet) = @_;
+			(undef, $text) = $packet ? $packet->as_parts : ();
+			$stop = 1;
+		},
+		encode('UTF-8', $message),
+		uri => ('sip:' . (defined $recipient ? "$recipient\@" : '') . $addr . (defined $port ? ":$port" : '')),
+		Contact => "<sip:$user\@$laddr:$lport>",
+		Date => sip_date(),
+		'Content-Type' => 'text/plain',
+		'User-Agent' => 'CMXML HTTP Message Sender',
+	);
+
+	$ua->loop(10, \$stop);
+	$ua->cleanup();
+
+	return '408 Request Timeout' unless $stop;
+	return '400 Bad Request' unless $code and $text;
+	return "$code $text" unless $code eq '200';
+
+	return ''; # no error
+}
+
+sub send_message {
+	my ($env, $service, $args, $current_url, $raw_args) = @_;
+
+	my $recipient = $args->{recipient} // '';
+	my $message = $args->{message} // '';
+	my $send = $args->{send};
+
+	if (not $send) {
+		$recipient = string($recipient);
+		$message = string($message);
+		return [
+			'200',
+			[
+				'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+				Expires => '-1',
+			],
+			[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneInput>
+	<Title>Send a new text message</Title>
+	<Prompt>Send a new text message</Prompt>
+	<URL>$current_url?service=$service&amp;send=1</URL>
+	<InputItem>
+		<DisplayName>Recipient</DisplayName>
+		<QueryStringParam>recipient</QueryStringParam>
+		<InputFlags>T</InputFlags>
+		<DefaultValue>$recipient</DefaultValue>
+	</InputItem>
+	<InputItem>
+		<DisplayName>Message</DisplayName>
+		<QueryStringParam>message</QueryStringParam>
+		<InputFlags></InputFlags>
+		<DefaultValue>$message</DefaultValue>
+	</InputItem>
+</CiscoIPPhoneInput>
+EOD
+			]
+		];
+	}
+
+	my $error = '';
+	my $timeout = 0;
+
+	if (not length $recipient) {
+		$error = "Recipient was not specified";
+		$timeout = 3;
+	} elsif (not length $message) {
+		$error = "Text of a message was not specified";
+		$timeout = 3;
+	} else {
+		$error = send_sip_message($env->{REMOTE_ADDR}, $recipient, $message);
+	}
+
+	my $redirect_url = "$current_url?service=$service";
+
+	if (length $error) {
+		$redirect_url .= '&recipient=' . $raw_args->{recipient} if length $recipient;
+		$redirect_url .= '&message=' . $raw_args->{message} if length $message;
+	}
+
+	my $text = length $error ? string("ERROR: $error") : 'Message was successfully sent';
+	return [
+		'200',
+		[
+			'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+			Expires => '-1',
+			Refresh => "$timeout; url=$redirect_url",
+		],
+		[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneText>
+	<Title>Send a new text message</Title>
+	<Text>$text</Text>
+</CiscoIPPhoneText>
+EOD
+		]
+	];
+}
+
+sub read_message {
+	my ($env, $service, $args, $current_url) = @_;
+
+	my $next = $args->{next};
+	$next = 0 unless $next;
+	$next = 1 if $next !~ /^[0-9]+$/;
+
+	# HACK: get phone number
+	my $recipient = $env->{REMOTE_ADDR};
+	$recipient =~ s/.*\.//;
+
+	$dbh->do('UPDATE messages SET r=1 WHERE id < ? AND r = 0 AND t = ?', undef, $next, $recipient);
+
+	my ($id, $from, $message) = $dbh->selectrow_array('SELECT id, f, m FROM messages WHERE r = 0 AND t = ? ORDER BY id LIMIT 1', undef, $recipient);
+
+	# HACK: strip SIP domain
+	(undef, $from) = sip_uri2parts($from);
+
+	$next = $id+1 if defined $id;
+
+	my $timeout = defined $id ? 0 : 10;
+	my $title = defined $id ? string("From: " . $from) : "Waiting for a message...";
+	my $prompt = defined $id ? "Show next message" : "No more unread text messages";
+	my $text = defined $id ? string($message) : '';
+
+	return [
+		'200',
+		[
+			'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+			Expires => '-1',
+			Refresh => "$timeout; url=$current_url?service=$service&next=$next",
+		],
+		[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneText>
+	<Title>$title</Title>
+	<Prompt>$prompt</Prompt>
+	<Text>$text</Text>
+</CiscoIPPhoneText>
+EOD
+		]
+	];
+}
+
+my %names;
+my %orgs;
+my %items;
+{
+open my $fh, '<:utf8', '/opt/ksp/www/osoby.txt' or die "Cannot open file osoby.txt: $!\n";
+%names = map { chomp($_); my $tmp = unidecode(lc $_); $tmp =~ s/[^a-z0-9]+/_/g; ($tmp => $_) } <$fh>;
+close $fh;
+}
+{
+open my $fh, '<:utf8', '/opt/ksp/www/orgovia.txt' or die "Cannot open file orgovia.txt: $!\n";
+%orgs = map { chomp($_); my $tmp = unidecode(lc $_); $tmp =~ s/[^a-z0-9]+/_/g; ($tmp => $_) } <$fh>;
+close $fh;
+}
+{
+# FORMAT: ascii_query_param TAB Unicode name TAB price Kc TAB available count
+open my $fh, '<:utf8', '/opt/ksp/www/tovar.txt' or die "Cannot open file tovar.txt: $!\n";
+%items = map { chomp($_); my ($param, $name, $price, $count) = split /\t+/; ($param => [$name, $price, $count]) } <$fh>;
+close $fh;
+}
+
+sub mlsnik {
+	my ($env, $service, $args, $current_url) = @_;
+	my $title = string('Mlsník');
+
+	my $sub = $args->{sub} // '';
+	my $name = $args->{name} // '';
+	my $item = $args->{item} // '';
+	my $confirm = $args->{confirm};
+	my $org = $args->{org} // '0';
+
+	my $string;
+	my $refresh;
+
+	if ($sub eq 'utrata') {
+		$title .= string(' - Útrata');
+		if (not length $name) {
+			my $prompt = 'Vyberte osobu';
+			$string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+	<Prompt>$prompt</Prompt>
+EOD
+			if (not $org) {
+				for my $name (sort { $names{$a} cmp $names{$b} } keys %names) {
+					my $info = string($names{$name});
+					$string .= <<"EOD";
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=utrata&amp;org=0&amp;name=$name</URL>
+	</MenuItem>
+EOD
+				}
+				$string .= <<"EOD";
+	<MenuItem>
+		<Name>Orgovia</Name>
+		<URL>$current_url?service=$service&amp;sub=utrata&amp;org=1</URL>
+	</MenuItem>
+EOD
+				$string .= '</CiscoIPPhoneMenu>';
+			} else {
+				for my $name (sort { $orgs{$a} cmp $orgs{$b} } keys %orgs) {
+					my $info = string($orgs{$name});
+					$string .= <<"EOD";
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=utrata&amp;org=1&amp;name=$name</URL>
+	</MenuItem>
+EOD
+				}
+			}
+			$string .= '</CiscoIPPhoneMenu>';
+		} else {
+			$title = string('Útrata pre ' . ($org ? $orgs{$name} : $names{$name}));
+			$string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+EOD
+			my @items = $mlsnik_dbh->selectall_array('SELECT tovar,COUNT(tovar),SUM(cena) FROM nakup WHERE meno = ? GROUP BY tovar', undef, $name);
+			foreach (@items) {
+				my ($tovar, $count, $cena) = @{$_};
+				my $item = $items{$tovar}->[0];
+				my $info = string("${count}x $item ... $cena Kč");
+				$string .= <<"EOD";
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=utrata&amp;org=$org&amp;name=$name</URL>
+	</MenuItem>
+EOD
+			}
+			my $cena = $mlsnik_dbh->selectrow_array('SELECT SUM(cena) FROM nakup WHERE meno = ?', undef, $name);
+			$cena ||= 0;
+			my $info = string("Celkom ... $cena Kč");
+			$string .= <<"EOD";
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=utrata&amp;org=$org&amp;name=$name</URL>
+	</MenuItem>
+EOD
+			$string .= '</CiscoIPPhoneMenu>';
+		}
+	} elsif ($sub eq 'kupa') {
+		$title .= string(' - Kúpa');
+		my $prompt = 'Vyberte osobu';
+		$string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+	<Prompt>$prompt</Prompt>
+EOD
+		if (not length $name) {
+			if (not $org) {
+				for my $name (sort { $names{$a} cmp $names{$b} } keys %names) {
+					my $info = string($names{$name});
+					$string .= <<"EOD";
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=kupa&amp;org=0&amp;name=$name</URL>
+	</MenuItem>
+EOD
+				}
+				$string .= <<"EOD";
+	<MenuItem>
+		<Name>Orgovia</Name>
+		<URL>$current_url?service=$service&amp;sub=kupa&amp;org=1</URL>
+	</MenuItem>
+EOD
+			} else {
+				for my $name (sort { $orgs{$a} cmp $orgs{$b} } keys %orgs) {
+					my $info = string($orgs{$name});
+					$string .= <<"EOD";
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=kupa&amp;org=1&amp;name=$name</URL>
+	</MenuItem>
+EOD
+				}
+			}
+			$string .= '</CiscoIPPhoneMenu>';
+		} elsif (not length $item) {
+			$title = string("Kúpiť pre " . ($org ? $orgs{$name} : $names{$name}));
+			$string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+	<Prompt>Vyberte tovar</Prompt>
+EOD
+			for my $item (sort { $items{$a}->[0] cmp $items{$b}->[0] } keys %items) {
+				next unless $items{$item}->[2];
+				my $info = string($items{$item}->[0] . " - " . $items{$item}->[1] . " Kč");
+				$string .= <<"EOD";
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=kupa&amp;org=$org&amp;name=$name&amp;item=$item</URL>
+	</MenuItem>
+EOD
+			}
+			$string .= '</CiscoIPPhoneMenu>';
+		} elsif (not $confirm) {
+			my $prompt = string("Potvrdiť");
+			my $info = string(($org ? $orgs{$name} : $names{$name}) . " si zakupuje tovar " . $items{$item}->[0] . " za " . $items{$item}->[1] . " Kč");
+			$string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+	<Prompt>$prompt</Prompt>
+	<MenuItem>
+		<Name>$info</Name>
+		<URL>$current_url?service=$service&amp;sub=kupa&amp;org=$org&amp;name=$name&amp;item=$item&amp;confirm=1</URL>
+	</MenuItem>
+</CiscoIPPhoneMenu>
+EOD
+		} else {
+			$mlsnik_dbh->do('INSERT INTO nakup(meno, tovar, cena) VALUES(?, ?, ?)', undef, $name, $item, $items{$item}->[1]);
+
+			$refresh = "2; url=$current_url";
+			my $info = string("Potvrdené");
+			$string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneText>
+	<Title>$title</Title>
+	<Text>$info</Text>
+</CiscoIPPhoneText>
+EOD
+		}
+	} else {
+		my $prompt = string('Vyberte možnosť');
+		my $item1 = string('Kúpiť tovar');
+		my $item2 = string('Zobraziť útratu');
+		$string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+	<Prompt>$prompt</Prompt>
+	<MenuItem>
+		<Name>$item1</Name>
+		<URL>$current_url?service=$service&amp;sub=kupa</URL>
+	</MenuItem>
+	<MenuItem>
+		<Name>$item2</Name>
+		<URL>$current_url?service=$service&amp;sub=utrata</URL>
+	</MenuItem>
+</CiscoIPPhoneMenu>
+EOD
+	}
+
+	utf8::downgrade($string); # Workaround bug in PSGI
+
+	return [
+		'200',
+		[
+			'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+			Expires => '-1',
+			($refresh ? (Refresh => $refresh) : ()),
+		],
+		[
+			$string
+		]
+	];
+}
+
+sub weather {
+	my ($env, $service, $args, $current_url) = @_;
+	my $title = string('Weather Forecast');
+	my @items;
+	if (open my $fh, '<:utf8', '/tmp/weather.txt') {
+		chomp(@items = <$fh>);
+		close $fh;
+	} else {
+		push @items, 'ERROR: Cannot open /tmp/weather.txt';
+	}
+	push @items, 'ERROR: /tmp/weather.txt is empty' unless @items;
+	my $items;
+	foreach (@items) {
+		my $text = string($_);
+		$items .= <<"EOD";
+	<MenuItem>
+		<Name>$text</Name>
+		<URL>$current_url?service=$service</URL>
+	</MenuItem>
+EOD
+	}
+
+	my $string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+	<Prompt>Update</Prompt>
+$items</CiscoIPPhoneMenu>
+EOD
+	utf8::downgrade($string); # Workaround bug in PSGI
+
+	return [
+		'200',
+		[
+			'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+			Expires => '-1',
+			Refresh => "30; url=$current_url?service=$service",
+		],
+		[
+			$string
+		],
+	];
+}
+
+sub status {
+	my ($env, $service, $args, $current_url) = @_;
+	my $title = string('Error status log');
+	my @items;
+	if (open my $fh, '<:utf8', '/tmp/error.log') {
+		chomp(@items = <$fh>);
+		close $fh;
+	} else {
+		push @items, 'ERROR: Cannot open error log';
+	}
+	push @items, 'No errors' unless @items;
+	my $items;
+	foreach (@items) {
+		my $text = string($_);
+		$items .= <<"EOD";
+	<MenuItem>
+		<Name>$text</Name>
+		<URL>$current_url?service=$service</URL>
+	</MenuItem>
+EOD
+	}
+
+	my $string = <<"EOD";
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>$title</Title>
+	<Prompt>Update</Prompt>
+$items</CiscoIPPhoneMenu>
+EOD
+	utf8::downgrade($string); # Workaround bug in PSGI
+
+	return [
+		'200',
+		[
+			'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+			Expires => '-1',
+			Refresh => "30; url=$current_url?service=$service",
+		],
+		[
+			$string
+		],
+	];
+}
+
+my %services = (
+	send_message => [ 'Send a new text message' => \&send_message, 1 ],
+	read_message => [ 'Show unread text messages' => \&read_message, 2 ],
+	mlsnik => [ 'Mlsnik' => \&mlsnik, 3 ],
+	weather => [ 'Weather Forecast - yr.no' => \&weather, 4 ],
+	status => [ 'Error status log' => \&status, 5 ],
+);
+
+sub wc_paper {
+	my ($env, $service, $args, $current_url, $raw_args, $line) = @_;
+	my ($sec, $min, $hour) = localtime();
+	if ($hour >= 23 || $hour < 7) { # Night time
+		return [
+			'200',
+			[
+				'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+				Expires => '-1',
+			],
+			[
+				<<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneText>
+	<Title>WC: I need a toilet paper</Title>
+	<Text>This feature is disabled during night time.</Text>
+</CiscoIPPhoneText>
+EOD
+			],
+		];
+	}
+	if ($args->{confirm}) {
+		say STDERR "running: '/opt/ksp/toilet_paper.sh $line &'";
+		system("sh", "-c", "/opt/ksp/toilet_paper.sh $line &");
+	}
+	return [
+		'200',
+		[
+			'Content-Type' => 'text/xml; charset="ISO-8859-1"',
+			Expires => '-1',
+		],
+		[
+			$args->{confirm} ? <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneText>
+	<Title>WC: I need a toilet paper</Title>
+	<Text>Request for a new toilet paper was sent.</Text>
+</CiscoIPPhoneText>
+EOD
+			: <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>WC: I need a toilet paper</Title>
+	<Prompt>Confirm</Prompt>
+	<MenuItem>
+		<Name>Is a toilet paper really missing? Requeust for a new one.</Name>
+		<URL>$current_url?service=$service&amp;confirm=1</URL>
+	</MenuItem>
+</CiscoIPPhoneMenu>
+EOD
+		],
+	];
+}
+
+sub wc_call_help {
+	my ($env) = @_;
+	return [
+		'200',
+		[ 'Content-Type' => 'text/xml; charset="ISO-8859-1"' ],
+		[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneDirectory>
+	<Title>WC: Call for HELP</Title>
+	<DirectoryEntry>
+		<Name>Call for HELP</Name>
+		<Telephone>130</Telephone>
+	</DirectoryEntry>
+</CiscoIPPhoneDirectory>
+EOD
+		]
+	];
+}
+
+my %wc_services = (
+	wc_paper => [ 'WC: I need a toilet paper' => \&wc_paper ],
+	wc_call_help => [ 'WC: Call for HELP' => \&wc_call_help ],
+);
+
+my $app = sub {
+	my ($env) = @_;
+
+	return [ '405' ] if $env->{REQUEST_METHOD} !~ /^(?:HEAD|GET)$/;
+
+	my %raw_args = map { (split /=/, $_, 2)[0,1] } split /&/, $env->{QUERY_STRING} // '';
+	my %args = map { decode('ISO-8859-1', uri_unescape($_ // '')) } %raw_args;
+	my $service = $args{service} // '';
+
+	my $current_url = $env->{'psgi.url_scheme'} . '://' . $env->{HTTP_HOST} . $env->{PATH_INFO};
+
+	# HACK: get line
+	my $line = $env->{REMOTE_ADDR};
+	$line =~ s/.*\.//;
+
+	return $wc_services{$service}->[1]->($env, $service, \%args, $current_url, \%raw_args, $line) if exists $wc_services{$service};
+	return $services{$service}->[1]->($env, $service, \%args, $current_url, \%raw_args, $line) if exists $services{$service};
+
+	return [ '404' ] if length $service;
+
+	my $services = '';
+	my @services_keys = sort { $services{$a}->[2] cmp $services{$b}->[2] } keys %services;
+	@services_keys = grep !/mlsnik/, @services_keys unless $line =~ /^(?:36|37|2.|33)$/;
+	unshift @services_keys, sort { $wc_services{$a}->[0] cmp $wc_services{$b}->[0] } keys %wc_services if $line =~ /^(?:32|44|49)$/;
+	foreach (@services_keys) {
+		my $name = string(exists $services{$_} ? $services{$_}->[0] : $wc_services{$_}->[0]);
+		my $url = "$current_url?service=$_";
+		$services .= <<"EOD";
+	<MenuItem>
+		<Name>$name</Name>
+		<URL>$url</URL>
+	</MenuItem>
+EOD
+	}
+
+	return [
+		'200',
+		[ 'Content-Type' => 'text/xml; charset="ISO-8859-1"' ],
+		[ <<"EOD"
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<CiscoIPPhoneMenu>
+	<Title>Services for line $line</Title>
+	<Prompt>Select option</Prompt>
+$services</CiscoIPPhoneMenu>
+EOD
+		]
+	];
+};
--- a/webapp/services.service
+++ b/webapp/services.service
@ -0,0 +1,4 @@
+[Service]
+ExecStart=/usr/bin/uwsgi --ini=/opt/ksp/webapp/services.uwsgi
+[Install]
+WantedBy=multi-user.service
--- a/webapp/services.uwsgi
+++ b/webapp/services.uwsgi
@ -0,0 +1,6 @@
+[uwsgi]
+socket=/tmp/services.sock
+plugin=psgi
+psgi=/opt/ksp/webapp/services.psgi
+chmod-socket=666
+
--- a/www/directory_external.txt
+++ b/www/directory_external.txt
@ -0,0 +1,13 @@
+Technická podpora FBI = 910119352
+HR linka = 4445
+Hlasová schránka = 131
+Konference 0 = 110
+Konference 1 = 111
+Konference 2 = 112
+Konference 3 = 113
+Konference 4 = 114
+Konference 5 = 115
+Konference 6 = 116
+Konference 7 = 117
+Konference 8 = 118
+Konference 9 = 119
--- a/www/logo.bmp
+++ b/www/logo.bmp
--- a/www/orgovia.txt
+++ b/www/orgovia.txt
@ -0,0 +1,2 @@
+Org 1
+Org 2
--- a/www/osoby.txt
+++ b/www/osoby.txt
@ -0,0 +1,2 @@
+Meno 1
+Meno 2
--- a/www/tovar.txt
+++ b/www/tovar.txt
@ -0,0 +1,34 @@
+coca_cola	Coca Cola 1.75		22	0
+pepsi_cola	Pepsi Cola 2.5		20	0
+minonky		Miňonky			10	1
+kastany		Kaštany			11	0
+tofik		Tofík			5	0
+musli		Müsli tyčinka		5	1
+fin_carre_200	Fin Carré 200g (velk)	33	0
+fin_carre_100	Fin Carré 100g (malá)	16	1
+fin_carre_nois	Fin Carré Noisette	20	1
+fin_carre_74	Fin Carré 74%		20	0
+piskoy_coko	Piškoty v čokoládě	13	0
+zele_jelly	Želé Rainbow Jelly	10	0
+syrove_tycinky	Sýrové tyčinky		15	1
+arasidy_pikan	Arašídy pikantní	17	0
+chipsy_snack	Chipsy Snack 150g	16	0
+syrove_koule	Sýrové koule / Snack	8	0
+mrkev		Mrkev			1	0
+chipsy_bohemia	Chipsy Bohemia 130g	30	0
+kofola_15	Kofola 1.5		26	0
+oreo		Oreo 44g		11	0
+pepsi_cola15	Pepsi Cola 1.5		18	0
+import_paper	Historické nákupy	0	0
+kofola_2	Kofola 2l		15	1
+bramb_tycinky	Bramborové tyčinky	15	1
+chipsy_ahb	Chipsy			22	1
+arasidy_sl_kar	Arašídy slaný karam.	30	1
+arasidy_sol	Arašídy solené		11	1
+arasid_krup	Arašídové křupky	9	1
+banán		Banán			3	1
+zlate_polom	Zlaté polomáčané	17	1
+napoli_or	Manner snack		4	1
+happy_day	Happy day džus		30	1
+stud_pecet	Studenská pečeť		30	1
+mrkev_2		Mrkev			2	1
--- a/znelky/.keep
+++ b/znelky/.keep
			`@ -0,0 +1 @@`
			`/10 * * * cd /opt/ksp; ./list_errors.sh \| sed -E 's/172\.16\.0\.//;s/,? ?port 23//;s/ ?at .* line [0-9]*//' > /tmp/error.log.new; mv /tmp/error.log.new /tmp/error.log`