<%perl> use File::Copy; use File::Touch; my $cwd = $m->base_comp->source_dir; if($ARGS{o} && $ARGS{f}){ if($ARGS{o} eq 'm'){ touch("$cwd/../mp3/incomplete/$ARGS{f}"); move("$cwd/../mp3/incomplete/$ARGS{f}" => "$cwd/../mp3"); } elsif($ARGS{o} eq 'c'){ touch("$cwd/../mp3/incomplete/$ARGS{f}"); copy("$cwd/../mp3/incomplete/$ARGS{f}" => "$cwd/../mp3"); } elsif($ARGS{o} eq 'd'){ unlink "$cwd/../mp3/incomplete/$ARGS{f}"; } print ""; } % use IO::All; % my @incoming = sort {(stat("$a"))[9] <=> (stat("$b"))[9]} grep{/\.mp3/o} io("$cwd/../mp3/incomplete")->all_files(); % if (@incoming){

INCOMING

NAME SIZE (bytes)
    % use URI::Escape; % foreach my $f (@incoming){ % my $size = (stat("$f"))[7]; % $f =~ s,^.+/,,;
  • <% $f %>
    		• <% $size %> % if($ARGS{is_admin}){ % my @cmd = ([m => 'Move out'], [c => 'Copy out'], [d => 'Delete']); % foreach (@cmd){ <<% $_->[1] %>> % } % } %}
    % }