TOP10: callers, posts, downloads, uploads so far

This commit is contained in:
mysticbbs 2012-03-04 17:00:14 -05:00
parent b4b9678212
commit 45abe1b057
3 changed files with 24 additions and 28 deletions

View File

@ -154,36 +154,27 @@
;
; The number of items in each list is determined by the template. It
; could be any number between 1 and 100.
;
; Additionally, each list can have an exclude list so that certain
; people or files will not be factored into the list.
top_caller = 1
top_caller_template = mutil.top10.template
top_caller_desc = Callers
top_caller_out = topcallers.asc
top_caller_exclude = mutil.top10.exclude
top_caller_namelen = 30
top_caller_namepad = 0;
top_caller_datalen = 6;
top_caller_datapad = 1;
exclude_list = mutil.toplist.exclude.txt
top_download_template = mutil.top10.template
top_download_desc = Downloaders
top_download_out = topdownloads.asc
; configuration for top callers generator
top_upload_template = mutil.top10.txt
top_upload_desc = Uploaders
top_upload_out = topuploads.asc
top_call = 1
top_call_template = mutil.toplist.template.txt
top_call_output = topcallers.asc
top_call_desc = Callers
top_poster_template = mutil.top10.txt
top_poster_desc = Posters
top_poster_out = topposts.asc
top_dl = 1
top_dl_template = mutil.toplist.template.txt
top_dl_output = topdownload.asc
top_dl_desc = Downloaders
top_files_template = mutil.top10.txt
top_files_desc = File Downloads
top_files_out = topfiles.asc
top_file_exclude = 1
top_ul = 1
top_ul_template = mutil.toplist.template.txt
top_ul_output = topupload.asc
top_ul_desc = Uploaders
; nameformat length, data length? etc?
; |DA00-99 |NA00-99 |DS
top_post = 1
top_post_template = mutil.toplist.template.txt
top_post_output = topposts.asc
top_post_desc = Posters

View File

@ -46,7 +46,8 @@ Uses
mutil_Status,
mutil_ImportNA,
mutil_FileBone,
mutil_Upload;
mutil_Upload,
mutil_TopLists;
{$I MUTIL_ANSI.PAS}
@ -150,6 +151,7 @@ Var
DoImportNA : Boolean;
DoFileBone : Boolean;
DoMassUpload : Boolean;
DoTopLists : Boolean;
Begin
ApplicationStartup;
@ -158,6 +160,7 @@ Begin
DoImportNA := CheckProcess(Header_IMPORTNA);
DoFileBone := CheckProcess(Header_FILEBONE);
DoMassUpload := CheckProcess(Header_UPLOAD);
DoTopLists := CheckProcess(Header_TOPLISTS);
// Exit with an error if nothing is configured
@ -174,4 +177,5 @@ Begin
If DoImportNA Then uImportNA;
If DoFileBone Then uImportFileBone;
If DoMassUpload Then uMassUpload;
If DoTopLists Then uTopLists;
End.

View File

@ -27,6 +27,7 @@ Const
Header_IMPORTNA = 'Import_FIDONET.NA';
Header_FILEBONE = 'Import_FILEBONE.NA';
Header_UPLOAD = 'MassUpload';
Header_TOPLISTS = 'GenerateTopLists';
Function strAddr2Str (Addr : RecEchoMailAddr) : String;
Function GenerateMBaseIndex : LongInt;