- Oberon - mailman3.inf.ethz.ch

A2 release identity?
by peter＠easthope.ca 20 Jun '23

20 Jun '23

Hi, Here Debian 12 on a 64 bit PC has A2 retrieved from /~fld/UnixAos/revision.10272 and installed by "./install* LinuxA2.tgz". Executing "aos" gives a window labeled "LinuxA2 Gen. 32-bit, rev.9799, Work: /home/root/NY". Not intentional is it? Thanks, ... P. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Re: [Oberon] Re (2): Export of Oberon Mail.SendCmd().
by Joerg 15 Jun '23

15 Jun '23

Hi I had a look at Oberon.Base64.Mod. Is it that module you want to use? If yes, the only procedure it offers is Base64.EncodeFile(F, T); So, your input must be in file F and the base64 output is in text T. If you want a string to be base64-encoded you have to go the extra mile to write it to a (temporary) file and read it back from a (temporary) text. PROCEDURE Enc64*(in: ARRAY OF CHAR; VAR out: ARRAY IF CHAR); VAR F: Files.File; fR: Files.Rider; T: Texts.Text; tR: Texts.Reader; i: INTEGER; BEGIN NEW(T); Texts.Open(T, ““); F := Files.New(““); Files.Set(fR, F, 0); Files.WriteString(fR, in); Base64.EncodeFile(F, T); Files.Close(F); i := 0; Texts.OpenReader(tR, T, 0); REPEAT Texts.Read(tR, out[i]); INC(i) UNTIL Out.eot; out[i] := 0X END Enc64; Hopefully, it works. I did neither compile nor test it. To make it more robust, checks on NIL and LEN(out) should be added… br Jörg > Am 15.06.2023 um 15:41 schrieb peter(a)easthope.ca: > > From: Joerg <joerg.straube(a)iaeth.ch> > Date: Thu, 15 Jun 2023 08:56:14 +0300 >> Generally, re-using code instead of copying is a good approach. >> If you do so, then the whole code of Mail is imported in News. > > Currently working in the Oberon subsystem of A2 where News imports > Mail. I don't have an ETH Oberon system at hand but will speculate > that Mail was written before News and that News imported Mail from > the beginning or early in development. > >> What about this: try to separate all common code in an own module (e.g >> call it Communication.Mod or MsgBase.Mod or Utilities.Mod or so) and >> import this new module in Mail and in News. > > Good. Keeping in mind for possible future work. For now I'm happy to > have succeeded to add authentication to SMTP and NNTP. For me, Oberon > Mail and News are good alternatives to mutt, Thunderbird, pan & etc. > in Linux. I also want to make the current revisions available in A2. > What's useful to me may benefit others. > > Thanks for the help, ... P. > > Footnote > Still need to understand Streams well enough to automate base64 > encoding for submission of the user and password for SMTP. > > > - > mobile: +1 778 951 5147 > VoIP: +1 604 670 0140 > > -- > Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems > https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

Re (2): Export of Oberon Mail.SendCmd().
by peter＠easthope.ca 15 Jun '23

15 Jun '23

From: Joerg <joerg.straube(a)iaeth.ch> Date: Thu, 15 Jun 2023 08:56:14 +0300 > Generally, re-using code instead of copying is a good approach. > If you do so, then the whole code of Mail is imported in News. Currently working in the Oberon subsystem of A2 where News imports Mail. I don't have an ETH Oberon system at hand but will speculate that Mail was written before News and that News imported Mail from the beginning or early in development. > What about this: try to separate all common code in an own module (e.g > call it Communication.Mod or MsgBase.Mod or Utilities.Mod or so) and > import this new module in Mail and in News. Good. Keeping in mind for possible future work. For now I'm happy to have succeeded to add authentication to SMTP and NNTP. For me, Oberon Mail and News are good alternatives to mutt, Thunderbird, pan & etc. in Linux. I also want to make the current revisions available in A2. What's useful to me may benefit others. Thanks for the help, ... P. Footnote Still need to understand Streams well enough to automate base64 encoding for submission of the user and password for SMTP. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Export of Oberon Mail.SendCmd().
by peter＠easthope.ca 14 Jun '23

14 Jun '23

Hello again, Several procedures in Mail are used in Oberon News. Rg.: Mail.ParseContent(), Mail.DecodeMessage() & Mail.GetSetting(). Is export of SendCmd() and use in News objectionable? Ie. in Mail, change PROCEDURE SendCmd(...) to PROCEDURE SendCmd*(...). Thanks, ... P. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Re (3): Solved: Authentication for NNTP.
by peter＠easthope.ca 13 Jun '23

13 Jun '23

