Limit length of file names

Too long file names break the donwload process.
See https://forum.chitanka.info/topic6608.html

This is a quick fix, the whole download process should be refactored.

A related change: http://github.com/chitanka/chitanka/commit/049381f0b2d596a593add4c95893f4269b7c8e6b

app/Entity/Text.php

@@ -871,13 +871,22 @@ public function getDataAsPlain() {
 	}
 
 	public function getNameForFile() {
-		return strtr(Setup::setting('download_file'), [
+		$lengthLimits = [
+			'AUTHOR' => 50,
+			'SERIES' => 50,
+			'TITLE' => 100,
+		];
+		$parts = [
 			'AUTHOR' => $this->getAuthorNameEscaped(),
 			'SERIES' => empty($this->series) ? '' : Stringy::createAcronym(Char::cyr2lat($this->series->getName())),
 			'SERNO' => $this->getSernr() ?? '',
 			'TITLE' => Char::cyr2lat($this->title),
 			'ID' => $this->getId(),
-		]);
+		];
+		array_walk($parts, function(string &$value, string $name) use ($lengthLimits) {
+			$value = substr($value, 0, $lengthLimits[$name] ?? 20);
+		});
+		return strtr(Setup::setting('download_file'), $parts);
 	}
 
 	public static function getMinRating() {

app/Generator/TextDownloadService.php

@@ -191,6 +191,7 @@ private function createDlFile($textIds, $format, $dlkey = null) {
 			$this->zipFileName = "Архив от Моята библиотека - $fileCount файла-".time();
 		}
 
+		$this->zipFileName = substr($this->zipFileName, 0, 230);
 		$this->zipFileName .= $fileCount > 1 ? "-$format" : $dlkey;
 		$this->zipFileName = File::cleanFileName( Char::cyr2lat($this->zipFileName) );
 		$fullZipFileName = $this->zipFileName . '.zip';