maintainer=mailto:wjm@metronet.com Text= ############################################################ EndText= Name=Adduser: simple way to add new user accounts, with quota calls Path=0/perlinfo/scripts/admin/adduser Type=0 Text= 
# File Size in BYTES: 9753
# Date of last Modification: Apr 6 1993
EndText= HttpText= 
#
#We have used it to add over 2000 students, and has performed quite well.
#
#It has the following options:
#
# usage:  add_user [-options ...] username
#
EndText= Text= ############################################################ EndText= Name=anlpasswd-2.0.announce Path=0/perlinfo/scripts/admin/anlpasswd-2.0.announce Type=0 Text= 
# File Size in BYTES: 2148
# Date of last Modification: Jul 16 1993
EndText= HttpText= 

# Article ID: 
# Sender: support@mcs.anl.gov (Support)
# Subject: Announcing ANLpasswd
# Date:Fri, 16 Jul 1993 18:58:15 GMT

# 	   Announcing "ANLpasswd" (formally perl-passwd2).
#   
# While other programs check for bad passwords after the fact, it is
# important to have good passwords at all times, not just after the
# latest Crack run.  To this end we have modified Larry Wall's Perl
# password program and added
EndText= Text= ############################################################ EndText= Name=anlpasswd.2.1.fix Type=0 Path=0/perlinfo/scripts/admin/anlpasswd.2.1.fix Text= 
# File Size in BYTES: 1210
# Date of last Modification: Apr 29 02:16
EndText= HttpText= 

# Article ID: <7620988456700@raptor.mcs.anl.gov>
# Sender: olson@raptor.mcs.anl.gov (Bob Olson)
# Subject: Re: anlpasswd parenthesis matching problem
# Date:Thu, 24 Feb 1994 14:07:25 GMT
#
# [...]
# 
# That is a bug in an earlier version of anlpasswd. You can pick up a
# new version from info.mcs.anl.gov in pub/systems/anlpasswd-2.2.tar.Z.
# It has further enhancements and bugfixes.
#
EndText= Text= ############################################################ EndText= Name=backup - another backup script Path=0/perlinfo/scripts/admin/backup Type=0 Text= 
# File Size in BYTES: 7842
# Date of last Modification: Nov 28 02:39
EndText= HttpText= 

# $usage = "[-H] [-d day] [-h host] [-l level] [-r]";
# %help =
#
EndText= Text= ############################################################ EndText= Name=Summary: Report of Concurrent Users Path=0/perlinfo/scripts/admin/concurrent.users.pl Type=0 Text= 
# File Size in BYTES: 2362
# Date of last Modification: Sep 18 1993
EndText= HttpText= 

# Article ID: <26rgma$6u4@vixen.cso.uiuc.edu>
# Sender: lance@moxley.aiss.uiuc.edu (C Lance Moxley)
# Subject: Summary: Report of Concurrent Users
# Date:11 Sep 1993 03:29:14 GMT

# Thanks to all who helped with my quest for a program to
# report the concurrent use of an AIX workstation. To those
# who wanted a copy of my solution, below is pretty much
# exactly what I was looking for.
#
EndText= Text= ############################################################ EndText= Name=Generate random passwords for adduser. Path=0/perlinfo/scripts/admin/generate.random.passwords Type=0 Text= 
# File Size in BYTES: 1896
# Date of last Modification: Oct 1 1993
EndText= HttpText= 

# Subject: Generate random passwords for adduser.
#
# Below is some perl to generate and encrypt random passwords.
# You could either use my code to roll your own adduser program, 
# or to filter /etc/passwd after you run add_user.
EndText= Text= ############################################################ EndText= Name=Kerberos perl info Path=0/perlinfo/scripts/admin/kerberoperl.info Type=0 Text= 
# File Size in BYTES: 1067
# Date of last Modification: Oct 5 1993
EndText= HttpText= 

