delete_htaccess.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# delete_htaccess.cgi
# Delete some .htaccess or similar file

require './apache-lib.pl';
&ReadParse();
&allowed_auth_file($in{'file'}) ||
	&error($text{'htaccess_edelete'});
unlink($in{'file'});

&read_file("$module_config_directory/site", \%site);
@ht = split(/\s+/, $site{'htaccess'});
$site{'htaccess'} = join(' ', (grep { $_ ne $in{'file'} } @ht));
&write_file("$module_config_directory/site", \%site);
&redirect("htaccess.cgi");