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

added additional rescue functionality

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@109 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-10-21 16:41:29 +00:00
parent b1d68209f7
commit 19dfc0d3f8
1 changed files with 22 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
trunk/video.pl
View file

@ -6,7 +6,7 @@ CGI::Session->name($session_name);
$query = new CGI; $query = new CGI;
$session = new CGI::Session; $session = new CGI::Session;
#check if query is set #check if id or title is passed
if($query->param('title') or $query->param('id')) if($query->param('title') or $query->param('id'))
{ {
%page = (); %page = ();
@ -24,25 +24,40 @@ if($query->param('title') or $query->param('id'))
if($query->param('id')) if($query->param('id'))
{ {
#prepare query #if id is passed ignore title and check for the id
$sth = $dbh->prepare(qq{select id, title, description, userid, from_unixtime( timestamp ), $sth = $dbh->prepare(qq{select id, title, description, userid, from_unixtime( timestamp ),
creator, subject, contributor, source, language, coverage, rights, license creator, subject, contributor, source, language, coverage, rights, license
from videos where id = ? }) or die $dbh->errstr; from videos where id = ? }) or die $dbh->errstr;
#execute it
$rowcount = $sth->execute($query->param('id')) or die $dbh->errstr; $rowcount = $sth->execute($query->param('id')) or die $dbh->errstr;
} }
else else
{ {
#prepare query #if no id was passed there has to be a title we search for
$sth = $dbh->prepare(qq{select id, title, description, userid, from_unixtime( timestamp ), $sth = $dbh->prepare(qq{select id, title, description, userid, from_unixtime( timestamp ),
creator, subject, contributor, source, language, coverage, rights, license creator, subject, contributor, source, language, coverage, rights, license
from videos where title = ? }) or die $dbh->errstr; from videos where title = ? }) or die $dbh->errstr;
#execute it
$rowcount = $sth->execute($query->param('title')) or die $dbh->errstr; $rowcount = $sth->execute($query->param('title')) or die $dbh->errstr;
} }
if($rowcount == 1) #if the args are wrong there my be zero results
#if there was a title passed, then perform a search
if($rowcount == 0 and $query->param('title'))
{ {
$sth = $dbh->prepare(qq{select id, title, description, userid, from_unixtime( timestamp ),
creator, subject, contributor, source, language, coverage, rights, license
from videos where match(title, description, subject) against( ? ) }) or die $dbh->errstr;
$rowcount = $sth->execute($query->param('title')) or die $dbh->errstr;
}
if($rowcount == 0)
{
#still no results
#there is nothing we can do now - this video doesn't exist...
#TODO: insert error output
}
elsif($rowcount == 1)
{
#if there was a single result, display the video
my ($id, $title, $description, $userid, $timestamp, $creator, $subject, my ($id, $title, $description, $userid, $timestamp, $creator, $subject,
$contributor, $source, $language, $coverage, $rights, $license,) = $sth->fetchrow_array(); $contributor, $source, $language, $coverage, $rights, $license,) = $sth->fetchrow_array();
@ -77,6 +92,7 @@ if($query->param('title') or $query->param('id'))
} }
else else
{ {
#when an ambigous title was passed there may me many results - display them like search.pl does
$page->{results}->{query} = decode_utf8($query->param('title')); $page->{results}->{query} = decode_utf8($query->param('title'));
#get every returned value #get every returned value
while (my ($id, $title, $description, $userid, $timestamp) = $sth->fetchrow_array()) while (my ($id, $title, $description, $userid, $timestamp) = $sth->fetchrow_array())