loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.96, 2017/10/13 20:37:46	version 1.98, 2019/04/24 01:44:38
Line 231 unless ($dbh = DBI->connect("DBI:mysql:l	Line 231 unless ($dbh = DBI->connect("DBI:mysql:l
my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";	my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
my $subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";	my $subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";
system("echo 'Cannot connect to MySQL database!' \|".	system("echo 'Cannot connect to MySQL database!' \|".
" mailto $emailto -s '$subj' > /dev/null");	" mail -s '$subj' $emailto > /dev/null");

open(SMP,">$perlvar{'lonDocRoot'}/lon-status/mysql.txt");	open(SMP,">$perlvar{'lonDocRoot'}/lon-status/mysql.txt");
print SMP 'time='.time.'&mysql=defunct'."\n";	print SMP 'time='.time.'&mysql=defunct'."\n";
Line 540 sub do_user_search {	Line 540 sub do_user_search {
}	}
} else {	} else {
my %srchfield = (	my %srchfield = (
	uname_ci => 'username collate latin1_general_ci',
uname => 'username',	uname => 'username',
lastname => 'lastname',	lastname => 'lastname',
email => 'permanentemail',	email => 'permanentemail',