1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
package extwvx;
use strict;
use Globals;
use Globals qw($CGIROOT);
use Globals qw($APPNAME);
use Globals qw(%PLATTERS);
use Globals qw($delim);
use Globals qw(@VIDEO);
sub new {
my $self = {
mime => "video/x-ms-wvx",
playlist => "<Asx Version = \"3.0\" >\n"};
bless ($self);
return $self;
}
sub desc {
return "Windows Media Player Playlist";
}
sub header {
my $self = shift;
my ($artist, $album) = @_;
$album =~ /(\d{2} - |)(.*)(\((\d{4})\)|)/;
$self->{playlist} .= "<Title>$2</Title>".
"<Author>$artist</Author>".
"<Param Name = \"AllowShuffle\" Value = \"yes\" />\n";
}
sub track {
my $self = shift;
my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
my $artist = getArtistString($folder, $trackartist);
my $mediatype = "audio";
$track =~ /.*\.(.*?)/i;
my $filetype = $1;
foreach (@VIDEO) {
$mediatype = "video" if (/^$filetype$/i);
}
$self->{playlist} .= "<Entry>\n".
"<Title>".makeNice($track)."</Title>\n".
"<Ref href = \"".makeTrackURL( $PLATTERS{$platter}, $url, $folder, $trackartist, $track )."\"/>\n".
"<Param Name = \"Artist\" Value = \"".$artist."\" />\n".
"<Param Name = \"Album\" Value = \"".makeNice($album)."\" />\n".
"<Param Name = \"MediaType\" Value = \"".$mediatype."\" />\n".
"<Banner Href = \"http://$CGIROOT/platdoc/img/banner.png\">\n".
"<Abstract>Click to go to the ".makeNice($folder)." page</Abstract>\n".
"<Moreinfo Href=\"http://$CGIROOT/$APPNAME/front.plx?artist=".makeUnNice($folder)."&album=".makeUnNice($album)."\" />\n".
"</Banner>\n".
"</Entry>\n";
}
sub dump {
my $self = shift;
return $self->{playlist}."</Asx>";
}
return 1;
|
