1#!
2#[[BEGIN PROPERTIES]]
3# Type = Command
4# Order = 11.0
5# Interpreter = perl
6# Caption = Delete
7# Descr =Remove one or more files and/or directories.
8# Descr =Directories are removed recursively.
9# Descr =
10# Descr =Selection details:
11# Descr =
12# Descr =  Source: Ignored.
13# Descr =
14# Descr =  Target: The files and directories to be removed.
15# Icon = delete_file.tga
16# Hotkey = Delete
17#[[END PROPERTIES]]
18
19use strict;
20use warnings;
21BEGIN { require "$ENV{'EM_DIR'}/res/emFileMan/scripts/cmd-util.pl"; }
22
23if (IsFirstPass()) {
24
25	ErrorIfNoTargets();
26	ErrorIfRootTargets();
27
28	ConfirmIfTargetsAcrossDirs();
29
30	my $message="Are you sure to remove definitively";
31	foreach my $t (GetTgt()) {
32		if (-d $t) {
33			$message.=" and recursively";
34			last;
35		}
36	}
37	$message.=":\n\n";
38	$message.=GetTgtListing();
39	Confirm("Delete",$message);
40
41	SecondPassInTerminal("Delete");
42}
43
44my $e=TermRunAndSync(
45	"rm",
46	($Config{'osname'} eq 'linux' or $Config{'osname'} eq 'cygwin') ? (
47		"-vfr"
48	)
49	: (
50		"-fr"
51	),
52	"--",
53	GetTgt()
54);
55
56SendUpdate();
57
58TermEnd($e);
59