From ca5d090c37d39b77a06919e040b7f5d15843215a Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Wed, 29 Feb 2012 22:25:56 -0500 Subject: [PATCH] Removed Import NA --- mystic/mbbsutil.pas | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/mystic/mbbsutil.pas b/mystic/mbbsutil.pas index 58210bb..cf1fe2e 100644 --- a/mystic/mbbsutil.pas +++ b/mystic/mbbsutil.pas @@ -193,17 +193,17 @@ Begin WriteLn; WriteLn ('The following command line options are available:'); WriteLn; - WriteLn ('-AREAOUT Export AREAS.BBS format file in '); - WriteLn ('-BKILL Delete BBSes which haven''t been verified in '); + WriteLn ('-AREAOUT Export AREAS.BBS format file in '); + WriteLn ('-BKILL Delete BBSes which haven''t been verified in '); WriteLn ('-BPACK Pack all BBS lists'); - WriteLn ('-BSORT Sorts and packs BBS list by '); + WriteLn ('-BSORT Sorts and packs BBS list by '); WriteLn ('-FCHECK Checks file entries for correct size and status'); WriteLn ('-FPACK Pack file bases'); WriteLn ('-FSORT Sort file base entries by filename'); WriteLn ('-FUPLOAD Mass upload all files into filebases'); - WriteLn ('-MTRASH Delete messages to/from users listed in '); + WriteLn ('-MTRASH Delete messages to/from users listed in '); WriteLn ('-NOCHECK Bypass online user check at startup'); - WriteLn ('-UKILL Delete users who have not called in '); + WriteLn ('-UKILL Delete users who have not called in '); WriteLn ('-UPACK Pack user database'); End; @@ -1141,7 +1141,7 @@ Begin WriteLn; WriteLn ('MBBSUTIL: ', mysSoftwareID, ' BBS Utilities Version ', mysVersion, ' (', OSID, ')'); - WriteLn ('Copyright (C) 1997-2012 By James Coyle. All Rights Reserved.'); + WriteLn ('Copyright (C) ', mysCopyYear, ' By James Coyle. All Rights Reserved.'); WriteLn; FileMode := 66; @@ -1258,6 +1258,7 @@ Begin If TrashFile = '' Then TrashFile := Config.DataPath + 'trashcan.dat'; End; + If Temp = '-UPACK' Then UserPack := True; Inc (A);