From: Joerg <joerg.straube(a)iaeth.ch> Date: Mon, 12 Jun 2023 06:39:02 +0200 > As the server replied with 481, I assume the credentials you > provided were not correct. Yes. Credentials incorrect in a small detail. =8~/ From: peter(a)easthope.ca Date: 11 Jun 2023 19:29:33 -0700 > SND: AUTHINFO USER PeterE > RCV: 381 Enter password > SND: AUTHINFO PASS <password> I noticed two blanks between USER and PeterE. Also remembered that an interactive test is easily started with telnet. Therefore, $ telnet localhost 119 Trying ::1... Connected to localhost. Escape character is '^]'. 200 news.eternal-september.org InterNetNews NNRP server INN 2.8.0 (20230610 snapshot) ready (posting ok) CAPABILITIES 101 Capability list: ... AUTHINFO USER PeterE 381 Enter password AUTHINFO PASS <password> 281 Authentication succeeded ... Referring to my additional lines in Oberon.News.Mod, SendCmd(S, "AUTHINFO USER ", user); ... SendCmd(S, "AUTHINFO PASS ", passwd); The blank I put after PASS and a blank SendCmd adds as separator. Two blanks. So eternal-september interprets the password as " <password>" rather than "<password>" and authentication fails. With assistance of the TLS tunnel, Oberon News still works! With a few source revisions and a tunnel accessed locally, it would work in ETH Oberon on a 486 machine. Marvellous really. =8~) Thanks for the help, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Re (2): Authentication for NNTP.
by peter＠easthope.ca 12 Jun '23

12 Jun '23

From: Joerg <joerg.straube(a)iaeth.ch> Date: Mon, 12 Jun 2023 06:39:02 +0200 > As the server replied with 481, I assume the credentials you > provided were not correct. According to RFC, correct. Nevertheless, login works with the same userid and password. http://www.eternal-september.org/signon.php > Did you send the command „USER PASS <password>“ as written, ... The real password is stored by NetSystem.SetUser. News submits the real password for authentication. > ... or did you edit the session log and replaced your real password with > the string “<password>“? Yes, edited the log rather than publish the real password. The pointed brackets, <...>, were meant to indicate a placeholder. The connection is inside a stunnel tunnel as for mail. No problem for POP & SMTP. $ cat /etc/stunnel/stunnel.conf ; imager:/etc/stunnel/stunnel.conf ; Example SSL client mode services [pop3] client = yes accept = localhost:110 ;connect = hornby.islandhosting.com:995 connect = mail.easthope.ca:995 [smtp] client = yes accept = localhost:106 connect = mail.easthope.ca:465 [nntp] client = yes accept = localhost:119 connect = news.eternal-september.org:563 Pertinent lines from /var/log/syslog Jun 12 05:50:32 imager stunnel: LOG5[2]: Service [nntp] accepted connection from 127.0.0.1:60236 Jun 12 05:50:32 imager stunnel: LOG5[2]: s_connect: connected 135.181.20.170:563 Jun 12 05:50:32 imager stunnel: LOG5[2]: Service [nntp] connected remote server from 192.168.0.21:60986 Jun 12 05:50:35 imager stunnel: LOG5[2]: Connection closed: 69 byte(s) sent to TLS, 572 byte(s) sent to socket Failure of TLS rather than of authentication in NNTP? This connection is closed by server while analogous arrangements work for POP and SMTP? Thanks, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Re: [Oberon] Authentication for NNTP.
by Joerg 12 Jun '23

12 Jun '23

As the server replied with 481, I assume the credentials you providied were not correct. Did you send the command „USER PASS <password>“ as written, or did you edit the session log and replaced your real password with the string “<password>“? br Jörg > Am 12.06.2023 um 04:29 schrieb peter(a)easthope.ca: > > Aside from understanding how a stream is involved in base64 encoding, > authentication works for Oberon Mail in A2. > > Therefore I'm emboldened to work on authentication for NNTP. With > simple additions, the module reports this. > > --- NNTP > host = reader443.eternal-september.org > user = PeterE > RCV: 200 news.eternal-september.org InterNetNews NNRP server INN 2.8.0 (20230418 snapshot) ready (posting ok) > SND: CAPABILITIES > RCV: 101 Capability list: > RCV: VERSION 2 > RCV: IMPLEMENTATION INN 2.8.0 (20230418 snapshot) > RCV: AUTHINFO USER SASL > RCV: COMPRESS DEFLATE > RCV: HDR > RCV: LIST ACTIVE ACTIVE.TIMES COUNTS DISTRIB.PATS DISTRIBUTIONS HEADERS MODERATORS MOTD NEWSGROUPS OVERVIEW.FMT SUBSCRIPTIONS > RCV: OVER > RCV: POST > RCV: READER > RCV: SASL GSS-SPNEGO GSSAPI SCRAM-SHA-256 SCRAM-SHA-1 GS2-KRB5 GS2-IAKERB DIGEST-MD5 NTLM CRAM-MD5 PLAIN LOGIN > RCV: STARTTLS > RCV: XPAT > RCV: . > SND: AUTHINFO USER PeterE > RCV: 381 Enter password > SND: AUTHINFO PASS <password> > RCV: 481 Invalid credentials > RCV: 480 Authentication required for command > 480 Authentication required for command > > The user and password allow interactive login in the browser. Fairly > sure they are correct. Yet authentication fails. (?) > > Why does the server show capability "AUTHINFO USER" and then refuse > authentication? > > SASL authentication is required? > > Thanks, ... P.L. > > > - > mobile: +1 778 951 5147 > VoIP: +1 604 670 0140 > > -- > Oberon(a)lists.inf.ethz.ch mailing list for ETH Oberon and related systems > https://lists.inf.ethz.ch/mailman/listinfo/oberon

