#!/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));
	}