PAL.C.T MINI SHELL
#!/usr/bin/perl
# create.cgi
# Create a .htaccess file
require './htaccess-lib.pl';
&ReadParse();
if (-d $in{'dir'}) {
$file = "$in{'dir'}/$config{'htaccess'}";
}
else {
$file = $in{'dir'};
}
if (!-r $file) {
open(HTACCESS, ">$file") || &error($!);
close(HTACCESS) || &error($!);
chmod(0755, $file);
}
@files = &get_htaccess_files();
@files = &unique(@files, $file);
&set_htaccess_files($file);
&redirect("htaccess_index.cgi?file=".&urlize($file));
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`