# Article ID: <28s73fINNdfh@srvr1.engin.umich.edu>
# Sender: garath@engin.umich.edu (pistons)
# Subject: Kerberos version of Perl available
# Date:5 Oct 1993 16:24:15 GMT
# Keywords: kerberos
#
# I have placed my kerberized version of perl on freebie.engin.umich.edu
# in /pub/kperl/kperl-1.0.tar.gz
#
EndText= Text= ############################################################ EndText= Text= ############################################################ EndText= Name=mvids.patch Type=0 Path=0/perlinfo/scripts/admin/mvids.patch Text= 
# File Size in BYTES: 2127
# Date of last Modification: May 23 1993
EndText= HttpText= 
#
# Article ID: <1993May18.212907.26320@ncar.ucar.edu>
# Sender: tres@rap.ucar.edu (Tres Hofmeister)
# Subject: Re: SOURCE: change UIDs thoughout your filesystems
# Date:Tue, 18 May 1993 21:29:07 GMT
#
# 	The `mvids' script I posted (a modified version of Tom
# Christiansen's original) has the same problem.  I've included a patch
# below which I believe takes care of it.
#
EndText= Text= ############################################################ EndText= Name=mvids: change ownership of many files Path=0/perlinfo/scripts/admin/mvids.perl Type=0 Text= 
# File Size in BYTES: 6383
# Date of last Modification: Apr 6 1993
EndText= HttpText= 
#
# Sender: tchrist@convex.COM (Tom Christiansen)
# Subject: Re: Help with massive uid/gid change.
# Date:30 Nov 90 21:36:05 GMT
#
# mvids - "moves" uids and gids
# Tom Christiansen 
#
# usage: mvids [-n] [-f howtomvfile] [starting-dir]
#	
# Takes list of new user and group ids.
# Fixes passwd and group files.
# Traverses local file system starting with starting-dir
#  	updating all changed ids
#
EndText= Text= ############################################################ EndText= Name=newmvids Type=0 Path=0/perlinfo/scripts/admin/newmvids Text= 
# File Size in BYTES: 8481
# Date of last Modification: May 23 1993
EndText= HttpText= 
#
# Article ID: <1993May17.215055.3313@ncar.ucar.edu>
# Sender: tres@rap.ucar.edu (Tres Hofmeister)
# Subject: Re: SOURCE: change UIDs thoughout your filesystems
# Date:Mon, 17 May 1993 21:50:55 GMT
#
# mvids: "moves" uids and gids
# Tom Christiansen 
# Modified by: Tres Hofmeister 
#   3/29/93
#   Use find.pl and `lstat' rather than reading a pipe from find(1):
#       For better portability, as not all finds support -fstype or -ls;
#       indexing into the find string breaks on device special files and
#       filenames containing whitespace; `split' was breaking up the
#       string inconsistently because of leading whitespace (using
#       split(' ') and changing the indexing could also fix this).
EndText= Text= ############################################################ EndText= Name=passwd.in.file.pl Path=0/perlinfo/scripts/admin/passwd.in.file.pl Type=0 Text= 
# File Size in BYTES: 2089
# Date of last Modification: Jun 10 1993
EndText= HttpText= 

