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