diff options
| author | des <des@FreeBSD.org> | 2001-12-05 21:26:00 +0000 |
|---|---|---|
| committer | des <des@FreeBSD.org> | 2001-12-05 21:26:00 +0000 |
| commit | 341beea7b903e9ef8ceb2e3b42557bbd8ca94fd1 (patch) | |
| tree | b87ea2392bd05516bcd4aaa0b0f503a55e0000dc /etc/pam.d/convert.pl | |
| parent | 54d858ac55f4ab6e37db49afe630a208235f75fd (diff) | |
| download | FreeBSD-src-341beea7b903e9ef8ceb2e3b42557bbd8ca94fd1.zip FreeBSD-src-341beea7b903e9ef8ceb2e3b42557bbd8ca94fd1.tar.gz | |
Awright, egg on my face. I should have taken more time with this. The
conversion script generated the wrong format, so the configuration files
didn't actually work. Good thing I hadn't thrown the switch yet...
Sponsored by: DARPA, NAI Labs (but the f***ups are all mine)
Diffstat (limited to 'etc/pam.d/convert.pl')
| -rw-r--r-- | etc/pam.d/convert.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/etc/pam.d/convert.pl b/etc/pam.d/convert.pl index d1f2d99..02d4103 100644 --- a/etc/pam.d/convert.pl +++ b/etc/pam.d/convert.pl @@ -40,6 +40,7 @@ use Fcntl; use vars qw(%SERVICES); MAIN:{ + my $line; my $service; my $type; local *FILE; @@ -47,8 +48,11 @@ MAIN:{ while (<>) { chomp(); s/\s*$//; - next unless m/^\#*(\w+)\s+(auth|account|session|password)\s+(\S.*)$/; - push(@{$SERVICES{$1}->{$2}}, $_); + next unless m/^(\#*)(\w+)\s+(auth|account|session|password)\s+(\S.*)$/; + $line = $1.$3; + $line .= "\t" x ((16 - length($line) + 7) / 8); + $line .= $4; + push(@{$SERVICES{$2}->{$3}}, $line); } foreach $service (keys(%SERVICES)) { |
