search for: importtest

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...