Shell Programming and Scripting

$number_searched=0; 
$searchquery=$_GET['phrase']; 
$offset=0; 
$page_result=10; 
$number_pages=0;
$first_page=($_GET['page']==0)?1:$_GET['page']; 
$choice=$_GET['book']; 



if ($_GET['book']=='E')
{
$state ="";
}
else if ($_GET['book']=='O')
{
$state="AND bsect='O'";
}
else if ($_GET['book']=='N')
{
$state="AND bsect='N'";
}
else if ($choice!=NULL)
{
$state = "AND $choice=bnum";
}



//get the results for the searched word 
$row_search=$mysqli->query("SELECT bsect, bname, bnum, cnum, vnum, vtext, MATCH(bname, vtext) AGAINST ('\"$searchquery\"' IN BOOLEAN MODE) AS relevance FROM kjv WHERE MATCH (bname, vtext) AGAINST ('\"$searchquery\"' IN BOOLEAN MODE) $state ORDER BY relevance");
$number_searched=$row_search->num_rows;

//round the results 
$number_pages=ceil($number_searched/$page_result);
    
//gets the starting row number
$offset=(($first_page-1)*$page_result);
    
//starts at the offset and gets the $page_results    
$limit="LIMIT $offset, $page_result";



?>

<?php

//this will show the results on the page
    if ($_GET['count_only']!=1)
    {
        if ($_GET['phrase']!=NULL)
        {
                
            $text_r=$mysqli->prepare("SELECT @rownum:=@rownum+1 rownum, bsect, bname, bnum, cnum, vnum, vtext, MATCH(bname, vtext) AGAINST ('\"$searchquery\"' IN BOOLEAN MODE) AS relevance FROM (SELECT @rownum:=0) row, kjv WHERE MATCH (bname, vtext) AGAINST ('\"$searchquery\"' IN BOOLEAN MODE) $state ORDER BY relevance $limit");
            
            $text_r->execute();
            
            $text_r->bind_result($rownum, $bsect, $bname, $bnum, $cnum, $vnum, $vtext, $match);
            
            echo("<div id=\"searchrez\">");
            
                while ($text_r->fetch())
                {
                    $rownum+=$offset; 
                    echo("<h3>$bname $cnum:$vnum</h3>");
                    echo("<ul><li>$vtext</li></ul>");
                }
            echo("</div>");
        }
    }
?>

#!/usr/bin/perl            

use strict;
use DBI();

# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
                       "joe", "joe's password",
                       {'RaiseError' => 1});

# Now retrieve data from the table.
my $sth = $dbh->prepare("SELECT * FROM foo");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
  print "Found a row: id = $ref->{'id'}, name = $ref->{'name'}\n";
}
$sth->finish();

# Disconnect from the database.
$dbh->disconnect();

"SELECT @rownum:=@rownum+1 rownum, bsect, bname, bnum, cnum, vnum,  vtext, MATCH(bname, vtext) AGAINST ('\"$searchquery\"' IN BOOLEAN MODE)  AS relevance FROM (SELECT @rownum:=0) row, kjv WHERE MATCH (bname,  vtext) AGAINST ('\"$searchquery\"' IN BOOLEAN MODE) $state ORDER BY  relevance $limit"

"SELECT bsect, bname, bnum, cnum, vnum, vtext, MATCH(bname, vtext)  AGAINST ('\"$searchq\"' IN BOOLEAN MODE) AS relevance FROM kjv WHERE  MATCH (bname, vtext) AGAINST ('\"$searchq\"' IN BOOLEAN MODE) $state  ORDER BY relevance $limit"