#!/usr/bin/perl

#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Copyright Alexandr Bezenkov (https://github.com/real-gecko/filemin)
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;

use lib ($ENV{'LIBROOT'}."/vendor_perl");

use File::Copy;
use File::Path;

our (%in, %text, $cwd, $path, @allowed_paths);

require($ENV{'THEME_ROOT'}."/extensions/file-manager/file-manager-lib.pl");

my %errors;
my @deleted_entries;

my @entries_list = get_entries_list();
my $fsid = $in{'fsid'};
my $time = strftime('%Y-%m-%d_%H:%M:%S', localtime());
my $tdirname = '.Trash';
my $mkpath_ = sub {
	my ($dir) = @_;
	my $rs = mkpath($dir, {owner => int($in{'uid'}), group => int($in{'guid'})});
	return $rs;
	};
my $etrashed = 0;

foreach my $name (@entries_list) {
	my $name_ = $name;
	my $file = fm_checked_cwd_path_or_error($name);
	if ($in{'etrash'}) {
		my $tdir = "$cwd/$tdirname/";
		if (!can_write($tdir)) {
			$errors{$name_} =
			    lc($text{'error_delete'}.lc(" - $text{'error_write'}"));
			next;
			}
		if (!&unlink_file($tdir)) {
			$errors{$name_} = lc($text{'error_delete'}.lc(" - $!"));
			}
		else {
			push(@deleted_entries, $name);
			}
		}
	elsif ($in{'trash'}) {
		my $jdir = $in{'home'};
		$jdir = "$+{jhdir}"
		    if ($jdir =~ /\/.(?<jhdir>\/.*?)$/);
		my $hdir =
		      (-d $jdir && -w $jdir && fm_path_is_allowed($jdir)) ? $jdir
		    : (-d $allowed_paths[0] && -w $allowed_paths[0]) ? $allowed_paths[0]
		    : undef;
		my $tdir = "$hdir/$tdirname/$cwd";
		my %mkpopts = {owner => int($in{'uid'}), group => int($in{'guid'})};
		my $mkpathr = &$mkpath_($tdir);
		my $tfile;
		if (!$mkpathr && -f "$tdir/$name" && -r "$tdir/$name") {
			$tfile = "$tdir/$name-$time";
			}
		elsif (!$mkpathr && glob("\Q$tdir/$name\E/*")) {
			$tfile = "$tdir/$name-$time";
			&$mkpath_($tdir);
			}
		if (!move($file, $tfile || "$tdir/$name")) {

			# Do not throw an error when moving .Trash inside the .Trash
			if (
				&is_under_directory($file,
					$tfile || "$tdir/$name")
			    )
			{
				# If .Trash the only one in list, delete it
				if (scalar(@entries_list) == 1) {
					if (!can_write($file)) {
						$errors{$name_} = lc(
							$text{'error_delete'}.
							    lc(" - $text{'error_write'}"
							    )
						);
						}
					elsif (!&unlink_file($file)) {
						$errors{$name_} =
						    lc($text{'error_delete'}.
							    lc(" - $!"));
						}
					else {
						$etrashed = 1;
						push(@deleted_entries, $name);
						}
					}
				}
			else {
				$errors{$name_} = lc($text{'error_delete'}.lc(" - $!"));
				}
			}
		else {
			push(@deleted_entries, $name);
			}
		}
	else {
		if (!can_write($file)) {
			$errors{$name_} =
			    lc($text{'error_delete'}.lc(" - $text{'error_write'}"));
			}
		elsif (!&unlink_file($file)) {
			$errors{$name_} = lc($text{'error_delete'}.lc(" - $!"));
			}
		else {
			push(@deleted_entries, $name);
			}
		}
	}

if ($fsid) {
	cache_search_delete($fsid, \@deleted_entries);
	}

redirect_local('list.cgi?path='.
	    urlize($path).
	    '&module=filemin'.
	    '&etrashed='.
	    $etrashed.
	    '&error='.
	    get_errors(\%errors).
	    extra_query());