[REBOL] pb connect to a news server with authentification ?
From: patrick::scotto::wanadoo::fr at: 24-Sep-2002 19:06
hello,
need some help please ,
i wrote this to send a message to a news server , but this one needs an
authentification like
AUTHINFO USER testmod
and AUTHINFO PASS qq
how to modify this program to add authentification ?
---------
trace/net on
nntp: make object! [
url: make url! ""
auth: make string! ""
pass: make string! ""
header: make object! [
from: make string! ""
subject: make string! ""
date: make string! ""
approved: make string! ""
content-type: make string! "text/plain;charset=iso-8859-15"
message-id: make string! ""
newsgroups: make string! ""
]
make-id: does [
rejoin [
"<" checksum form now
random 999999 "."
system/user/email ">"
]
]
send: function [ subject message from typ] [ url ] [
url: to-url join self/url [ "/" nntp/header/newsgroups ]
header/approved: "[testmod--myhome--fr]"
header/message-id: make-id
header/date: to-idate now
header/subject: copy subject
header/from: from
header/content-type: typ
write url rejoin [
net-utils/export header
newline newline
message
newline
]
]
]
nntp/url: nntp://200.75.102.165
;nntp/auth: "USERINFO USER testmod"
;nntp/pass: "USERINFO PASS qq"
nntp/header/newsgroups: "testmod"
nntp/send "sujet de post" "test debaratin" "[toto--marine--def]"
text/plain;charset=iso-8859-15
; resultat obtenu -------------
comment: [
Net-log: ["Opening tcp for" NNTP]
connecting to: 200.75.102.165
Net-log: [none "20"]
Net-log: {200 adj-msg. Netscape-Collabra/3.54 24102 NNRP ready (posting
ok).}
Net-log: [none "20"]
Net-log: {200 adj-msg. Netscape-Collabra/3.54 24102 NNRP ready (posting
ok).}
Net-log: ["GROUP testmod" "211"]
Net-log: "211 9 1 9 testmod"
Net-log: [none "2"]
Net-log: "221 MESSAGE-ID fields follow"
Net-log: ["POST" "3"]
Net-log: "340 Ok"
Net-log: ["." "2"]
Net-log: ["QUIT" "205"]
Net-log: "205"
** User Error: Server error: tcp 480 Authentication required for command
** Near: write url rejoin [
net-utils/export header
newline newline
message
newline
]
]
