#!/usr/bin/perl
system("cp","-f","/etc/passwd","/etc/passwd.fixhome");
while(@PASSD=getpwent) {
	#uid >99
	if ($PASSD[2] > 99)  {
		if (-l $PASSD[7]) {
			$realdir = readlink($PASSD[7]);
			if ($realdir =~ /^\/home/) {
				$PASSD[7] = $realdir;
			}
		}
	}
	push(@PASSWD,join(":",$PASSD[0],'x',$PASSD[2],$PASSD[3],$PASSD[6],$PASSD[7],$PASSD[8]));
}
open(PASSWD,">/etc/passwd");
foreach $line (@PASSWD) {
	print PASSWD "$line" . "\n";
}
close(PASSWD);