Split out areafix command processing, implemented start of filefix

2024-11-26 12:23:07 +11:00
parent 521a9b0679
commit b67ae28b98
8 changed files with 273 additions and 45 deletions
--- a/app/Classes/FTN/Process/Netmail/Robot/Areafix.php
+++ b/app/Classes/FTN/Process/Netmail/Robot/Areafix.php
@@ -0,0 +1,93 @@
+<?php
+
+namespace App\Classes\FTN\Process\Netmail\Robot;
+
+use Illuminate\Support\Facades\Notification;
+use Illuminate\Support\Facades\Log;
+
+use App\Classes\FTN\Process\Netmail\Robot;
+use App\Models\{Echomail,Netmail};
+use App\Notifications\Netmails\Areafix\CommandsProcessed;
+
+/**
+ * Process messages to Ping
+ *
+ * @package App\Classes\FTN\Process
+ */
+final class Areafix extends Robot
+{
+	private const LOGKEY = 'RPA';
+
+	public const commands = 'App\\Classes\\FTN\\Process\\Netmail\\Robot\\Areafix\\';
+
+	public static function handle(Echomail|Netmail $mo): bool
+	{
+		if ((strtolower($mo->to) !== 'areafix') || (! ($mo instanceof Netmail)))
+			return FALSE;
+
+		Log::info(sprintf('%s:- Processing AREAFIX [%s] message from (%s) [%s]', self::LOGKEY, $mo->to, $mo->from, $mo->fftn->ftn));
+
+		return parent::handle($mo);
+	}
+
+	public static function areafix(Netmail $mo): bool
+	{
+		$result = collect();
+		$result->push('--> BEGIN <--');
+
+		foreach ($mo->body_lines as $command) {
+			// Skip empty lines
+			if (! $command)
+				continue;
+
+			$command = explode(' ',strtoupper(trim($command)));
+
+			// If command starts with '...' or '---', its a tear/tag line, and we have reached the end
+			if (str_starts_with($command[0],'...') || str_starts_with($command[0],'---')) {
+				Log::debug(sprintf('%s:= We got a tearline/tagline, end of processing',self::LOGKEY));
+
+				$result->push('--> END OF PROCESSING <--');
+
+				break;
+
+				// If command doesnt start with %, its an area
+			} elseif (! str_starts_with($command[0],'%')) {
+				Log::info(sprintf('%s:= Assuming command [%s] is an AREA command',self::LOGKEY,$command[0]));
+
+				array_unshift($command,'%AREA');
+			}
+
+			// Some commands are reserved words
+			switch ($x=strtolower(substr($command[0],1))) {
+				case 'list':
+					$class = self::commands.'AreaList';
+					break;
+
+				default:
+					// Parse the message body and pluck out the commands on each line
+					$class = self::commands.ucfirst($x);
+			}
+
+			if (! class_exists($class)) {
+				$result->push(sprintf('%-25s <-- **COMMAND UNKNOWN**',join(' ',$command)));
+				Log::info(sprintf('%s:! Command UNKNOWN [%s] ',self::LOGKEY,join('|',$command)),['class'=>$class]);
+
+				continue;
+			}
+
+			// Drop the command from the array, the rest are arguments
+			array_shift($command);
+
+			// Refresh our echoareas
+			$mo->fftn->load('echoareas');
+
+			$o = new $class($mo,$command);
+			$result->push($o->process());
+		}
+
+		// Reply with a confirmation of what commands were processed
+		Notification::route('netmail',$mo->fftn)->notify(new CommandsProcessed($mo,$result));
+
+		return TRUE;
+	}
+}