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