ftp: basic commands for passive mode

lib/reg-ios.spin

@@ -1134,6 +1134,7 @@ PUB lan_rxcheck(handle): rxbyte
   bus_putchar1(gc#a_lanRXCheck)
   bus_putlong1(handle)
   rxbyte := bus_getchar1
+  rxbyte := ~rxbyte
 
 PUB lan_rxtime(handle, timeout): rxbyte
 ''funktionsgruppe               : lan
@@ -1151,6 +1152,7 @@ PUB lan_rxtime(handle, timeout): rxbyte
   bus_putlong1(handle)
   bus_putword1(timeout)
   rxbyte := bus_getchar1
+  rxbyte := ~rxbyte
 
 PUB lan_rxbyte
 PUB lan_rxdatatime
@@ -1174,7 +1176,26 @@ PUB lan_txcheck(handle, txbyte): error
   error := bus_getchar1
 
 PUB lan_tx
-PUB lan_txdata
+PUB lan_txdata(handle, ptr, len): error
+''funktionsgruppe               : lan
+''funktion                      : bei bestehender Verbindung die angegebene Datenmenge senden
+''eingabe                       : -
+''ausgabe                       : -
+''busprotokoll                  : [090][sub_putlong.handle][sub_putlong.len][put.byte1][put.byte<len>][get.error]
+''                              : handle              - lfd. Nr. der Verbindung
+''                              : byte1 ... byte<len> - zu sendende Bytes
+''                              : len                 - Anzahl zu sendender Bytes
+''                              : error               - ungleich Null bei Fehler
+
+  bus_putchar1(gc#a_lanTXData)
+  bus_putlong1(handle)
+  bus_putlong1(len)
+
+  repeat len
+    bus_putchar1(byte[ptr++])
+
+  error := bus_getchar1
+  error := ~error
 
 CON ''------------------------------------------------- Hydra Sound System
 

system/administra/admnet/admnet.spin

@@ -1324,7 +1324,32 @@ PRI lan_txcheck | handle, txbyte
 
 
 PRI lan_tx
-PRI lan_txdata
+PRI lan_txdata | handle, len, txbyte, error
+''funktionsgruppe               : lan
+''funktion                      : bei bestehender Verbindung die angegebene Datenmenge senden
+''eingabe                       : -
+''ausgabe                       : -
+''busprotokoll                  : [090][sub_getlong.handle][sub_getlong.len][get.byte1][get.byte<len>][put.error]
+''                              : handle - lfd. Nr. der Verbindung
+''                              : len - Anzahl zu sendender Bytes
+''                              : error  - ungleich Null bei Fehler
+
+  error := FALSE
+  handle := sub_getlong
+  len := sub_getlong
+
+  repeat len
+    txbyte := bus_getchar
+    ifnot error
+      repeat while sock.writeByteNonBlocking(handle, txbyte) < 0
+        ifnot sock.isConnected(handle)
+          error := sock#ERRSOCKETCLOSED
+          quit
+
+  bus_putchar(error)
+
+
+
 
 DAT
                 long                                    ' long alignment for addresses

system/regnatix/ftp.spin

@@ -49,7 +49,7 @@ VAR
   long    handle_control             'Handle FTP Control Verbindung
   long    handle_data                'Handle FTP Data Verbindung
 
-PUB main
+PUB main | pasvport
 
   ip_addr := 0
 
@@ -64,42 +64,102 @@ PUB main
                setaddr(@parastr)
         other: ios.print(@help)
 
-  if (ip_addr)  ' Adresse nicht 0.0.0.0
+  ifnot ftpconnect
-    ios.print(string("Starte LAN..."))
+    ifnot ftplogin(string("anonymous"),string("password"))
+      ifnot ftpcwd(string("system"))
+        if (pasvport := ftppasv)
+          ios.print(string("Öffne Verbindung zu Passiv-Port "))
+          ios.print(num.ToStr(pasvport, num#DEC))
+  ios.stop
+
+PRI ftpconnect
+
+  ifnot (ip_addr)  ' Adresse 0.0.0.0
+    ios.print(string("FTP-Server nicht angegeben (Parameter /s)"))
     ios.printnl
-    ios.lanstart
+    return(-1)
-    delay_ms(1000) 'nach ios.lanstart dauert es, bis der Stack funktioniert
+  ios.print(string("Starte LAN..."))
-    ios.print(string("Verbinde mit FTP-Server..."))
+  ios.printnl
+  ios.lanstart
+  delay_ms(1000) 'nach ios.lanstart dauert es, bis der Stack funktioniert
+  ios.print(string("Verbinde mit FTP-Server..."))
+  ios.printnl
+  if (handle_control := ios.lan_connect(ip_addr, 21)) == -102
+    ios.print(string("Kein Socket frei..."))
     ios.printnl
-    handle_control := ios.lan_connect(ip_addr, 21)
+    return(-1)
-''    ios.lan_resetbuffers(handle_control)
+''  ios.lan_resetbuffers(handle_control)
-    ios.print(string("Handle Connect: "))
+  ifnot (ios.lan_waitconntimeout(handle_control, 2000))
-    ios.print(num.ToStr(handle_control, num#HEX))
+    ios.print(string("Verbindung mit FTP-Server konnte nicht aufgebaut werden."))
     ios.printnl
-    if (ios.lan_waitconntimeout(handle_control, 2000))
+    return(-1)
-      ios.print(string("Verbindung mit FTP-Server hergestellt."))
+  ios.print(string("Verbindung mit FTP-Server hergestellt, warte auf Antwort..."))
-      ios.printnl
+  ios.printnl
-      if getResponse(string("220 "))
+  ifnot getResponse(string("220 "))
-        if sendStr(handle_control, string("USER anonymous",13,10))
+    ios.print(string("Keine oder falsche Antwort vom FTP-Server erhalten."))
-          getResponse(string("230 "))
+    ios.printnl
-        else
+    return(-1)
-        ios.print(string("Fehler beim Senden des Usernamens"))
+  return(0)
-        ios.printnl
-      else
-        ios.print(string("Antwort falsch."))
-        ios.printnl
-    else
-      ios.print(string("Verbindung mit FTP-Server konnte nicht aufgebaut werden."))
-      ios.printnl
 
+PRI ftplogin(username, password)
 
+  ifnot strsize(username)
+    username := string("anonymous")
+  if sendStr(string("USER ")) || sendStr(username) || sendStr(string(13,10))
+    ios.print(string("Fehler beim Senden des Usernamens"))
+    ios.printnl
+    return(-1)
+  ifnot getResponse(string("230 "))
+    ios.print(string("Keine oder falsche Antwort vom FTP-Server erhalten."))
+    ios.printnl
+    return(-1)
+  return(0)
 
-    ios.lan_close(handle_control)
+PRI ftpcwd(directory)
 
- ios.stop
+  ifnot strsize(directory)
+    directory := string("/")
+  if sendStr(string("CWD ")) || sendStr(directory) || sendStr(string(13,10))
+    ios.print(string("Fehler beim Senden des Verzeichnisses"))
+    ios.printnl
+    return(-1)
+  ifnot getResponse(string("250 "))
+    ios.print(string("Keine oder falsche Antwort vom FTP-Server erhalten."))
+    ios.printnl
+    return(-1)
+  return(0)
+
+PRI ftppasv : port | i, k, port256, port1
+
+  port := 0
+  port256 := 0
+  port1 := 0
+  k := 0
+
+  if sendStr(string("PASV",13,10))
+    return(-1)
+
+  repeat until readLine == -1
+    ios.print(string(" < "))
+    ios.print(@strTemp)
+    ios.printnl
+    strTemp[4] := 0
+    if strcomp(@strTemp, string("227 "))
+      repeat i from 5 to 126
+        if (strTemp[i] == 0) OR (strTemp[i] == 13) OR (strTemp[i] == 10)
+          quit
+        if strTemp[i] == 44 'Komma
+          strTemp[i] := 0
+          k++
+          if k == 4         '4. Komma, Port Teil 1 folgt
+            port256 := i + 1
+          if k == 5         '5. Komma, Port Teil 2 folgt
+            port1 := i + 1
+        if strTemp[i] == 41 'Klammer zu
+          strTemp[i] := 0
+          if (port256 & port1)
+            port := (num.FromStr(@strTemp+port256, num#DEC) * 256) + num.FromStr(@strTemp+port1, num#DEC)
 
-PRI delay_ms(Duration)
-  waitcnt(((clkfreq / 1_000 * Duration - 3932)) + cnt)
 
 PRI setaddr (ipaddr) | pos, count                       'IP-Adresse in Variable schreiben
 
@@ -117,14 +177,10 @@ PRI getResponse (strOk) : respOk | len
 
   respOk := FALSE
 
-  repeat
+  repeat until readLine == -1
-    readLine
+    ios.print(string(" < "))
-    if strsize(@strTemp) == 0
+    ios.print(@strTemp)
-      quit
-    ios.print(string("Antwort: "))
-    ios.print(strTemp)
     ios.printnl
-    'byte[@strTemp+strsize(strOk)] := 0
     strTemp[strsize(strOk)] := 0
     if strcomp(@strTemp, strOk)
       respOk := TRUE
@@ -145,15 +201,17 @@ PRI readLine | i, ch
 
   strTemp[i] := 0
 
-  return i
+  return ch 'letztes Zeichen oder -1, wenn keins mehr empfangen
 
-PRI sendStr (handle, strSend) | i, err
+PRI sendStr (strSend) : error
 
-  repeat i from 0 to strsize(strSend)
+  ios.print(string(" > "))
-    if (err := ios.lan_txcheck(handle, strSend[i]))
+  ios.print(strSend)
-      quit
+  ios.printnl
+  error := ios.lan_txdata(handle_control, strSend, strsize(strSend))
 
-  return err
+PRI delay_ms(Duration)
+  waitcnt(((clkfreq / 1_000 * Duration - 3932)) + cnt)
 
 DAT                                                     'sys: helptext