1 diff -ur MigrationTools-47/migrate_group.pl MigrationTools-47-minmax-ugid/migrate_group.pl
2 --- MigrationTools-47/migrate_group.pl 2007-11-07 17:52:40.000000000 +0100
3 +++ MigrationTools-47-minmax-ugid/migrate_group.pl 2007-11-07 17:50:15.000000000 +0100
5 $PROGRAM = "migrate_group.pl";
6 $NAMINGCONTEXT = &getsuffix($PROGRAM);
9 + print STDERR "Usage: $PROGRAM [--mingid N] [--maxgid M] infile [outfile]\n";
13 +while ($ARGV[0] =~ /^--.*/) {
14 + if ($ARGV[0] eq "--mingid") {
17 + } elsif ($ARGV[0] eq "--maxgid") {
30 local($group, $pwd, $gid, $users) = split(/:/);
31 + next if (defined($mingid) and ($gid < $mingid));
32 + next if (defined($maxgid) and ($gid > $maxgid));
35 &dump_group(STDOUT, $group, $pwd, $gid, $users);
36 diff -ur MigrationTools-47/migrate_passwd.pl MigrationTools-47-minmax-ugid/migrate_passwd.pl
37 --- MigrationTools-47/migrate_passwd.pl 2007-11-07 17:52:40.000000000 +0100
38 +++ MigrationTools-47-minmax-ugid/migrate_passwd.pl 2007-11-07 17:52:03.000000000 +0100
40 $PROGRAM = "migrate_passwd.pl";
41 $NAMINGCONTEXT = &getsuffix($PROGRAM);
44 + print STDERR "Usage: $PROGRAM [--minuid N] [--maxuid M] infile [outfile]\n";
48 +while ($ARGV[0] =~ /^--.*/) {
49 + if ($ARGV[0] eq "--minuid") {
52 + } elsif ($ARGV[0] eq "--maxuid") {
66 local($user, $pwd, $uid, $gid, $gecos, $homedir, $shell) = split(/:/);
67 + next if (defined($minuid) and ($uid < $minuid));
68 + next if (defined($maxuid) and ($uid > $maxuid));
71 &dump_user(STDOUT, $user, $pwd, $uid, $gid, $gecos, $homedir, $shell);