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

Removed Import NA

This commit is contained in:
mysticbbs 2012-02-29 22:25:56 -05:00
parent ed4f3209fb
commit ca5d090c37
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mystic/mbbsutil.pas
View File

@ -193,17 +193,17 @@ Begin
WriteLn; WriteLn;
WriteLn ('The following command line options are available:'); WriteLn ('The following command line options are available:');
WriteLn; WriteLn;
WriteLn ('-AREAOUT <File> Export AREAS.BBS format file in <File>'); WriteLn ('-AREAOUT <File> Export AREAS.BBS format file in <File>');
WriteLn ('-BKILL <ID> <Days> Delete BBSes which haven''t been verified in <DAYS>'); WriteLn ('-BKILL <ID> <Days> Delete BBSes which haven''t been verified in <DAYS>');
WriteLn ('-BPACK Pack all BBS lists'); WriteLn ('-BPACK Pack all BBS lists');
WriteLn ('-BSORT <ID> <Type> Sorts and packs BBS list by <type>'); WriteLn ('-BSORT <ID> <Type> Sorts and packs BBS list by <type>');
WriteLn ('-FCHECK Checks file entries for correct size and status'); WriteLn ('-FCHECK Checks file entries for correct size and status');
WriteLn ('-FPACK Pack file bases'); WriteLn ('-FPACK Pack file bases');
WriteLn ('-FSORT Sort file base entries by filename'); WriteLn ('-FSORT Sort file base entries by filename');
WriteLn ('-FUPLOAD Mass upload all files into filebases'); WriteLn ('-FUPLOAD Mass upload all files into filebases');
WriteLn ('-MTRASH <File> Delete messages to/from users listed in <File>'); WriteLn ('-MTRASH <File> Delete messages to/from users listed in <File>');
WriteLn ('-NOCHECK Bypass online user check at startup'); WriteLn ('-NOCHECK Bypass online user check at startup');
WriteLn ('-UKILL <Days> Delete users who have not called in <DAYS>'); WriteLn ('-UKILL <Days> Delete users who have not called in <DAYS>');
WriteLn ('-UPACK Pack user database'); WriteLn ('-UPACK Pack user database');
End; End;
@ -1141,7 +1141,7 @@ Begin
WriteLn; WriteLn;
WriteLn ('MBBSUTIL: ', mysSoftwareID, ' BBS Utilities Version ', mysVersion, ' (', OSID, ')'); 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; WriteLn;
FileMode := 66; FileMode := 66;
@ -1258,6 +1258,7 @@ Begin
If TrashFile = '' Then TrashFile := Config.DataPath + 'trashcan.dat'; If TrashFile = '' Then TrashFile := Config.DataPath + 'trashcan.dat';
End; End;
If Temp = '-UPACK' Then UserPack := True; If Temp = '-UPACK' Then UserPack := True;
Inc (A); Inc (A);