Initial import

2012-09-08 04:27:43 -04:00 · 2012-09-08 04:27:43 -04:00 · 3a26437756
parent cde7fb8e12
commit 3a26437756
1 changed files with 25 additions and 0 deletions
--- a/mystic/mutil_msgpurge.pas
+++ b/mystic/mutil_msgpurge.pas
@ -0,0 +1,25 @@
+Unit MUTIL_MsgPurge;
+
+{$I M_OPS.PAS}
+
+Interface
+
+Procedure uPurgeMessageBases;
+
+Implementation
+
+Uses
+  m_Strings,
+  mUtil_Common,
+  mUtil_Status;
+
+Procedure uPurgeMessageBases;
+Begin
+  ProcessName   ('Purging Message Bases', True);
+  ProcessResult (rWORKING, False);
+
+  ProcessStatus ('Complete');
+  ProcessResult (rDONE, True);
+End;
+
+End.