PAL.C.T MINI SHELL
#!/usr/bin/perl
# files_index.cgi
# Display a menu of icons for per-files options
require './apache-lib.pl';
&ReadParse();
$access{'global'} || &error($text{'htaccess_ecannot'});
&allowed_auth_file($in{'file'}) ||
&error($text{'htindex_ecannot'});
$conf = &get_htaccess_config($in{'file'});
$d = $conf->[$in{'idx'}];
$desc = &text('htfile_header', &dir_name($d), "<tt>$in{'file'}</tt>");
&ui_print_header($desc, $text{'htfile_title'}, "");
$sw_icon = { "icon" => "images/show.gif",
"name" => $text{'htfile_show'},
"link" => "show.cgi?file=".&urlize($in{'file'})."&idx=$in{'idx'}" };
if ($access{'types'} eq '*') {
$ed_icon = { "icon" => "images/edit.gif",
"name" => $text{'htfile_edit'},
"link" =>
"manual_form.cgi?file=".&urlize($in{'file'})."&idx=$in{'idx'}" };
}
&config_icons("directory", "edit_files.cgi?file=".&urlize($in{'file'})."&idx=$in{'idx'}&",
$sw_icon, $ed_icon ? ( $ed_icon ) : ( ));
print &ui_hr();
print &ui_form_start("change_files.cgi", "post");
print &ui_hidden("file", $in{'file'});
print &ui_hidden("idx", $in{'idx'});
print &ui_table_start($text{'htfile_apply'}, undef, 2);
$regexp = $d->{'words'}->[0] eq "~" || $d->{'name'} =~ /Match/;
print &ui_table_row($text{'htindex_regexp'},
&ui_radio("regexp", $regexp ? 1 : 0,
[ [ 0, $text{'htindex_exact'} ],
[ 1, $text{'htindex_re'} ] ]));
print &ui_table_row($text{'htindex_path'},
&ui_textbox("path",
$d->{'words'}->[0] eq "~" ? $d->{'words'}->[1]
: $d->{'words'}->[0], 50));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ],
[ 'delete', $text{'delete'} ] ]);
&ui_print_footer("htaccess_index.cgi?file=".&urlize($in{'file'}), $text{'htindex_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`