directory

项目描述: Trickster Streaming Server is a pure Perl MP3 streaming server with a simple Web interface t

[% USE dh = Directory(dir) %]
[% subdirs = subdir.split('/'); subdirs.shift %]
[% s_accum = '' %]
<div class="dirname">
Directory: <a href="[% uri(action='browse') %]">[Root]</a>/[% FOREACH s = subdirs %][% s_accum = s_accum _ "/" _ s %]<a href="[% uri(action='browse', dir=s_accum) %]">[% s | encoding | html %]</a>/[% END %]
</div>
<div class="dirlisting">
[% IF subdir %]
<a href="[% uri(action='browse', dir=parent_dir) %]">
<img src="[% icons %]/back.gif" alt="[UP]" border="0" />
Parent Directory
</a><br />
[% END %]
[% IF (dh.dirs.size == 0) %]
<a href="[% uri(action='enqueue', dir=subdir) %]">
<img src="[% icons %]/disc.gif" alt="[ALL]" border="0" />
 Request All Songs</a><br />
[% END %]
[% FOREACH sub = dh.dirs %]
<a href="[% uri(action='browse', dir=subdir _ "/" _ sub.name) %]">
<img src="[% icons %]/dir.gif" alt="[DIR]" border="0" />
[% sub.name | encoding | html %]</a><br />
[% END %]

[% FOREACH file = dh.files %]
[% TRY %]
[% USE mp3 = MP3(file.path) %]
<a href="[% uri(action='enqueue', dir=subdir, file=file.name) %]">
<img src="[% icons %]/song.gif" alt="[ENQUEUE]" border="0" />
[% media_info(file.path, mp3) %]</a><br />
[% CATCH mp3 %]
[% END # TRY .. CATCH %]
[% END # FOREACH %]
</div>