parameter runtype
if empty(runtype)
runtype='rebuild'
endif
lastbuild=cmonth(date())+' '+alltrim(str(day(date())))+', '+alltrim(str(year(date())))+' '+time()+' CST'
totpagesgen=0
newspagesgen=0
totfeedsgen=0
totfeedschk=0
workpagesgen=0
guestpagesgen=0
memberpagesgen=0
gallpagesgen=0
guestgallgen=0
memgallgen=0
totsetsgen=0
guestsetgen=0
memsetgen=0
totimggen=0
guestimggen=0
memimggen=0
feedchk=0
feedgen=0
pagegen=0
gallgen=0
setgen=0
imggen=0
set safety off
select 0
use mainlist excl
zap
if file('ftp_ctrl.dbf')
delete file ftp_ctrl.dbf
endif
select 0
create table ftp_ctrl(flname c(254), done l)
use
if file('filelist.dbf')
delete file filelist.dbf
endif
select 0
create table filelist(dir c(50), flname c(254))
dir2wrt=''
do checknews with runtype,0
totpagesgen=totpagesgen+pagegen+gallgen
newspagesgen=newspagesgen+pagegen
totfeedsgen=totfeedsgen+feedgen
totfeedschk=totfeedschk+feedchk
workpagesgen=workpagesgen+pagegen
close databases
select 0
use ftp_ctrl shared
do ftp_it with 0
if not used('filelist')
select 0
use filelist
endif
|