1 0

Authentication for NNTP.
by peter＠easthope.ca 12 Jun '23

12 Jun '23

Aside from understanding how a stream is involved in base64 encoding, authentication works for Oberon Mail in A2. Therefore I'm emboldened to work on authentication for NNTP. With simple additions, the module reports this. --- NNTP host = reader443.eternal-september.org user = PeterE RCV: 200 news.eternal-september.org InterNetNews NNRP server INN 2.8.0 (20230418 snapshot) ready (posting ok) SND: CAPABILITIES RCV: 101 Capability list: RCV: VERSION 2 RCV: IMPLEMENTATION INN 2.8.0 (20230418 snapshot) RCV: AUTHINFO USER SASL RCV: COMPRESS DEFLATE RCV: HDR RCV: LIST ACTIVE ACTIVE.TIMES COUNTS DISTRIB.PATS DISTRIBUTIONS HEADERS MODERATORS MOTD NEWSGROUPS OVERVIEW.FMT SUBSCRIPTIONS RCV: OVER RCV: POST RCV: READER RCV: SASL GSS-SPNEGO GSSAPI SCRAM-SHA-256 SCRAM-SHA-1 GS2-KRB5 GS2-IAKERB DIGEST-MD5 NTLM CRAM-MD5 PLAIN LOGIN RCV: STARTTLS RCV: XPAT RCV: . SND: AUTHINFO USER PeterE RCV: 381 Enter password SND: AUTHINFO PASS <password> RCV: 481 Invalid credentials RCV: 480 Authentication required for command 480 Authentication required for command The user and password allow interactive login in the browser. Fairly sure they are correct. Yet authentication fails. (?) Why does the server show capability "AUTHINFO USER" and then refuse authentication? SASL authentication is required? Thanks, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Stream usage.
by peter＠easthope.ca 27 May '23

27 May '23

From: peter(a)easthope.ca Date: 24 May 2023 12:46:36 -0700 > Better to use Base64.Encode in NetSystem. CArchive2.ReadHeader in A2 examples. I've added this in Unix.Oberon.NetSystem.Mod. VAR r: Streams.Reader; IF service = "smtp" Out.String("User and pwd available. Base64 encode and store in p.passwd."); Out.Ln(); r.Char(0X); r.String(p.user); r.Char(0X); r.String(p.passwd); Base64(r); r.??(p.passwd, ??) END; Still more guesswork than comprehension. =8~/ TTFN, ... P. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140

1 0

Stream usage.
by peter＠easthope.ca 24 May '23

24 May '23

Currently SMTP authentication in Oberon.Mail.Mod is hardcoded, similar to this. SendCmd(S, "AUTH", "PLAIN AHBldGVyQGVhc3Rob3BlLmNhAHBhc3N3b3Jk"); Better to use Base64.Encode in NetSystem. MODULE NetSystem IN Oberon; IMPORT ... Base64 IN A2, Streams IN A2, ... VAR ... s: Streams.Stream; ... IF service = "smtp" Out.String("User and password available. Base64 encode and store in pass.passwd."); Out.Ln(); (* Put 0X pass.user 0X pass.passwd in stream s. *) Base64.Encode(s); (* Put "PLAIN " s in pass.passwd. *) END; Then simplify the line in Mail. SendCmd(S, "AUTH", pass.passwd); This is my first attempt to use a stream. Can the one stream work as suggested above? Thx, ... P.L. - mobile: +1 778 951 5147 VoIP: +1 604 670 0140 sip:461697@sip.diamondcard.us

1 0