# @(#) pm-jasrv-err.rc -- send message, subroutine for File Server
# @(#) $Id: pm-jasrv-err.rc,v 2.0 2001/07/27 22:45:50 jaalto Exp $
#
#   File id
#
#	.Copyright (C)   1998 Jari Aalto $
#	.$Created:       1998-01 $
#	.$Contactid:     jari.aalto@poboxes.com $
#	.$Keywords:      procmail FileServer subroutine $
#
#       This code is free software in terms of GNU Gen. pub. Lic. v2 or later
#	Refer to http://www.gnu.org/copyleft/gpl.html
#
#   Description
#
#       This module is part of the MPFS file server.
#       Ssnd error notice: file didn't exist.
#
#   Input
#
#       o   FILE, file or command that did ot exist.
#
#   Output
#
#	o   fld, additional field to be added to the saved mbox log message
#
#   Change Log (none)

# ............................................................ &init ...

id    = "pm-jasrv-err.rc"
dummy = "
========================================================================
$id: init:
"

# File didn't exist, send notice.

stat    = "error-NotExist $FILE"


# ....................................................... record-log ...
# Theese are no-op. We just want to leave trace to the log file TO whom
# the message was sent.

:0
* ^To:\/.*
{ }

:0
* ^From\/.*
{ }

# ................................................... Subject-notify ...

header

:0
* JA_SRV_F_SUBJ_NOTIFY ?? yes
{
    header = "-ISubject: Re: $JA_SRV_SUBJECT [$stat]"
}


# ............................................................. send ...
#	We use "c" to copy this request to out log mbox


dummy = "$id: HEADER: $header"

:0 fbw
* header ?? [a-z]
| $FORMAIL ${header+"$header"}


:0 hwic:
| (                                                                         \
    $CAT - | $FORMAIL -I "From ";                                           \
    echo "[srv-err] file `$FILE' does not exist.";                          \
    echo "The file may have been renamed or removed.";                      \
    echo "Please use 'send help'";                                          \
  ) |                                                                       \
  $SENDMAIL  ;                                                              \
  echo "    [ja-srv; $stat; $to;]"                                          \
  >> $JA_SRV_LOG;

# ....................................................... extra-info ...
# We don't want user to see this because here is directory info
# This information is for ourself only.

fld = "-A$JA_SRV_X_HEADER: $stat; $file; $JA_SRV_FROM"


dummy = "$id: end:"


# Enf of pm-jasrv-err.rc
