610 549 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
#
# Add sitevariables to control whether user password hashes are distributed
# to nodes via tmcd.
#
use strict;
use libdb;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;
    
    DBQueryFatal("INSERT INTO `sitevariables` VALUES ".
		 "('node/user_passwords',NULL,'0',".
		 "'If non-zero, password hashes for users are passed to nodes allow user logins on the console. For better security, you should leave this zero.',0)")
	if (!TBSiteVarExists("node/user_passwords"));

    return 0;
}

1;

# Local Variables:
# mode:perl
# End: