1#! /bin/sh 2# 3# Copyright (c) 2005 The DragonFly Project. All rights reserved. 4# 5# This code is derived from software contributed to The DragonFly Project 6# by Joerg Sonnenberger <joerg@bec.de> 7# 8# Redistribution and use in source and binary forms, with or without 9# modification, are permitted provided that the following conditions 10# are met: 11# 12# 1. Redistributions of source code must retain the above copyright 13# notice, this list of conditions and the following disclaimer. 14# 2. Redistributions in binary form must reproduce the above copyright 15# notice, this list of conditions and the following disclaimer in 16# the documentation and/or other materials provided with the 17# distribution. 18# 3. Neither the name of The DragonFly Project nor the names of its 19# contributors may be used to endorse or promote products derived 20# from this software without specific, prior written permission. 21# 22# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 23# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 24# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 25# FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 26# COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 27# INCIDENTAL, SPECIAL, EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, 28# BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 29# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED 30# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 31# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 32# OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33# SUCH DAMAGE. 34# 35# $DragonFly: src/etc/pam.d/convert.sh,v 1.1 2005/07/22 18:20:43 joerg Exp $ 36 37if [ $# -ge 1 ] 38then 39 dir="$1" 40else 41 dir=/etc/pam.d 42fi 43if [ $# = 2 ] 44then 45 file="$2" 46else 47 file=/etc/pam.conf 48fi 49if [ $# -gt 2 ] 50then 51 echo "Usage: $0 [ output directory ] [ input file ]" 52 echo "Default output is /etc/pam.d, default input is /etc/pam.conf" 53 exit 1 54fi 55 56awk '/^([#[:space:]]*)([[:alnum:]_]+)[[:space:]]+(auth|account|session|password)[[:space:]]+([^[:space:]].*)$/ { 57 match($0, /[#[:space:]]*/) 58 prefix = substr($0, 0, RLENGTH) 59 $0 = substr($0, RLENGTH + 1) 60 match($0, /[[:alnum:]_]+/) 61 name = substr($0, 0, RLENGTH) 62 $0 = substr($0, RLENGTH + 1) 63 match($0, /[[:space:]]+/) 64 $0 = substr($0, RLENGTH + 1) 65 match($0, /(auth|account|session|password)/) 66 type = substr($0, 0, RLENGTH) 67 $0 = substr($0, RLENGTH + 1) 68 match($0, /[[:space:]]+/) 69 arg = substr($0, RLENGTH + 1) 70 71 line = prefix type 72 tabs = ((16 - length(line)) / 8) 73 for (i = 0; i < tabs; i++) 74 line = line "\t" 75 if ((name, type) in content) 76 content[name, type] = content[name, type] "\n" line arg 77 else 78 content[name, type] = line arg 79 services[name] = name 80} 81 82END { 83 'fdir=\"$dir\"' 84 85 split("auth account session password", types, " ") 86 for (service in services) { 87 fname = fdir "/" service 88 system("rm -f " fname) 89 print "#\n# $DragonFly: src/etc/pam.d/convert.sh,v 1.1 2005/07/22 18:20:43 joerg Exp $\n#\n# PAM configuration for the \"" service "\" service\n#\n" >> fname 90 for (type in types) 91 if ((service, types[type]) in content) 92 print content[service, types[type]] >> fname 93 close(fname) 94 } 95}' < $file 96