commit 6c38b489ffe26457674afbc53880c3d9369c849f
Author: pezcurrel <pezcurrel@tiscali.it>
Date:   Mon Nov 20 12:42:57 2023 +0100

    First commit

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..9511c32
--- /dev/null
+++ b/README.md
@@ -0,0 +1,41 @@
+## What is Verbose?
+
+Verbose is a post splitter for Mastodon in a web page. You can write or paste a long post into it, set some options, push the “Split” button, and you get your long post split into many posts considering [Mastodon rules](https://docs.joinmastodon.org/user/posting/#text): every http(s) link counts as 23 characters and every mention counts only for the length of its username part. Each split post will come with `…` signs where it makes sense and a counter in `[n/t]` form, where `n` is the current post number and `t` is the total posts number.
+
+You can connect Verbose to your account: this way *you’ll be able to post all split posts at once directly from within Verbose*, they will be automatically “chain posted” (the second will be a reply to the first, the third to the second, and so on) and, before posting them, you may set their visibility, language, and a post to reply to with the first split post.
+
+You can also use it without connecting it to your account, but after splitting your long post you’ll have to copy and paste by hand each split post in sequence into Mastodon, and “chain posting” will be up to you.
+
+Verbose doesn’t save anywhere what you write or paste into it, it doesn’t use third parties’ cookies, it sets some cookies of its own only if you choose to connect it to your account, and it can be used even without Javascript.
+
+If you find issues please let me know [here](https://git.lattuga.net/pongrebio/verbose/issues), or using the e-mail address you can find in my profile page, or directly contacting [me on Mastodon](https://puntarella.party/@umpi).
+
+## Setting up Verbose on a webserver
+
+To set up Verbose on a webserver you need it to support PHP, you have to make the directory you put Verbose into and its `/js` subdirectory writeable to the user your webserver runs under, and you have to set a `conf.ini` file into Verbose main directory.
+
+The `conf.ini` file *must* define a `webservertimeout` in seconds, i.e. the maximum time in seconds your webserver allows a request to last (with Apache it’s [this](https://httpd.apache.org/docs/current/mod/core.html#timeout)); for example:
+
+```
+webservertimeout=120
+```
+
+Inside `conf.ini` you can also customize the “link text” (text Verbose can add to last split post if there’s enough space left; by default it’s `[This post was split using https://git.lattuga.net/pongrebio/verbose]`); for example:
+
+```
+link=[This post was split using https://my.server/verbose]
+```
+
+Of course you can put anything as a value for `link`, but the UI mentions it as «link to this page», so it’s expected to contain a link to the URL of your running Verbose instance ;-)
+
+You can also set a `footer` that, if defined, will be added before the link to this repo in the page footer; for example:
+
+```
+footer=<a href="https://my.server/">Home</a>
+```
+
+## Are there running Verbose instances?
+
+You can find a running Verbose instance [here](https://mastodon.help/verbose).
+
+If you set up your own and you want it to be listed here, please let me know using the e-mail address you can find in my profile page, or directly contacting [me on Mastodon](https://puntarella.party/@umpi).
diff --git a/css/main.css b/css/main.css
new file mode 100644
index 0000000..023bdbe
--- /dev/null
+++ b/css/main.css
@@ -0,0 +1,400 @@
+* {
+	box-sizing: border-box;
+}
+
+html {
+	scroll-behavior: smooth;
+}
+
+body {
+	font-family: "sans";
+	font-size: 12pt;
+	background-color: #222222;
+	color: white;
+	margin: 0;
+	padding: 0;
+}
+
+a {
+	color: #87decd;
+}
+
+form {
+	padding: 0;
+	margin: 0;
+}
+
+h1, h2, h3, h4, h5, h6 {
+	margin: 3mm 0 5mm 0;
+	padding: 0;
+	text-align: center;
+	color: white;
+}
+
+p {
+	margin: 0;
+	color: white;
+	text-indent: 3mm;
+	/*text-align: justify;
+	-webkit-hyphens: auto;
+	-ms-hyphens: auto;
+	hyphens: auto;*/
+}
+
+.firstp {
+	text-indent: 0;
+}
+
+.ul {
+	padding-left: 5mm;
+	margin-bottom: 0;
+}
+
+.notset {
+	color: #555555;
+}
+
+input:focus, textarea:focus, button:focus {
+	outline: none;
+}
+
+#main {
+	margin-left: auto;
+	margin-right: auto;
+	max-width: 20cm;
+	width: 100%;
+	padding: 3mm;
+}
+
+#notif {
+	width: 6cm;
+	position: fixed;
+	right: 3mm;
+	bottom: 3mm;
+	background-color: #16502d;
+	color: white;
+	border: 1px solid white;
+	padding: 3mm;
+	border-radius: 6px;
+	display: none;
+	font-size: 10pt;
+	cursor: pointer;
+}
+
+#popup {
+	display: none;
+	align-items: center;
+	position: fixed;
+	top: 0;
+	width: 100%;
+	height: 100vh;
+	z-index: 1;
+	background-color: rgba(0, 0, 0, .75);
+}
+
+#popupmsg {
+	margin-left: auto;
+	margin-right: auto;
+	max-width: 98%;
+	width: 15cm;
+}
+
+#puptitle {
+	border-radius: 9px 9px 0 0;
+	padding: 0;
+	background-color: white;
+	color: black;
+	font-weight: bold;
+}
+
+#pupmsg {
+	border-radius: 0 0 9px 9px;
+	border: 1px solid white;
+	border-top: 0;
+	padding: 1.5mm 3mm 1.5mm 3mm;
+	background-color: #555555;
+	color: white;
+}
+
+#pupmsg ul {
+	margin: 0;
+	margin-left: 3mm;
+	padding: 0;
+}
+
+.error, .success, .warning, .normtext {
+	width: 100%;
+	color: red;
+	margin-bottom: 15px;
+	border: 1px solid red;
+	border-radius: 6px;
+	padding: 3mm;
+}
+
+.warning {
+	color: orange;
+	border-color: orange;
+}
+
+.success {
+	color: lightgreen;
+	border-color: lightgreen;
+}
+
+.normtext {
+	background-color: #555555;
+	color: white;
+	border: none;
+}
+
+.hili {
+	color: #ffcc00;
+}
+
+.tittab {
+	border-collapse: collapse;
+	width: 100%;
+	border: none;
+}
+
+.tittab tr {
+	margin: 0;
+	padding: 0;
+}
+
+.tittab td {
+	margin: 0;
+	padding: 1mm;
+	vertical-align: middle;
+}
+
+.closeb {
+	cursor: pointer;
+	top: 3px;
+	vertical-align: middle;
+}
+
+.inputdiv, .lastinputdiv, .outputdiv, .lastoutputdiv {
+	width: 100%;
+}
+
+.inputdiv {
+	margin-bottom: 15px;	
+}
+
+.lastoutputdiv {
+	margin-top: 15px;
+}
+
+.input, .inputx, .textarea, .button, .postbutton, .halfbutton, .copybutton, .output, .outputnobb, .outputli, .posthead, .lastborder, fieldset {
+	width: 100%;
+	border: 1px solid #555555;
+	border-radius: 0 6px 6px 6px;
+	font-size: 12pt;
+	margin: 0;
+	padding: 3px;
+}
+
+.input, .inputx, .textarea {
+	font-family: "sans";
+}
+
+.inputx {
+	border-radius: 0 6px 0 0;
+}
+
+.lastborder {
+	border-top: none;
+	border-radius: 0 0 6px 6px;
+}
+
+fieldset {
+	padding: 5px;
+}
+
+.halfbutton {
+	width: 50%;
+	height: 30px;
+	border-radius: 6px;
+}
+
+.button, .postbutton, .copybutton {
+	height: 40px;
+	border-radius: 6px;
+	font-weight: bold;
+}
+
+.button, .postbutton {
+	color: white;
+	background-color: #916f7c;
+	border-color: #ac939d #6c535d #6c535d #ac939d;
+}
+
+.button:hover, .postbutton:hover {
+	background-color: #6c535d;
+	border-color: #916f7c #48373e #48373e #916f7c;
+}
+
+.copybutton {
+	border-top: none;
+	border-radius: 0 0 6px 6px;
+	display: none;
+}
+
+.output, .outputnobb {
+	border-radius: 0;
+	margin: 0;
+	font-family: "sans";
+}
+
+.outputnobb {
+	background-color: white;
+	color: black;
+	border-bottom: none;
+}
+
+.outputli {
+	border-radius: 0 0 6px 6px;
+}
+
+label {
+	max-width: 96%;
+	font-weight: bold;
+	color: white;
+	background-color: #555555;
+	border-bottom: none;
+	border-radius: 6px 6px 0 0;
+	padding: 2px 6px 3px 6px;
+	display: inline-block;
+	margin: 0;
+}
+
+.trow {
+	display: table-row;
+}
+
+.tcell {
+	display: table-cell;
+}
+
+.cblab {
+	background-color: rgba(0, 0, 0, 0);
+	font-weight: normal;
+	display: table-cell;
+}
+
+.posthead, .errposthead {
+	font-weight: bold;
+	margin-bottom: 0;
+	border-bottom: none;
+	border-radius: 6px 6px 0 0;
+	color: white;
+	background-color: #555555;
+	padding: 3px 6px 3px 6px;
+	margin-top: 15px;
+}
+
+.errposthead {
+	background-color: red;
+}
+
+.separator {
+	width: 100%;
+	height: 25px;
+}
+
+.pseparator {
+	width: 100%;
+	height: 40px;
+}
+
+.postdiv, .postdivnobut {
+	border: 1px solid #555555;
+	background-color: white;
+	color: black;
+	padding: 3px;
+}
+
+.postdivnobut {
+	border-radius: 0 0 6px 6px;
+}
+
+.fullheight {
+	min-height: 90vh;
+}
+
+hr {
+	height: 1px;
+	background-color: #555555;
+	color: #555555;
+	border: none;
+}
+
+.debug {
+	width: 100%;
+	font-size: 10pt;
+	padding: 2mm;
+}
+
+#pmonitor {
+	display: none;
+}
+
+#pstatus {
+	color: white;
+	font-size: 10pt;
+	padding: 3px;
+	border: 1px solid white;
+	border-radius: 4px;
+	margin-bottom: 1mm;
+}
+
+#ppercenv {
+	padding: 3px;
+	border: 1px solid white;
+	border-radius: 4px;
+	margin-bottom: 1mm;
+}
+
+#pperc {
+	height: 3mm;
+	background-color: green;
+	width: 0;
+	border-radius: 2px;
+}
+
+#plog {
+	font-size: 10pt;
+	border-radius: 4px;
+	border: 1px solid white;
+	color: white;
+	height: 120px;
+	padding: 3px;
+	overflow-y: scroll;
+}
+
+#footer, #almfooter {
+	width: 100%;
+	text-align: center;
+	font-size: 9pt;
+	margin: 3mm 0 0 0;
+}
+
+#almfooter {
+	font-size: 10.5pt;
+}
+
+@media only screen and (max-width:10cm) {
+	body, .input, .inputx, .textarea, .button, .postbutton, .halfbutton, .copybutton, .output, .outputnobb, .outputli, .posthead, .lastborder, fieldset {
+		font-size: 11pt;
+	}
+	#pstatus, #plog, .debug {
+		font-size: 9pt;
+	}
+	#footer {
+		font-size: 8.5pt;
+	}
+	#almfooter {
+		font-size: 9.5pt;
+	}
+}
diff --git a/imgs/icon-16.png b/imgs/icon-16.png
new file mode 100644
index 0000000..dcaf64a
Binary files /dev/null and b/imgs/icon-16.png differ
diff --git a/imgs/icon-180.png b/imgs/icon-180.png
new file mode 100644
index 0000000..2cfcf48
Binary files /dev/null and b/imgs/icon-180.png differ
diff --git a/imgs/icon-192.png b/imgs/icon-192.png
new file mode 100644
index 0000000..5a29297
Binary files /dev/null and b/imgs/icon-192.png differ
diff --git a/imgs/icon-32.png b/imgs/icon-32.png
new file mode 100644
index 0000000..e688e2e
Binary files /dev/null and b/imgs/icon-32.png differ
diff --git a/imgs/icon-512.png b/imgs/icon-512.png
new file mode 100644
index 0000000..7495e82
Binary files /dev/null and b/imgs/icon-512.png differ
diff --git a/imgs/icon_close.png b/imgs/icon_close.png
new file mode 100644
index 0000000..a8f910a
Binary files /dev/null and b/imgs/icon_close.png differ
diff --git a/imgs/ogimage.png b/imgs/ogimage.png
new file mode 100644
index 0000000..1402dfb
Binary files /dev/null and b/imgs/ogimage.png differ
diff --git a/index.php b/index.php
new file mode 100644
index 0000000..3f3cfb5
--- /dev/null
+++ b/index.php
@@ -0,0 +1,847 @@
+<?php
+
+/*
+  This program is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+// Logorrh, Verbose, Charliero, Tashugo?
+
+require 'lib/gettlds.php';
+$tlds=gettlds();
+$retlds=implode('|',$tlds);
+$jstlds="const tlds=['".implode("', '",$tlds)."'];\n";
+if (@file_put_contents('js/tlds.js',$jstlds)===false)
+	dieyoung('Error: could not save «js/tlds.js»');
+unset($tlds,$jstlds);
+require 'lib/mastodon.php';
+require 'lib/ckratelimit.php';
+require 'lib/getfirstbrowserlang.php';
+require 'lib/ght.php';
+require 'lib/booltostr.php';
+
+const SNAME='Verbose';
+const SVERS='0.3.5';
+const SREPO='https://git.lattuga.net/pongrebio/verbose';
+const DEFAC=500;
+const MINAC=100;
+const MAXAC=100000;
+const MINCL=40;
+const MAXPOSTC=50000;
+const MAXREPTOLEN=1500;
+const POSTPAUSE=250;// pause between sending split posts (in milliseconds)
+const REQSTOPRESV=10;// requests to preserve
+const CONFFN='conf.ini';
+
+$sname=SNAME;
+$svers=SVERS;
+$now=time();
+$timeout=5;
+$formact=preg_replace('#[^/]+$#','',$_SERVER['REQUEST_URI']);
+
+$dodebug=false;
+$debug='';
+
+ini_set('max_execution_time',360);// 6 minutes: default mastodon ratelimits: https://docs.joinmastodon.org/api/rate-limits/
+$conf=['link'=>"\n\n[This post was split using ".SREPO.']'];
+if (file_exists(CONFFN)) {
+	$fconf=@parse_ini_file(CONFFN,false,INI_SCANNER_RAW);
+	if ($fconf===false) {
+		dieyoung('Error: configuration file «'.CONFFN.'» was found but could not be opened for reading.');
+	} else {
+		if (isset($fconf['link']))
+			$conf['link']="\n\n{$fconf['link']}";
+		if (isset($fconf['footer']))
+			$conf['footer']=$fconf['footer'];
+		if (isset($fconf['webservertimeout'])) {
+			if (preg_match('#^\d+$#',$fconf['webservertimeout'])===1)
+				$conf['webservertimeout']=$fconf['webservertimeout']+0;
+			else
+				dieyoung('Error: configuration file «'.CONFFN.'»: value «'.$fconf['webservertimeout'].'» is not valid for «webservertimeout».');
+		} else {
+			dieyoung('Error: configuration file «'.CONFFN.'» does not define «webservertimeout».');
+		}
+	}
+	unset($fconf);
+} else {
+	dieyoung('Error: configuration file «'.CONFFN.'» was not found.');
+}
+$debug.='CONF: '.preprint($conf)."<br>\n";
+
+$coopts=[
+	'expires'=>$now+365*24*60*60,
+	'path'=>preg_replace('#[^/]+$#','',$_SERVER['REQUEST_URI']), 
+	'domain'=>$_SERVER['SERVER_NAME'],
+	'secure'=>false,
+	'httponly'=>false,
+	'samesite'=>'Lax'// None || Lax  || Strict
+];
+$cooptsx=$coopts;
+$cooptsx['expires']=$now-3600;
+
+/*setcookie('verbose_client_id','',$cooptsx);
+setcookie('verbose_client_secret','',$cooptsx);
+setcookie('verbose_host','',$cooptsx);
+setcookie('verbose_token','',$cooptsx);*/
+
+$debug.='COOKIES: '.preprint($_COOKIE);
+$debug.='POST: '.preprint($_POST);
+
+$blang=getfirstbrowserlang();
+$blang=preg_replace('#^([a-z]+).*#','$1',$blang);
+
+$host=false;
+$token=false;
+(isset($_SERVER['HTTPS'])) ? $proto='https' : $proto='http';
+$rediruri=$proto.'://'.$_SERVER['HTTP_HOST'].preg_replace('#^([^?]*).*#','$1',$_SERVER['REQUEST_URI']);
+$authmsgs='';
+
+$scope='read write:statuses';
+$provided='you provided';
+
+setcookie('verbose_client_id','',$cooptsx);
+setcookie('verbose_client_secret','',$cooptsx);
+
+(isset($_POST['host'])) ? $_POST['host']=trim($_POST['host']) : $_POST['host']='';
+(isset($_POST['token'])) ? $_POST['token']=trim($_POST['token']) : $_POST['token']='';
+
+if (isset($_GET['code']) && isset($_COOKIE['verbose_host']) && isset($_COOKIE['verbose_client_id']) && isset($_COOKIE['verbose_client_secret'])) {
+	$host=$_COOKIE['verbose_host'];
+	$postcont=['grant_type'=>'authorization_code', 'code'=>$_GET['code'], 'client_id'=>$_COOKIE['verbose_client_id'], 'client_secret'=>$_COOKIE['verbose_client_secret'], 'redirect_uri'=>$rediruri, 'scope'=>$scope];
+	$res=mastpost($host,null,'/oauth/token',$postcont,$timeout);
+	if ($res['ok']) {
+		$res=$res['data'];
+		$token=$res['access_token'];
+		setcookie('verbose_token',$token,$coopts);
+		$authmsgs.="<div class=\"normtext\">You successfully authorized {$sname} to use your account on {$host}.<br>\nYour access token is <span class=\"hili\">{$token}</span><br>\nPlease save it somewhere safe, like in a password manager (i suggest <a href=\"https://keepassxc.org/\">KeePassXC</a>), because {$sname} does not save it on the server, but only in a cookie in your browser that lasts one year since your last visit, so it may expire or you may loose it and, without your access token, you would have to repeat the authorization process.</div>\n";
+	} else {
+		$authmsgs.='<div class="error">Sorry, there was an error trying to authorize you: '.htmlentities($res['error'])."</div>\n";
+	}
+} elseif (isset($_POST['act']) && $_POST['act']=='login' && $_POST['host']!='' && $_POST['token']=='') {
+	$host=$_POST['host'];
+	$postcont=['client_name'=>'Verbose','redirect_uris'=>$rediruri,'scopes'=>$scope,'website'=>'https://git.lattuga.net/pongrebio/verbose'];
+	$res=mastpost($host,$token,'/api/v1/apps',$postcont,$timeout);
+	//$debug.='AUTH RESULTS: '.preprint($res);
+	if ($res['ok']) {
+		$res=$res['data'];
+		setcookie('verbose_host',$host,$coopts);
+		setcookie('verbose_client_id',$res['client_id'],$coopts);
+		setcookie('verbose_client_secret',$res['client_secret'],$coopts);
+		$location='https://'.$host.'/oauth/authorize?client_id=' . $res['client_id'] . '&redirect_uri=' . urlencode($rediruri) . '&response_type=code&scope='. urlencode($postcont['scopes']) . '&force_login=0&lang='.$blang;
+		if ($debug)
+			header('Location: '.$location,true,302);
+		else
+			echo "<a href=\"{$location}\">".htmlentities($location)."</a><br>\n";
+		exit(0);		
+	} else {
+		$authmsgs.='<div class="error">Sorry, there was an error trying to authorize you: '.htmlentities($res['error'])."</div>\n";
+	}
+} elseif (isset($_POST['act']) && $_POST['act']=='login' && $_POST['host']!='' && $_POST['token']!='') {
+	$host=$_POST['host'];
+	$token=$_POST['token'];
+} elseif (isset($_POST['act']) && $_POST['act']=='logout') {
+	setcookie('verbose_host','',$cooptsx);
+	setcookie('verbose_token','',$cooptsx);
+	$_COOKIE=[];
+	//$authmsgs.="<div class=\"success\">You have been successfully logged out :-)</div>\n";
+} elseif (isset($_COOKIE['verbose_host']) && isset($_COOKIE['verbose_token'])) {
+	$host=$_COOKIE['verbose_host'];
+	$token=$_COOKIE['verbose_token'];
+	$provided='provided by your cookies';
+}
+
+(isset($_POST['round'])) ? $_POST['round']++ : $_POST['round']=0;
+
+$loggedin=false;
+if ($host!==false && $token!==false && trim($token)!='') {// trim($token)!='' is to keep it usable without js
+	$res=mastget($host,$token,'/api/v1/apps/verify_credentials',$timeout);
+	//$debug.='TOKEN: '.$token."<br>\nRES:".preprint($res);
+	if ($res['ok']) {
+		$myacc=mastget($host,$token,'/api/v1/accounts/verify_credentials',$timeout);
+		//$debug.=preprint($myacc);
+		if ($myacc['ok']) {
+			setcookie('verbose_host',$host,$coopts);
+			setcookie('verbose_token',$token,$coopts);
+			$myacc=$myacc['data'];
+			$loggedin=true;
+			if ($_POST['round']==0 || $_POST['act']=='login') {
+				$res=mastget($host,$token,'/api/v1/instance',$timeout);
+				if ($res['ok'] && isset($res['data']['configuration']['statuses']['max_characters']) && preg_match('#^\d+$#',$res['data']['configuration']['statuses']['max_characters'])===1) {
+					$avchars=$res['data']['configuration']['statuses']['max_characters']+0;
+				} else {
+					$authmsgs.="<div class=\"warning\">Sorry, {$sname} could not detect how many characters per post your instance allows.</div>\n";
+				}
+			}
+		} else {
+			$authmsgs.='<div class="error">Sorry, verification of your account’s credentials failed (error: '.htmlentities($myacc['error']).")</div>\n";
+			setcookie('verbose_host','',$cooptsx);
+			setcookie('verbose_token','',$cooptsx);
+		}
+	} else {
+		$authmsgs.="<div class=\"error\">Sorry, authentication with the credentials {$provided} failed (error: ".htmlentities($res['error']).")</div>\n";
+		setcookie('verbose_host','',$cooptsx);
+		setcookie('verbose_token','',$cooptsx);
+	}
+}
+
+$splitmsgs='';
+
+if (isset($avchars)) {
+	$_POST['avchars']=$avchars;
+} elseif (isset($_POST['avchars'])) {
+	//if (!$loggedin) $authmsgs='<div class="warning">Warning: if you authorize now you’ll loose your current split session</div>';
+	(preg_match('#^\d+$#',$_POST['avchars'])===1) ? $_POST['avchars']+=0 : $_POST['avchars']=DEFAC;
+} else {
+	$_POST['avchars']=DEFAC;
+}
+if ($_POST['avchars']<MINAC) $_POST['avchars']=MINAC;
+if ($_POST['avchars']>MAXAC) $_POST['avchars']=MAXAC;
+$maxcwprec=$_POST['avchars']-MINCL;
+if (!isset($_POST['cw']) || trim($_POST['cw'])=='') $_POST['cw']='';
+$cwlen=mb_strlen($_POST['cw'],'UTF-8');
+if (!isset($_POST['pre']) || trim($_POST['pre'])=='') $_POST['pre']='';
+$prelen=mb_strlen($_POST['pre'],'UTF-8')+2;
+$cwprelen=$cwlen+$prelen;
+if ($cwprelen>$maxcwprec) $splitmsgs.="<div class=\"error\">“Content Warning” + “Text to prepend” is {$cwprelen} characters long, that is ".($cwprelen-$maxcwprec)." characters longer than its maximum allowed length ({$maxcwprec} characters, that is {$_POST['avchars']} available characters minus ".MINCL." characters)</div>\n";
+//$_POST['pre']=mb_substr($_POST['pre'],0,$maxprec,'UTF-8');
+
+if (!isset($_POST['post']) || trim($_POST['post'])=='') $_POST['post']='';
+$postlen=mb_strlen($_POST['post'],'UTF-8');
+if ($postlen>MAXPOSTC) $splitmsgs.="<div class=\"error\">“Post to split” is {$postlen} characters long, that is ".($postlen-MAXPOSTC)." characters longer than its maximum allowed length, ".MAXPOSTC." characters</div>\n";
+//$_POST['post']=mb_substr($_POST['post'],0,MAXPOSTC,'UTF-8');
+
+$rbsck=[
+	'cntpos_before'=>'',
+	'cntpos_after'=>'',
+	'addref_no'=>'',
+	'addref_ifav'=>'',
+];
+
+if (isset($_POST['cntpos']) && $_POST['cntpos']=='before') {
+	$cntbef=true;
+	$rbsck['cntpos_before']=' checked';
+} else {
+	$_POST['cntpos']='after';
+	$cntbef=false;
+	$rbsck['cntpos_after']=' checked';
+}
+
+if (isset($_POST['addref']) && $_POST['addref']=='no') {
+	$aliif=false;// "add link if it fits"
+	$rbsck['addref_no']=' checked';
+} else {
+	$_POST['addref']='ifav';
+	$aliif=true;
+	$rbsck['addref_ifav']=' checked';
+}
+
+if (!isset($_POST['replyto']) || trim($_POST['replyto'])=='') $_POST['replyto']='';
+if (strlen($_POST['replyto'])>MAXREPTOLEN) {
+	$_POST['replyto']='';
+	$splitmsgs.='<div class="error">The “URL of post to reply to” you specified is too long (its maximum allowed length is '.MAXREPTOLEN." characters)</div>\n";
+}
+if (!isset($_POST['lang']) || trim($_POST['lang'])=='') $_POST['lang']=$blang;
+if (!isset($_POST['visib']) || trim($_POST['visib'])=='') $_POST['visib']='public';
+
+if ($_POST['round']==0) {
+	$_POST['setcws']='1';
+	$setcwsck=' checked';
+	$_POST['setments']='1';
+	$setmentsck=' checked';
+	$_POST['setvisib']='1';
+	$setvisibck=' checked';
+	$_POST['setlang']='1';
+	$setlangck=' checked';
+} else {
+	(isset($_POST['setcws']) && $_POST['setcws']=='1') ? $setcwsck=' checked' : $setcwsck='';
+	(isset($_POST['setments']) && $_POST['setments']=='1') ? $setmentsck=' checked' : $setmentsck='';
+	(isset($_POST['setvisib']) && $_POST['setvisib']=='1') ? $setvisibck=' checked' : $setvisibck='';
+	(isset($_POST['setlang']) && $_POST['setlang']=='1') ? $setlangck=' checked' : $setlangck='';
+}
+
+function getpostmentions($post,$exclude,$format) {
+	$ments=[];
+	if (isset($post['account']['acct']) && !in_array($post['account']['acct'],$exclude))
+		$ments[]=$post['account']['acct'];
+	if (isset($post['mentions']) && is_array($post['mentions']))
+		foreach ($post['mentions'] as $ment)
+			if (isset($ment['acct']) && !in_array($ment['acct'],$exclude) && !in_array($ment['acct'],$ments))
+				$ments[]=$ment['acct'];
+	if ($format=='array')
+		return $ments;
+	elseif ($format=='list')
+		return implode(' ',$ments);
+	elseif ($format=='recipients')
+		return '@'.implode(' @',$ments);
+}
+
+$reptoid='';
+
+if ($loggedin && $_POST['replyto']!='') {
+	//https://livellosegreto.it/@geranio/110627337076323759
+	$res=mastget($host,$token,'/api/v2/search?type=statuses&resolve=1&limit=1&q='.urlencode($_POST['replyto']),$timeout);
+	$debug.='accsearch res: <pre>'.preprint($res)."</pre>\n";
+	if ($res['ok']) {
+		if (isset($res['data']['statuses'][0]['id']))
+			$reptopost=$res['data']['statuses'][0];
+		else
+			$splitmsgs.="<div class=\"error\">Sorry, {$sname} found no post with the URL you provided as “URL of post to reply to”, please check it and make sure it points to a post you have access to.</div>\n";
+	} else {
+		$splitmsgs.="<div class=\"error\">Sorry, {$sname} encountered the following error while trying to retrieve the URL you provided as “URL of post to reply to”: ".htmlentities($res['error'])."; please check the URL and make sure it points to a post you have access to.</div>\n";
+	}
+	if (isset($reptopost)) {
+		if (isset($reptopost['id']))
+			$reptoid=$reptopost['id'];
+		if (isset($_POST['setcws']) && $_POST['setcws']=='1' && isset($reptopost['spoiler_text']) && trim($reptopost['spoiler_text'])!='')
+			$_POST['cw']=$reptopost['spoiler_text'];
+		if (isset($_POST['setments']) && $_POST['setments']=='1' && isset($reptopost['mentions']))
+			$_POST['pre']=getpostmentions($reptopost,[$myacc['acct']],'recipients');
+		if (isset($_POST['setvisib']) && $_POST['setvisib']=='1' && isset($reptopost['visibility']))
+			$_POST['visib']=$reptopost['visibility'];
+		if (isset($_POST['setlang']) && $_POST['setlang']=='1' && isset($reptopost['language']))
+			$_POST['lang']=$reptopost['language'];
+	}
+}
+
+$headmsgs='';
+
+$intro="<div class=\"normtext\"><p class=\"firstp\">Hello, this is a {$sname} instance, it can split your long post considering <a href=\"https://docs.joinmastodon.org/user/posting/#text\">Mastodon rules</a>: every http(s) link counts for 23 characters and every mention counts only for its username part. Each split post comes with “…” signs where it makes sense and with a counter in “[n/t]” form, where “n” is current post number and “t” is total posts number.</p>
+<p>{$sname} doesn’t save anywhere what you write or paste into it, it doesn’t use third parties’ cookies, it sets some cookies of its own only if you choose to connect it to your account, and it can be used even without Javascript.</p>
+<p>If you find issues please report them to <a href=\"https://puntarella.party/@umpi\">me on Mastodon</a>, or <a href=\"https://git.lattuga.net/pongrebio/verbose/issues\">here</a>.</p></div>\n";
+
+$postmsgs='';
+$postsoffset=0;
+$postscount=0;
+$postingok=true;
+$postwait=0;
+$postwaituntil=0;
+$pbtext='Post all';
+
+if (isset($_POST['postsoffset']) && preg_match('#^\d+$#',$_POST['postsoffset'])===1)
+	$postsoffset=$_POST['postsoffset']+0;
+
+if ($loggedin && isset($_POST['postwaituntil']) && preg_match('#^\d+$#',$_POST['postwaituntil'])===1 && isset($_POST['postscount']) && preg_match('#^\d+$#',$_POST['postscount'])===1 && isset($_POST['act']) && $_POST['act']=='sendposts' && isset($_POST['cw']) && isset($_POST['post_'.$postsoffset]) && isset($_POST['mastlen_'.$postsoffset])) {
+	$postscount=$_POST['postscount']+0;
+	if (isset($_POST['lastsentpostid']) && $_POST['lastsentpostid']!='')
+		$lspostid=$_POST['lastsentpostid'];
+	$posts=[];
+	$i=$postsoffset;
+	do {
+		$_POST['post_'.$i]=str_replace("\r\n","\n",$_POST['post_'.$i]);
+		$posts[$i]=['cw'=>$_POST['cw'],'post'=>$_POST['post_'.$i],'mastlen'=>$_POST['mastlen_'.$i]];
+		$i++;
+	} while (isset($_POST['post_'.$i]));
+	if ($now<$_POST['postwaituntil']) {
+		$debug.="WAIT MORE!!!<br>\n";
+		$postingok=false;
+		$postwait=$_POST['postwaituntil']-$now+1;
+		$postwaituntil=$_POST['postwaituntil']+1;
+		$postmsgs.="<div class=\"warning\">Sorry, you have to wait ".ght($postwait)." more before {$sname} can post the remaining split post(s).</div>\n";
+		$pbtext='Please wait '.ght($postwait).' before posting';
+	} else {
+		for ($i=$postsoffset; $i<$postscount; $i++) {
+			if (time()-$now+1>=$conf['webservertimeout']) {
+				$postingok=false;
+				$postsoffset=$i;
+				$postmsgs.="<div class=\"warning\">{$sname} could not post all the split posts because «{$_SERVER['SERVER_NAME']}» HTTP server was reaching its timeout (".ght($conf['webservertimeout']).'). You can send the remaining split posts '.($i+1)."-{$postscount} below.</div>\n";
+				break;
+			} else {
+				$post=$posts[$i];
+				$cont=[
+					'status'=>$post['post'],
+					'visibility'=>$_POST['visib'],
+					'language'=>$_POST['lang']
+				];
+				if ($post['cw']!='')
+					$cont['spoiler_text']=$post['cw'];
+				if ($i==0 && $reptoid!='')
+					$cont['in_reply_to_id']=$reptoid;
+				elseif (isset($lspostid))
+					$cont['in_reply_to_id']=$lspostid;
+				if ($i>0 && $_POST['visib']=='public')
+					$cont['visibility']='unlisted';
+				//echo ($i+1).preprint($cont)."<br>\n";
+				$res=mastpost($host,$token,'/api/v1/statuses',$cont,$timeout);
+				//if ($i==2) $res=['ok'=>false,'error'=>'server exploded'];// test err
+				//$res=['ok'=>true,'data'=>['id'=>'12345']];// test err
+				if ($res['ok']) {
+					$lspostid=$res['data']['id'];
+					$debug.="lspostid: {$lspostid}<br>\n";
+					$rls=ckratelimit($res['headers'],'necho',true,false);
+					//if ($i==2) $rls=['remaining'=>0,'secstoreset'=>3895];// test err
+					//$rls=['remaining'=>0,'secstoreset'=>5];// test err
+					if (!is_null($rls)) {
+						if ($rls['remaining']<=REQSTOPRESV && $i<$postscount-1) {
+							$postingok=false;
+							$postwait=$rls['secstoreset'];
+							$postwaituntil=time()+$postwait;
+							$postsoffset=$i+1;
+							$postmsgs.='<div class="warning">Sending split post '.($i+1)."/{$postscount}, {$sname} reached your {$host}’s account posting rate limit, so it stopped sending; you’ll find the rest of your split posts (those which have not been sent, ".($i+2)."-{$postscount}) below; before posting them, you’ll have to wait ".ght($postwait)." for rate limit reset.</div>\n";
+							$pbtext='Please wait '.ght($postwait).' before posting';
+							break;
+						}
+					}
+					if ($i<$postscount-1)
+						usleep(POSTPAUSE*1000);
+				} else {
+					$postingok=false;
+					$postsoffset=$i;
+					$postmsgs.='<div class="warning">Trying to send split post '.($i+1)."/{$postscount}, {$sname} encountered the following error: «".htmlentities($res['error']).'»; so it stopped sending. You can (re)try sending split posts '.($i+1)."-{$postscount} below.</div>\n";
+					break;
+				}
+			}
+		}
+		if ($postingok) {
+			$postmsgs.="<div class=\"success\">{$sname} successfully sent {$i}/{$postscount} split posts :-)</div>\n";
+			$posts=[];
+			$postscount=0;
+		}
+	}
+}
+
+$replyto='';
+$language='';
+$displang='';
+$visibility='';
+$dispvisib='';
+
+if (!$loggedin) {
+	$auth="<a name=\"connect\"></a><h2>Connect?</h2>
+{$authmsgs}
+<div class=\"normtext\">
+<p class=\"firstp\">If you don’t want to connect {$sname} to your account, you can just <a href=\"#split\">skip to the “Split post” section</a>, but after splitting your long post you’ll have to copy and paste by hand each split post in sequence into Mastodon (i recommend “chain posting”, that is replying to the first post with the second, to the second with the third, and so on).</p>
+<p>If you choose instead to connect {$sname} to your account, <span class=\"hili\">you’ll be able to post all split posts at once directly from within {$sname}</span>, they will be automatically “chain posted” and, before posting them, you may set their visibility, language, and a post to reply to with the first split post.</p>
+<p>&nbsp;</p>
+<p class=\"firstp\">To connect {$sname} to your account</p>
+<ul class=\"ul\">
+<li>if you already have an authentication token you just need to specify your server’s hostname and your token (your current split session will be unaffected);</li>
+<li>if you have not an authentication token yet, you first have to authorize {$sname} to access your account by specifying only your server’s hostname, leaving the “Your token” field empty; then you’ll be guided through a very quick and easy one-time authorization process, at the end of which {$sname} will tell you your token for future connections, and will be already connected to your account - but please <span class=\"hili\">note that this process will make you loose your current split session</span>.</li>
+</ul>
+</div>
+<form method=\"post\" id=\"authform\" name=\"authform\" action=\"{$formact}\">
+".oldpost2hid()."
+<div class=\"inputdiv\"><label for=\"host\">Your server’s hostname</label><input type=\"text\" id=\"host\" name=\"host\" class=\"input\" maxlength=\"253\" placeholder=\"E.g.: mastodon.whatever.net\" value=\"".htmlentities($_POST['host'])."\" required></div>
+<div class=\"inputdiv\"><label for=\"token\">Your token</label><input type=\"password\" id=\"token\" name=\"token\" class=\"input\" maxlength=\"43\" placeholder=\"Leave blank if you want to authorize {$sname} to access your account\" value=\"".htmlentities($_POST['token'])."\"></div>
+<div class=\"lastinputdiv\"><button type=\"submit\" name=\"act\" value=\"login\" class=\"button\">Connect</button></div>
+</form>\n";
+	$replyto='<input type="hidden" name="replyto" value="'.htmlentities($_POST['replyto']).'"><input type="hidden" name="setcws" value="'.cb2hid('setcws').'"><input type="hidden" name="setments" value="'.cb2hid('setments').'"><input type="hidden" name="setvisib" value="'.cb2hid('setvisib').'"><input type="hidden" name="setlang" value="'.cb2hid('setlang').'">';
+	$visibility='<input type="hidden" name="visib" value="'.$_POST['visib'].'">';
+	$language='<input type="hidden" name="lang" value="'.$_POST['lang'].'">';
+} else {
+	$auth="<a name=\"connect\"></a><h2>Connected :-)</h2>\n{$authmsgs}\n<form method=\"post\" id=\"authform\" name=\"authform\" action=\"{$formact}\">\n".oldpost2hid()."<div class=\"normtext\">{$sname} is connected to your {$myacc['acct']}@{$host} account.</div>\n<div><button type=\"submit\" id=\"logoutbutton\" name=\"act\" value=\"logout\" class=\"button\">Disconnect</button></div>\n</form>\n";
+	$replyto='<div class="inputdiv"><label for="replyto">URL of post to reply to</label><input type="text" id="replyto" name="replyto" class="inputx" placeholder="Leave blank to make a new post" value="'.htmlentities($_POST['replyto']).'" maxlength="'.MAXREPTOLEN.'"><input type="hidden" name="prevreplyto" value="'.htmlentities($_POST['replyto']).'"><div class="lastborder"><div class="trow"><input type="checkbox" name="setcws" id="setcws" class="tcell" value="1"'.$setcwsck.'><label for="setcws" class="cblab">Set “Content Warning” to this post’s Content Warning (if any)</label></div><div class="trow"><input type="checkbox" name="setments" id="setments" class="tcell" value="1"'.$setmentsck.'><label for="setments" class="cblab">Set “Text to prepend” to this post’s sender and mentions (except you)</label></div><div class="trow"><input type="checkbox" name="setvisib" id="setvisib" class="tcell" value="1"'.$setvisibck.'><label for="setvisib" class="cblab">Set “Split posts’ visibility” to this post’s visibility</label></div><div class="trow"><input type="checkbox" name="setlang" id="setlang" class="tcell" value="1"'.$setlangck.'><label for="setlang" class="cblab">Set “Split posts’ language” to this post’s language</label></div></div></div>';
+	$optsa=['public'=>'Public','unlisted'=>'Unlisted','private'=>'Followers-only','direct'=>'Direct'];
+	$buff='';
+	foreach ($optsa as $key=>$val) {
+		if ($key==$_POST['visib']) {
+			$selected=' selected';
+			$dispvisib=$val;
+		} else {
+			$selected='';
+		}
+		$buff.="<option value=\"{$key}\"{$selected}>{$val}</option>\n";
+	}
+	$visibility='<div class="inputdiv"><label for="visib">Split posts’ visibility</label><select class="input" id="visib" name="visib">'.$buff.'</select></div>';
+	// taken from 'preferences' -> 'other' on mastodon 4.1.2
+	$optsa=[['aa','Afar','Afaraf'],['ab','Abkhaz','аҧсуа бызшәа'],['ae','Avestan','avesta'],['af','Afrikaans','Afrikaans'],['ak','Akan','Akan'],['am','Amharic','አማርኛ'],['an','Aragonese','aragonés'],['ar','Arabic','اللغة العربية'],['as','Assamese','অসমীয়া'],['av','Avaric','авар мацӀ'],['ay','Aymara','aymar aru'],['az','Azerbaijani','azərbaycan dili'],['ba','Bashkir','башҡорт теле'],['be','Belarusian','беларуская мова'],['bg','Bulgarian','български език'],['bh','Bihari','भोजपुरी'],['bi','Bislama','Bislama'],['bm','Bambara','bamanankan'],['bn','Bengali','বাংলা'],['bo','Tibetan','བོད་ཡིག'],['br','Breton','brezhoneg'],['bs','Bosnian','bosanski jezik'],['ca','Catalan','Català'],['ce','Chechen','нохчийн мотт'],['ch','Chamorro','Chamoru'],['co','Corsican','corsu'],['cr','Cree','ᓀᐦᐃᔭᐍᐏᐣ'],['cs','Czech','čeština'],['cu','Old Church Slavonic','ѩзыкъ словѣньскъ'],['cv','Chuvash','чӑваш чӗлхи'],['cy','Welsh','Cymraeg'],['da','Danish','dansk'],['de','German','Deutsch'],['dv','Divehi','Dhivehi'],['dz','Dzongkha','རྫོང་ཁ'],['ee','Ewe','Eʋegbe'],['el','Greek','Ελληνικά'],['en','English','English'],['eo','Esperanto','Esperanto'],['es','Spanish','Español'],['et','Estonian','eesti'],['eu','Basque','euskara'],['fa','Persian','فارسی'],['ff','Fula','Fulfulde'],['fi','Finnish','suomi'],['fj','Fijian','Vakaviti'],['fo','Faroese','føroyskt'],['fr','French','Français'],['fy','Western Frisian','Frysk'],['ga','Irish','Gaeilge'],['gd','Scottish Gaelic','Gàidhlig'],['gl','Galician','galego'],['gu','Gujarati','ગુજરાતી'],['gv','Manx','Gaelg'],['ha','Hausa','هَوُسَ'],['he','Hebrew','עברית'],['hi','Hindi','हिन्दी'],['ho','Hiri Motu','Hiri Motu'],['hr','Croatian','Hrvatski'],['ht','Haitian','Kreyòl ayisyen'],['hu','Hungarian','magyar'],['hy','Armenian','Հայերեն'],['hz','Herero','Otjiherero'],['ia','Interlingua','Interlingua'],['id','Indonesian','Bahasa Indonesia'],['ie','Interlingue','Interlingue'],['ig','Igbo','Asụsụ Igbo'],['ii','Nuosu','ꆈꌠ꒿ Nuosuhxop'],['ik','Inupiaq','Iñupiaq'],['io','Ido','Ido'],['is','Icelandic','Íslenska'],['it','Italian','Italiano'],['iu','Inuktitut','ᐃᓄᒃᑎᑐᑦ'],['ja','Japanese','日本語'],['jv','Javanese','basa Jawa'],['ka','Georgian','ქართული'],['kg','Kongo','Kikongo'],['ki','Kikuyu','Gĩkũyũ'],['kj','Kwanyama','Kuanyama'],['kk','Kazakh','қазақ тілі'],['kl','Kalaallisut','kalaallisut'],['km','Khmer','ខេមរភាសា'],['kn','Kannada','ಕನ್ನಡ'],['ko','Korean','한국어'],['kr','Kanuri','Kanuri'],['ks','Kashmiri','कश्मीरी'],['ku','Kurmanji (Kurdish)','Kurmancî'],['kv','Komi','коми кыв'],['kw','Cornish','Kernewek'],['ky','Kyrgyz','Кыргызча'],['la','Latin','latine'],['lb','Luxembourgish','Lëtzebuergesch'],['lg','Ganda','Luganda'],['li','Limburgish','Limburgs'],['ln','Lingala','Lingála'],['lo','Lao','ລາວ'],['lt','Lithuanian','lietuvių kalba'],['lu','Luba-Katanga','Tshiluba'],['lv','Latvian','latviešu valoda'],['mg','Malagasy','fiteny malagasy'],['mh','Marshallese','Kajin M̧ajeļ'],['mi','Māori','te reo Māori'],['mk','Macedonian','македонски јазик'],['ml','Malayalam','മലയാളം'],['mn','Mongolian','Монгол хэл'],['mr','Marathi','मराठी'],['ms','Malay','Bahasa Melayu'],['mt','Maltese','Malti'],['my','Burmese','ဗမာစာ'],['na','Nauru','Ekakairũ Naoero'],['nb','Norwegian Bokmål','Norsk bokmål'],['nd','Northern Ndebele','isiNdebele'],['ne','Nepali','नेपाली'],['ng','Ndonga','Owambo'],['nl','Dutch','Nederlands'],['nn','Norwegian Nynorsk','Norsk Nynorsk'],['no','Norwegian','Norsk'],['nr','Southern Ndebele','isiNdebele'],['nv','Navajo','Diné bizaad'],['ny','Chichewa','chiCheŵa'],['oc','Occitan','occitan'],['oj','Ojibwe','ᐊᓂᔑᓈᐯᒧᐎᓐ'],['om','Oromo','Afaan Oromoo'],['or','Oriya','ଓଡ଼ିଆ'],['os','Ossetian','ирон æвзаг'],['pa','Panjabi','ਪੰਜਾਬੀ'],['pi','Pāli','पाऴि'],['pl','Polish','Polski'],['ps','Pashto','پښتو'],['pt','Portuguese','Português'],['qu','Quechua','Runa Simi'],['rm','Romansh','rumantsch grischun'],['rn','Kirundi','Ikirundi'],['ro','Romanian','Română'],['ru','Russian','Русский'],['rw','Kinyarwanda','Ikinyarwanda'],['sa','Sanskrit','संस्कृतम्'],['sc','Sardinian','sardu'],['sd','Sindhi','सिन्धी'],['se','Northern Sami','Davvisámegiella'],['sg','Sango','yângâ tî sängö'],['si','Sinhala','සිංහල'],['sk','Slovak','slovenčina'],['sl','Slovenian','slovenščina'],['sn','Shona','chiShona'],['so','Somali','Soomaaliga'],['sq','Albanian','Shqip'],['sr','Serbian','српски језик'],['ss','Swati','SiSwati'],['st','Southern Sotho','Sesotho'],['su','Sundanese','Basa Sunda'],['sv','Swedish','Svenska'],['sw','Swahili','Kiswahili'],['ta','Tamil','தமிழ்'],['te','Telugu','తెలుగు'],['tg','Tajik','тоҷикӣ'],['th','Thai','ไทย'],['ti','Tigrinya','ትግርኛ'],['tk','Turkmen','Türkmen'],['tl','Tagalog','Wikang Tagalog'],['tn','Tswana','Setswana'],['to','Tonga','faka Tonga'],['tr','Turkish','Türkçe'],['ts','Tsonga','Xitsonga'],['tt','Tatar','татар теле'],['tw','Twi','Twi'],['ty','Tahitian','Reo Tahiti'],['ug','Uyghur','ئۇيغۇرچە‎'],['uk','Ukrainian','Українська'],['ur','Urdu','اردو'],['uz','Uzbek','Ўзбек'],['ve','Venda','Tshivenḓa'],['vi','Vietnamese','Tiếng Việt'],['vo','Volapük','Volapük'],['wa','Walloon','walon'],['wo','Wolof','Wollof'],['xh','Xhosa','isiXhosa'],['yi','Yiddish','ייִדיש'],['yo','Yoruba','Yorùbá'],['za','Zhuang','Saɯ cueŋƅ'],['zh','Chinese','中文'],['zu','Zulu','isiZulu'],['ast','Asturian','Asturianu'],['ckb','Sorani (Kurdish)','سۆرانی'],['cnr','Montenegrin','crnogorski'],['jbo','Lojban','la .lojban.'],['kab','Kabyle','Taqbaylit'],['kmr','Kurmanji (Kurdish)','Kurmancî'],['ldn','Láadan','Láadan'],['lfn','Lingua Franca Nova','lingua franca nova'],['sco','Scots','Scots'],['sma','Southern Sami','Åarjelsaemien Gïele'],['smj','Lule Sami','Julevsámegiella'],['szl','Silesian','ślůnsko godka'],['tai','Tai','ภาษาไท or ภาษาไต'],['tok','Toki Pona','toki pona'],['zba','Balaibalan','باليبلن'],['zgh','Standard Moroccan Tamazight','ⵜⴰⵎⴰⵣⵉⵖⵜ']];
+	$buff='';
+	foreach ($optsa as $val) {
+		if ($val[0]==$_POST['lang']) {
+			$displang=$val[2].' ('.$val[1].')';
+			$selected=' selected';
+		} else {
+			$selected='';
+		}
+		$buff.="<option value=\"{$val[0]}\"{$selected}>{$val[2]} ({$val[1]})</option>\n";
+	}
+	$language="<div class=\"inputdiv\"><label for=\"lang\">Split posts’ language</label><select class=\"input\" id=\"lang\" name=\"lang\">{$buff}</select></div>\n";
+	unset($buff,$optsa);
+}
+$auth.="<div class=\"pseparator\"></div>\n";
+
+if ($dodebug) {
+	$debug='<div class="debug">'.$debug.'</div>';
+	$svers.='-'.rand(10000,999999);
+} else {
+	$debug='';
+}
+
+(isset($_POST['act']) && $_POST['act']=='split') ? $splitfh='' : $splitfh=' class="fullheight"';
+
+header('Content-Language: en');
+
+echo "<!DOCTYPE HTML>
+<html lang=\"en\">
+<head>
+<title>{$sname}: a post splitter for Mastodon</title>
+<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">
+<meta name=\"description\" content=\"A post splitter for Mastodon\">
+<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\">
+<meta property=\"og:image\" content=\"imgs/ogimage.png\">
+<link rel=\"icon\" type=\"image/png\" href=\"imgs/icon-16.png\" sizes=\"16x16\">
+<link rel=\"icon\" type=\"image/png\" href=\"imgs/icon-32.png\" sizes=\"32x32\">
+<link rel=\"icon\" type=\"image/png\" href=\"imgs/icon-192.png\" sizes=\"192x192\">
+<link rel=\"icon\" type=\"image/png\" href=\"imgs/icon-512.png\" sizes=\"512x512\">
+<link rel=\"apple-touch-icon-precomposed\" href=\"imgs/icon-180.png\">
+<link rel=\"stylesheet\" type=\"text/css\" href=\"css/main.css?v={$svers}\">
+<script language=\"JavaScript\" src=\"js/tlds.js?v={$svers}\"></script>
+<script language=\"JavaScript\" src=\"js/main.js?v={$svers}\"></script>
+<script language=\"JavaScript\">
+function swpdisp(elem,defdisp,altdisp) {
+	var eh=document.getElementById(elem), disp=window.getComputedStyle(eh).getPropertyValue('display');
+	if (disp==defdisp)
+		eh.style.display=altdisp;
+	else
+		eh.style.display=defdisp;
+}
+function updinfo() {
+	var avchars=document.getElementById('avchars').value, mincl=".MINCL.", precwavc=0, prelen=mastlength(document.getElementById('pre').value), cwlen=document.getElementById('cw').value.length, maxpostlen=".MAXPOSTC.", postlen=mastlength(document.getElementById('post').value);
+	if (Number.isNaN(avchars) || avchars-mincl<0)
+		precwavc=0;
+	else
+		precwavc=avchars-mincl;
+	if (prelen>0) prelen+=2;
+	postlen=postlen+cwlen+prelen;
+	document.getElementById('cwlen').textContent=cwlen;
+	document.getElementById('cwavc').textContent=precwavc;
+	document.getElementById('cwrmc').textContent=precwavc-prelen-cwlen;
+	document.getElementById('prelen').textContent=prelen;
+	document.getElementById('preavc').textContent=precwavc;
+	document.getElementById('prermc').textContent=precwavc-prelen-cwlen;
+	document.getElementById('postlen').textContent=postlen;
+	document.getElementById('postleft').textContent=maxpostlen-postlen;
+	if (prelen+cwlen<=precwavc) {
+		document.getElementById('cwlen').style.color='white';
+		document.getElementById('cwrmc').style.color='white';
+		document.getElementById('prelen').style.color='white';
+		document.getElementById('prermc').style.color='white';
+	} else {
+		document.getElementById('cwlen').style.color='#550000';
+		document.getElementById('cwrmc').style.color='#550000';
+		document.getElementById('prelen').style.color='#550000';
+		document.getElementById('prermc').style.color='#550000';
+	}
+	if (postlen<=maxpostlen) {
+		document.getElementById('postlen').style.color='white';
+		document.getElementById('postleft').style.color='white';
+	} else {
+		document.getElementById('postlen').style.color='#550000';
+		document.getElementById('postleft').style.color='#550000';
+	}
+}
+var secstowait=0, postint='notset', reptoid='{$reptoid}', postreq;
+function post(postindex) {
+	if (postint!='notset') {
+		clearInterval(postint);
+		postint='notset';
+	}
+	var pstatus=document.getElementById('pstatus'), postscount=parseInt(document.forms['postform'].elements['postscount'].value,10), pperc=document.getElementById('pperc'), plog=document.getElementById('plog'), pbut=document.getElementById('postbutton'), form, msg, totres;
+	if (postindex==0)
+		plog.innerHTML='';
+	msg='Posting split post '+(postindex+1)+' of '+postscount+' …';
+	pstatus.textContent=msg;
+	plog.innerHTML+=msg+'<br>';
+	form=new FormData();
+	if (postindex==0) {
+		if (reptoid!='') form.set('in_reply_to_id',reptoid);
+	} else {
+		form.set('in_reply_to_id',reptoid);
+	}
+	form.set('language',document.forms['postform'].elements['lang'].value);
+	if (postindex>0 && document.forms['postform'].elements['visib'].value=='public')
+		form.set('visibility','unlisted');
+	else
+		form.set('visibility',document.forms['postform'].elements['visib'].value);
+	if (document.forms['postform'].elements['cw'].value!='')
+		form.set('spoiler_text',document.forms['postform'].elements['cw'].value);
+	form.set('status',document.getElementById('post_'+postindex).value);
+	console.log('postindex: '+postindex);
+	console.log(form);
+	postreq=new XMLHttpRequest();
+	postreq.onloadend=(e)=> {
+		console.log(postreq.response);
+		//if (postindex==1) { postreq.response['ok']=false; postreq.response['error']='server exploded'; }// test err
+		if (postreq.response===null) {
+			console.log('Error: response is null');
+			msg='An error occurred while posting split post '+(postindex+1)+' of '+postscount;
+			if (postreq.status!='' && postreq.statusText!='')
+				msg+=' (server returned «'+postreq.status+': '+postreq.statusText+'»)';
+			pstatus.textContent=msg;
+			plog.innerHTML+=msg+'<br>';
+			document.forms['postform'].elements['postsoffset'].value=postindex;
+			pbut.disabled=false;
+		} else if (!postreq.response['ok']) {
+			console.log('Error: response is not ok');
+			msg='An error occurred while posting split post '+(postindex+1)+' of '+postscount+': '+postreq.response['error'];
+			pstatus.textContent=msg;
+			plog.innerHTML+=msg+'<br>';
+			document.forms['postform'].elements['postsoffset'].value=postindex;
+			pbut.disabled=false;
+		} else {
+			//console.log(e);
+			//console.log('rate limit remaining: '+postreq.response['remaining']+'; secstoreset: '+postreq.response['secstoreset']+'; id: '+postreq.response['id']+'.');
+			msg='Successfully posted split post '+(postindex+1)+' of '+postscount+' :-)';
+			pstatus.textContent=msg;
+			plog.innerHTML+=msg+'<br>';
+			pperc.style.width=100/postscount*(postindex+1)+'%';
+			reptoid=postreq.response['id'];
+			if (postindex<postscount-1) {
+				if (postreq.response['remaining']!==null && postreq.response['secstoreset']!==null && postreq.response['remaining']<=".REQSTOPRESV.") {
+					secstowait=postreq.response['secstoreset'];
+					plog.innerHTML+='Reached server’s rate limit, waiting '+ght(secstowait)+' for next rate limit reset …<br>';
+					totres=setTimeout(post,secstowait*1000,postindex+1);
+					postint=setInterval(postwait,500,postindex+1,Date.now()/1000);
+				} else {
+					totres=setTimeout(post,".POSTPAUSE.",postindex+1);
+				}
+			} else {
+				pbut.style.display='none';
+			}
+		}
+		return;
+	};
+	postreq.responseType='json';
+	postreq.open('POST','post.php');
+	postreq.send(form);
+}
+function postwait(postindex,start) {
+	var remsecs=Math.ceil(secstowait-(Date.now()/1000-start));
+	document.getElementById('pstatus').textContent='Reached server’s rate limit, waiting '+ght(remsecs)+' for next rate limit reset …';
+}
+function postboot() {
+	document.getElementById('postbutton').disabled=true;
+	document.getElementById('pmonitor').style.display='block';
+	post(parseInt(document.forms['postform'].elements['postsoffset'].value,10));
+}
+function setpostbutton() {
+	var pb=document.getElementById('postbutton');
+	pb.type='button';
+	pb.addEventListener('click',postboot);
+	pb.textContent='Post';
+}
+var loggedin=".booltostr($loggedin).";
+function setpcb(index) {
+	if (!loggedin)
+		document.getElementById('pcb_'+index).style.display='block';
+}
+function ght(secs) {
+	out='';
+// years
+	x=Math.floor(secs/31536000);
+	if (x>0)
+		(x==1) ? out+=x+' year, ' : out+=x+' years, ';
+	secs=secs-x*31536000;
+// weeks
+	x=Math.floor(secs/604800);
+	if (x>0)
+		(x==1) ? out+=x+' week, ' : out+=x+' weeks, ';
+	secs=secs-x*604800;
+// days
+	x=Math.floor(secs/86400);
+	if (x>0)
+		(x==1) ? out+=x+' day, ' : out+=x+' days, ';
+	secs=secs-x*86400;
+// hours
+	x=Math.floor(secs/3600);
+	if (x>0)
+		(x==1) ? out+=x+' hour, ' : out+=x+' hours, ';
+	secs=secs-x*3600;
+// minutes
+	x=Math.floor(secs/60);
+	if (x>0)
+		(x==1) ? out+=x+' minute, ' : out+=x+' minutes, ';
+	secs=secs-x*60;
+// seconds
+	(secs==1) ? out+=secs+' second' : out+=secs+' seconds';
+	return out;
+}
+function ckf() {
+	var	mincl=".MINCL.",
+		maxpostc=".MAXPOSTC.",
+		avchars=document.getElementById('avchars').value,
+		cw=document.getElementById('cw'),
+		cwlen=cw.value.length,
+		pre=document.getElementById('pre');
+		prelen=mastlength(pre.value),
+		postlen=mastlength(document.getElementById('post').value),
+		pmsg=document.getElementById('pupmsg'),
+		ptit=document.getElementById('puptit'),
+		maxcwprelen=avchars-mincl,
+		ofelems=document.forms['authform'].elements,
+		msg='',
+		msgs=[];
+	if (cwlen+prelen>maxcwprelen) msgs.push('text of Content Warning + text to prepend is '+(cwlen+prelen)+' characters long, that is '+(cwlen+prelen-maxcwprelen)+' characters longer than its maximum allowed length ('+maxcwprelen+' characters, that is '+avchars+' available characters minus '+mincl+' characters)');
+	if (postlen>maxpostc) msgs.push('post to split is '+postlen+' characters long, that is '+(postlen-maxpostc)+' characters longer than its maximum allowed length, '+maxpostc);
+	var len=msgs.length, sep=';';
+	if (len>0) {
+		ptit.textContent='Errors';
+		msg='<ul>';
+		for (i=0; i<len; i++) {
+			if (i==len-1) sep='.';
+			msg+='<li>'+msgs[i]+sep+'</li>';
+		}
+		pmsg.innerHTML=msg+'</ul>';
+		swpdisp('popup','none','flex');
+		return false;
+	} else {
+		msgs=[];
+		if (document.getElementById('replyto')!=null && document.getElementById('replyto').value.trim()!='') {
+			if (document.getElementById('setcws').checked && cw.value!=ofelems['cw'].value)
+				msgs.push('you have changed “Content Warning”, but it will be overwritten by the Content Warning detected in the post you are replying to (if present)');
+			if (document.getElementById('setments').checked && pre.value!=ofelems['pre'].value)
+				msgs.push('you have changed “Text to prepend to each split post”, but it will be overwritten by the sender and mentions (except you) detected in the post you are replying to');
+			if (document.getElementById('setvisib').checked && document.getElementById('visib').value!=ofelems['visib'].value)
+				msgs.push('you have changed “Split posts’ visibility”, but it will be set to the visibility of the post you are replying to');
+			if (document.getElementById('setlang').checked && document.getElementById('lang').value!=ofelems['lang'].value)
+				msgs.push('you have changed “Split posts’ language”, but it will be set to the language of the post you are replying to');
+		}
+		len=msgs.length;
+		sep=';';
+		if (len>0) {
+			ptit.textContent='Warnings';
+			msg='<ul>';
+			for (i=0; i<len; i++) {
+				if (i==len-1) sep='.';
+				msg+='<li>'+msgs[i]+sep+'</li>';
+			}
+			pmsg.innerHTML=msg+'</ul><p>&nbsp;</p><p class=\"firstp\">Do you want to continue?</p><p>&nbsp;</p><button class=\"halfbutton\" onclick=\"document.mainform.submit();\">Yes</button><button class=\"halfbutton\" onclick=\"swpdisp(\'popup\',\'flex\',\'none\');event.stopPropagation();\">No</button>';
+			swpdisp('popup','none','flex');
+			return false;
+		} else {
+			return true;
+		}
+	}
+}
+</script>
+</head>
+<body>
+<div id=\"notif\" title=\"Close\" onclick=\"this.style.display='none';\">Elo!</div>
+<div id=\"popup\" onclick=\"swpdisp('popup','flex','none');\">
+<div id=\"popupmsg\">
+<div id=\"puptitle\"><table class=\"tittab\"><tr><td style=\"width:24px;\"></td><td style=\"text-align:center;\" id=\"puptit\">Uz!</td><td style=\"width:24px;\"><img src=\"imgs/icon_close.png\" class=\"closeb\" onclick=\"swpdisp('popup','flex','none');event.stopPropagation();\"></td></tr></table></div>
+<div id=\"pupmsg\">Elo!</div>
+</div>
+</div>
+{$debug}
+<div id=\"main\">
+{$headmsgs}
+<h1>{$sname}: a post splitter for Mastodon</h1>
+{$intro}
+<div class=\"separator\"></div>
+{$auth}
+<div{$splitfh}>
+<a name=\"split\"></a><h2>Split post</h2>
+{$splitmsgs}
+<form method=\"post\" id=\"mainform\" name=\"mainform\" action=\"{$formact}\" onsubmit=\"return ckf();\">
+<input type=\"hidden\" name=\"round\" value=\"".$_POST['round']."\">
+<div class=\"inputdiv\"><label for=\"avchars\">Available characters per post (".MINAC."-".MAXAC.")</label><input type=\"number\" id=\"avchars\" name=\"avchars\" class=\"input\" placeholder=\"The number of characters per post available on your server\" value=\"{$_POST['avchars']}\" min=\"".MINAC."\" max=\"".MAXAC."\" onkeyup=\"updinfo();\" onchange=\"updinfo();\" required></div>
+{$replyto}
+<div class=\"inputdiv\"><label for=\"cw\">Content Warning (applies to all split posts) (<span id=\"cwlen\">{$cwlen}</span>/<span id=\"cwavc\">{$maxcwprec}</span>: <span id=\"cwrmc\">".($maxcwprec-$cwprelen)."</span> left)</label><input type=\"text\" id=\"cw\" name=\"cw\" class=\"input\" placeholder=\"Leave blank for no Content Warning\" value=\"".htmlentities($_POST['cw'])."\" maxlength=\"".(MAXAC-MINCL)."\" onkeyup=\"updinfo();\" onchange=\"updinfo();\"></div>
+<div class=\"inputdiv\"><label for=\"pre\">Text to prepend to each split post, eg. the recipient(s) (<span id=\"prelen\">{$prelen}</span>/<span id=\"preavc\">{$maxcwprec}</span>: <span id=\"prermc\">".($maxcwprec-$cwprelen)."</span> left)</label><input type=\"text\" id=\"pre\" name=\"pre\" class=\"input\" placeholder=\"Leave blank to prepend nothing\" value=\"".htmlentities($_POST['pre'])."\" maxlength=\"".(MAXAC-MINCL)."\" onkeyup=\"updinfo();\" onchange=\"updinfo();\"></div>
+{$visibility}
+{$language}
+<div class=\"inputdiv\"><label for=\"post\">Post to split (<span id=\"postlen\">{$postlen}</span>/".MAXPOSTC.": <span id=\"postleft\">".(MAXPOSTC-$postlen)."</span> left)</label><textarea placeholder=\"Write or paste your long post here\" id=\"post\" name=\"post\" class=\"input\" rows=\"10\" onkeyup=\"updinfo();\" onchange=\"updinfo();\" required>".htmlentities($_POST['post'])."</textarea></div>
+<script language=\"JavaScript\">
+updinfo();
+</script>
+<div class=\"inputdiv\"><label for=\"cntpos\">Split posts’ counter position</label>
+<fieldset>
+<div class=\"trow\"><input type=\"radio\" id=\"cntpos_before\" name=\"cntpos\" value=\"before\" class=\"tcell\" required{$rbsck['cntpos_before']}><label for=\"cntpos_before\" class=\"cblab\">Before each split post’s body</label></div>
+<div class=\"trow\"><input type=\"radio\" id=\"cntpos_after\" name=\"cntpos\" value=\"after\" class=\"tcell\" required{$rbsck['cntpos_after']}><label for=\"cntpos_after\" class=\"cblab\">After each split post’s body</label></div>
+</fieldset>
+</div>
+<div class=\"inputdiv\"><label for=\"addref\">Add link to this page at last split post’s end?</label>
+<fieldset>
+<div class=\"trow\"><input type=\"radio\" id=\"addref_no\" name=\"addref\" value=\"no\" class=\"tcell\" required{$rbsck['addref_no']}><label for=\"addref_no\" class=\"cblab\">No</label></div>
+<div class=\"trow\"><input type=\"radio\" id=\"addref_ifav\" name=\"addref\" value=\"ifav\" class=\"tcell\" required{$rbsck['addref_ifav']}><label for=\"addref_ifav\" class=\"cblab\">If last split post has enough space left</label></div>
+</fieldset>
+</div>
+<div class=\"lastinputdiv\"><button type=\"submit\" id=\"button\" name=\"act\" value=\"split\" class=\"button\">Split</button></div>\n</form>\n</div>\n";
+
+if ($splitmsgs=='') {
+	if (isset($_POST['act']) && $_POST['act']=='split' && $_POST['post']!='') {
+		$linklen=postlength($conf['link']);
+		($_POST['pre']!='') ? $pre=$_POST['pre']."\n\n" : $pre='';
+		$posts=splitpost($_POST['post'],$_POST['avchars'],$_POST['cw'],$pre,$cntbef);
+		$postscount=count($posts);
+		$errposts=[];
+		for ($i=0; $i<$postscount; $i++)
+			if ($posts[$i]['mastlen']>$_POST['avchars']) $errposts[]="<a href=\"#pa_{$i}\">{$i}</a>";
+		$epc=count($errposts);
+		if ($epc>0) {
+			if ($epc==1)
+				echo "<p class=\"firstp\">Sorry, the length of one split post (namely {$errposts[0]}) exceeds {$_POST['avchars']} characters.";
+			else
+				echo "<p class=\"firstp\">Sorry, the length of {$epc} split posts (namely ".implode(', ',$errposts).") exceeds {$_POST['avchars']} characters.";
+			echo " Please report this bug <a href=\"https://git.lattuga.net/pongrebio/verbose/issues\">here</a>, possibly citing the original post text.</p>\n";
+		}
+		if ($postscount>1 && $aliif && $posts[$postscount-1]['mastlen']+$linklen<=$_POST['avchars']) {
+			$posts[$postscount-1]['post'].=$conf['link'];
+			$posts[$postscount-1]['mastlen']+=$linklen;
+		}
+	}
+	if ($postscount>0) {
+		//if ($loggedin) $postmsgs.="<div class=\"normtext\">“Post all” button is at the bottom ;-)</div>\n";
+		echo "<div class=\"pseparator\"></div>\n<div class=\"fullheight\"><a name=\"splitresults\"></a><h2>Split results</h2>\n{$postmsgs}<form method=\"post\" id=\"postform\" name=\"postform\" action=\"{$formact}\">\n";
+		$info='Content Warning: ';
+		($posts[$postsoffset]['cw']!='') ? $info.=htmlentities($_POST['cw']) : $info.='<span class="notset">not set</span>';
+		if ($loggedin) $info.='<br>Visibility: '.$dispvisib.'<br>Language: '.htmlentities($displang);
+		($loggedin) ? $postdivclass='postdivnobut' : $postdivclass='postdiv';
+		for ($i=$postsoffset; $i<$postscount; $i++) {
+			$io=$i+1;
+			($posts[$i]['mastlen']>$_POST['avchars']) ? $phclass='errposthead' : $phclass='posthead';
+			echo "<div class=\"{$phclass}\"><a name=\"pa_{$i}\"></a>Post {$io}/{$postscount} (“Mastodon length”: {$posts[$i]['mastlen']}; real length: ".(mb_strlen($posts[$i]['post'],'UTF-8')+$cwlen).")</div>\n<div class=\"outputdiv\"><div class=\"outputnobb\">{$info}</div></div>\n<div class=\"outputdiv\"><div id=\"postdiv_{$i}\" class=\"{$postdivclass}\">".nl2br(htmlentities($posts[$i]['post']))."</div><input type=\"hidden\" id=\"post_{$i}\" name=\"post_{$i}\" value=\"".htmlentities($posts[$i]['post'])."\"><input type=\"hidden\" id=\"mastlen_{$i}\" name=\"mastlen_{$i}\" value=\"{$posts[$i]['mastlen']}\"></div>\n<div class=\"outputdiv\"><button type=\"button\" id=\"pcb_{$i}\" class=\"copybutton\" onclick=\"copytext({$i});\">Copy post text</button><script language=\"JavaScript\">\nsetpcb({$i});\n</script>\n</div>\n";
+		}
+		if ($loggedin) {
+			if (!isset($lspostid)) $lspostid='';
+			echo "<div class=\"lastoutputdiv\"><div id=\"pmonitor\">\n<div id=\"pstatus\"></div>\n<div id=\"ppercenv\"><div id=\"pperc\"> </div></div>\n<div id=\"plog\"> </div>\n</div>\n<button type=\"submit\" id=\"postbutton\" name=\"act\" value=\"sendposts\" class=\"postbutton\">{$pbtext}</button></div>\n".oldpost2hid()."<input type=\"hidden\" name=\"postscount\" value=\"{$postscount}\">\n<input type=\"hidden\" name=\"postwaituntil\" value=\"{$postwaituntil}\">\n<input type=\"hidden\" name=\"postsoffset\" value=\"{$postsoffset}\">\n<input type=\"hidden\" name=\"lastsentpostid\" value=\"{$lspostid}\">\n<script language=\"JavaScript\">\nsetpostbutton();\n</script>\n";
+		}
+		echo "</form></div>\n";
+	} elseif ($postmsgs!='') {
+		echo "<div class=\"separator\"></div>\n{$postmsgs}";
+	}
+}
+
+if (isset($conf['footer']))
+	echo "<div id=\"almfooter\">{$conf['footer']}</div>\n";
+
+echo "<div id=\"footer\"><a href=\"".SREPO."\">".SNAME." ".SVERS."</a></div>
+</div>
+</body>
+</html>\n";
+
+function preprint($var) {
+	return '<pre>'.print_r($var,true)."</pre>\n";
+}
+
+function necho($var) {
+	// do nothing :-)
+}
+
+function dieyoung($msg) {
+	echo $msg;
+	exit(1);
+}
+
+function cb2hid($pkey) {
+	if (isset($_POST[$pkey]) && $_POST[$pkey]=='1')
+		return '1';
+	else
+		return '0';
+}
+
+function oldpost2hid() {
+	return "<input type=\"hidden\" name=\"avchars\" value=\"{$_POST['avchars']}\">\n<input type=\"hidden\" name=\"cw\" value=\"".htmlentities($_POST['cw'])."\">\n<input type=\"hidden\" name=\"pre\" value=\"".htmlentities($_POST['pre'])."\">\n<input type=\"hidden\" name=\"post\" value=\"".htmlentities($_POST['post'])."\">\n<input type=\"hidden\" name=\"replyto\" value=\"".htmlentities($_POST['replyto'])."\">\n<input type=\"hidden\" name=\"setcws\" value=\"".cb2hid('setcws')."\">\n<input type=\"hidden\" name=\"setments\" value=\"".cb2hid('setments')."\">\n<input type=\"hidden\" name=\"setvisib\" value=\"".cb2hid('setvisib')."\">\n<input type=\"hidden\" name=\"setlang\" value=\"".cb2hid('setlang')."\">\n<input type=\"hidden\" name=\"visib\" value=\"{$_POST['visib']}\">\n<input type=\"hidden\" name=\"lang\" value=\"{$_POST['lang']}\">\n<input type=\"hidden\" name=\"cntpos\" value=\"{$_POST['cntpos']}\">\n<input type=\"hidden\" name=\"addref\" value=\"{$_POST['addref']}\">\n<input type=\"hidden\" name=\"round\" value=\"{$_POST['round']}\">\n";
+}
+
+?>
diff --git a/js/main.js b/js/main.js
new file mode 100644
index 0000000..948c501
--- /dev/null
+++ b/js/main.js
@@ -0,0 +1,26 @@
+/*function copytext(elid) {
+	window.getSelection().selectAllChildren(document.getElementById(elid));
+	document.execCommand('copy');
+}*/
+function copytext(index) {
+	navigator.clipboard.writeText(document.getElementById('post_'+index).value);
+	var notif=document.getElementById('notif');
+	notif.textContent='Post '+(index+1)+' text was successfully copied into your clipboard :-)';
+	notif.style.display='block';
+}
+
+function repments(match,p1,p2) {
+	return p1+p2;
+}
+
+function replinks(match,p1) {
+	return p1+'UUUUUUUUUUUUUUUUUUUUUUU';
+}
+
+function mastlength(cont) {
+	const mentre=/(^|\W)(@[a-zA-Z0-9_]+)@(([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}\.)+([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}\b/g;
+	const linkre=new RegExp(`(^|\\W)https?://(([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}\\.)+(${tlds.join('|')})(/\\S*[\\w/=_\-])?`,'g');
+	cont=cont.replace(mentre,repments);
+	cont=cont.replace(linkre,replinks);
+	return cont.length;
+}
diff --git a/lib/booltostr.php b/lib/booltostr.php
new file mode 100644
index 0000000..08bc0cd
--- /dev/null
+++ b/lib/booltostr.php
@@ -0,0 +1,8 @@
+<?php
+function booltostr($bool,$true='true',$false='false') {
+	if ($bool)
+		return($true);
+	else
+		return($false);
+}
+?>
diff --git a/lib/ckratelimit.php b/lib/ckratelimit.php
new file mode 100644
index 0000000..184bbfd
--- /dev/null
+++ b/lib/ckratelimit.php
@@ -0,0 +1,36 @@
+<?php
+function ckratelimit($headers,$echofun,$onlyret=false,$verbose=false) {//$echofun has to be the name of a defined function to pass messages to
+	$ret=null;
+	if (is_array($headers)) {
+		//echo "ckratelimit: {$headers}: ".print_r($headers,true));
+		$buff=[];
+		array_shift($headers);
+		foreach ($headers as $header)
+			if (preg_match('/^([^:]+):(.*)$/Uu',$header,$matches)===1)
+				$buff[$matches[1]]=trim($matches[2]);
+		$headers=$buff;
+		//print_r($headers);
+		if (isset($headers['Date']) && isset($headers['X-RateLimit-Reset']) && isset($headers['X-RateLimit-Remaining'])) {
+			//Wed, 30 Mar 2022 21:27:22 GMT
+			$srvnow=strtotime($headers['Date']);
+			//2022-03-31T04:05:00.058705Z
+			$srvrlreset=strtotime($headers['X-RateLimit-Reset']);
+			$srvrlremain=$headers['X-RateLimit-Remaining'];
+			$secstoreset=$srvrlreset-$srvnow;
+			$ret=['remaining'=>$srvrlremain,'secstoreset'=>$secstoreset];
+			if ($onlyret)
+				return $ret;
+			if ($verbose) $echofun("ckratelimit: X-RateLimit-Remaining: {$srvrlremain}; server time: {$srvnow}: ".gmdate('c',$srvnow).'; X-RateLimit-Reset: '.gmdate('c',$srvrlreset).'; current seconds before reset: '.$secstoreset.".\n");
+			if ($srvrlremain==0) {
+				$echofun("Reached rate limit, waiting {$secstoreset} seconds for rate limit reset ...\n");
+				sleep($secstoreset);
+			}
+		} else {
+			if ($verbose) $echofun("ckratelimit: no «Date» / «X-RateLimit-Reset» / «X-RateLimit-Remaining» header(s)!\n");
+		}
+	} else {
+		if ($verbose) $echofun("ckratelimit: headers is not an array!\n");
+	}
+	return $ret;
+}
+?>
diff --git a/lib/getfirstbrowserlang.php b/lib/getfirstbrowserlang.php
new file mode 100644
index 0000000..37318d1
--- /dev/null
+++ b/lib/getfirstbrowserlang.php
@@ -0,0 +1,20 @@
+<?php
+function getfirstbrowserlang($default='en') {
+	if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
+		$langs=[];
+		$buff=explode(',',$_SERVER['HTTP_ACCEPT_LANGUAGE']);
+		foreach ($buff as $ent) {
+			$ent=trim($ent);
+			$ent=explode(';',$ent);
+			(count($ent)<2) ? $ent[1]=1 : $ent[1]=preg_replace('/^q=/','',$ent[1])+0;
+			$ent[0]=locale_canonicalize($ent[0]);
+			$langs[$ent[0]]=$ent[1];
+		}
+		arsort($langs);
+		$blang=array_key_first($langs);
+		return $blang;
+	} else {
+		return $default;
+	}
+}
+?>
diff --git a/lib/gettlds.php b/lib/gettlds.php
new file mode 100644
index 0000000..c8106f3
--- /dev/null
+++ b/lib/gettlds.php
@@ -0,0 +1,44 @@
+<?php
+
+function gettlds() {
+	$tlds=['zw', 'zuerich', 'zone', 'zm', 'zip', 'zero', 'zara', 'zappos', 'za', 'yun', 'yt', 'youtube', 'you', 'yokohama', 'yoga', 'yodobashi', 'ye', 'yandex', 'yamaxun', 'yahoo', 'yachts', 'xyz', 'xxx', 'xn--zfr164b', 'xn--ygbi2ammx', 'xn--yfro4i67o', 'xn--y9a3aq', 'xn--xkc2dl3a5ee0h', 'xn--xkc2al3hye2a', 'xn--xhq521b', 'xn--wgbl6a', 'xn--wgbh1c', 'xn--w4rs40l', 'xn--w4r85el8fhu5dnra', 'xn--vuq861b', 'xn--vhquv', 'xn--vermgensberatung-pwb', 'xn--vermgensberater-ctb', 'xn--unup4y', 'xn--tiq49xqyj', 'xn--tckwe', 'xn--t60b56a', 'xn--ses554g', 'xn--s9brj9c', 'xn--rvc1e0am3e', 'xn--rovu88b', 'xn--rhqv96g', 'xn--qxam', 'xn--qxa6a', 'xn--qcka1pmc', 'xn--q9jyb4c', 'xn--q7ce6a', 'xn--pssy2u', 'xn--pgbs0dh', 'xn--p1ai', 'xn--p1acf', 'xn--otu796d', 'xn--ogbpf8fl', 'xn--o3cw4h', 'xn--nyqy26a', 'xn--nqv7fs00ema', 'xn--nqv7f', 'xn--node', 'xn--ngbrx', 'xn--ngbe9e0a', 'xn--ngbc5azd', 'xn--mxtq1m', 'xn--mk1bu44c', 'xn--mix891f', 'xn--mgbx4cd0ab', 'xn--mgbtx2b', 'xn--mgbt3dhd', 'xn--mgbpl2fh', 'xn--mgbi4ecexp', 'xn--mgbgu82a', 'xn--mgberp4a5d4ar', 'xn--mgbcpq6gpa1a', 'xn--mgbca7dzdo', 'xn--mgbc0a9azcg', 'xn--mgbbh1a71e', 'xn--mgbbh1a', 'xn--mgbayh7gpa', 'xn--mgbai9azgqp6j', 'xn--mgbah1a3hjkrd', 'xn--mgbab2bd', 'xn--mgbaam7a8h', 'xn--mgbaakc7dvf', 'xn--mgba7c0bbn0a', 'xn--mgba3a4f16a', 'xn--mgba3a3ejt', 'xn--mgb9awbf', 'xn--lgbbat1ad8j', 'xn--l1acc', 'xn--kput3i', 'xn--kpry57d', 'xn--kprw13d', 'xn--kcrx77d1x4a', 'xn--jvr189m', 'xn--jlq480n2rg', 'xn--j6w193g', 'xn--j1amh', 'xn--j1aef', 'xn--io0a7i', 'xn--imr513n', 'xn--i1b6b1a6a2e', 'xn--hxt814e', 'xn--h2brj9c8c', 'xn--h2brj9c', 'xn--h2breg3eve', 'xn--gk3at1e', 'xn--gecrj9c', 'xn--gckr3f0f', 'xn--g2xx48c', 'xn--fzys8d69uvgm', 'xn--fzc2c9e2c', 'xn--fpcrj9c3d', 'xn--flw351e', 'xn--fjq720a', 'xn--fiqz9s', 'xn--fiqs8s', 'xn--fiq64b', 'xn--fiq228c5hs', 'xn--fhbei', 'xn--fct429k', 'xn--efvy88h', 'xn--eckvdtc9d', 'xn--e1a4c', 'xn--d1alf', 'xn--d1acj3b', 'xn--czru2d', 'xn--czrs0t', 'xn--czr694b', 'xn--clchc0ea0b2g2a9gcd', 'xn--cg4bki', 'xn--cckwcxetd', 'xn--cck2b3b', 'xn--c2br7g', 'xn--c1avg', 'xn--bck1b9a5dre4c', 'xn--b4w605ferd', 'xn--9krt00a', 'xn--9et52u', 'xn--9dbq2a', 'xn--90ais', 'xn--90ae', 'xn--90a3ac', 'xn--8y0a063a', 'xn--80aswg', 'xn--80asehdb', 'xn--80aqecdr1a', 'xn--80ao21a', 'xn--80adxhks', 'xn--6qq986b3xl', 'xn--6frz82g', 'xn--5tzm5g', 'xn--5su34j936bgsg', 'xn--55qx5d', 'xn--55qw42g', 'xn--54b7fta0cc', 'xn--4gbrim', 'xn--4dbrk0ce', 'xn--45q11c', 'xn--45brj9c', 'xn--45br5cyl', 'xn--42c2d9a', 'xn--3pxu8k', 'xn--3hcrj9c', 'xn--3e0b707e', 'xn--3ds443g', 'xn--3bst00m', 'xn--30rr7y', 'xn--2scrj9c', 'xn--1qqw23a', 'xn--1ck2e1b', 'xn--11b4c3d', 'xin', 'xihuan', 'xfinity', 'xerox', 'xbox', 'wtf', 'wtc', 'ws', 'wow', 'world', 'works', 'work', 'woodside', 'wolterskluwer', 'wme', 'winners', 'wine', 'windows', 'win', 'williamhill', 'wiki', 'wien', 'whoswho', 'wf', 'weir', 'weibo', 'wedding', 'wed', 'website', 'weber', 'webcam', 'weatherchannel', 'weather', 'watches', 'watch', 'wanggou', 'wang', 'walter', 'walmart', 'wales', 'vuelos', 'vu', 'voyage', 'voto', 'voting', 'vote', 'volvo', 'volkswagen', 'vodka', 'vn', 'vlaanderen', 'vivo', 'viva', 'vision', 'visa', 'virgin', 'vip', 'vin', 'villas', 'viking', 'vig', 'video', 'viajes', 'vi', 'vg', 'vet', 'versicherung', 'verisign', 'ventures', 'vegas', 've', 'vc', 'vanguard', 'vana', 'vacations', 'va', 'uz', 'uy', 'us', 'ups', 'uol', 'uno', 'university', 'unicom', 'uk', 'ug', 'ubs', 'ubank', 'ua', 'tz', 'tw', 'tvs', 'tv', 'tushu', 'tunes', 'tui', 'tube', 'tt', 'trv', 'trust', 'travelersinsurance', 'travelers', 'travel', 'training', 'trading', 'trade', 'tr', 'toys', 'toyota', 'town', 'tours', 'total', 'toshiba', 'toray', 'top', 'tools', 'tokyo', 'today', 'to', 'tn', 'tmall', 'tm', 'tl', 'tkmaxx', 'tk', 'tjx', 'tjmaxx', 'tj', 'tirol', 'tires', 'tips', 'tiffany', 'tienda', 'tickets', 'tiaa', 'theatre', 'theater', 'thd', 'th', 'tg', 'tf', 'teva', 'tennis', 'temasek', 'tel', 'technology', 'tech', 'team', 'tdk', 'td', 'tci', 'tc', 'taxi', 'tax', 'tattoo', 'tatar', 'tatamotors', 'target', 'taobao', 'talk', 'taipei', 'tab', 'sz', 'systems', 'sydney', 'sy', 'sx', 'swiss', 'swatch', 'sv', 'suzuki', 'surgery', 'surf', 'support', 'supply', 'supplies', 'sucks', 'su', 'style', 'study', 'studio', 'stream', 'store', 'storage', 'stockholm', 'stcgroup', 'stc', 'statefarm', 'statebank', 'star', 'staples', 'stada', 'st', 'ss', 'srl', 'sr', 'spot', 'sport', 'space', 'spa', 'soy', 'sony', 'song', 'solutions', 'solar', 'sohu', 'software', 'softbank', 'social', 'soccer', 'so', 'sncf', 'sn', 'smile', 'smart', 'sm', 'sling', 'sl', 'skype', 'sky', 'skin', 'ski', 'sk', 'sj', 'site', 'singles', 'sina', 'silk', 'si', 'showtime', 'show', 'shouji', 'shopping', 'shop', 'shoes', 'shiksha', 'shia', 'shell', 'shaw', 'sharp', 'shangrila', 'sh', 'sg', 'sfr', 'sexy', 'sex', 'sew', 'seven', 'services', 'sener', 'select', 'seek', 'security', 'secure', 'seat', 'search', 'se', 'sd', 'scot', 'science', 'schwarz', 'schule', 'school', 'scholarships', 'schmidt', 'schaeffler', 'scb', 'sca', 'sc', 'sbs', 'sbi', 'sb', 'saxo', 'save', 'sas', 'sarl', 'sap', 'sanofi', 'sandvikcoromant', 'sandvik', 'samsung', 'samsclub', 'salon', 'sale', 'sakura', 'safety', 'safe', 'saarland', 'sa', 'ryukyu', 'rwe', 'rw', 'run', 'ruhr', 'rugby', 'ru', 'rsvp', 'rs', 'room', 'rogers', 'rodeo', 'rocks', 'rocher', 'ro', 'rip', 'rio', 'ril', 'ricoh', 'richardli', 'rich', 'rexroth', 'reviews', 'review', 'restaurant', 'rest', 'republican', 'report', 'repair', 'rentals', 'rent', 'ren', 'reliance', 'reit', 'reisen', 'reise', 'rehab', 'redumbrella', 'redstone', 'red', 'recipes', 'realty', 'realtor', 'realestate', 'read', 're', 'radio', 'racing', 'quest', 'quebec', 'qpon', 'qa', 'py', 'pwc', 'pw', 'pub', 'pt', 'ps', 'prudential', 'pru', 'protection', 'property', 'properties', 'promo', 'progressive', 'prof', 'productions', 'prod', 'pro', 'prime', 'press', 'praxi', 'pramerica', 'pr', 'post', 'porn', 'politie', 'poker', 'pohl', 'pnc', 'pn', 'pm', 'plus', 'plumbing', 'playstation', 'play', 'place', 'pl', 'pk', 'pizza', 'pioneer', 'pink', 'ping', 'pin', 'pid', 'pictures', 'pictet', 'pics', 'physio', 'photos', 'photography', 'photo', 'phone', 'philips', 'phd', 'pharmacy', 'ph', 'pg', 'pfizer', 'pf', 'pet', 'pe', 'pccw', 'pay', 'passagens', 'party', 'parts', 'partners', 'pars', 'paris', 'panasonic', 'page', 'pa', 'ovh', 'ott', 'otsuka', 'osaka', 'origins', 'organic', 'org', 'orange', 'oracle', 'open', 'ooo', 'online', 'onl', 'ong', 'one', 'omega', 'om', 'ollo', 'oldnavy', 'olayangroup', 'olayan', 'okinawa', 'office', 'observer', 'obi', 'nz', 'nyc', 'nu', 'ntt', 'nrw', 'nra', 'nr', 'np', 'nowtv', 'nowruz', 'now', 'norton', 'northwesternmutual', 'nokia', 'no', 'nl', 'nissay', 'nissan', 'ninja', 'nikon', 'nike', 'nico', 'ni', 'nhk', 'ngo', 'ng', 'nfl', 'nf', 'nexus', 'nextdirect', 'next', 'news', 'new', 'neustar', 'network', 'netflix', 'netbank', 'net', 'nec', 'ne', 'nc', 'nba', 'navy', 'natura', 'name', 'nagoya', 'nab', 'na', 'mz', 'my', 'mx', 'mw', 'mv', 'mutual', 'music', 'museum', 'mu', 'mtr', 'mtn', 'mt', 'msd', 'ms', 'mr', 'mq', 'mp', 'movie', 'mov', 'motorcycles', 'moto', 'moscow', 'mortgage', 'mormon', 'monster', 'money', 'monash', 'mom', 'moi', 'moe', 'moda', 'mobile', 'mobi', 'mo', 'mn', 'mma', 'mm', 'mls', 'mlb', 'ml', 'mk', 'mitsubishi', 'mit', 'mint', 'mini', 'mil', 'microsoft', 'miami', 'mh', 'mg', 'merckmsd', 'menu', 'men', 'memorial', 'meme', 'melbourne', 'meet', 'media', 'med', 'me', 'md', 'mckinsey', 'mc', 'mba', 'mattel', 'marshalls', 'marriott', 'markets', 'marketing', 'market', 'map', 'mango', 'management', 'man', 'makeup', 'maison', 'maif', 'madrid', 'ma', 'ly', 'lv', 'luxury', 'luxe', 'lundbeck', 'lu', 'ltda', 'ltd', 'lt', 'ls', 'lr', 'lplfinancial', 'lpl', 'love', 'lotto', 'lotte', 'london', 'lol', 'locus', 'locker', 'loans', 'loan', 'llp', 'llc', 'lk', 'living', 'live', 'lipsy', 'link', 'lincoln', 'limo', 'limited', 'lilly', 'like', 'lighting', 'lifestyle', 'lifeinsurance', 'life', 'lidl', 'li', 'lgbt', 'lexus', 'lego', 'legal', 'lefrak', 'leclerc', 'lease', 'lds', 'lc', 'lb', 'lawyer', 'law', 'latrobe', 'latino', 'lat', 'lasalle', 'lanxess', 'landrover', 'land', 'lancaster', 'lamer', 'lamborghini', 'lacaixa', 'la', 'kz', 'kyoto', 'ky', 'kw', 'kuokgroup', 'kred', 'krd', 'kr', 'kpn', 'kpmg', 'kp', 'kosher', 'komatsu', 'koeln', 'kn', 'km', 'kiwi', 'kitchen', 'kindle', 'kinder', 'kim', 'kids', 'kia', 'ki', 'kh', 'kg', 'kfh', 'kerryproperties', 'kerrylogistics', 'kerryhotels', 'ke', 'kddi', 'kaufen', 'juniper', 'juegos', 'jprs', 'jpmorgan', 'jp', 'joy', 'jot', 'joburg', 'jobs', 'jo', 'jnj', 'jmp', 'jm', 'jll', 'jio', 'jewelry', 'jetzt', 'jeep', 'je', 'jcb', 'java', 'jaguar', 'itv', 'itau', 'it', 'istanbul', 'ist', 'ismaili', 'is', 'irish', 'ir', 'iq', 'ipiranga', 'io', 'investments', 'intuit', 'international', 'int', 'insure', 'insurance', 'institute', 'ink', 'ing', 'info', 'infiniti', 'industries', 'inc', 'in', 'immobilien', 'immo', 'imdb', 'imamat', 'im', 'il', 'ikano', 'ifm', 'ieee', 'ie', 'id', 'icu', 'ice', 'icbc', 'ibm', 'hyundai', 'hyatt', 'hughes', 'hu', 'ht', 'hsbc', 'hr', 'how', 'house', 'hotmail', 'hotels', 'hoteles', 'hot', 'hosting', 'host', 'hospital', 'horse', 'honda', 'homesense', 'homes', 'homegoods', 'homedepot', 'holiday', 'holdings', 'hockey', 'hn', 'hm', 'hkt', 'hk', 'hiv', 'hitachi', 'hisamitsu', 'hiphop', 'hermes', 'here', 'helsinki', 'help', 'healthcare', 'health', 'hdfcbank', 'hdfc', 'hbo', 'haus', 'hangout', 'hamburg', 'hair', 'gy', 'gw', 'guru', 'guitars', 'guide', 'guge', 'gucci', 'guardian', 'gu', 'gt', 'gs', 'group', 'grocery', 'gripe', 'green', 'gratis', 'graphics', 'grainger', 'gr', 'gq', 'gp', 'gov', 'got', 'gop', 'google', 'goog', 'goodyear', 'goo', 'golf', 'goldpoint', 'gold', 'godaddy', 'gn', 'gmx', 'gmo', 'gmbh', 'gmail', 'gm', 'globo', 'global', 'gle', 'glass', 'gl', 'giving', 'gives', 'gifts', 'gift', 'gi', 'gh', 'ggee', 'gg', 'gf', 'george', 'genting', 'gent', 'gea', 'ge', 'gdn', 'gd', 'gbiz', 'gb', 'gay', 'garden', 'gap', 'games', 'game', 'gallup', 'gallo', 'gallery', 'gal', 'ga', 'fyi', 'futbol', 'furniture', 'fund', 'fun', 'fujitsu', 'ftr', 'frontier', 'frontdoor', 'frogans', 'frl', 'fresenius', 'free', 'fr', 'fox', 'foundation', 'forum', 'forsale', 'forex', 'ford', 'football', 'food', 'foo', 'fo', 'fm', 'fly', 'flowers', 'florist', 'flir', 'flights', 'flickr', 'fk', 'fj', 'fitness', 'fit', 'fishing', 'fish', 'firmdale', 'firestone', 'fire', 'financial', 'finance', 'final', 'film', 'fido', 'fidelity', 'fi', 'ferrero', 'ferrari', 'feedback', 'fedex', 'fast', 'fashion', 'farmers', 'farm', 'fans', 'fan', 'family', 'faith', 'fairwinds', 'fail', 'fage', 'extraspace', 'express', 'exposed', 'expert', 'exchange', 'events', 'eus', 'eurovision', 'eu', 'etisalat', 'et', 'estate', 'esq', 'es', 'erni', 'ericsson', 'er', 'equipment', 'epson', 'enterprises', 'engineering', 'engineer', 'energy', 'emerck', 'email', 'eg', 'ee', 'education', 'edu', 'edeka', 'eco', 'ec', 'eat', 'earth', 'dz', 'dvr', 'dvag', 'durban', 'dupont', 'dunlop', 'dubai', 'dtv', 'drive', 'download', 'dot', 'domains', 'dog', 'doctor', 'docs', 'do', 'dnp', 'dm', 'dk', 'dj', 'diy', 'dish', 'discover', 'discount', 'directory', 'direct', 'digital', 'diet', 'diamonds', 'dhl', 'dev', 'design', 'desi', 'dentist', 'dental', 'democrat', 'delta', 'deloitte', 'dell', 'delivery', 'degree', 'deals', 'dealer', 'deal', 'de', 'dds', 'dclk', 'day', 'datsun', 'dating', 'date', 'data', 'dance', 'dad', 'dabur', 'cz', 'cyou', 'cymru', 'cy', 'cx', 'cw', 'cv', 'cuisinella', 'cu', 'cruises', 'cruise', 'crs', 'crown', 'cricket', 'creditunion', 'creditcard', 'credit', 'cr', 'cpa', 'courses', 'coupons', 'coupon', 'country', 'corsica', 'coop', 'cool', 'cooking', 'contractors', 'contact', 'consulting', 'construction', 'condos', 'comsec', 'computer', 'compare', 'company', 'community', 'commbank', 'comcast', 'com', 'cologne', 'college', 'coffee', 'codes', 'coach', 'co', 'cn', 'cm', 'clubmed', 'club', 'cloud', 'clothing', 'clinique', 'clinic', 'click', 'cleaning', 'claims', 'cl', 'ck', 'cityeats', 'city', 'citic', 'citi', 'citadel', 'cisco', 'circle', 'cipriani', 'ci', 'church', 'chrome', 'christmas', 'chintai', 'cheap', 'chat', 'chase', 'charity', 'channel', 'chanel', 'ch', 'cg', 'cfd', 'cfa', 'cf', 'cern', 'ceo', 'center', 'cd', 'cc', 'cbs', 'cbre', 'cbn', 'cba', 'catholic', 'catering', 'cat', 'casino', 'cash', 'case', 'casa', 'cars', 'careers', 'career', 'care', 'cards', 'caravan', 'car', 'capitalone', 'capital', 'capetown', 'canon', 'camp', 'camera', 'cam', 'calvinklein', 'call', 'cal', 'cafe', 'cab', 'ca', 'bzh', 'bz', 'by', 'bw', 'bv', 'buzz', 'buy', 'business', 'builders', 'build', 'bt', 'bs', 'brussels', 'brother', 'broker', 'broadway', 'bridgestone', 'bradesco', 'br', 'box', 'boutique', 'bot', 'boston', 'bostik', 'bosch', 'booking', 'book', 'boo', 'bond', 'bom', 'bofa', 'boehringer', 'boats', 'bo', 'bnpparibas', 'bn', 'bmw', 'bms', 'bm', 'blue', 'bloomberg', 'blog', 'blockbuster', 'blackfriday', 'black', 'bj', 'biz', 'bio', 'bingo', 'bing', 'bike', 'bid', 'bible', 'bi', 'bharti', 'bh', 'bg', 'bf', 'bet', 'bestbuy', 'best', 'berlin', 'bentley', 'beer', 'beauty', 'beats', 'be', 'bd', 'bcn', 'bcg', 'bbva', 'bbt', 'bbc', 'bb', 'bayern', 'bauhaus', 'basketball', 'baseball', 'bargains', 'barefoot', 'barclays', 'barclaycard', 'barcelona', 'bar', 'bank', 'band', 'bananarepublic', 'banamex', 'baidu', 'baby', 'ba', 'azure', 'az', 'axa', 'ax', 'aws', 'aw', 'avianca', 'autos', 'auto', 'author', 'auspost', 'audio', 'audible', 'audi', 'auction', 'au', 'attorney', 'athleta', 'at', 'associates', 'asia', 'asda', 'as', 'arte', 'art', 'arpa', 'army', 'archi', 'aramco', 'arab', 'ar', 'aquarelle', 'aq', 'apple', 'app', 'apartments', 'aol', 'ao', 'anz', 'anquan', 'android', 'analytics', 'amsterdam', 'amica', 'amfam', 'amex', 'americanfamily', 'americanexpress', 'amazon', 'am', 'alstom', 'alsace', 'ally', 'allstate', 'allfinanz', 'alipay', 'alibaba', 'al', 'akdn', 'airtel', 'airforce', 'airbus', 'aig', 'ai', 'agency', 'agakhan', 'ag', 'africa', 'afl', 'af', 'aetna', 'aero', 'aeg', 'ae', 'adult', 'ads', 'ad', 'actor', 'aco', 'accountants', 'accountant', 'accenture', 'academy', 'ac', 'abudhabi', 'abogado', 'able', 'abc', 'abbvie', 'abbott', 'abb', 'aarp', 'aaa'];//Version 2023062400, Last Updated Sat Jun 24 07:07:01 2023 UTC
+	$now=time();
+	// files path will be the one where the top level requiring file resides
+	$ldlfp='tlds_last_dl_time';
+	$tldsfp='tlds-alpha-by-domain.txt';
+	$ldlt=@file_get_contents($ldlfp);
+	if ($ldlt===false) {
+		$ldlt=0;
+	} else {
+		$ldlt=rtrim($ldlt);
+		if (preg_match('#^\d+$#',$ldlt)!==1)
+			$ldlt=0;
+		else
+			$ldlt+=0;
+	}
+	if ($now-$ldlt>86400 || !file_exists($tldsfp)) {// if more than 1 day has passed since last list dl or list file can't be found
+		$url='https://data.iana.org/TLD/tlds-alpha-by-domain.txt';
+		$buf=@file_get_contents($url);
+		if ($buf===false)
+			echo "gettlds: could not download «{$url}»\n";
+		elseif (@file_put_contents($tldsfp,$buf)===false)
+			echo "gettlds: could not save «{$tldsfp}»\n";
+		elseif (@file_put_contents($ldlfp,$now."\n")===false)
+			echo "gettlds: could not save «{$ldlfp}»\n";
+	}
+	if (!isset($buf))
+		$buf=@file_get_contents($tldsfp);
+	if ($buf!==false) {
+		$tlds=[];
+		$buf=explode("\n",$buf);
+		foreach ($buf as $val)
+			if (trim($val)!=='' && $val[0]!='#')
+				$tlds[]=$val;
+		rsort($tlds);
+		foreach ($tlds as $key=>$val)
+			$tlds[$key]=strtolower($val);
+	}
+	return $tlds;
+}
+
+?>
diff --git a/lib/ght.php b/lib/ght.php
new file mode 100644
index 0000000..32844ab
--- /dev/null
+++ b/lib/ght.php
@@ -0,0 +1,50 @@
+<?php
+
+function ght($ts,$fa=null,$sd=2) {
+/*
+$ts is seconds (can be float)
+if not null, $fa has to be an array defining the output suffixes, see below
+	its default ;-)
+$sd is how many decimals to put after a dot after seconds (can be 0)
+*/
+	if ($fa==null)
+		$fa=[' year, ',' years, ',' week, ',' weeks, ',' day, ',' days, ',' hour, ',' hours, ',' minute, ',' minutes, ',' second',' seconds'];
+	$out='';
+	$i=0;
+// years
+	$x=floor($ts/31536000);
+	if ($x>0)
+		($x==1) ? $out.=$x.$fa[$i] : $out.=$x.$fa[$i+1];
+	$ts=$ts-$x*31536000;
+	$i+=2;
+// weeks
+	$x=floor($ts/604800);
+	if ($x>0)
+		($x==1) ? $out.=$x.$fa[$i] : $out.=$x.$fa[$i+1];
+	$ts=$ts-$x*604800;
+	$i+=2;
+// days
+	$x=floor($ts/86400);
+	if ($x>0)
+		($x==1) ? $out.=$x.$fa[$i] : $out.=$x.$fa[$i+1];
+	$ts=$ts-$x*86400;
+	$i+=2;
+// hours
+	$x=floor($ts/3600);
+	if ($x>0)
+		($x==1) ? $out.=$x.$fa[$i] : $out.=$x.$fa[$i+1];
+	$ts=$ts-$x*3600;
+	$i+=2;
+// minutes
+	$x=floor($ts/60);
+	if ($x>0)
+		($x==1) ? $out.=$x.$fa[$i] : $out.=$x.$fa[$i+1];
+	$ts=$ts-$x*60;
+	$i+=2;
+// seconds
+	$x=round($ts,$sd);
+	($x==1) ? $out.=$x.$fa[$i] : $out.=$x.$fa[$i+1];
+	return $out;
+}
+
+?>
diff --git a/lib/mastodon.php b/lib/mastodon.php
new file mode 100644
index 0000000..8516ce0
--- /dev/null
+++ b/lib/mastodon.php
@@ -0,0 +1,282 @@
+<?php
+
+// Warning: postlength function requires $retlds global variable to be defined,
+// it has to be a reverse ordered list of "|" separated valid tlds, you can
+// require gettlds.php in the calling script and use it to set it, like this:
+// $retlds=gettlds(); $retlds=implode('|',$retlds);
+
+function validtoken($token) {
+	if (preg_match('#^[A-Za-z0-9_-]{43}$#',$token)===1)
+		return true;
+	else
+		return false;
+}
+
+function mastreq($context,$host,$endpoint) {
+	$context=stream_context_create($context);
+	$endpoint="https://{$host}{$endpoint}";
+	$res=@file_get_contents($endpoint,false,$context);
+	if ($res===false)
+		return ['ok'=>false,'error'=>"could not connect to «{$host}»",'headers'=>null];
+	$res=@json_decode($res,true);
+	if (is_null($res))
+		return ['ok'=>false,'error'=>"could not decode JSON data from «{$endpoint}» (".json_last_error().': '.json_last_error_msg().")",'headers'=>$http_response_header];
+	if (isset($res['error']))
+		return ['ok'=>false,'error'=>lcfirst($res['error']),'headers'=>$http_response_header];
+	/*print_r($http_response_header);
+	preg_match('#^\S+\s+(\S+)\s+(\S+)#',$http_response_header[0],$matches);
+	print_r($matches);
+	$httpcode=$matches[1]+0;
+	$httpcodetext=$matches[2];
+	if (($httpcode>=400 && $httpcode<=499) || ($httpcode>=500 && $httpcode<=599))
+		return ['ok'=>false,'error'=>"HTTP error: {$httpcodetext}"];*/
+	return ['ok'=>true,'data'=>$res,'headers'=>$http_response_header];
+}
+
+function mastget($host,$token,$endpoint,$timeout) {
+	$context=[
+		'http'=>[
+			'header'=>"Content-type: application/x-www-form-urlencoded\r\nAccept: application/json\r\n",
+			'method'=>'GET',
+			'ignore_errors'=>true,
+			'timeout'=>$timeout
+		]
+	];
+	if (!is_null($token))
+		$context['http']['header'].="Authorization: Bearer {$token}\r\n";
+	$res=mastreq($context,$host,$endpoint);
+	return $res;
+}
+
+function mastpost($host,$token,$endpoint,$content,$timeout) {
+	$content=http_build_query($content);
+	$context=[
+		'http'=>[
+			'header'=>"Content-type: application/x-www-form-urlencoded\r\nAccept: application/json\r\n",
+			'method'=>'POST',
+			'ignore_errors'=>true,
+			'content'=>$content,
+			'timeout'=>$timeout
+		]
+	];
+	if (!is_null($token))
+		$context['http']['header'].="Authorization: Bearer {$token}\r\n";
+	$res=mastreq($context,$host,$endpoint);
+	return $res;
+}
+
+function mastpostfile($host,$token,$endpoint,$content,$timeout) {
+	$content=http_build_query($content);
+	$context=[
+		'http'=>[
+			'header'=>"Content-type: multipart/form-data;boundary=\"boundary\"\r\nAccept: application/json\r\n",
+			'method'=>'POST',
+			'ignore_errors'=>true,
+			'content'=>$content,
+			'timeout'=>$timeout
+		]
+	];
+	if (!is_null($token))
+		$context['http']['header'].="Authorization: Bearer {$token}\r\n";
+	$res=mastreq($context,$host,$endpoint);
+	return $res;
+}
+
+function mastdel($host,$token,$endpoint,$timeout) {
+	$context=[
+		'http'=>[
+			'header'=>"Content-type: application/x-www-form-urlencoded\r\nAccept: application/json\r\n",
+			'method'=>'DELETE',
+			'ignore_errors'=>true,
+			'timeout'=>$timeout
+		]
+	];
+	if (!is_null($token))
+		$context['http']['header'].="Authorization: Bearer {$token}\r\n";
+	$res=mastreq($context,$host,$endpoint);
+	return $res;
+}
+
+/*
+some endpoints
+	get
+		auth required
+			verify app creds and get app info: /api/v1/apps/verify_credentials
+			verify user creds and get account info: /api/v1/accounts/verify_credentials
+			get a post: /api/v1/statuses/[id]
+	post
+		auth required
+			post a status: /api/v1/statuses
+			send follow request to an account: /api/v1/accounts/[id]/follow
+			unfollow an account: /api/v1/accounts/[id]/unfollow
+*/
+
+function splitpost($post,$avchars,$cw,$pre,$cntup) {
+	// decided use $matches[1] instead of $matches[0]
+	// to stay safe, $avchars should be at least 30 (didn't test with less);
+	// $pre can be used to list recipients (in this case it has to end with
+	// a "\n" or " "), or for anything else
+	$post=preg_replace('#[ \t\f\r]+\n#',"\n",$post);
+	$post=rtrim($post);
+	$postrlen=strlen($post);
+	$postlen=postlength($post);
+	$cwlen=mb_strlen($cw,'UTF-8');
+	$prelen=postlength($pre);
+	if ($postlen+$prelen+$cwlen<=$avchars)
+		return [['cw'=>$cw,'post'=>$pre.$post,'mastlen'=>$postlen+$prelen+$cwlen]];
+	// there is no way to know the total of posts before splitting, and its
+	// string length modifies the total, so we roughly estimate it very
+	// cautiosly to the decrease, just to spare cycles
+	$tot='';
+	$gtot=ceil($postlen/($avchars-7-2-$prelen-$cwlen));// "7" is the min length of the counter ("\n\n[x/x]"); 2 counts for start and end "…"
+	for ($i=0; $i<strlen($gtot); $i++)
+		$tot.='x';
+	$c=0;
+	while (true) {
+		$c++;
+		$totlen=strlen($tot);
+		$spost=[];
+		$buf='';
+		$off=0;
+		$i=1;
+		while (true) {
+			//echo "========================\n";
+			if (strlen($i)>$totlen) break;// do another cycle
+			$cnt="__[{$i}/{$tot}]";
+			//$lastcons=substr($post,$off,40);
+			preg_match('#(\S+)(\s+|$)#',$post,$matches,0,$off);
+			//var_dump($matches);
+			if (count($matches)==0) {// done, last post
+				$spost[]=['cw'=>$cw,'post'=>rtrim($buf)];
+				break 2;
+			}
+			$offadd=strlen($matches[0]);
+			($off+$offadd>=$postrlen) ? $dotsaddlen=0 : $dotsaddlen=2;// if we are on the last word, we don't add "…"
+			if ($prelen+$cwlen+postlength($buf.$matches[1].$cnt)+$dotsaddlen>$avchars) {// if current match would make buf+overhead overcome avchars
+				//echo "LONGMATCH: «$matches[0]»\n";
+				$nxcntlen=$totlen+strlen($i+1)+5;// next cnt may be different, so we precalc its length
+				($i==1 || $dotsaddlen==0) ? $nxdotsaddlen=2 : $nxdotsaddlen=4;// if we are on first or last post, we add 1 "…"; otherwise we add 2
+				if ($prelen+$cwlen+postlength($matches[1])+$nxcntlen+$nxdotsaddlen>$avchars) {// if next match+overhead is by itself longer than avchars
+					//echo "BLOCKMATCH: «$matches[0]»\n";
+					//$len=$avchars-$nxcntlen-$prelen-$nxdotsaddlen;
+					$len=$avchars-postlength($buf.$cnt)-$prelen-$cwlen-$dotsaddlen;
+					if ($len>0) {
+						// deactivate possible links because they will be broken
+						$matches[0]=preg_replace('#^http(s)?://#','zttp$1://',$matches[0]);
+						$matches[0]=preg_replace('#^@([a-zA-Z0-9_]+@[a-z0-9-]+)#','+$1',$matches[0]);
+						$matches[0]=mb_substr($matches[0],0,$len,'UTF-8');
+						//echo "SUBSTRING: «$matches[0]»\n";
+						$offadd=strlen($matches[0]);
+						//echo "{$matches[0]}: OFF: {$off}; OFFADD: {$offadd}\n";
+						$buf.=$matches[0];
+						$matches[0]='';
+					}
+				}
+				$spost[]=['cw'=>$cw,'post'=>rtrim($buf).' …'];
+				$buf='… ';
+				$i++;
+			}/* else {
+				echo "NORMATCH: «$matches[0]»\n";
+			}*/
+			$buf.=$matches[0];
+			$off+=$offadd;
+		}
+		$tot.='x';
+	}
+	//echo '<pre>'.print_r($spost,true).'</pre>';
+	if ($cntup)
+		foreach ($spost as $key=>$post) {
+			$spost[$key]['post']="{$pre}[".($key+1)."/{$i}]\n\n{$post['post']}";
+			$spost[$key]['mastlen']=postlength($spost[$key]['post'])+$cwlen;
+		}
+	else
+		foreach ($spost as $key=>$post) {
+			$spost[$key]['post']="{$pre}{$post['post']}\n\n[".($key+1)."/{$i}]";
+			$spost[$key]['mastlen']=postlength($spost[$key]['post'])+$cwlen;
+		}
+	//echo "CYCLES: {$c}\n";
+	//echo "LASTCONS: {$lastcons}\n";
+	return $spost;
+}
+
+function postlength($post) {
+	global $retlds;
+//	echo "-A-> |{$post}|\n";
+	// for some reason, mastodon seems to check tld existence only on http(s) links - see next regexp
+	$res=preg_replace('#(^|\W)(@[a-zA-Z0-9_]+)@(([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}\.)+([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}\b#u', '$1$2', $post);
+	if (!is_null($res)) $post=$res;
+//	$res=preg_replace('#(^|\W)https?://(([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}\.)+([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}(/\S*[\w=?_-])?#u', '$1HTTP://UUUUUUUUUUUUUUUU', $post);
+	// on http(s) links mastodon checks if tld exists...
+	$res=preg_replace('#(^|\W)https?://(([a-z0-9]([a-z0-9-]+[a-z0-9])?){1,63}\.)+('.$retlds.')(/\S*[\w/=_\-])?#u', '$1UUUUUUUUUUUUUUUUUUUUUUU', $post);
+	if (!is_null($res)) $post=$res;
+//	echo "-B-> |{$post}|\n";
+	return mb_strlen($post,'UTF-8');
+}
+
+// this function requires these to be defined:
+// - an "evhandle" function to handle events
+// - an "eecho" function to handle output
+// - a "$doshut" global variable and a "shutdown" function that, since it's placed in secure places, can be used eg to safely shut down the program when "$doshut" is set to true by eg a function bound to a signal, like pcntl_signal(SIGTERM,'sighandler')
+// see ocrbot for an example
+function evlisten($host,$port,$endpoint,$token,$timeout) {
+	global $doshut;
+	while (true) {
+		shutdown($doshut);
+		$dispurl="tls://{$host}:{$port}";
+		eecho(1,"trying to connect to «{$dispurl}».");
+		$sh=@fsockopen("tls://{$host}",$port,$errno,$errstr,$timeout);
+		if ($sh===false) {
+			eecho(3,"could not connect to «{$dispurl}»: {$errstr} ({$errno}); will try again in 1 second.");
+			sleep(1);
+		} else {
+			//stream_set_blocking($sh,false);
+			stream_set_timeout($sh,1,0);
+			eecho(1,"succesfully connected to «{$dispurl}».");
+			$req="GET {$endpoint} HTTP/1.1\r\nHost: {$host}\r\nUser-Agent: a_bot\r\nAuthorization: Bearer {$token}\r\n\r\n";
+			if (fwrite($sh,$req)===false) {
+				eecho(3,"could not subscribe to user notifications on «{$dispurl}»; will try again in 1 second.");
+				fclose($sh);
+				unset($sh);// this is because shutdown can check if $sh is set and if it is, try to fclose it
+				sleep(1);
+			} else {
+				eecho(1,"listening for user notifications on «{$dispurl}».");
+				//$lc=0;
+				while (!feof($sh)) {
+					shutdown($doshut);
+					//$lc++;
+					$line=rtrim(fgets($sh),"\r\n");
+					//echo "{$lc}> {$line}\n";
+					if (preg_match('#^event: #',$line)===1) {
+						$event=['type'=>preg_replace('#^event: #','',$line),'data'=>''];
+						$line=rtrim(fgets($sh),"\r\n");
+						//echo "{$lc} DATA> {$line}\n";
+						if (preg_match('#^data: #',$line)===1) {
+							$event['data'].=preg_replace('#^data: #','',$line);
+							while ($line!='') {
+								$line=rtrim(fgets($sh),"\r\n");
+								if ($line=='') break;
+								//echo "{$lc} LENGTH> {$line}\n";
+								$line=rtrim(fgets($sh),"\r\n");
+								//echo "{$lc} DATA> {$line}\n";
+								$event['data'].=$line;
+							}
+							$event['data']=@json_decode($event['data'],true);
+							if ($event['data']===false) {
+								eecho(2,"could not decode data for event of type «{$event['type']}».");
+							} else {
+								//print_r($event);
+								evhandle($event);
+							}
+						}
+					}
+				}
+				fclose($sh);
+				unset($sh);// this is because shutdown can check if $sh is set and if it is, try to fclose it
+				eecho(3,"lost connection to «{$dispurl}»; will try reconnecting in 1 second.");
+				sleep(1);
+			}
+		}
+	}
+}
+
+?>
diff --git a/post.php b/post.php
new file mode 100644
index 0000000..546bf09
--- /dev/null
+++ b/post.php
@@ -0,0 +1,60 @@
+<?php
+
+/*
+  This program is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+require 'lib/mastodon.php';
+require 'lib/ckratelimit.php';
+
+$resp=[
+	'ok'=>false,
+	'error'=>null,
+	'remaining'=>null,
+	'secstoreset'=>null,
+	'id'=>null
+];
+
+if (isset($_COOKIE['verbose_host']) && isset($_COOKIE['verbose_token']) && isset($_POST['visibility']) && in_array($_POST['visibility'],['public','unlisted','private','direct']) && isset($_POST['language']) && isset($_POST['status'])) {
+	$timeout=5;
+	$res=mastpost($_COOKIE['verbose_host'],$_COOKIE['verbose_token'],'/api/v1/statuses',$_POST,$timeout);
+	//$res=['ok'=>true, 'data'=>['id'=>999], 'error'=>'server exploded'];// test
+	if ($res['ok']) {
+		$resp['ok']=true;
+		$resp['id']=$res['data']['id'];
+		$rls=ckratelimit($res['headers'],'necho',true,false);
+		//$rls=['remaining'=>20,'secstoreset'=>5];// test
+		if (!is_null($rls)) {
+			$resp['remaining']=$rls['remaining'];
+			$resp['secstoreset']=$rls['secstoreset'];
+		}
+	} else {
+		$resp['error']=htmlentities($res['error']);
+	}
+} else {
+	$resp['error']='malformed POST request';
+}
+
+header('Content-Type: application/json');
+
+$resp=json_encode($resp);
+echo $resp;
+
+//echo '<pre>'.print_r($_POST,true).'</pre>';
+
+function necho($msg) {
+	// do nothing :-)
+}
+
+?>