Current File : //usr/share/webmin/filemin/delete.cgi

#!/usr/bin/perl

require './filemin-lib.pl';
&ReadParse();

get_paths();

my @errors;

foreach $name (split(/\0/, $in{'name'})) {
    if(!can_write($cwd.'/'.$name)) {
        push @errors, "$name - $text{'error_write'}";
        next;
    }
    if(!&unlink_file($cwd.'/'.$name)) {
        push @errors, "$name - $text{'error_delete'}: $!";
    }
}

if (scalar(@errors) > 0) {
    print_errors(@errors);
} else {
    &redirect("index.cgi?path=".&urlize($path));
}