' this program creates the downloadable files containing the BBS listings.
' you must modify it to reflect the proper paths for your file areas and
' the zip and txt versions must exist in database prior to operation

' this program should be run as a daily event to update them regularly



'$include "prmfile.wcc"
'$include "wclistp.wcc"

OpenPrompts("wclist.prm")

'$include "wclist1.wcc"

function SortListing(na as integer) as integer
  dim count as integer
  count = 0
  dim now as date
  currentdate now
  dim ref as long
  ref = 1
  sortstart
  do while ref <= lof(1)
    if ref mod 16 = 0 then
      print ref; "/"; lof(1); chr(13);
    end if
    dim si as SystemInfo
    get #1, ref, si
    if si.UserId > 0 and (na eqv si.CountryCode = 1) and now.Number - si.Verified.Number <= VerifyTime then
      sortadd si.Number, ref
      count = count + 1
    end if
    ref = ref + 1
  loop
  print
  SortListing = count
end function

activitylog "Running WCLREPRT.WCX"

dim ref as long
dim si as SystemInfo

open "wclist.dat" for random as #1 len=len(SystemInfo)
open "wclist.out" for output as #2
dim total as integer
total = SortListing(True)
dim now as date
currentdate now
print #2, "This information is current as of "; FormatDate(now, Makewild.DateFormat)
print #2,
print #2, "BBS Phone No.  BBS Name                  "; pad("Verified", len(Makewild.DateFormat)); " Location"
print #2, "-------------- ------------------------- "; string(len(Makewild.DateFormat), "-"); " "; string(25, "-")
dim count as integer
count = 0
do
  ref = sortnext
  if ref < 0 then exit do
  get #1, ref, si
  print #2, pad(si.Number, 15); \
            pad(left(si.BBSName, 25), 26); \
            FormatDate(si.Verified, Makewild.DateFormat); " "; \
            si.City;
  if si.State <> "" then
    print #2, ", "; si.State;
  end if
  if si.Country <> "" then
    print #2, ", "; si.Country;
  end if
  print #2,
  count = count + 1
  if count mod 16 = 0 then
    print count; "/"; total; chr(13);
  end if
loop
print
total = SortListing(False)
print #2,
print #2, "The following BBSes are located outside the United States and Canada:"
print #2,
print #2, "BBS Phone No.  BBS Name                  "; pad("Verified", len(Makewild.DateFormat)); " Location"
print #2, "-------------- ------------------------- "; string(len(Makewild.DateFormat), "-"); " "; string(25, "-")
count = 0
do
  ref = sortnext
  if ref < 0 then exit do
  get #1, ref, si
  print #2, pad(si.Number, 15); \
            pad(left(si.BBSName, 25), 26); \
            FormatDate(si.Verified, Makewild.DateFormat); " "; \
            si.City;
  if si.State <> "" then
    print #2, ", "; si.State;
  end if
  if si.Country <> "" then
    print #2, ", "; si.Country;
  end if
  print #2,
  count = count + 1
  if count mod 16 = 0 then
    print count; "/"; total; chr(13);
  end if
loop
print
close #2

close #1

activitylog "WCLIST.OUT generated"
copyfile "c:\wildcat\wclist.out", "c:\wildcat\codesamp\wclist.txt"
shell "pkzip wclist wclist.txt", "c:\wildcat\codesamp"
dim f as filerecord
if getfileinfo(f, "WCLIST.ZIP") then
  currentdatetime f.filetime
  updatefile f
  ActivityLog "Updated WCLIST.ZIP date/time"
else
  ActivityLog "Skipped WCLIST.ZIP update, not found"
end if
if getfileinfo(f, "WCLIST.TXT") then
  currentdatetime f.filetime
  updatefile f
  ActivityLog "Updated WCLIST.TXT date/time"
else
  ActivityLog "Skipped WCLIST.TXT update, not found"
end if