soon to be completed mUtil stuff

This commit is contained in:
mysticbbs 2012-09-08 04:27:20 -04:00
parent 91e3286d7f
commit 7288affa28
3 changed files with 47 additions and 9 deletions

View File

@ -4729,9 +4729,13 @@
telnet command line client. telnet command line client.
+ In MPL including a file has been changed to its own keyword as opposed to + In MPL including a file has been changed to its own keyword as opposed to
minicing a compile directive: mimicing a compile directive. All MPL programs for 1.10 must be updated
if INCLUDE files are used:
Old: {$include myfile.mps} Old: {$include myfile.mps}
New: include myfile.mps New: include myfile.mps
+ Added an hourly usage graph to usage.mps. + Added an hourly usage graph to usage.mps.
! MUTIL FILEBONE import was not adding the trailing slash when generating a
file path.

View File

@ -40,10 +40,16 @@
Import_FIDONET.NA = false Import_FIDONET.NA = false
Import_FILEBONE.NA = false Import_FILEBONE.NA = false
Import_FILES.BBS = true Import_FILES.BBS = false
MassUpload = false MassUpload = false
GenerateTopLists = false GenerateTopLists = false
; WIP next to be added:
GenerateAllFiles = true
PurgeMessageBases = false
PackMessageBases = false
; ========================================================================== ; ==========================================================================
; ========================================================================== ; ==========================================================================
; ========================================================================== ; ==========================================================================
@ -254,3 +260,19 @@
top_pcr_namelen = 30 top_pcr_namelen = 30
top_pcr_datalen = 10 top_pcr_datalen = 10
[GenerateAllFiles]
; Generate all files list [NOT COMPLETED]
; Path / filename of output filename. If the path is not included then the
; file will be created in whatever the current working directory is.
filename = allfiles.txt
; features needed:
; header, footer, baseheader, basefooter, exclude bases, uploader optional
; uploader line, format list line 1st,2nd line, space between files?
[PurgeMessageBases]
[PackMessageBases]

View File

@ -42,13 +42,16 @@ Uses
m_Strings, m_Strings,
m_FileIO, m_FileIO,
m_IniReader, m_IniReader,
mutil_Common, mUtil_Common,
mutil_Status, mUtil_Status,
mutil_ImportNA, mUtil_ImportNA,
mutil_FileBone, mUtil_FileBone,
mutil_Upload, mUtil_Upload,
mutil_TopLists, mUtil_TopLists,
mutil_FilesBBS; mUtil_FilesBBS,
mUtil_AllFiles,
mUtil_MsgPurge,
mUtil_MsgPack;
{$I MUTIL_ANSI.PAS} {$I MUTIL_ANSI.PAS}
@ -154,6 +157,9 @@ Var
DoFileBone : Boolean; DoFileBone : Boolean;
DoMassUpload : Boolean; DoMassUpload : Boolean;
DoTopLists : Boolean; DoTopLists : Boolean;
DoAllFiles : Boolean;
DoMsgPurge : Boolean;
DoMsgPack : Boolean;
Begin Begin
ApplicationStartup; ApplicationStartup;
@ -164,6 +170,9 @@ Begin
DoMassUpload := CheckProcess(Header_UPLOAD); DoMassUpload := CheckProcess(Header_UPLOAD);
DoTopLists := CheckProcess(Header_TOPLISTS); DoTopLists := CheckProcess(Header_TOPLISTS);
DoFilesBBS := CheckProcess(Header_FILESBBS); DoFilesBBS := CheckProcess(Header_FILESBBS);
DoAllFiles := CheckProcess(Header_ALLFILES);
DoMsgPurge := CheckProcess(Header_MSGPURGE);
DoMsgPack := CheckProcess(Header_MSGPACK);
// Exit with an error if nothing is configured // Exit with an error if nothing is configured
@ -182,4 +191,7 @@ Begin
If DoFilesBBS Then uImportFilesBBS; If DoFilesBBS Then uImportFilesBBS;
If DoMassUpload Then uMassUpload; If DoMassUpload Then uMassUpload;
If DoTopLists Then uTopLists; If DoTopLists Then uTopLists;
If DoAllFiles Then uAllFilesList;
If DoMsgPurge Then uPurgeMessageBases;
If DoMsgPack Then uPackMessageBases;
End. End.