external VDSIPP.DLL,706026714503|Doyle Montgomery
DIALOG CREATE,Update Website,,,210,150,
DIALOG ADD, STYLE,stybtn1,arial,8,CB,,,
DIALOG ADD, STYLE,grp1,arial,8,CB,white,white,
DIALOG ADD, STYLE,btntxt1,tahoma,,bc,,black
DIALOG ADD, STYLE,stytxt1,arial,8,lb,,ltblue
DIALOG ADD, STYLE,stytxt2,tahoma,8,LB,,black
DIALOG ADD, STYLE,stytxt3,arial,8,lb,,dkblue
DIALOG ADD,STYLE,Bold,MS Sans Serif,8,B
DIALOG ADD, STYLE,lsttxt1,tahoma,8,L,,black
DIALOG ADD,GROUP,g1,1,1,208,148,,,grp1
DIALOG ADD,LIST,LIST1,5,5,200,30
%%pb = 0
DIALOG ADD,PROGRESS,pbar,37,5,200,15,%%pb
DIALOG ADD,CHECK,cbox1,52,11,165,25,Update rate changes only,,stytxt3
DIALOG ADD,CHECK,cbox2,70,11,195,25,Update daily message only,,stytxt3
DIALOG ADD,CHECK,cbox3,88,11,195,25,Rates and daily message only,,stytxt3
DIALOG ADD,button,conbtn,120,9,84,20,Connect,btntxt1
DIALOG ADD,button,disbtn,120,115,84,20,Exit,btntxt1
rem dialog disable,disbtn x
DIALOG SHOW
:evloop
wait event
goto @event(%e)
  wait 0.1,event
  %E = @event()
  	goto %E

:conbtnbutton

list create,1
dialog enable,disbtn
	dialog disable,conbtn
INTERNET FTP,CREATE,Update PFG,-1,0,691,460
INTERNET FTP,AUTHENTICATE,dave,"plainsme"
INTERNET FTP,CONNECT,ftp.plainsmen.net,21
%z = "Connected..."
	list add,list1,%z
	wait 1
		%%pb = 1
		  dialog set,pbar,%%pb
		  	wait 2
	list clear,list1
	
INTERNET FTP,TRANSFERMODE,0
%z = "ASCII Transfer mode"
	list add,list1,%z
	  wait 2
list clear,list1
	%%pb = 2
	dialog set,pbar,%%pb


INTERNET FTP,CHANGEDIR,www
%z = "Directory change (www)"
	list add,list1,%z
	wait 2
list clear,list1
	%%pb = 3
	dialog set,pbar,%%pb
	  
	
INTERNET FTP,CHANGEDIR,css
%z = "Directory change (css)"
	list add,list1,%z
  wait 2
  list clear,list1
	%%pb = 4
	dialog set,pbar,%%pb

%%cb1 = @dlgtext(cbox1)
%%cb2 = @dlgtext(cbox2)
%%cb3 = @dlgtext(cbox3)

%%cnt = 0
:ratesonly
if @null(%%cb1)
goto msgonly
else
end

%%cnt = @SUCC(%%cnt)
%z = "Uploading file" "("Rates update only")"..."
	list add,list1,%z	
INTERNET FTP,PUTFILE,c:\pfg\RATES.HTM,rates.htm
wait 2
INTERNET FTP,NOOP
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
	list clear,list1
	%%pb = 7
	dialog set,pbar,%%pb
goto bail

:msgonly

if @null(%%cb2)
goto randm
else
end

%%cnt = @SUCC(%%cnt)
%z = "Uploading file" "("Daily message only")"..."
	list add,list1,%z	
INTERNET FTP,PUTFILE,c:\pfg\whatsnew.txt,whatsnew.txt
wait 2
INTERNET FTP,NOOP
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
	list clear,list1
	%%pb = 7
	dialog set,pbar,%%pb
goto bail

:randm
if @null(%%cb3)
goto doall
else
end

%%cnt = @SUCC(%%cnt)
%z = "Uploading file" "("Rates update")"..."
	list add,list1,%z
wait 2		
INTERNET FTP,PUTFILE,c:\pfg\RATES.HTM,rates.htm
%z = "Uploading file" "("Daily message update")"..."
	list add,list1,%z	
INTERNET FTP,PUTFILE,c:\pfg\whatsnew.txt,whatsnew.txt
wait 2
INTERNET FTP,NOOP
	list clear,list1
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
	list clear,list1
	%%pb = 7
	dialog set,pbar,%%pb
goto bail
end

:doall
%%cnt = @SUCC(%%cnt)	
%z = "Uploading  all files" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\RATES.HTM,rates.htm
INTERNET FTP,PUTFILE,c:\pfg\whatsnew.txt,whatsnew.txt
INTERNET FTP,PUTFILE,c:\pfg\ABOUT.HTM,about.htm
wait 1

INTERNET FTP,NOOP
%e = "   Transfer...ok"
	list add,list1,%e
	  wait 2
  list clear,list1
  %%pb = 14
  dialog set,pbar,%%pb	

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\LABOUT.HTM,labout.htm
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
  %%pb = 21
  dialog set,pbar,%%pb

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\REFI.HTM,refi.htm
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
    %%pb = 28
	dialog set,pbar,%%pb
	
%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\moreinfo.html,moreinfo.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
    %%pb = 35
	dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\convloans.html,convloans.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 42
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\fhaloans.html,fhaloans.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1		
    %%pb = 49
	dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\103spec.html,103spec.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 56
	  dialog set,pbar,%%pb  
	
%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\jumbo.html,jumbo.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 63
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\invsrent.html,invsrent.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 70
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\infodnpymnt.html,infodnpymnt.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 77
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\infocshbck.html,infocshbck.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 84
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\infocrntmtg.html,infocrntmtg.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 91
	  dialog set,pbar,%%pb
	  
%%cnt = @SUCC(%%cnt)	



%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\membermoreinfo.html,membermoreinfo.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 100
	  dialog set,pbar,%%pb	    

:bail
%%dolog = "Writing log file..."
	list add,list1,%%dolog
		  wait 2
  list clear,list1
%q = "Upload complete..."
	list add,list1,%q
      %%pb = 100
	  dialog set,pbar,%%pb	
%%log = @INTERNET(FTP,VIEWLOG)
list create,4
LIST ADD,4,%%log
LIST SAVEFILE,4,c:\pfg\ftplog.txt

INTERNET FTP,DISCONNECT
INTERNET FTP,DESTROY
rem dialog disable,conbtn
 	dialog enable,disbtn
		 goto evloop
:disbtnbutton
:close
exit