#!/usr/bin/perl

# /usr/local/lib/cddb/

#DTITLE=Áôêë Íðÿâ. ÄÍÓ ÈÎÂ
#TTITLE0=
#TTITLE1=
#TTITLE2=
#PLAYORDER=1,2,3,4,5,7,8,9,10,11,12

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches
$[ = 1;			# set array base to 1
$, = ' ';		# set output field separator
$\ = "\n";		# set output record separator

while (<>) {
    chop;	# strip record separator
/^         *(.*)(.*)/ && do {
	$title = $1.$2;
        printf ("DTITLE=$title\n");
    } ;
/^[0-9][.]([0-9][0-9]*)[.] *(.*)/ && do {
	$nomer = $1-1;
	$nazwanie = $2;
	if ($nazwanie =~ /([+\-\/.]*)$/)  {$ocenka=$1;} else {$ocenka=""};
	printf("TTITLE%d=%s\n",$nomer,$nazwanie) ;
    } ;
}