print "\n\n", &menu_svc, "\n", <<END;
Enter part number or part numbers to import.
END
-my($shell_svcpart)=&getpart;
+my($shell_svcpart)=&getvalue;
my @shell_svcpart = split(/[,\s]+/, $shell_svcpart);
print "\n\n", <<END;
next unless $svc_acct->_password eq '*' || $opt_r;
+ next if $svc_acct->username eq 'root';
+
+ next if $password eq 'NP' || $password eq '*LK*';
+
next if $svc_acct->_password eq $password;
next if $svc_acct->_password =~ /^\*SUSPENDED\*/;