282 646 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 25 26
#
# Add sitevar. If images/root_password exists and has a value, this will be
# used as the root password when localizing the MFSs. No value, means leave
# it alone when doing the localization. You should set a value.
#
# NOTE: This is an encryption hash, not a plain text value. 
#
use strict;
use libdb;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;

    DBQueryFatal("INSERT INTO sitevariables VALUES ".
	 " ('images/root_password',NULL,'', ".
	 "  'The encryption hash of the root password to use in the MFSs.',0)")
	if (!TBSiteVarExists("images/root_password"));

    return 0;
}
1;

# Local Variables:
# mode:perl
# End: