Using Perl V5 to run "adduser"

From: Neil Movold <nmovold_at_ibl.bm>
Date: Sat, 30 Sep 1995 11:43:09 -0600 (CST)

Return-path: <alpha-osf-managers-relay_at_sws1.ctd.ornl.gov>
Received: from sws1.CTD.ORNL.GOV by SLUVCA.SLU.EDU (PMDF V5.0-4 #5070)
 id <01HVV633M19C8Y5HSQ_at_SLUVCA.SLU.EDU> for ALPHAOSF_at_SLUAVA.SLU.EDU; Fri,
 29 Sep 1995 23:04:13 -0600 (CST)
Received: (from daemon_at_localhost) by sws1.CTD.ORNL.GOV (8.6.10/8.6.10)
 id HAA16286 for aomaa; Fri, 29 Sep 1995 07:01:04 -0400
Received: from oaunx1.ctd.ornl.GOV (oaunx1.ctd.ornl.gov [128.219.128.17])
 by sws1.CTD.ORNL.GOV (8.6.10/8.6.10) with ESMTP id HAA16274 for
 <alpha-osf-managers_at_sws1.ctd.ornl.gov>; Fri, 29 Sep 1995 07:01:02 -0400
Received: from avb.slu.edu by oaunx1.ctd.ornl.GOV (8.6.10/3.0-C)
 id HAA19500; Fri, 29 Sep 1995 07:01:00 -0400
Received: from DECNET-MAIL (SYSTEM_at_AVB) by SLUVCA.SLU.EDU (PMDF V5.0-4 #5070)
 id <01HVU1QRSS6OA3CG7X_at_SLUVCA.SLU.EDU> for alpha-osf-managers_at_ornl.gov; Fri,
 29 Sep 1995 03:49:44 -0600 (CST)
Date: Fri, 29 Sep 1995 03:49:44 -0600 (CST)
From: Neil Movold <nmovold_at_ibl.bm>
Subject: Using Perl V5 to run "adduser"
Sender: alpha-osf-managers-relay_at_sws1.ctd.ornl.gov
To: alpha-osf-managers_at_ornl.gov
Reply-to: Neil Movold <nmovold_at_ibl.bm>
Message-id: <01HVU1QS790YA3CG7X_at_SLUAVA.SLU.EDU>
Organization: SAINT LOUIS UNIVERSITY St. Louis, MO
X-VMS-To: IN%"alpha-osf-managers_at_ornl.gov"
MIME-version: 1.0
Content-transfer-encoding: 7BIT
Followup-to: poster

Return-path: <alpha-osf-managers-relay_at_sws1.ctd.ornl.gov>
Received: from sws1.CTD.ORNL.GOV by SLUVCA.SLU.EDU (PMDF V5.0-4 #5070)
 id <01HVTZI897Z48Y56IA_at_SLUVCA.SLU.EDU> for ALPHAOSF_at_SLUAVA.SLU.EDU; Fri,
 29 Sep 1995 03:25:53 -0600 (CST)
Received: (from daemon_at_localhost) by sws1.CTD.ORNL.GOV (8.6.10/8.6.10)
 id KAA04970 for aomaa; Mon, 25 Sep 1995 10:17:50 -0400
Received: from oaunx1.ctd.ornl.GOV (oaunx1.ctd.ornl.gov [128.219.128.17])
 by sws1.CTD.ORNL.GOV (8.6.10/8.6.10) with ESMTP id KAA04958 for
 <alpha-osf-managers_at_sws1.ctd.ornl.gov>; Mon, 25 Sep 1995 10:17:44 -0400
Received: from nukem.bsl.bm by oaunx1.ctd.ornl.GOV (8.6.10/3.0-C)
 id KAA07140; Mon, 25 Sep 1995 10:17:42 -0400
Received: by nukem.bsl.bm (5.65/DEC-Ultrix/4.3) id AA05934; Mon,
 25 Sep 1995 11:18:25 -0400
Date: Mon, 25 Sep 1995 11:18:24 -0400 (EDT)
From: Neil Movold <nmovold_at_ibl.bm>
Subject: Using Perl V5 to run "adduser"
Sender: alpha-osf-managers-relay_at_sws1.ctd.ornl.gov
X-Sender: nmovold_at_nukem.bsl.bm
To: alpha-osf-managers_at_ornl.gov
Reply-to: Neil Movold <nmovold_at_ibl.bm>
Message-id: <Pine.ULT.3.90.950925111518.355E-100000_at_nukem.bsl.bm>
MIME-version: 1.0
Content-type: TEXT/PLAIN; charset=US-ASCII
Content-transfer-encoding: 7BIT
Followup-to: poster

I am trying to write a Perl script that I can use to feed the appropriate
answers to the questions asked by "/usr/sbin/adduser". I have tried
putting the responses in a file and then redirecting the file to the
adduser process using system(). This works fine until the password
prompt. The adduser process will not read this line out of the file.

        My second attempt is to use pipe() and fork(), however I am not
getting too far with this as well.

        Any suggestions would be appreciated.


                        Neil :-)


                     \\\//
                     (o o)
------------------ooO-(_)-Ooo-----------------------------------------
Neil Movold Phone : +1 809 296-1800
Special Operations Consultant Fax : +1 809 295-7269
 ( i.e. the guy who has to
        make it all work :-) )
Internet (Bermuda) Limited E-mail : nmovold_at_ibl.bm
P.O. Box HM2445
Hamilton, Bermuda
HM JX
Received on Sat Sep 30 1995 - 18:40:07 NZST

This archive was generated by hypermail 2.4.0 : Wed Nov 08 2023 - 11:53:46 NZDT