Question:
Can I redefine the location of TCPware SMTP spool directory?
Answer:
Yes, though it is unsupported. You can edit smtp_control.com and change the following:
<![CDATA[
$! --- Create specific and common spool directories
$!
$ spool_common = "TCPWARE_COMMON:[TCPWARE.SPOOL]"
$ spool_specific = "TCPWARE_SPECIFIC:[TCPWARE.SPOOL]"
$ if f$parse(spool_common).eqs."" then -
create/directory/protection=(S:RW,O:RW,G,W)/log 'spool_common'
$ if f$parse(spool_specific).eqs."" then -
create/directory/protection=(S:RW,O:RW,G,W)/log 'spool_specific'
$!
$! --- Define system logicals
$!
$ def TCPWARE_SMTP_WORK "''spool_specific'"
$ def TCPWARE_SMTP_INCOMING_MAIL "''spool_specific'"
$ def TCPWARE_SMTP_OUTGOING_MAIL "TCPWARE_ROOT:[TCPWARE.SPOOL]]]>
To:
<![CDATA[
$! --- Create specific and common spool directories
$!
$ spool_common = "new_device:[new.directory]"
$ spool_specific = "new_device:[new.directory]"
$ if f$parse(spool_common).eqs."" then -
create/directory/protection=(S:RW,O:RW,G,W)/log 'spool_common'
$ if f$parse(spool_specific).eqs."" then -
create/directory/protection=(S:RW,O:RW,G,W)/log 'spool_specific'
$!
$! --- Define system logicals
$!
$ def TCPWARE_SMTP_WORK "''spool_specific'"
$ def TCPWARE_SMTP_INCOMING_MAIL "''spool_specific'"
$ def TCPWARE_SMTP_OUTGOING_MAIL "new_device:[new.directory]]]>
Remember that this is an unsupported change, which among other things means that upon an upgrade of TCPware, this modification (like all control file modifications) will not be preserved and will have to be re-implemented.