loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lonsql between versions 1.4 and 1.18

version 1.4, 2000/07/25 16:06:57	version 1.18, 2001/03/27 02:09:50
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl
# lonsql-based on the preforker:harsha jagasia:date:5/10/00	# lonsql-based on the preforker:harsha jagasia:date:5/10/00
# 7/25 Gerd Kortemeyer	# 7/25 Gerd Kortemeyer
	# many different dates Scott Harrison
	# 03/22/2001 Scott Harrison
use IO::Socket;	use IO::Socket;
use Symbol;	use Symbol;
use POSIX;	use POSIX;
Line 12 use Fcntl;	Line 13 use Fcntl;
use Tie::RefHash;	use Tie::RefHash;
use DBI;	use DBI;

	my @metalist;
	# ----------------- Code to enable 'find' subroutine listing of the .meta files
	require "find.pl";
	sub wanted {
	(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
	-f _ &&
	/^.*\.meta$/ &&
	push(@metalist,"$dir/$_");
	}


$childmaxattempts=10;	$childmaxattempts=10;
$run =0;#running counter to generate the query-id	$run =0;#running counter to generate the query-id
Line 180 sub make_new_child {	Line 191 sub make_new_child {
#open database handle	#open database handle
# making dbh global to avoid garbage collector	# making dbh global to avoid garbage collector
unless (	unless (
$dbh = DBI->connect("DBI:mysql:loncapa","www","newmysql",{ RaiseError =>0,PrintError=>0})	$dbh = DBI->connect("DBI:mysql:loncapa","www","123",{ RaiseError =>0,PrintError=>0})
) {	) {
my $st=120+int(rand(240));	my $st=120+int(rand(240));
&logthis("<font color=blue>WARNING: Couldn't connect to database ($st secs): $@</font>");	&logthis("<font color=blue>WARNING: Couldn't connect to database ($st secs): $@</font>");
Line 201 sub make_new_child {	Line 212 sub make_new_child {
my $userinput = <$client>;	my $userinput = <$client>;
chomp($userinput);	chomp($userinput);

my ($conserver,$querytmp)=split(/&/,$userinput);	my ($conserver,$querytmp,$customtmp)=split(/&/,$userinput);
my $query=unescape($querytmp);	my $query=unescape($querytmp);
	my $custom=unescape($customtmp);

#send query id which is pid_unixdatetime_runningcounter	#send query id which is pid_unixdatetime_runningcounter
$queryid = $thisserver;	$queryid = $thisserver;
Line 222 sub make_new_child {	Line 234 sub make_new_child {
else {	else {
my $r1=$sth->fetchall_arrayref;	my $r1=$sth->fetchall_arrayref;
my @r2; map {my $a=$_; my @b=map {escape($_)} @$a; push @r2,join(",", @b)} (@$r1);	my @r2; map {my $a=$_; my @b=map {escape($_)} @$a; push @r2,join(",", @b)} (@$r1);
$result=join("&",@r2) . "\n";	$result=join("&",@r2);
	}

	# do custom metadata searching here and build into result
	if ($custom) {
	&logthis("am going to do custom query for $custom");
	@metalist=(); pop @metalist;
	&find("$perlvar{'lonDocRoot'}/res");
	&logthis("FILELIST:" . join(":::",@metalist));
	# if file is indicated in sql database and
	# not part of sql-relevant query, do not pattern match.
	# if file is not in sql database, output error.
	# if file is indicated in sql database and is
	# part of query result list, then do the pattern match.
	my $customresult='';
	foreach my $m (@metalist) {
	my $fh=IO::File->new($m);
	my @lines=<$fh>;
	my $stuff=join('',@lines);
	if ($stuff=~/$custom/s) {
	foreach my $f ('abstract','author','copyright',
	'creationdate','keywords','language',
	'lastrevisiondate','mime','notes',
	'owner','subject','title') {
	$stuff=~s/\<$f[^\>]\>.?<\/$f[^\>]*\>//;
	}
	&logthis("found: $stuff");
	$customresult.='&custom='.escape($stuff);
	}
	}
	$result.=$customresult;
}	}
	# reply with result
	$result.="\n" if $result;
&reply("queryreply:$queryid:$result",$conserver);	&reply("queryreply:$queryid:$result",$conserver);

}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.4
changed lines
	Added in v.1.18