<%attr> ajax => 1 <& SELF:display_dir , %ARGS &> <%method display_dir> <%args> $basedir => '/media/reel'; <%perl> $m->comp('/include/filebrowser:registerDefaultHandler'); $basedir =~ s/___H___/#/g; $basedir =~ s/___A___/'/g; $basedir =~ s/___U___/&/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 <%perl> $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; $basedir =~ s/___A___/'/g; $basedir =~ s/___U___/&/g; my $updir = $basedir; my $i = 0; $updir =~ s/\s*$//; $updir =~ s/\/[^\/]+$//; $updir = '/' if $updir eq '';
<&| /include/filebrowser:read_dirs, basedir => $basedir, hidden => $hidden &>
..
<&| /include/filebrowser:read_files, basedir => $basedir, hidden => $hidden &> % $i++;
%mtime
<%method nav_bar> <%attr> ajax => 1 update => 'nav_bar' throbber => 0 <%args> $basedir => '/media/reel'; <%perl> my $c=0; my $p="/"; $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; $basedir =~ s/___A___/'/g; $basedir =~ s/___U___/&/g; (my $path = $basedir) =~ s/^\///; > @(root) % foreach ( split( /\// , $path ) ) { % next if /^\s*$/; $c++; $p.=$_ . "/"; ( my $fp = $p ) =~ s/#/___H___/g; $fp =~ s/'/___A___/g; $fp =~ s/&/___U___/g; > <% $_ %> % } <%method tab_bar> <%attr> ajax => 1 <%args> $basedir => '/media/reel'; $div => 'fb_content' <%perl> $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; $basedir =~ s/___A___/'/g; $basedir =~ s/___U___/&/g; ( my $fbasedir = $basedir ) =~ s/#/___H___/g; $fbasedir =~ s/'/___A___/g; $fbasedir =~ s/&/___U___/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; $basedir =~ s/___A___/'/g; $basedir =~ s/___U___/&/g; $dir = $basedir . '/' . $dir if defined $basedir; ## `echo $dir >> /tmp/dir.log`; $m->comp('/include/filebrowser:mkdir', dir => $dir) <%method rmdir> <%args> <%perl>