loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.96, 2017/10/13 20:37:46	version 1.99, 2024/06/22 14:29:36
Line 228 unless ($dbh = DBI->connect("DBI:mysql:l	Line 228 unless ($dbh = DBI->connect("DBI:mysql:l
$perlvar{'lonSqlAccess'},	$perlvar{'lonSqlAccess'},
{ RaiseError =>0,PrintError=>0})) {	{ RaiseError =>0,PrintError=>0})) {
print "Cannot connect to database!\n";	print "Cannot connect to database!\n";
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',