Abstract of INFO-MAC archived Text file
   'comm/inet/mail/edr/eudora-pwserve-2.shar'
  Uploaded 09/29/1993   6693 bytes

To: sdorner@qualcomm.com
Subject: Password daemon for MH/Eudora
Organisation: BNR Europe, HARLOW, Essex CM17 9NA, GB
Phone: +44 279 402423
From: Andrew Macpherson (Postmaster) <A.Macpherson@bnr.co.uk>


Steve,

Thanks for helping John Bingham out so much.  Since you've added a password
changer, here is a daemon for those sites which use MH bpop (ie pop support
for non unix users from a unix host).  If it doesn't work the way you want
I'll happily make changes.

#!/usr/bin/perl
#
# Author Andrew Macpherson
#       <A.Macpherson@bnr.co.uk>
#       /DD.ID=1248566/G=Andrew/S=Macpherson/PRMD=BNR/ADMD= /C=GB/
#        to support the eudora password change protocol
#
# Entry for /etc/services:
#       epass      106/tcp 
# And for /etc/inetd.conf:
#       epass      stream  tcp     nowait  pop  /path/to/in.poppass
#
# $Header: /tmp_mnt/u/andrew/andrew/src/poppass/RCS/in.poppass,v 1.4 14/11/92 16:29:12 andrew Exp $
#
# $Log: in.poppass,v $
# Revision 1.4  14/11/92  16:29:12  andrew
# Inetd looping with wait, admin features not so usefull
# 
# Revision 1.3  14/11/92  15:32:42  andrew
# Add admin password reset capability
# 
# Revision 1.2  14/11/92  15:05:21  andrew
# Off by 1 report of existing accounts.
# 
# Make use of the locking given by only allowing 1 daemon to
# add users without losing password changes.
# 
# Revision 1.1  14/11/92  14:10:23  andrew
# Initial revision
# 

$| = 1;
$Id = '$Id: in.poppass,v 1.4 14/11/92 16:29:12 andrew Exp $';
$perl = '/usr/bin/perl' ;       # Used in system() later

$MyName="POPpass" ;
require "syslog.pl";