maintainer=mailto:
[email protected]
Text=
############################################################
EndText=
Name=Adduser: simple way to add new user accounts, with quota calls
Path=0/perlinfo/scripts/admin/adduser
Type=0
Text=
<pre>
# File Size in BYTES: 9753
# Date of last Modification: Apr 6 1993
</pre>
EndText=
HttpText=
<pre>
#
#We have used it to add over 2000 students, and has performed quite well.
#
#It has the following options:
#
# usage: add_user [-options ...] username
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=anlpasswd-2.0.announce
Path=0/perlinfo/scripts/admin/anlpasswd-2.0.announce
Type=0
Text=
<pre>
# File Size in BYTES: 2148
# Date of last Modification: Jul 16 1993
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender:
[email protected] (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
</pre>
EndText=
Text=
############################################################
EndText=
Name=anlpasswd.2.1.fix
Type=0
Path=0/perlinfo/scripts/admin/anlpasswd.2.1.fix
Text=
<pre>
# File Size in BYTES: 1210
# Date of last Modification: Apr 29 02:16
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender:
[email protected] (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.
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=backup - another backup script
Path=0/perlinfo/scripts/admin/backup
Type=0
Text=
<pre>
# File Size in BYTES: 7842
# Date of last Modification: Nov 28 02:39
</pre>
EndText=
HttpText=
<pre>
# $usage = "[-H] [-d day] [-h host] [-l level] [-r]";
# %help =
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=Summary: Report of Concurrent Users
Path=0/perlinfo/scripts/admin/concurrent.users.pl
Type=0
Text=
<pre>
# File Size in BYTES: 2362
# Date of last Modification: Sep 18 1993
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender:
[email protected] (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.
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=Generate random passwords for adduser.
Path=0/perlinfo/scripts/admin/generate.random.passwords
Type=0
Text=
<pre>
# File Size in BYTES: 1896
# Date of last Modification: Oct 1 1993
</pre>
EndText=
HttpText=
<pre>
# 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.
</pre>
EndText=
Text=
############################################################
EndText=
Name=Kerberos perl info
Path=0/perlinfo/scripts/admin/kerberoperl.info
Type=0
Text=
<pre>
# File Size in BYTES: 1067
# Date of last Modification: Oct 5 1993
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender:
[email protected] (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
#
</pre>
EndText=
Text=
############################################################
EndText=
Text=
############################################################
EndText=
Name=mvids.patch
Type=0
Path=0/perlinfo/scripts/admin/mvids.patch
Text=
<pre>
# File Size in BYTES: 2127
# Date of last Modification: May 23 1993
</pre>
EndText=
HttpText=
<pre>
#
# Article ID: <
[email protected]>
# Sender:
[email protected] (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.
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=mvids: change ownership of many files
Path=0/perlinfo/scripts/admin/mvids.perl
Type=0
Text=
<pre>
# File Size in BYTES: 6383
# Date of last Modification: Apr 6 1993
</pre>
EndText=
HttpText=
<pre>
#
# Sender:
[email protected] (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 <
[email protected]>
#
# 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
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=newmvids
Type=0
Path=0/perlinfo/scripts/admin/newmvids
Text=
<pre>
# File Size in BYTES: 8481
# Date of last Modification: May 23 1993
</pre>
EndText=
HttpText=
<pre>
#
# Article ID: <
[email protected]>
# Sender:
[email protected] (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 <
[email protected]>
# Modified by: Tres Hofmeister <
[email protected]>
# 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).
</pre>
EndText=
Text=
############################################################
EndText=
Name=passwd.in.file.pl
Path=0/perlinfo/scripts/admin/passwd.in.file.pl
Type=0
Text=
<pre>
# File Size in BYTES: 2089
# Date of last Modification: Jun 10 1993
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender:
[email protected] (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":
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=pcops.tar.Z
Type=9
Path=9/perlinfo/scripts/admin/pcops.tar.Z
Text=
<pre>
# File Size in BYTES: 233683
# Date of last Modification: Jan 24 1993
</pre>
EndText=
HttpText=
<pre>
#
# Tarred and compressed binary file
# of the COPS distribution. Perl portion only.
# Probably not the latest revision.
</pre>
EndText=
Text=
############################################################
EndText=
Name=plod.1.7
Type=0
Path=0/perlinfo/scripts/admin/plod.1.7
Text=
<pre>
# File Size in BYTES: 2238
# Date of last Modification: Apr 29 02:16
</pre>
EndText=
HttpText=
<pre>
#
# Article ID: <
[email protected]>
# Sender:
[email protected] (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.
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=PLOD Version 1.6
Type=0
Path=0/perlinfo/scripts/admin/plod1.6
Text=
<pre>
# File Size in BYTES: 38272
# Date of last Modification: Sep 23 1993
</pre>
EndText=
HttpText=
<pre>
#
# Sender:
[email protected] (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 (
[email protected])
# All rights reserved. No warranty expressed or implied.
# PLOD is freely distributable under the same terms as Perl.
# Inspired by Bill Mendyka (
[email protected])
#
# 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
</pre>
EndText=
Text=
############################################################
EndText=
Name=pwbitch: gripe about easy passwords
Path=0/perlinfo/scripts/admin/pwbitch
Type=0
Text=
<pre>
# File Size in BYTES: 1374
# Date of last Modification: Apr 6 1993
</pre>
EndText=
HttpText=
<pre>
The script from the CAMEL which checks for dumb passwords,
and mails a gripe to the offender.
</pre>
EndText=
Text=
############################################################
EndText=
Name=myquota: uses syscall to view/change quota's (HP syscall)
Path=0/perlinfo/scripts/admin/quotacheck
Type=0
Text=
<pre>
# Small script which allows users to ck their quota, and
# SuperUser to change them. Uses HP syscall()
</pre>
EndText=
Text=
############################################################
EndText=
Name=rhosts.dodgy.pl
Type=0
Path=0/perlinfo/scripts/admin/rhosts.dodgy.pl
Text=
<pre>
# File Size in BYTES: 7286
# Date of last Modification: Apr 29 02:16
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender:
[email protected] (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' :)
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=Re: rvi - restricted vi??
Path=0/perlinfo/scripts/admin/secure.edit
Type=0
Text=
<pre>
# File Size in BYTES: 3518
# Date of last Modification: Sep 1 1993
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender: Tom Christiansen <
[email protected]>
# Subject: Re: rvi - restricted vi??
# Date:Wed, 1 Sep 1993 15:55:12 GMT
#
# seced -- secure editor wrapper
# Tom Christiansen <
[email protected]>
# based on an idea by Ray Davis <
[email protected]>
#
# install suid root or with a suid wrapper
#
# From the keyboard of
[email protected] (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
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=Sentryd - system monitor, v. 1.01
Path=0/perlinfo/scripts/admin/sentryd
Type=0
Text=
<pre>
# File Size in BYTES: 13956
# Date of last Modification: Apr 6 1993
</pre>
EndText=
HttpText=
<pre>
#
# 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,
</pre>
EndText=
Text=
############################################################
EndText=
Name=Re: setuid? Help!
Path=0/perlinfo/scripts/admin/suidscript.pl
Type=0
Text=
<pre>
# File Size in BYTES: 4392
# Date of last Modification: Apr 29 02:16
</pre>
EndText=
HttpText=
<pre>
# Article ID: <
[email protected]>
# Sender:
[email protected] (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.
</pre>
EndText=
Text=
############################################################
EndText=
Name=Re: Making Backups?
Path=0/perlinfo/scripts/admin/sun.backup.script
Type=0
Text=
<pre>
# File Size in BYTES: 76950
# Date of last Modification: Aug 23 1993
</pre>
EndText=
HttpText=
<pre>
# Sender:
[email protected] (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.
#
#
</pre>
EndText=
Text=
############################################################
EndText=
Name=superl.howto
Type=0
Path=0/perlinfo/scripst/admin/superl.howto
Text=
<pre>
# File Size in BYTES: 1986
# Date of last Modification: Apr 29 02:16
</pre>
EndText=
HttpText=
<pre>
# Sender:
[email protected] (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:
</pre>
EndText=
Text=
<pre>
----
Comments or suggestions regarding this archive to <
[email protected]>
</pre>
EndText=