<%attr> ajax => 1 <& SELF:display_dir , %ARGS &> <%method display_dir> <%args> $basedir => '/media/reel'; <%perl> $m->comp('/include/filebrowser:registerDefaultHandler'); $basedir =~ s/___H___/#/g;
<& SELF:tab_bar , %ARGS &>

<& SELF:fb_content , %ARGS &>
<%method fb_content> <%attr> ajax => 1 update => 'fb_content' throbber => 1 <%args> $basedir => '/media/reel'; $hidden => undef $nolink => undef <%init> use URI::Escape; <%perl> $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; <&| /include/filebrowser:read_dirs, basedir => $basedir, hidden => $hidden &> <&| /include/filebrowser:read_files, basedir => $basedir, hidden => $hidden &>
%dir
%file
% if ( !defined $nolink ) {
<%method nav_bar> <%attr> ajax => 1 update => 'nav_bar' throbber => 0 <%args> $basedir => '/media/reel'; <%init> use URI::Escape; <%perl> my $c=0; my $p="/"; $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; (my $path = $basedir) =~ s/^\///; > @(root) % foreach ( split( /\// , $path ) ) { % next if /^\s*$/; $c++; $p.=$_ . "/"; ( my $fp = $p ) =~ s/#/___H___/g; > <% $_ %> % } <%method tab_bar> <%attr> ajax => 1 <%args> $basedir => '/media/reel'; $div => 'fb_content' <%init> use URI::Escape; <%perl> $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; ( my $fbasedir = $basedir ) =~ s/#/___H___/g;
@(New File) @(New Folder) @(File Upload) @(Refresh)
@(File):

@(Dir):

@(File): >
<%method mkdir> <%attr> ajax => 1 <%args> $dir $basedir

send <% $dir %>
<%perl> $basedir =~ s/___H___/#/g; $dir = $basedir . '/' . $dir if defined $basedir; ## `echo $dir >> /tmp/dir.log`; $m->comp('/include/filebrowser:mkdir', dir => $dir) <%method rmdir> <%args> <%perl>