Initial commit

1 files changed, 33 insertions, 0 deletions

diff --git a/cgi-bin/playlists/playlist.pm b/cgi-bin/playlists/playlist.pm
new file mode 100644
index 0000000..5ee280e
--- /dev/null
+++ b/cgi-bin/playlists/playlist.pm
@@ -0,0 +1,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};
+    }