# Article ID: <1v2tot$k0l@jethro.Corp.Sun.COM>
# Sender: eric.arnold@sun.com (eric.arnold )
# Subject: Re: Hiding a password?
# Date:8 Jun 1993 20:45:17 GMT
#
# I had to to put a password in a script a while ago.  What I did was to
# first encrypt the password, and then store the encrypted password in
# the script.  When the script ran, it compared the encrypted password
# against the user input.
# 
# I needed two functions to accomplish this, "&genpasswd" and "&cmppasswd":
#
EndText= Text= ############################################################ EndText= Name=pcops.tar.Z Type=9 Path=9/perlinfo/scripts/admin/pcops.tar.Z Text= 
# File Size in BYTES: 233683
# Date of last Modification: Jan 24 1993
EndText= HttpText= 
#
# Tarred and compressed binary file
# of the COPS distribution.  Perl portion only.
# Probably not the latest revision.
EndText= Text= ############################################################ EndText= Name=plod.1.7 Type=0 Path=0/perlinfo/scripts/admin/plod.1.7 Text= 
# File Size in BYTES: 2238
# Date of last Modification: Apr 29 02:16
EndText= HttpText= 
#
# Article ID: <1994Jan5.011650.5326@aqm.com>
# Sender: pomeranz@imagen.com (Hal Pomeranz)
# Subject: Announcing PLOD v1.7
# Date:Wed, 5 Jan 1994 01:16:50 GMT
#
# A new version of PLOD (v1.7) is now available on ftp.aqm.com (161.33.3.1)
# in the /pub/plod directory.  The file plod.shar contains the whole kit,
# but the files are also broken out individually (plod, plod.man, and README
# are new).  To save bandwidth, I'm not posting the sharfile here, but email
# me if you don't have FTP access and I'll mail it to you.
#
EndText= Text= ############################################################ EndText= Name=PLOD Version 1.6 Type=0 Path=0/perlinfo/scripts/admin/plod1.6 Text= 
# File Size in BYTES: 38272
# Date of last Modification: Sep 23 1993
EndText= HttpText= 
#
# Sender: pomeranz@imagen.com (Hal Pomeranz)
# Subject: PLOD (v1.6)
# Date:Wed, 22 Sep 1993 16:22:40 GMT
#
#    PLOD-- Personal LOgging Device, v1.6
#    Copyright (C), 1993, Hal Pomeranz (pomeranz@aqm.com)
#    All rights reserved.  No warranty expressed or implied.
#    PLOD is freely distributable under the same terms as Perl.
#    Inspired by Bill Mendyka (mendyka@dg-rtp.dg.com)
#
# Greetings, PLOD enthusiasts!
# 
# I'll also be setting up a PLOD archive in the near future on
# gatekeeper.imagen.com (161.33.3.1) in the directory /pub/plod.  I plan
# to keep a copy of the very latest version in this directory at all
EndText= Text= ############################################################ EndText= Name=pwbitch: gripe about easy passwords Path=0/perlinfo/scripts/admin/pwbitch Type=0 Text= 
# File Size in BYTES: 1374
# Date of last Modification: Apr 6 1993
EndText= HttpText= 

The script from the CAMEL which checks for dumb passwords,
and mails a gripe to the offender.
EndText= Text= ############################################################ EndText= Name=myquota: uses syscall to view/change quota's (HP syscall) Path=0/perlinfo/scripts/admin/quotacheck Type=0 Text= 

# Small script which allows users to ck their quota, and
# SuperUser to change them.  Uses HP syscall()
EndText= Text= ############################################################ EndText= Name=rhosts.dodgy.pl Type=0 Path=0/perlinfo/scripts/admin/rhosts.dodgy.pl Text= 
# File Size in BYTES: 7286
# Date of last Modification: Apr 29 02:16
EndText= HttpText= 

# Article ID: <2cecut$lal@goanna.cs.rmit.oz.au>
# Sender: lm@yallara.cs.rmit.OZ.AU (Luke Mewburn)
# Subject: checking rhost files for dodgy entries
# Date:17 Nov 1993 23:43:25 GMT
# Keywords: perl, rhosts, security

# chk_rhost -
#	checks the .rhosts files for every user for invalid entries
#
# This program is placed in the public domain, and may be freely used
# with the restriction that this header remains intact, and you do not
# try to claim you wrote this.
#
# Here's a script I whipped up to check the rhost entries of the users
# on your machine for `dodgyness'. Looks for `+', `*' (umax v equiv
# of `+'), differing usernames, unknown machine names, etc. Won't check
# uid's < 100 or > 59998 (configurable), so you don't get complaints
# about 'daemon' != 'root' :)
#
EndText= Text= ############################################################ EndText= Name=Re: rvi - restricted vi?? Path=0/perlinfo/scripts/admin/secure.edit Type=0 Text= 
# File Size in BYTES: 3518
# Date of last Modification: Sep 1 1993
EndText= HttpText= 

