🚀 go-pugleaf

I have setup a private bulletin board in my account but I am having
problem when is comes to giving post permissions to particular folders.
The problems are that messages isn't recognising when it cannot post to
a bulletin board and is also not getting the address to send the item to
correct; ie. it doesn't seem to be getting the information out of the
.MS.DirectPost file.

I will explain everything I did; it may even help someone who wishes to
do something similar.

The main reason for creating a private bulletin board was to make all
the mail which I get from the Andrew mailing list readable to other
users at out site. So I followed the procedure detailed in the help
document 'privatebb', namely:

1.  Create a directory for the bboard

I called this .MESSAGES_PUBLIC and put it in my home directory.

2.  Add the directory to your mspath

Added mspath: $MAIL:~/.MESSAGES_PUBLIC

3.  Set the access rights for the directory

Didn't apply as we don't have AFS

4. Create the actual bboard folder

Did this and called it info-andrew

5.  Enable direct posting to the bboard

Didn't do this quite yet

6.  Let people know that you have created a new bboard

Mailed everyone with an invitation to subscribe

I now wanted to have any mail coming from the Andrew mailing list
automatically go into this folder so I created a .AMS.flames file
containing

(defun grahamd-mail-hook	(msg)
  (post-by-keyword
   msg
   "mail"
   '(
     (("to")("info-andrew")("/u/sysdev/grahamd/.MESSAGES_PUBLIC/info-andrew"))
     )))

(load "flib") ; The standard flames library

This all worked fine so I decided to go whole hog with the bulletin
board stuff and set it all up properly. This generally means having an
.AMS.flames file with something like the following:

(defun grahamd-mail-hook (msg)
  (process-mapped-mailbox
   msg
  "/u/sysdev/grahamd/.MESSAGES_PUBLIC/"
   "grahamd\\+"
   '("to" "cc" "resent-to" "resent-cc" "received" "x-bb")
   "mail"
   (ReplyAddr msg "s")
   "grahamd@otc"
   "Message rejected:  could not write to bboard"
  )
)
(load "flib")

Note that we don't have the Andrew delivery system running so
grahamd+info-andrew is not valid, instead we have to have
"grahamd+info-andrew" <grahamd> on the To: line.

The problem is that I couldn't work out how to make both this scripts
work together directly so I ended up with the following; if someone has
a better way then please tell me.

(defun grahamd-mail-hook (msg)
  (progn
   (cond
    ((a-pat-in-any-str "info-andrew" (getheadercontents msg "to"))
     (addheader msg "X-bb: grahamd+info-andrew"))
    (T NIL)
   )
   (process-mapped-mailbox 
    msg 
    "/u/sysdev/grahamd/.MESSAGES_PUBLIC/"
    "grahamd\\+"
    '("to" "cc" "resent-to" "resent-cc" "received" "x-bb")
    "mail" 
    (ReplyAddr msg "s")
    "grahamd@otc" 
    "Message rejected:  could not write to bboard"
    )
   )
  )

(load "flib") ; The standard flames library

This all worked fine, info-andrew mail went into the correct folder as
did anything which was sent to grahamd+*. I now went to set up
.MS.DirectPost files and I started getting problems.

I created a new folder called 'test' and placed in it an .MS.DirectPost
file containing the following:

0
"grahamd+*" <grahamd>

as described in the privatebb help file.  When I went to post something
though it did not get the address correct, it would put up To:
test@otc.otca.oz, I tried making the second line just "grahamd+test" and
it sill wouldn't work. I then tried other things such as putting some of
the 'post nopost createsub nocreatesub' options on the first line also
but couldn't make anything work. It just wouldn't get the address nor
would it stop me from posting to a bulletin board which I couldn't.

Does anyone have any ideas about what I have missed. I have up to patch
level 3 applied using Version 3 of Andrew.

Graham Dumpleton (grahamd@otc.otca.oz.au)