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