sendmail 8.9.1

1 files changed, 28 insertions, 0 deletions

diff --git a/usr.sbin/sendmail/contrib/passwd-to-alias.pl b/usr.sbin/sendmail/contrib/passwd-to-alias.pl
new file mode 100644
index 00000000000..b2bbab541f8
--- /dev/null
+++ b/usr.sbin/sendmail/contrib/passwd-to-alias.pl
@@ -0,0 +1,28 @@
+#!/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;
+    if ($fullname =~ /^[a-zA-Z]+(\.[a-zA-Z]+)+$/) {
+	print "$fullname: $name\n";
+    } else {
+	print "# $fullname: $name\n";
+    }
+};
+
+endpwent;