From virginia!icecave.apana.org.au!dfreeman Thu, 6 Oct 94 12:20:21 EDT Received: by adastra.cvl.va.us (V1.17-beta/Amiga) id <3jur@adastra.cvl.va.us>; Thu, 6 Oct 94 12:20:21 EDT Received: from bushwire.apana.org.au by uvaarpa.virginia.edu id aa17490; 6 Oct 94 11:40 EDT Received: from icecave.UUCP (Uicecave@localhost) by bushwire.apana.org.au (8.6.9/bwnf7) with UUCP id BAA02231 for adastra.cvl.va.us!mbs; Fri, 7 Oct 1994 01:14:06 +1000 Received: by icecave.apana.org.au (V1.17-beta/Amiga) id <11bp@icecave.apana.org.au>; Thu, 6 Oct 94 20:06:50 GMT +1000 Date: Thu, 6 Oct 94 20:06:50 GMT +1000 Message-Id: <9410062006.11bp@icecave.apana.org.au> From: Dave Freeman To: mbs@adastra.cvl.va.us Subject: Re: AmiTCP (Ether) <> UUCP > > What I would like to do is get away from the necessity for him to use > > a modem to dial out with his Waffle setup to collect his usenet stuff. > I believe your analysis and conclusion are correct. You can use such utilities > as NNTPxfer between his host and your own, but then you would not be running > UUCP at all. > There are no current solutions to UUCP over Ethernet for the Amiga. I've spent > some time on it, its not simple, and I won't have time to finish it any time > soon. Several other people have indicated that they WOULD do something, but no > programs have yet been seen... I have taken an interim step of massaging the contents of his spool directory on my system into a format that Waffle can accept and then putting them in his home directory in relation to my AmiTCP setup. He can then ftp them and de-archive them straight into his Waffle spool and process them. This was done using AREXX (if I'd done it in C I would still be doing it) and I will include the AREXX script here for your interest. It is not all that generic yet but I plan on making it generic soon as I have a couple of other people up here talking about slip and so forth even if it only gives them a connection to my BBS and not a further connection to internet in general. I wonder what it would take to actually get an ethernet/uucp connection. Is it 'mainly' a case of a uucico that will operate on something other than a serial device? Or have I missed something major here? If it is 'mainly' this then I _might_ be able to convince a local C programming mate to have a look at it for me. As I said, my main programming experience is AREXX and AmigaDOS batch files rather than C so I'm not totally sure of what would be involved here. I guess a suitable getty would have to be involved but I suspect that this could be bypassed by use of a suitable telnet login that would spawn a uucico instead of a shell. Obviously I am quite interested in seeing this implemented and would like to be involved, even if only twisting the arm of a mate that _does_ do quite a bit of C programming at a commercial level. Anyway, here is that AREXX stuff FWIW (the main thing of interest I guess is that Waffle needs a bitmask as part of it's own filename - mainly to get around the problem with all no case on MS-DOS). -----8<----- /* ----------------------------------------------------------------------------------------------- */ /* */ /* Waffle_Kludge.rexx v1.0 by Dave Freeman - dfreeman@icecave.apana.org.au */ /* */ /* ----------------------------------------------------------------------------------------------- */ OPTIONS RESULTS /* ----------------------------------------------------------------------------------------------- */ IF ~SHOW('l','rexxsupport.library') THEN IF ~ADDLIB('rexxsupport.library',0,-30) THEN DO SAY "Error: rexxsupport.library not available" EXIT 5 END /* ----------------------------------------------------------------------------------------------- */ SystemName = incan_troll ThisSystem = icecave StoreDir = 'USERS:japa/uucp/' /* ----------------------------------------------------------------------------------------------- */ WorkDir = 'UUSpool:'SystemName'/' DirList = SHOWDIR(WorkDir,FILE) DirCount = WORDS(DirList) IF LENGTH(ThisSystem) > 7 THEN DO SystemAdj = LEFT(ThisSystem,7) END ELSE DO SystemAdj = ThisSystem END /* ----------------------------------------------------------------------------------------------- */ CurrDir = PRAGMA('D') PRAGMA('D',WorkDir) /* ----------------------------------------------------------------------------------------------- */ DO Count = 1 TO DirCount BY 1 TestFile = WORD(DirList,Count) IF LEFT(TestFile,2) = 'C.' & EXISTS(WorkDir||TestFile) = 1 THEN DO OPEN(WorkIn,TestFile,READ) DO UNTIL EOF(WorkIn) WorkLine = READLN(WorkIn) IF EOF(WorkIn) THEN LEAVE PARSE VAR WorkLine junk LocalFile RemoteFile junk LocalFile = STRIP(LocalFile) RemoteFile = STRIP(RemoteFile) RemoteFile = DELSTR(RemoteFile,3,LENGTH(SystemAdj)) RemoteFile = RIGHT(RemoteFile,5)'.'LEFT(RemoteFile,1) RemoteTest = LEFT(RemoteFile,5) Kludge = 0 DO Counter = 1 TO LENGTH(RemoteTest) BY 1 CharTest = SUBSTR(RemoteTest,Counter,1) IF POS(CharTest,'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789') = 0 THEN DO Kludge = Kludge + (2 ** (LENGTH(RemoteTest) - Counter)) END END Kludge = SUBSTR('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ',Kludge+1,1) ADDRESS COMMAND 'Rename 'LocalFile' AS 'Kludge||RemoteFile END CLOSE(WorkIn) ADDRESS COMMAND 'Delete >NIL: 'TestFile END END SaveFile = StoreDir||STRIP(LEFT(SystemName,8))'.lha' Say 'SaveFile: 'SaveFile', WorkDir: 'WorkDir PRAGMA(D,StoreDir) ADDRESS COMMAND 'C:LHA -2 -m -N -q a 'SaveFile' 'WorkDir'*' ADDRESS COMMAND 'Delete >NIL: 'WorkDir'#?' /* ----------------------------------------------------------------------------------------------- */ PRAGMA('D',CurrDir) /* ----------------------------------------------------------------------------------------------- */ EXIT -----8<----- Feel free to do anything you like with it although I would like to see any changes made to it forwarded back to me at some stage (even if just for my own interest/learning etc). -- |~~~~~~~~~~| dfreeman@icecave.apana.org.au | -= The Ice Cave =- | | _--_|\<---------------------------------------------------------+ | / \ | Cairns, Far North Queensland | FIDONet: 3:640/535 | | \_.--._/ | | AmigaNet: 41:450/533 | | v | Rain Forest & Reef Country | Phone: +61-70-31-4186 | |__________|_______________________________| +61-70-31-4020 |