From 6fe22f1f3fae94d4becdc972c0c21dd280ffbe9b Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 28 Feb 1995 13:16:26 +0000
Subject: [PATCH] Configurable From: added.

---
 kernel/default.res |    3 ++-
 kernel/urp.c       |    7 ++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/kernel/default.res b/kernel/default.res
index 27ad3b2..a7d60c0 100644
--- a/kernel/default.res
+++ b/kernel/default.res
@@ -1,5 +1,5 @@
 # Email gateway - general kernel resources
-# $Id: default.res,v 1.10 1995/02/23 08:32:15 adam Exp $
+# $Id: default.res,v 1.11 1995/02/28 13:16:26 adam Exp $
 #
 # Important directories, programs, etc.
 gw.reply.mta: /usr/lib/sendmail
@@ -27,6 +27,7 @@ gw.lang.uk: lang.uk.res
 # Messages
 gw.msg.subject: Your Z39.50 Query...
 gw.msg.greeting: Europagate Email-Z39.50 gateway
+gw.msg.from: Email-gateway
 gw.err.nullbody: Empty body
 ccl.command.find: find f
 ccl.command.show: show s
diff --git a/kernel/urp.c b/kernel/urp.c
index c6dc851..821b8d9 100644
--- a/kernel/urp.c
+++ b/kernel/urp.c
@@ -2,7 +2,10 @@
  * Europagate, 1995
  *
  * $Log: urp.c,v $
- * Revision 1.16  1995/02/23 10:08:20  adam
+ * Revision 1.17  1995/02/28 13:16:26  adam
+ * Configurable From: added.
+ *
+ * Revision 1.16  1995/02/23  10:08:20  adam
  * Added logging of all user commands.
  *
  * Revision 1.15  1995/02/23  08:32:17  adam
@@ -692,6 +695,8 @@ int urp (FILE *inf)
                     reply_fname);
             return -1;
         }
+        fprintf (reply_fd, "From: %s\n",
+                 gw_res_get (info.kernel_res, "gw.msg.from","Email-gateway"));
         fprintf (reply_fd, "Subject: ");
         if (*subject_str)
             fprintf (reply_fd, "Z39.50 Re: %s", subject_str);
-- 
1.7.10.4