#!/usr/local/bin/perl
#use DB_File;
require "/home/roger/lib/weblib.lib";
if($play=$ENV{PATH_INFO}){
	if($play=~m#^/\d#){
		if($play=~tr#/#/# > 2 || $play=~ tr/,/,/ > 2){
			$play =~ s#/#play #;
			$play =~ s#/#,#g;
		}
		else{
			$play=~s#/#playtrack #;
			$play=~s#/#,#;
		}
	}
	elsif($play=~s#^/(Song\.\d+\.\d+)$#\1#){
		require "/home/todd/lyrics.lib";
		dbmopen(%LYRICS,"/home/todd/db/lyrics.db",0644);
		&getsonginfo($LYRICS{$play});
		($play=$songinfo[$songinfotype{CDLink}])=~s/\|/\r/g;
	}
	else{
		$play=~s#^/##;
		$play=~s#/# #;
		$play=~s/\bpt\b/playtrack/gi;
		$play=~tr/[a-z]/[A-Z]/;
		$play=~s/([A-Z]+),/$1 /g;
		$play=~s/;/\r\nWAIT\r\n/g;
	}
		&htmlopen("application/x-cdlink=");
	print "[COMMANDS]\r\n$play\r\n";
}
else{
	&htmlopen("CDLink Test Page");
}