#!/usr/bin/perl
#
use CGI qw/:standard/;

$file = "lyrics.db";

$sinterpret = lc(param('interpret'));
$stitle = lc(param('title'));

print header;

print "Interpret::$sinterpret\n";
print "<BR>Title::$stitle<BR>\n";

open (SR, $file);

do
{
     $rid = (<SR>);
     $interpret = lc(<SR>);
     $title = lc(<SR>);
     $ci = 9;
     $ct = 9;
     
     if ($sinterpret ne "")  {
        do
        {
            ++$i;
                if (substr($interpret, $i, length($sinterpret)) = $sinterpret) {
                    $ci = 1;

                }
                else {
                    $ci = 9;
                }
           } 
          until ($i < length($interpret) or $ci = 1)
     }
     else {
       $ci = 6;
     }


     if ($stitle ne "")  {
        if (length($stitle) <= length($title)) {
          if ($stitle = $title) {
          $ct = 1;
          } 
          else {
          
          for  ($j = 0; $j < length($title); ++$j)
            {
                if (substr($title, $j, length($stitle)) = $stitle) {
                    $ct = 1;
                }
                else {
                    $ct = 9;
                }
            }
          }
        }
     }
     else {
       $ct = 6;
     }


# $ci / $ct Results:
#
# 9 - False
# 1 - True
# 6 - Empty

$a = $ci + $ct;

if ($a eq 7)
{
    print "<BR> $rid matches - Variable returned : $a --------- $interpret - $title\n";
}

if ($a eq 2)
{
    print "<BR> $rid matches - Variable returned : $a --------- $interpret - $title\n";
}

}
until (eof(SR))