0byt3m1n1

Path: /data/11/0/19/129/997781/user/1027887/cgi-bin/ [ Home ]

File: plist.m3u

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);

$EXT = "m3u";

# includes
if($libps != 1) { require "libps.2.2.pl"; }

# parse input vars from GET
&io_get_query();

# retreive user
&io_get_user();

# not defined user, print OK
if($f_user eq "") {
	
	&io_printout("OK");
}

# load user vars from desc file
# if no data return err
if(&ps_loaduser() == 0) {
		
	&io_err($NOUSER);
}

$pstr = &ps_plist($EXT);

if($pstr eq "") {
	
	&io_err($UNK);
}

&io_printout($pstr,$ptype{$EXT});