diff options
author | Dag-Erling Smørgrav <des@FreeBSD.org> | 2001-12-05 20:58:39 +0000 |
---|---|---|
committer | Dag-Erling Smørgrav <des@FreeBSD.org> | 2001-12-05 20:58:39 +0000 |
commit | 179281f9bfaee1bddbfcbe6ce0639c6e6c959630 (patch) | |
tree | 418f8546f7f5bbf480344a54eb339d9cff81c373 /etc/pam.d | |
parent | 016298551c086bb18a68c41ab1ad2c80bc0f4005 (diff) | |
download | src-179281f9bfaee1bddbfcbe6ce0639c6e6c959630.tar.gz src-179281f9bfaee1bddbfcbe6ce0639c6e6c959630.zip |
Perl script that splits pam.conf into separate files suitable for pam.d.
Sponsored by: DARPA, NAI Labs
Notes
Notes:
svn path=/head/; revision=87416
Diffstat (limited to 'etc/pam.d')
-rw-r--r-- | etc/pam.d/convert.pl | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/etc/pam.d/convert.pl b/etc/pam.d/convert.pl new file mode 100644 index 000000000000..d1f2d99adc5d --- /dev/null +++ b/etc/pam.d/convert.pl @@ -0,0 +1,73 @@ +#!/usr/bin/perl -w +#- +# Copyright (c) 2001 Networks Associates Technologies, Inc. +# All rights reserved. +# +# This software was developed for the FreeBSD Project by ThinkSec AS and +# NAI Labs, the Security Research Division of Network Associates, Inc. +# under DARPA/SPAWAR contract N66001-01-C-8035 ("CBOSS"), as part of the +# DARPA CHATS research program. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# 3. The name of the author may not be used to endorse or promote +# products derived from this software without specific prior written +# permission. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# $FreeBSD$ +# + +use strict; +use Fcntl; +use vars qw(%SERVICES); + +MAIN:{ + my $service; + my $type; + local *FILE; + + while (<>) { + chomp(); + s/\s*$//; + next unless m/^\#*(\w+)\s+(auth|account|session|password)\s+(\S.*)$/; + push(@{$SERVICES{$1}->{$2}}, $_); + } + + foreach $service (keys(%SERVICES)) { + sysopen(FILE, $service, O_RDWR|O_CREAT|O_TRUNC) + or die("$service: $!\n"); + print(FILE "#\n"); + print(FILE "# \$FreeBSD\$\n"); + print(FILE "#\n"); + print(FILE "# PAM configuration for the \"$service\" service\n"); + print(FILE "#\n"); + foreach $type (qw(auth account session password)) { + next unless exists($SERVICES{$service}->{$type}); + print(FILE "\n"); + print(FILE "# $type\n"); + print(FILE join("\n", @{$SERVICES{$service}->{$type}}, "")); + } + close(FILE); + warn("$service\n"); + } + + exit(0); +} |