Displaying 1 result from an estimated 1 matches for "importtest".
Did you mean:
importent
2001 Apr 12
1
(no subject)
...39;machines'.?
If you need any help with it or need it customized for you, let me know.
?
-- Mike
?
Script starts on next line:
#!/usr/bin/perl -w
?
open(FILE1, "//etc//samba//smbpasswd");
open(FILE2, ">//etc//samba//importerrors.txt");
open(FILE3, ">//etc//samba//importtest.txt");
?
while ( $input = <FILE1> ) {
?
?if ( $input =~ /^(#|$)/ ) { next; } #ignore commented out or blank
lines
?($un, $uid, $therest) = split( /:/, $input );
?if ( $un =~ /^\d/ ) {
??print FILE2 "Cannot add user $un, the username must start with an
alpha character.\n";
?}
?e...