# Article ID: <1993Sep1.155512.17193@colorado.edu>
# Sender: Tom Christiansen 
# Subject: Re: rvi - restricted vi??
# Date:Wed, 1 Sep 1993 15:55:12 GMT
#
# seced  -- secure editor wrapper
# Tom Christiansen 
# based on an idea by Ray Davis 
#
# install suid root or with a suid wrapper
#
# From the keyboard of cwang@convex.com (Cindy Wang):
# :I know someone who is setting up restricted shell.  He'd like
# :to have vi in /usr/rbin but couldn't because of the :!shell feature 
# :in vi.  Is there a rvi -- restricted vi somewhere?
# 
# I've used this, which is a wrapper around any editor.  
# 
# --tom
#
EndText= Text= ############################################################ EndText= Name=Sentryd - system monitor, v. 1.01 Path=0/perlinfo/scripts/admin/sentryd Type=0 Text= 
# File Size in BYTES: 13956
# Date of last Modification: Apr 6 1993
EndText= HttpText= 
#
#    sentryd -- system monitor, v1.01
# 
#  This is the sentryd.  It does lots of stuff for us here at feenix,
# and can be configured to do lots more.  Please send suggestions.
#  The sentryd will monitor your log files, and report to online users/admins
# based on the hidden files in a hidden directory in their $HOME.  The script
# is currently released to monitor the sendmail syslog, and report new mail to
# online users, monitor the syslog and report strangeness to admins, monitor
# /etc/wtmp, and report new logins,  /etc/btmp to report bad login attempts,
EndText= Text= ############################################################ EndText= Name=Re: setuid? Help! Path=0/perlinfo/scripts/admin/suidscript.pl Type=0 Text= 
# File Size in BYTES: 4392
# Date of last Modification: Apr 29 02:16
EndText= HttpText= 

# Article ID: <1993Apr5.195508.19731@netlabs.com>
# Sender: lwall@netlabs.com (Larry Wall)
# Subject: Re: taintperl question
# Date:Mon, 5 Apr 1993 19:55:08 GMT
#
# $Log:	suidscript,v $
# Revision 1.1  90/08/11  13:51:29  lwall
# Initial revision
#
# You do not want to have taintperl installed setuid root.  If any
# program needs to be installed setuid root, it's suidperl, which does
# setuid emulation on systems for which the setuid bit is ignored on #!
# scripts.  If you're not on such a system, you have to use a wrapper C
# program instead to give setuidness to a non-setuid script.  I will
# include a copy of suidscript, which writes wrappers for you.
EndText= Text= ############################################################ EndText= Name=Re: Making Backups? Path=0/perlinfo/scripts/admin/sun.backup.script Type=0 Text= 
# File Size in BYTES: 76950
# Date of last Modification: Aug 23 1993
EndText= HttpText= 

# Sender: jms@tardis.Tymnet.COM (Joe Smith)
# Subject: Re: Making Backups?
# Date:23 Aug 93 07:14:48 GMT
#
# Name: /usr/local/admin/dump/autobackup		Author: Joe Smith
# Purpose: Invoked by cron to automatically starts the backup dumps.
# 
#
EndText= Text= ############################################################ EndText= Name=superl.howto Type=0 Path=0/perlinfo/scripst/admin/superl.howto Text= 
# File Size in BYTES: 1986
# Date of last Modification: Apr 29 02:16
EndText= HttpText= 

# Sender: mose@ns.ccsn.edu (Russell Mosemann)
# Subject: Re: Trying to use SUID curseperl script as login shell
# Date:7 Mar 1994 19:24:35 -0600
# 
# >I tried "make superl.o" in the perl source directory, and it didn't know
# >how to make it.  Are you sure that's the right method?
# 
#    Heh, heh.  It's the right method if you put the right changes in your
# makefile.  :-)  I left that part out.  Change the following line:
EndText= Text= 
----

Comments or suggestions regarding this archive to <wjm@metronet.com>
EndText=