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

Renamed ExecDoor procedure

This commit is contained in:
mysticbbs 2012-02-13 19:54:23 -05:00
parent 4ab68fe2a8
commit 8c9e2ef0bb
1 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
mystic/bbs_menus.pas
View File

@ -137,11 +137,11 @@ Begin
'V' : AutoSig_View; 'V' : AutoSig_View;
End; End;
'D' : Case Cmd[2] of 'D' : Case Cmd[2] of
'-' : Exec_Door (0, Data); '-' : ExecuteDoor (0, Data);
'C' : Exec_Door (3, Data); 'C' : ExecuteDoor (3, Data);
'D' : Exec_Door (1, Data); 'D' : ExecuteDoor (1, Data);
'G' : Exec_Door (2, Data); 'G' : ExecuteDoor (2, Data);
'3' : Exec_Door (4, Data); '3' : ExecuteDoor (4, Data);
End; End;
'F' : Case Cmd[2] of 'F' : Case Cmd[2] of
'A' : Session.FileBase.ChangeFileArea(Data); 'A' : Session.FileBase.ChangeFileArea(Data);
@ -149,22 +149,22 @@ Begin
Session.io.OutFile ('download', True, 0); Session.io.OutFile ('download', True, 0);
If (Session.FileBase.BatchNum > 0) and (Session.io.GetYN(Session.GetPrompt(85), True)) Then If (Session.FileBase.BatchNum > 0) and (Session.io.GetYN(Session.GetPrompt(85), True)) Then
Session.FileBase.Download_Batch Session.FileBase.DownloadBatch
Else Else
Session.FileBase.DownloadFile; Session.FileBase.DownloadFile;
End; End;
'F' : Session.FileBase.Download_File_List (strUpper(Data)); 'F' : Session.FileBase.DownloadFileList (strUpper(Data));
'G' : Session.FileBase.File_Group_Change (Data, True, True); 'G' : Session.FileBase.FileGroupChange (Data, True, True);
'L' : Session.FileBase.List_Files (1, strUpper(Data)); 'L' : Session.FileBase.ListFiles (1, strUpper(Data));
'N' : Session.FileBase.New_File_Scan(UpCase(Data[1])); 'N' : Session.FileBase.NewFileScan(UpCase(Data[1]));
'P' : Session.FileBase.Set_FileScan_Date; 'P' : Session.FileBase.SetFileScanDate;
'S' : Session.FileBase.File_Search; 'S' : Session.FileBase.FileSearch;
'U' : Session.FileBase.Upload_File; 'U' : Session.FileBase.UploadFile;
'V' : Session.FileBase.View_File; 'V' : Session.FileBase.ViewFile;
'Z' : Session.FileBase.Toggle_File_NewScan; 'Z' : Session.FileBase.ToggleFileNewScan;
'1' : Session.FileBase.Mass_Upload; '1' : Session.FileBase.MassUpload;
'2' : Session.FileBase.DirectoryEditor(False, ''); '2' : Session.FileBase.DirectoryEditor(False, '');
'3' : Session.FileBase.Send_File (Data); '3' : Session.FileBase.SendFile (Data);
End; End;
'B' : Case Cmd[2] of 'B' : Case Cmd[2] of
'A' : Add_BBS_List (Data); 'A' : Add_BBS_List (Data);
@ -182,7 +182,7 @@ Begin
If Session.FileBase.BatchNum > 0 Then Begin If Session.FileBase.BatchNum > 0 Then Begin
Session.io.PromptInfo[1] := strI2S(Session.FileBase.BatchNum); Session.io.PromptInfo[1] := strI2S(Session.FileBase.BatchNum);
If Session.io.GetYN(Session.GetPrompt(121), False) Then If Session.io.GetYN(Session.GetPrompt(121), False) Then
Session.FileBase.Download_Batch; Session.FileBase.DownloadBatch;
End; End;
Session.io.OutFile ('logoff', True, 0); Session.io.OutFile ('logoff', True, 0);
End; End;
@ -234,23 +234,23 @@ Begin
End; End;
'M' : Case Cmd[2] of 'M' : Case Cmd[2] of
'A' : Session.Msgs.ChangeArea(Data); 'A' : Session.Msgs.ChangeArea(Data);
'C' : Session.Msgs.Check_EMail; 'C' : Session.Msgs.CheckEMail;
'D' : Session.Msgs.Set_Message_Pointers; 'D' : Session.Msgs.SetMessagePointers;
'G' : Session.Msgs.Message_Group_Change (Data, True, True); 'G' : Session.Msgs.MessageGroupChange (Data, True, True);
'M' : Session.Msgs.SendMassEmail; 'M' : Session.Msgs.SendMassEmail;
'N' : Session.Msgs.Message_New_Scan (strUpper(Data)); 'N' : Session.Msgs.MessageNewScan (strUpper(Data));
'P' : Session.Msgs.Post_Message (False, Data); 'P' : Session.Msgs.PostMessage (False, Data);
// 'Q' : Session.Msgs.Message_QuickScan(UpCase(Data[1])); // 'Q' : Session.Msgs.Message_QuickScan(UpCase(Data[1]));
'R' : Begin 'R' : Begin
If Data = '' Then Data := ' '; If Data = '' Then Data := ' ';
Session.Msgs.Read_Messages(UpCase(Data[1]), ''); Session.Msgs.ReadMessages(UpCase(Data[1]), '');
End; End;
'S' : Session.Msgs.Global_Message_Search(UpCase(Data[1])); 'S' : Session.Msgs.GlobalMessageSearch(UpCase(Data[1]));
'V' : Session.Msgs.View_Sent_Email; 'V' : Session.Msgs.ViewSentEmail;
'W' : Session.Msgs.Post_Message (True, Data); 'W' : Session.Msgs.PostMessage (True, Data);
'X' : Session.Msgs.PostTextFile(Data, False); 'X' : Session.Msgs.PostTextFile(Data, False);
'Z' : Session.Msgs.Toggle_NewScan(False); 'Z' : Session.Msgs.ToggleNewScan(False);
End; End;
'N' : Case Cmd[2] of 'N' : Case Cmd[2] of
'A' : Set_Node_Action (Data); 'A' : Set_Node_Action (Data);
@ -259,9 +259,9 @@ Begin
'W' : Show_Whos_Online; 'W' : Show_Whos_Online;
End; End;
'O' : Case Cmd[2] of 'O' : Case Cmd[2] of
'S' : Session.Msgs.Toggle_NewScan(True); 'S' : Session.Msgs.ToggleNewScan(True);
'D' : Session.Msgs.Download_QWK(Data); 'D' : Session.Msgs.DownloadQWK(Data);
'U' : Session.Msgs.Upload_REP; 'U' : Session.Msgs.UploadREP;
End; End;
'Q' : Case Cmd[2] of 'Q' : Case Cmd[2] of
'A' : Session.FileBase.BatchAdd; 'A' : Session.FileBase.BatchAdd;