#!/usr/local/bin/perl5
# Titles Database by James Golden
#require 5.001;
#use strict;

$hcolor = "RED";
$path = `pwd`;
chomp($path);
$sfpath = $path . "\/sf";
push(@INC, $path);

require "cgi_lib.pl";
require "titlesDB.pl";
require "userDB.pl";
require "template.pl";

&do;

sub do {
	@files = <$sfpath\/*.ram>;

	$i = 0;
	open(FILE, "Titles.db");
	while(<FILE>) {
		$tdb[$i] = $_;
		$i++;
	}
	close(FILE);
	$i = 0;

	foreach $db_line (@tdb) {
		$o = $i;
		%tmpRow = parseTitlesRow($db_line);
		if ($tmpRow{"Sound File"} eq "") {
			$name = $tmpRow{"Title"};

			$name =~ tr/A-Z/a-z/;
			$name =~ s/ //g;
			$name =~ s/\-//g;
			$name =~ s/\,the//g;
			$name =~ s/\(.*//g;
			foreach $file (@files) {
				$file =~ s/$sfpath\///g;
				$file =~ s/\.ram//g;
				if ($name eq $file) {
					$tmpRow{"Sound File"} = "$name\.ram";
					modifyTitlesRow($tmpRow{$titles[1]}, %tmpRow);
					$i++;
				} 
			}

			if ($o == $i) {
				print STDOUT "\n\n$name - $file\n\n";		
				sleep(1);
			}
		}

	}
	print $#files . " - $i\n";


}