#!c:/perl/bin/perl

# UNIX shebang line
#
#!/usr/local/bin/perl -w

# Use me
#
use CGI;
use strict;
use Globals;
use Globals qw(%PLATTERS);
use Globals qw(@MUSIC);
use Globals qw(@VIDEO);
use Globals qw(@SHORTCUT);
use Globals qw($delim);
use Globals qw($debug);
use playlists::playlist;
use Search;

my $QUERY = CGI::new();
my $artist        = $QUERY->param( "artist" );
my $title         = $QUERY->param( "title" );
my $album         = $QUERY->param( "album" );
my $dateFrom      = $QUERY->param( "dateFrom" );
my $dateTo        = $QUERY->param( "dateTo" );
my $scope         = $QUERY->param( "scope" );
my $random        = $QUERY->param( "random" );
my $output        = $QUERY->param( "output" );
my $filter        = $QUERY->param( "filter" );
my $exact         = $QUERY->param( "exact" );
my $inv           = $QUERY->param( "inv" );
my $searchFor     = $QUERY->param( "searchFor" );

$searchFor = 'track' unless ($searchFor);

# platter shortcut here
if ($output eq 'redir') {
    $searchFor = 'track';
    $filter = 'music,video';
    $random = 1; # in case the search returns more than one track
}


# fill in search params

Search::setArtist($artist);
Search::setTitle($title);
Search::setAlbum($album);
Search::setDateFrom($dateFrom);
Search::setDateTo($dateTo);
Search::setScope($scope);
Search::setExact($exact);
Search::setRandom($random);
Search::searchFor($searchFor);

# set inventories
my @invs = split(',', $inv);
if (scalar(@invs) == 0) {
    @invs = keys %PLATTERS;
}
Search::setInv(@invs);

# find the right file filters
my @filters = split(',', $filter);
my @allfilters = ();
foreach (@filters) {
    tr/a-z/A-Z/;
    my @newfilter = eval("@".$_.";");
    push (@allfilters, @newfilter);
}
    
Search::setFilter(@allfilters);
my $exclTypes = $QUERY->cookie('exclTypes');
Search::setExclTypes($exclTypes);

my @result = Search::go();

# redirect when there is only one match
if ($searchFor eq 'artist' && scalar(@result)==1) { # Exact match
    $result[0] = substr( $result[0], rindex( $result[0] , $delim)+1); # chop off the abc if there
    print "HTTP/1.0 302 Found\nLocation: artist.plx?name=".makeUnNice($result[0])."&exact=1\nContent-Type:text/html\n\n";
    exit;
}

# redirect platter shortcuts
if ($output eq 'redir') {
    if (length($result[0]) == 0) { print "HTTP/1.0 404 Not Found\n\n"; exit; }
    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = split($delim, $result[0]);
    print "HTTP/1.0 302 Found\nLocation: http://".$PLATTERS{$platter}.$url."\nContent-Type:text/html\n\n";
    exit;
    
}

# artist searches must return an artistlist
if ($searchFor eq 'artist') {
    $output = 'artistlist';
}
    
# if the output format was not specified, get the playlist format from the cookie
if (length $output == 0) {
    my $cookie = $QUERY->cookie("format");
    if (length $cookie == 0) { # default to m3u
        $cookie = 'extm3u';
    }
    $output = $cookie;
}

my $playlist = playlist->new($output);

unless ($artist) { $artist = "Various" }
if ($title && !$album) {$album = makeNice($title) }
if ($random > 0) { $album = "Random ".$album }
$playlist->header($artist, $album);

foreach( @result) {
    my @line = split($delim);
    #print join(',', @line)."\n" if ($debug);
    $playlist->track(@line);
}

print "HTTP/1.0 200 OK\nContent-type: ".$playlist->{mime}."\n";
if ($playlist->{mime} ne "text/html" && $output =~ /^ext(.*)/) {
	print "Content-Disposition: attachment; filename=\"$artist - $album.$1\";\n";
	}
print "\n";
print $playlist->dump();