Hi all,
I'm working on a tool that generates readme files for Aminet (that's a Amiga file directory server farm, to those who don't know) and then loads them up together with a corresponding Archive. My development plattform is PureBasic v6.01 LTS on Windows 10. So far, so good. My connection code (it works with other servers, like "ftp.free.fr") NEVER gets a connection to Aminet - I urgently need your help.
Here's my connection code (stripped down to essentials):
Code: Select all
; ------------------------------------------------------------
; PureBasic - Aminet Ftp-Connect
; ------------------------------------------------------------
;
server$ = "main.aminet.net"
user$ = "anonymous"
pw$ = "fritz@sitz.com"
ftpdir$ = "new"
port.l = 21
passive.l = #True
Ftp.l = 0
If OpenFTP(Ftp, server$, user$, "", passive, port)
;--> I suspect NOW Aminet expects the user to send Email Adress as password
;--> How to do that?!
Debug CheckFTPConnection(Ftp)
Debug "Connection: Success"
If SetFTPDirectory(Ftp, ftpdir$)
Debug "Success, directory changed"
Debug GetFTPDirectory(Ftp)
If ExamineFTPDirectory(Ftp)
While NextFTPDirectoryEntry(Ftp)
Debug FTPDirectoryEntryName(Ftp)
Wend
FinishFTPDirectory(Ftp)
EndIf
Else
Debug "Cannot change directory to 'new'."
EndIf
Else
Debug "no connection to Aminet server"
EndIf
Thanks for any hints!