loncom/debugging_tools/modify_config_files.pl - diff

Return to modify_config_files.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.2, 2004/08/10 20:26:02	version 1.3, 2004/08/11 17:32:53
Line 49 copies of each file are made in /etc.	Line 49 copies of each file are made in /etc.

use strict;	use strict;
use File::Copy;	use File::Copy;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA::Configuration;
	my $loncapa_config=LONCAPA::Configuration::read_conf('loncapa.conf');

&update_file('/etc/yum.conf',	&update_file('/etc/yum.conf',
[{section => 'loncapa-updates-i386',	[{section => 'loncapa-updates-i386',
Line 72 use File::Copy;	Line 75 use File::Copy;
key =>'set-variable=wait_timeout=',	key =>'set-variable=wait_timeout=',
value =>'31536000', }]);	value =>'31536000', }]);


	my $local_my_cnf = '/home/www/.my.cnf';
	if (! -e $local_my_cnf) {
	# # Create a file so we can do something with it...
	system("touch $local_my_cnf");
	}
	&update_file($local_my_cnf,
	[{section =>'client',
	key =>'user=',
	value =>'www',},
	{section =>'client',
	key =>'password=',
	value =>$loncapa_config->{'lonSqlAccess'}},]);

exit;	exit;