1 files changed, 30 insertions, 0 deletions

diff --git a/contrib/passwd-to-alias.pl b/contrib/passwd-to-alias.pl
new file mode 100755
index 0000000..05a51b9
--- /dev/null
+++ b/contrib/passwd-to-alias.pl
@@ -0,0 +1,30 @@
+#!/bin/perl
+
+#
+#  Convert GECOS information in password files to alias syntax.
+#
+#  Contributed by Kari E. Hurtta <Kari.Hurtta@ozone.fmi.fi>
+#
+
+print "# Generated from passwd by $0\n";
+
+while (@a = getpwent) {
+    ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = @a;
+
+    ($fullname = $gcos) =~ s/,.*$//;
+
+    if (!-d $dir || !-x $shell) {
+	print "$name: root\n";
+    }
+
+    $fullname =~ s/\.*[ _]+\.*/./g;
+    $fullname =~ tr [åäöÅÄÖé] [aaoAAOe];  # <hakan@af.lu.se> 1997-06-15
+    if ($fullname =~ /^[a-zA-Z][a-zA-Z-]+(\.[a-zA-Z][a-zA-Z-]+)+$/) {  
+#   if ($fullname =~ /^[a-zA-Z]+(\.[a-zA-Z]+)+$/) {    # Kari E. Hurtta
+	print "$fullname: $name\n";
+    } else {
+	print "# $fullname: $name\n";
+    }
+};
+
+endpwent;