/usr/share/usermin/htaccess
Edit: /usr/share/usermin/htaccess/files_index.cgi (1975B)
#!/usr/bin/perl
# files_index.cgi
# Display a menu of icons for per-files options
require './htaccess-lib.pl';
&ReadParse();
$conf = &get_htaccess_config($in{'file'});
$d = $conf->[$in{'idx'}];
$desc = &text('htfile_header', &dir_name($d), "
$in{'file'}");
&ui_print_header($desc, $text{'htfile_title'}, "");
print &ui_subheading($text{'htfile_title'});
$sw_icon = { "icon" => "images/show.gif",
"name" => $text{'htfile_show'},
"link" => "show.cgi?file=".&urlize($in{'file'})."&idx=$in{'idx'}" };
$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 "
\n";
print "
\n";
&ui_print_footer("htaccess_index.cgi?file=".&urlize($in{'file'}), $text{'htindex_return'});