eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Command line fix

This commit is contained in:
mysticbbs 2012-08-16 08:31:19 -04:00
parent 088bf7d5da
commit 5b0e664c1f
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
mystic/mystic.pas
View File

@ -368,41 +368,41 @@ Begin
For Count := 1 to ParamCount Do Begin For Count := 1 to ParamCount Do Begin
Temp := strUpper(ParamStr(Count)); 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.CommHandle := strS2I(Copy(Temp, 5, Length(Temp)));
Session.Baud := 38400; Session.Baud := 38400;
End Else 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))); Session.Baud := strS2I(Copy(Temp, 3, Length(Temp)));
If Session.Baud = 0 Then Session.LocalMode := True; If Session.Baud = 0 Then Session.LocalMode := True;
End Else End Else
If Pos('-T', Temp) > 0 Then If Copy(Temp, 1, 2) = '-T' Then
Session.TimeOffset := strS2I(Copy(Temp, 3, Length(Temp))) Session.TimeOffset := strS2I(Copy(Temp, 3, Length(Temp)))
Else Else
If Pos('-N', Temp) > 0 Then If Copy(Temp, 1, 2) = '-N' Then
Session.NodeNum := strS2I(Copy(Temp, 3, Length(Temp))) Session.NodeNum := strS2I(Copy(Temp, 3, Length(Temp)))
Else Else
If Pos('-CFG', Temp) > 0 Then Begin If Copy(Temp, 1, 4) = '-CFG' Then Begin
Session.ConfigMode := True; Session.ConfigMode := True;
Session.LocalMode := True; Session.LocalMode := True;
Session.NodeNum := 0; Session.NodeNum := 0;
End Else End Else
If Pos('-IP', Temp) > 0 Then If Copy(Temp, 1, 3) = '-IP' Then
Session.UserIPInfo := Copy(Temp, 4, Length(Temp)) Session.UserIPInfo := Copy(Temp, 4, Length(Temp))
Else Else
If Pos('-UID', Temp) > 0 Then If Copy(Temp, 1, 4) = '-UID' Then
Session.UserHostInfo := Copy(Temp, 5, Length(Temp)) Session.UserHostInfo := Copy(Temp, 5, Length(Temp))
Else Else
If Pos('-HOST', Temp) > 0 Then If Copy(Temp, 1, 5) = '-HOST' Then
Session.UserHostInfo := Copy(ParamStr(Count), 6, Length(Temp)) Session.UserHostInfo := Copy(ParamStr(Count), 6, Length(Temp))
Else Else
If Pos('-U', Temp) > 0 Then If Copy(Temp, 1, 2) = '-U' Then
UserName := strReplace(Copy(Temp, 3, Length(Temp)), '_', ' ') UserName := strReplace(Copy(Temp, 3, Length(Temp)), '_', ' ')
Else Else
If Pos('-P', Temp) > 0 Then If Copy(Temp, 1, 2) = '-P' Then
Password := Copy(Temp, 3, Length(Temp)) Password := Copy(Temp, 3, Length(Temp))
Else Else
If Pos('-X', Temp) > 0 Then If Copy(Temp, 1, 2) = '-X' Then
Script := strReplace(Copy(ParamStr(Count), 3, Length(Temp)), '_', ' ') Script := strReplace(Copy(ParamStr(Count), 3, Length(Temp)), '_', ' ')
Else Else
If Temp = '-L' Then Session.LocalMode := True; If Temp = '-L' Then Session.LocalMode := True;