#!/usr/bin/perl
#
use warnings;
use strict;
use CGI;

# hier werden fehler/warnungen im browser ausgegeben; das hilft
# sehr beim entwickeln, sollte aber, sobald alles laeuft, deaktiviert
# werden, um z.B. einem Hacker moeglichst wenig Infos zu geben:
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use FindBin;

my $file = "$FindBin::Bin/lyrics.db";

my $cgi = CGI->new();

print $cgi->header();

my $sinterpret = lc( $cgi->param('interpret') );
my $stitle     = lc( $cgi->param('title') );

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

unless (open (SR, "<$file")) {
  die "Error: couldn't open file '$file': $!
";
}

while (my $rid = <SR>) {
  my $interpret = lc(<SR>);
  my $title = lc(<SR>);
  my $ci = 27;
  my $ct = 27;
  chomp($rid); chomp($interpret); chomp($title); # zeilenenden abschneiden

 if ($sinterpret ne '') {
  if (index($interpret, $sinterpret) == 0) {
      $ci = 1;
  }
 }
 else {
     $ci = 11;
 }

 if ($stitle ne '') {
  if (index($title, $stitle) == 0) {
      $ct = 1; 
  }
 }
 else {
     $ct = 11;
 }

my $a = $ci + $ct;

if ($a == 12) {
    print '<br><p><a href="show.cgi?file=' . $rid  . '">' . $interpret . ' - ' . $title . '</a></p>';
}
 
if ($a == 2) {
    print '<br><p><a href="show.cgi?file=' . $rid  . '">' . $interpret . ' - ' . $title . '</a></p>';
}

}
close (SR);