2 files changed, 13 insertions, 3 deletions

diff --git a/usr.sbin/sendmail/contrib/etrn.pl b/usr.sbin/sendmail/contrib/etrn.pl
index 6dfafaa898d34..1e2cba9177ce9 100755
--- a/usr.sbin/sendmail/contrib/etrn.pl
+++ b/usr.sbin/sendmail/contrib/etrn.pl
@@ -70,6 +70,7 @@ $debug = $opt_d;
 $server = shift(@ARGV);
 @hosts = @ARGV;
 die $usage unless $server;
+@cwfiles = ();
 
 if (!@hosts) {
 	push(@hosts,$hostname);
@@ -82,6 +83,12 @@ if (!@hosts) {
 			chop($cwfile);
 			$optional = /^Fw-o/;
 			$cwfile =~ s,^Fw[^/]*,,;	# extract the file name
+
+			if (-r $cwfile) {
+			    push (@cwfiles, $cwfile);
+			} else {
+			    die "$cwfile is not readable" unless $optional;
+			}
 		}
 		if (/^Cw(.*)$/){		# look for a line starting with "Cw"
 			@cws = split (' ', $1);
@@ -93,17 +100,18 @@ if (!@hosts) {
 	}
 	close(CF);
 
-	if ($cwfile){
+	for $cwfile (@cwfiles) {
 		$0 = "$av0 - reading $cwfile";
 		if (open(CW, "<$cwfile")){
 			while (<CW>){
+			        next if /^\#/;
 				$thishost = $_;
 				chop($thishost);
 				push(@hosts, $thishost) unless $thishost =~ $hostname;
 			}
 			close(CW);
 		} else {
-			die "open $cwfile: $!" unless $optional;
+			die "open $cwfile: $!";
 		}
 	}
 }
diff --git a/usr.sbin/sendmail/contrib/passwd-to-alias.pl b/usr.sbin/sendmail/contrib/passwd-to-alias.pl
index b2bbab541f86d..05a51b93496fb 100644
--- a/usr.sbin/sendmail/contrib/passwd-to-alias.pl
+++ b/usr.sbin/sendmail/contrib/passwd-to-alias.pl
@@ -18,7 +18,9 @@ while (@a = getpwent) {
     }
 
     $fullname =~ s/\.*[ _]+\.*/./g;
-    if ($fullname =~ /^[a-zA-Z]+(\.[a-zA-Z]+)+$/) {
+    $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";