projects / packages / MigrationTools.git / blame
| Commit | Line | Data |
|---|---|---|
| 18fea22a JR |
1 | diff -ur MigrationTools-47/migrate_passwd.pl x/migrate_passwd.pl |
| 2 | --- MigrationTools-47/migrate_passwd.pl 2009-06-24 13:47:15.299291875 +0200 | |
| 3 | +++ x/migrate_passwd.pl 2009-06-24 16:26:58.000000000 +0200 | |
| 4 | @@ -46,12 +46,20 @@ | |
| 5 | $NAMINGCONTEXT = &getsuffix($PROGRAM); | |
| 6 | ||
| 7 | if ($#ARGV < 0) { | |
| 8 | - print STDERR "Usage: $PROGRAM [--minuid N] [--maxuid M] infile [outfile]\n"; | |
| 9 | + print STDERR "Usage: $PROGRAM [options] infile [outfile]\n"; | |
| 10 | + print STDERR " Options:\n"; | |
| 11 | + print STDERR " --minuid N Minimal UID number to migrate\n"; | |
| 12 | + print STDERR " --maxuid M Maximal UIF number to migrate\n"; | |
| 13 | + print STDERR " --samba Migrate smbpasswd\n"; | |
| 14 | + print STDERR " -s FILE Path to shadow file (default: /etc/shadow)\n"; | |
| 15 | + print STDERR " -S FILE Path to smbpasswd file (default: /etc/samba/smbpasswd)\n"; | |
| 16 | exit 1; | |
| 17 | } | |
| 18 | ||
| 19 | $do_samba = 0; | |
| 20 | -while ($ARGV[0] =~ /^--.*/) { | |
| 21 | +$shadowf = "/etc/shadow"; | |
| 22 | +$smbpassf = "/etc/samba/smbpasswd"; | |
| 23 | +while ($ARGV[0] =~ /^-.*/) { | |
| 24 | if ($ARGV[0] eq "--minuid") { | |
| 25 | $minuid = $ARGV[1]; | |
| 26 | shift ; shift; | |
| 27 | @@ -61,6 +69,12 @@ | |
| 28 | } elsif ($ARGV[0] eq "--samba") { | |
| 29 | $do_samba = 1; | |
| 30 | shift; | |
| 31 | + } elsif ($ARGV[0] eq "-s") { | |
| 32 | + $shadowf = $ARGV[1]; | |
| 33 | + shift ; shift; | |
| 34 | + } elsif ($ARGV[0] eq "-S") { | |
| 35 | + $smbpassf = $ARGV[1]; | |
| 36 | + shift ; shift; | |
| 37 | } else { | |
| 38 | shift; | |
| 39 | } | |
| 40 | @@ -208,7 +222,7 @@ | |
| 41 | ||
| 42 | sub read_shadow_file | |
| 43 | { | |
| 44 | - open(SHADOW, "/etc/shadow") || return; | |
| 45 | + open(SHADOW, $shadowf) || return; | |
| 46 | while(<SHADOW>) { | |
| 47 | chop; | |
| 48 | ($shadowUser) = split(/:/, $_); | |
| 49 | @@ -250,7 +264,7 @@ | |
| 50 | ||
| 51 | sub read_samba | |
| 52 | { | |
| 53 | - open(INPUT, "</etc/samba/smbpasswd"); | |
| 54 | + open(INPUT, "<$smbpassf"); | |
| 55 | while (<INPUT>) { | |
| 56 | my ($sambaUser, $id, $lmp, $ntp, $f, $lf, $xxx) = split(':'); | |
| 57 | $sambaUsers{$sambaUser}->{"sambaLMPassword"} = $lmp; |