From 5b0e664c1fc5bbc0b3baf7fdcee6f5daec6fb112 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 16 Aug 2012 08:31:19 -0400
Subject: [PATCH] Command line fix

---
 mystic/mystic.pas | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/mystic/mystic.pas b/mystic/mystic.pas
index 20e49b6..7feb41b 100644
--- a/mystic/mystic.pas
+++ b/mystic/mystic.pas
@@ -368,41 +368,41 @@ Begin
   For Count := 1 to ParamCount Do Begin
     Temp := strUpper(ParamStr(Count));
 
-    If Pos('-TID', Temp) > 0 Then Begin
+    If Copy(Temp, 1, 4) = '-TID' Then Begin
       Session.CommHandle := strS2I(Copy(Temp, 5, Length(Temp)));
       Session.Baud       := 38400;
     End Else
-    If Pos('-B', Temp) > 0 Then Begin
+    If Copy(Temp, 1, 2) = '-B' Then Begin
       Session.Baud := strS2I(Copy(Temp, 3, Length(Temp)));
       If Session.Baud = 0 Then Session.LocalMode := True;
     End Else
-    If Pos('-T', Temp) > 0 Then
+    If Copy(Temp, 1, 2) = '-T' Then
       Session.TimeOffset := strS2I(Copy(Temp, 3, Length(Temp)))
     Else
-    If Pos('-N', Temp) > 0 Then
+    If Copy(Temp, 1, 2) = '-N' Then
       Session.NodeNum := strS2I(Copy(Temp, 3, Length(Temp)))
     Else
-    If Pos('-CFG', Temp) > 0 Then Begin
+    If Copy(Temp, 1, 4) = '-CFG' Then Begin
       Session.ConfigMode := True;
       Session.LocalMode  := True;
       Session.NodeNum    := 0;
     End Else
-    If Pos('-IP', Temp) > 0 Then
+    If Copy(Temp, 1, 3) = '-IP' Then
       Session.UserIPInfo := Copy(Temp, 4, Length(Temp))
     Else
-    If Pos('-UID', Temp) > 0 Then
+    If Copy(Temp, 1, 4) = '-UID' Then
       Session.UserHostInfo := Copy(Temp, 5, Length(Temp))
     Else
-    If Pos('-HOST', Temp) > 0 Then
+    If Copy(Temp, 1, 5) = '-HOST' Then
       Session.UserHostInfo := Copy(ParamStr(Count), 6, Length(Temp))
     Else
-    If Pos('-U', Temp) > 0 Then
+    If Copy(Temp, 1, 2) = '-U' Then
       UserName := strReplace(Copy(Temp, 3, Length(Temp)), '_', ' ')
     Else
-    If Pos('-P', Temp) > 0 Then
+    If Copy(Temp, 1, 2) = '-P' Then
       Password := Copy(Temp, 3, Length(Temp))
     Else
-    If Pos('-X', Temp) > 0 Then
+    If Copy(Temp, 1, 2) = '-X' Then
       Script := strReplace(Copy(ParamStr(Count), 3, Length(Temp)), '_', ' ')
     Else
     If Temp = '-L' Then Session.LocalMode := True;