3 # Convert /etc/passwd and /etc/shadow to userdb format.
6 # Copyright 1998 - 1999 Double Precision, Inc. See COPYING for
7 # distribution information.
12 # Some undocumented options here (for vchkpw2userdb)
15 die "Invalid options.\n" unless
16 GetOptions("passwd=s" => \$passwd, "shadow=s" => \$shadow,
17 "noshadow" => \$noshadow, "nouid" => \$nouid,
18 "domain=s" => \$domain, "vpopuid" => \$vpopuid );
20 ($dummy, $dummy, $fixed_uid, $fixed_gid)=getpwnam("vpopmail")
23 $passwd="/etc/passwd" unless $passwd =~ /./;
24 $shadow="/etc/shadow" unless $shadow =~ /./;
26 $domain="" unless $domain =~ /./;
27 $domain="\@$domain" if $domain =~ /./;
29 open(PASSWD, $passwd) || die "$!\n";
35 ($acct,$passwd,$uid,$gid,$name,$home,$shell)=split( /:/ );
37 ($uid,$gid)=($fixed_uid,$fixed_gid) if $vpopuid;
39 $PASSWORD{$acct}=$passwd if $passwd ne "x";
45 $name =~ s/\|/./g; # Just in case
50 if ( -f $shadow && ! $noshadow)
52 open (SHADOW, $shadow) || die "$!\n";
56 ($acct,$passwd,$dummy)=split(/:/);
57 $PASSWORD{$acct}=$passwd;
62 while ( defined ($key=each %UID))
64 print "$key$domain\tuid=$UID{$key}|gid=$GID{$key}|home=$HOME{$key}" .
65 ( $SHELL{$key} =~ /./ ? "|shell=$SHELL{$key}":"") .
66 ( $PASSWORD{$key} =~ /./ ? "|systempw=$PASSWORD{$key}":"") .
67 ( $GECOS{$key} =~ /./ ? "|gecos=$GECOS{$key}":"") .
69 print "$UID{$key}=\t$key\n" unless $nouid;