josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

unicode searches

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@51 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-10-12 10:37:02 +00:00
parent d8d4bd14e3
commit bd398c9423
3 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
trunk/include.pl
View file

@ -5,6 +5,7 @@ use CGI::Session;
use DBI; use DBI;
use XML::Simple qw(:strict); use XML::Simple qw(:strict);
use Digest::SHA; use Digest::SHA;
use Encode;
$gnutube_root = '/var/www/gnutube'; $gnutube_root = '/var/www/gnutube';

6
trunk/search.pl
View file

@ -9,14 +9,12 @@ $session = new CGI::Session;
#check if query is set #check if query is set
if($query->param('query')) if($query->param('query'))
{ {
my $search_query = $query->param('query');
$page = XMLin("$gnutube_root/search.xml", ForceArray => 1, KeyAttr => {} ); $page = XMLin("$gnutube_root/search.xml", ForceArray => 1, KeyAttr => {} );
#if a username is associated with session id, username is nonempty #if a username is associated with session id, username is nonempty
$page->{username} = get_username_from_sid($session->id); $page->{username} = get_username_from_sid($session->id);
$page->{results}->{query} = $query->param('query'); $page->{results}->{query} = decode_utf8($query->param('query'));
#connect to db #connect to db
my $dbh = DBI->connect("DBI:mysql:$database:$dbhost", $dbuser, $dbpass) or die $dbh->errstr; my $dbh = DBI->connect("DBI:mysql:$database:$dbhost", $dbuser, $dbpass) or die $dbh->errstr;
@ -25,7 +23,7 @@ if($query->param('query'))
my $sth = $dbh->prepare(qq{select title, caption, timestamp from videos where match(title, caption) against( ? ) }) or die $dbh->errstr; my $sth = $dbh->prepare(qq{select title, caption, timestamp from videos where match(title, caption) against( ? ) }) or die $dbh->errstr;
#execute it #execute it
$sth->execute($search_query) or die $dbh->errstr; $sth->execute($query->param('query')) or die $dbh->errstr;
#get every returned value #get every returned value
while (my ($title, $caption, $timestamp) = $sth->fetchrow_array()) while (my ($title, $caption, $timestamp) = $sth->fetchrow_array())

2
trunk/xsl/xhtml.xsl
View file

@ -10,7 +10,7 @@
<xsl:output <xsl:output
doctype-public="-//W3C//DTD XHTML 1.1//EN" doctype-public="-//W3C//DTD XHTML 1.1//EN"
doctype-system="http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd" doctype-system="http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"
encoding="us-ascii" encoding="utf8"
indent="yes" indent="yes"
method="xml" method="xml"
media-type="application/xhtml+xml" media-type="application/xhtml+xml"