view release on metacpan or  search on metacpan

examples/admin/README  view on Meta::CPAN

			-s <shell> <username>
		userdel -c <username>

	  are supportted.


  - Move the script "usersModified" to /usr/local/bin and make it
    suid root:

	mv usersModified /usr/local/bin
	chown root /usr/local/bin/usersModified
	chgrp root /usr/local/bin/usersModified
	chmod 4755 /usr/local/bin/usersModified

  - That's it!


Author and Copyright
--------------------

    This program is

examples/admin/mail2group  view on Meta::CPAN

my $fh = Symbol::gensym();
if ($verbose) {
    print("Saving data:\n$str\n");
}
if (!$debug) {
    if (!open($fh, ">$PREFS_FILE")  ||  !(print $fh $str)  ||
	!close($fh)) {
	die "Couldn't save data: $!";
    }
    my($login, $pass, $uid, $gid) = getpwnam($WWW_USER);
    chown $uid, $gid, $PREFS_FILE;
}