topic Re: DCL code for setting mail forwarding in Operating System - OpenVMS

DCL code for setting mail forwarding

Niall Godwin — Fri, 27 Jan 2006 09:18:43 GMT

Can one of you DCL Wizards help me with the following:

I want to modify my DCL procedure for creating user accounts, and add code to forward the user’s mail to his/her internet mail account.
The OpenVMS account Owner is in the format space space .
The user’s internet address is in the format period period .

I want the code to execute the following command:
MAIL> SET FORWARD/USER= SMTP%"..@Example:
OpenVMS Username: JXB12345
Owner: Joe X Bloggs
Forward Mail to SMTP%”joe.x.bloggs@xxx.com”

Thank You,
Niall.

Re: DCL code for setting mail forwarding

Niall Godwin — Fri, 27 Jan 2006 09:23:29 GMT

Some punctuation characters got corrupted in the original message. Here it is again:

I want to modify my DCL procedure for creating user accounts, and add code to forward the user's mail to his/her internet mail account.
The OpenVMS account Owner is in the format space space .
The user's internet address is in the format period period .

I want the code to execute the following command:
MAIL> SET FORWARD/USER= SMTP%"..@Example:
OpenVMS Username: JXB12345
Owner: Joe X Bloggs
Forward Mail to SMTP%"joe.x.bloggs@xxx.com"

Thank You,
Niall.

Re: DCL code for setting mail forwarding

Karl Rohwedder — Fri, 27 Jan 2006 09:31:54 GMT

I think, MAIL accepts these commands not in the commandline, so you have to create a temorary workfile along like:
$ VMSuser = "JXB12345"
$ user = "JOE X BLOKE"
$ user1= F$element(0," ",User)+"."+ -
F$element(1," ",User) + "." + F$Element(2," ",User)
$ open/write lun tmp.com
$ write lun "$ MAIL"
$ write lun "set forward/user=""''VMSUser'"" -"
$ write lun "SMTP%""''UserX'@xxx.com"""
$ close/nolog lun
$ @tmp
$ delete tmp.com.

This is untested, typos may occur, pls. check before making productive...

regards Kalle

Re: DCL code for setting mail forwarding

Jan van den Ende — Fri, 27 Jan 2006 10:06:02 GMT

Niall,

Kalle's procedure should work, but,
building USER1 & using USERX
those should of course be the same.
It probably is better to NOT complicate things by splitting up your MAIL input line.
Better to make one long line.
(but if you do the line breaks exactly right for the generated lines it will work identical).

Proost.

Have one on me.

jpe

Re: DCL code for setting mail forwarding

Karl Rohwedder — Fri, 27 Jan 2006 10:53:20 GMT

I promised a typo and there it was :-)

I made the line split to have it at a specific column and not to depend on the html input form. Bit I agre, normally I also prefer long lines instead of many continuation lines.

regards Kalle

Re: DCL code for setting mail forwarding

Hein van den Heuvel — Fri, 27 Jan 2006 11:07:32 GMT

I like a temp file for bulk updates.
For single updates, consider using a pipe:

$ pipe write sys$output "set forw smtp%""a@b.c""" | mail
$ pipe write sys$output "show forw" | mail
Y

This will allow for easy symbol substitution.

Hein.

Re: DCL code for setting mail forwarding

Niall Godwin — Fri, 27 Jan 2006 12:41:36 GMT

The continuation character doesn't work when in the MAIL utility, so I've had to keep the command to one line.

The following code works:
(username and full_name are defined previously in the procedure.)

$ internet_name= F$element(0," ",full_name)+"."+ -
F$element(1," ",full_name) + "." + F$Element(2," ",full_name)
$ open/write setmailfwd sys$scratch:setmailfwd.com
$ write setmailfwd "$ MAIL"
$ write setmailfwd "set forward/user=''username' SMTP%""''internet_name'@xxx.com"""
$ write setmailfwd "EXIT"
$ close/nolog setmailfwd
$ @sys$scratch:setmailfwd
$ delete sys$scratch:setmailfwd.com;*

I've added the following to confirm:

$ open/write showmailfwd sys$scratch:showmailfwd.com
$ write showmailfwd "$ MAIL"
$ write showmailfwd "show forward/user=''username'"
$ write showmailfwd "EXIT"
$ close/nolog showmailfwd
$ @sys$scratch:showmailfwd
$ delete sys$scratch:showmailfwd.com;*

Niall

Re: DCL code for setting mail forwarding

Niall Godwin — Fri, 27 Jan 2006 12:45:09 GMT

See my last comment for the solution.
Thanks to all, especially Kalle, for your help.

Niall