' Ufgate to Waffle convertor
' New Versions (lost source to old version)
' Now it will work under MS-DOS 3.3 and 4.01
' (c) 1990 by William N. Bell  1:260/170

' Namely uftwaf.exe   : Executable
'        uftwaf.bas   : QB v4.5
'        convert.ctl  : Needed config file

' Defaults
' These are used if convert.ctl is not present
wafspool$ = "c:\uucp\"
wafhost$ = "acsu_buffalo_edu"
ufspool$ = "c:\uucp\sunybcs\"
ufhost$ = "sunybcs"

CLS
OPEN "convert.ctl" FOR INPUT AS #1
WHILE NOT EOF(1)
  LINE INPUT #1, temp$
  IF LEFT$(temp$, 1) <> ";" THEN
     IF LEFT$(temp$, 12) = "spool Waffle" THEN
       wafspool$ = RIGHT$(temp$, LEN(temp$) - 13)
     END IF
     IF LEFT$(temp$, 12) = "spool Ufgate" THEN
       ufspool$ = RIGHT$(temp$, LEN(temp$) - 13)
     END IF
     IF LEFT$(temp$, 15) = "Waffle UUCPHost" THEN
       wafhost$ = RIGHT$(temp$, LEN(temp$) - 16)
       FOR i = 1 TO LEN(wafhost$)
         IF MID$(wafhost$, i, 1) = "." THEN MID$(wafhost$, i, 1) = "_"
       NEXT i
     END IF
     IF LEFT$(temp$, 15) = "Ufgate UUCPHost" THEN
       ufhost$ = RIGHT$(temp$, LEN(temp$) - 16)
       IF LEN(ufhost$) > 8 THEN ufhost$ = LEFT$(ufhost$, 8)
       IF LEN(ufhost$) < 8 THEN ufhost$ = ufhost$ + STRING$(8 - LEN(ufhost$), "S")
     END IF
  END IF
WEND
CLOSE #1
PRINT "Ufgate 1.03 to Waffle v1.61 by William N. Bell"
PRINT "(c) 1990 @FidoNet 1:260/170 v1.1b"
PRINT
PRINT "w "; wafspool$; " for "; wafhost$
PRINT "u "; ufspool$; " for "; ufhost$
PRINT : PRINT

SHELL "dir " + ufspool$ + "*.c > c"
OPEN "c" FOR INPUT AS #1
WHILE NOT EOF(1)
  LINE INPUT #1, temp$
  IF LEFT$(temp$, 1) <> " " AND LEN(temp$) <> 0 THEN
     f2$ = ""
     fl$ = LEFT$(temp$, 12)
     FOR i = 1 TO 8
        IF MID$(fl$, i, 1) <> " " THEN
          f2$ = f2$ + MID$(fl$, i, 1)
        END IF
     NEXT i
     f2$ = f2$ + "." + RIGHT$(fl$, 3)
     nf2$ = wafspool$ + "c_" + LEFT$(wafhost$, 6) + "." + LEFT$(fl$, 1) + MID$(fl$, 4, 2)
     PRINT "Get "; ufspool$ + f2$
     PRINT "New "; nf2$
     SHELL "copy " + ufspool$ + f2$ + " " + nf2$
     SHELL "del " + ufspool$ + f2$
     SHELL "copy " + ufspool$ + LEFT$(f2$, 6) + "dat " + wafspool$ + LEFT$(f2$, 6) + "dat"
     SHELL "del " + ufspool$ + LEFT$(f2$, 6) + "dat"
     SHELL "copy " + ufspool$ + LEFT$(f2$, 6) + "xqt " + wafspool$ + LEFT$(f2$, 6) + "xqt"
     SHELL "del " + ufspool$ + LEFT$(f2$, 6) + "xqt"
     PRINT : PRINT
  END IF
WEND
CLOSE





