clrghouz/app/Classes/FTN/Tic.php

<?php

namespace App\Classes\FTN;

use Carbon\Carbon;
use Illuminate\Contracts\Filesystem\FileNotFoundException;
use Illuminate\Support\Collection;
use Illuminate\Support\Facades\Log;
use League\Flysystem\UnableToWriteFile;

use App\Classes\FTN as FTNBase;
use App\Models\{Address, File, Filearea, Setup};
use App\Traits\EncodeUTF8;

/**
 * Class TIC
 *
 * @package App\Classes
 */
class Tic extends FTNBase
{
	use EncodeUTF8;

	private const LOGKEY = 'FM-';

	private const cast_utf8 = [
	];

	// Single value kludge items and whether they are required
	// http://ftsc.org/docs/fts-5006.001
	private array $_kludge = [
		'AREA' => TRUE,
		'areadesc' => FALSE,
		'ORIGIN' => TRUE,
		'FROM' => TRUE,
		'to' => FALSE,
		'FILE' => TRUE,			// 8.3 DOS format
		'lfile' => FALSE,		// alias fullname
		'fullname' => FALSE,
		'size' => FALSE,
		'date' => FALSE,		// File creation date
		'desc' => FALSE,		// One line description of file
		'ldesc' => FALSE,		// Can have multiple
		'created' => FALSE,
		'magic' => FALSE,
		'replaces' => FALSE,	// ? and * are wildcards, as per DOS
		'CRC' => TRUE,			// crc-32
		'PATH' => TRUE,			// can have multiple: [FTN] [unix timestamp] [datetime human readable] [signature]
		'SEENBY' => TRUE,
		'pw' => FALSE,			// Password
	];

	private File $file;
	private Filearea $area;
	private ?string $areadesc = NULL;
	private ?string $pw = NULL;

	private Address $origin;				// Should be first address in Path
	private Address $from;					// Should be last address in Path
	private Address $to;					// Should be me

	public function __construct(private string $filename) {
		$fo = new File;

		$fo->kludges = collect();
		$fo->set_path = collect();
		$fo->set_seenby = collect();
		$fo->rogue_path = collect();
		$fo->rogue_seenby = collect();

		list($hex,$name) = explode('-',$filename);
		$ticfullpath = $this->fullpath($filename);

		if (! file_exists($ticfullpath))
			throw new FileNotFoundException(sprintf('%s:File [%s] doesnt exist',self::LOGKEY,realpath($ticfullpath)));

		if (! is_writable($ticfullpath))
			throw new UnableToWriteFile(sprintf('%s:File [%s] is not writable',self::LOGKEY,realpath($ticfullpath)));

		Log::info(sprintf('Processing TIC file [%s]',$ticfullpath));

		$f = fopen($ticfullpath,'rb');
		if (! $f) {
			Log::error(sprintf('%s:! Unable to open file [%s] for writing',self::LOGKEY,$ticfullpath));
			return;
		}

		while (! feof($f)) {
			$line = chop(fgets($f));
			$matches = [];

			if (! $line)
				continue;

			preg_match('/([a-zA-Z]+)\ (.*)/',$line,$matches);

			if (in_array(strtolower($matches[1]),$this->_kludge)) {
				switch ($k=strtolower($matches[1])) {
					case 'area':
						$this->{$k} = Filearea::singleOrNew(['name'=>strtoupper($matches[2])]);
						break;

					case 'origin':
					case 'from':
					case 'to':
						$this->{$k} = Address::findFTN($matches[2]);

						// @todo If $this->{$k} is null, we have discovered the system and it should be created
						break;

					case 'file':
						if (! file_exists($x=$this->fullpath(sprintf('%s-%s',$hex,$matches[2]))))
							throw new FileNotFoundException(sprintf('File not found? [%s]',$x));

						$fo->{$k} = $matches[2];
						$fo->fullname = $x;
						break;

					case 'areadesc':
					case 'pw':
					case 'created':
						$this->{$k} = $matches[2];
						break;

					case 'lfile':
					case 'size':
					case 'desc':
					case 'magic':
					case 'replaces':
						$fo->{$k} = $matches[2];
						break;

					case 'fullname':
						$fo->lfile = $matches[2];
						break;

					case 'date':
						$fo->datetime = Carbon::create($matches[2]);
						break;

					case 'ldesc':
						$fo->{$k} .= $matches[2];
						break;

					case 'crc':
						$fo->{$k} = hexdec($matches[2]);
						break;

					case 'path':
						$x = [];
						preg_match(sprintf('#^[Pp]ath (%s)\ ?([0-9]+)\ ?(.*)$#',Address::ftn_regex),$line,$x);
						$ao = Address::findFTN($x[1]);

						if (! $ao) {
							$fo->rogue_path->push($matches[2]);
						} else {
							$fo->set_path->push(['address'=>$ao,'datetime'=>Carbon::createFromTimestamp($x[8]),'extra'=>$x[9]]);
						}

						break;

					case 'seenby':
						$ao = Address::findFTN($matches[2]);

						if (! $ao) {
							$fo->rogue_seenby->push($matches[2]);
						} else {
							$fo->set_seenby->push($ao->id);
						}

						break;
				}

			} else {
				$fo->kludges->push($line);
			}
		}

		fclose($f);

		$f = fopen($fo->fullname,'rb');
		$stat = fstat($f);
		fclose($f);

		// Validate Size
		if ($fo->size !== ($y=$stat['size']))
			throw new \Exception(sprintf('TIC file size [%d] doesnt match file [%s] (%d)',$fo->size,$fo->fullname,$y));

		// Validate CRC
		if (sprintf('%x',$fo->crc) !== ($y=hash_file('crc32b',$fo->fullname)))
			throw new \Exception(sprintf('TIC file CRC [%x] doesnt match file [%s] (%s)',$fo->crc,$fo->fullname,$y));

		// Validate Password
		if ($this->pw !== ($y=$this->from->session('ticpass')))
			throw new \Exception(sprintf('TIC file PASSWORD [%s] doesnt match system [%s] (%s)',$this->pw,$this->from->ftn,$y));

		// Validate Sender is linked (and permitted to send)
		if ($this->from->fileareas->search(function($item) { return $item->id === $this->area->id; }) === FALSE)
			throw new \Exception(sprintf('Node [%s] is not subscribed to [%s]',$this->from->ftn,$this->area->name));

		// If the filearea is to be autocreated, create it
		if (! $this->area->exists) {
			$this->area->description = $this->areadesc;
			$this->area->active = TRUE;
			$this->area->public = FALSE;
			$this->area->notes = 'Autocreated';
			$this->area->domain_id = $this->from->zone->domain_id;
			$this->area->save();
		}

		$fo->filearea_id = $this->area->id;
		$fo->fftn_id = $this->origin->id;

		// If the file create time is blank, we'll take the files
		if (! $fo->datetime)
			$fo->datetime = Carbon::createFromTimestamp($stat['ctime']);

		$fo->save();

		$this->fo = $fo;
	}

	public function fullpath(string $file,string $prefix=NULL): string
	{
		return sprintf('storage/app/%s/%s',config('app.fido'),($prefix ? $prefix.'-' : '').$file);
	}
}