cgi-bin/playlists/playlist.pm


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

package playlist;
use strict;
use Globals;

return 1;

sub new { 
    my ($proto, $playlist) = @_;
    my $playlister = eval("use playlists::".$playlist."; ".$playlist."->new();");
    if (!defined $playlister) {
        $playlister = {
            mime => "text/html",
            playlist => openTemplate("error"),
            };
        $playlister->{playlist} =~ s/%NAME%/$playlist/g;
        bless ($playlister);
    }

    return $playlister;
}

sub desc { return "Not Currently Working"; }

sub header {    
    }

sub track {
    }

sub dump {
    my $self = shift;
    return $self->{playlist};
    }