--- migrate_common.ph.orig	2002-12-14 04:42:40.000000000 +0800
+++ migrate_common.ph	2003-04-22 14:05:06.000000000 +0800
@@ -67,6 +67,13 @@
 	$NAMINGCONTEXT{'services'}          = "ou=Services";
 }
 
+# Nick: reduce directory to what we need:
+my @wanted_namingcontexts = ( 'passwd', 'group' );
+for my $context ( keys %NAMINGCONTEXT ) {
+    delete $NAMINGCONTEXT{$context}
+        unless grep { /$context/ } @wanted_namingcontexts;
+}
+
 # Default DNS domain
 $DEFAULT_MAIL_DOMAIN = "padl.com";
 
--- migrate_group.pl.orig	2002-12-14 04:42:40.000000000 +0800
+++ migrate_group.pl	2003-04-22 14:05:06.000000000 +0800
@@ -41,6 +41,10 @@
 $PROGRAM = "migrate_group.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
 
+# Nick Urbanik <nicku@vtc.edu.hk>
+# It's a lousy idea to create groups for system groups, which depend
+# on the locally installed software.
+my $min_gidNumber = 100;
 &parse_args();
 &open_files();
 
@@ -52,6 +56,7 @@
 
 	local($group, $pwd, $gid, $users) = split(/:/);
 	
+        next unless $gid >= $min_gidNumber;
 	if ($use_stdout) {
 		&dump_group(STDOUT, $group, $pwd, $gid, $users);
 	} else {
--- migrate_passwd.pl.orig	2002-12-14 04:42:40.000000000 +0800
+++ migrate_passwd.pl	2003-04-26 16:27:29.000000000 +0800
@@ -42,6 +42,10 @@
 $PROGRAM = "migrate_passwd.pl";
 $NAMINGCONTEXT = &getsuffix($PROGRAM);
 
+# Nick Urbanik <nicku@vtc.edu.hk>
+# It's a lousy idea to create accounts for system user accounts, which depend
+# on the locally installed software.
+my $min_uidNumber = 500;
 &parse_args();
 &read_shadow_file();
 &open_files();
@@ -73,6 +77,7 @@
     s/å/ae/g;
 
     local($user, $pwd, $uid, $gid, $gecos, $homedir, $shell) = split(/:/);
+    next unless $uid >= $min_uidNumber;
     
     if ($use_stdout) {
 	&dump_user(STDOUT, $user, $pwd, $uid, $gid, $gecos, $homedir, $shell);
@@ -122,7 +127,7 @@
 		if ($DEFAULT_MAIL_HOST) {
 			print $HANDLE "mailRoutingAddress: $user\@$DEFAULT_MAIL_HOST\n";
 			print $HANDLE "mailHost: $DEFAULT_MAIL_HOST\n";
-			print $HANDLE "objectClass: mailRecipient\n";
+			print $HANDLE "objectClass: inetLocalMailRecipient\n";
 		}
 		print $HANDLE "objectClass: person\n";
 		print $HANDLE "objectClass: organizationalPerson\n";