From 341beea7b903e9ef8ceb2e3b42557bbd8ca94fd1 Mon Sep 17 00:00:00 2001
From: des <des@FreeBSD.org>
Date: Wed, 5 Dec 2001 21:26:00 +0000
Subject: 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)
---
 etc/pam.d/convert.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'etc/pam.d/convert.pl')

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)) {
-- 
cgit v1.1