FM / htaccess

/usr/share/usermin/htaccess

Name	Size	Mode	Actions
images/	-	0755	rm
lang/	-	0755	rm
ulang/	-	0755	rm
apache-lib.pl	60369	0755	edit dl rm
auth-lib.pl	3167	0755	edit dl rm
autoindex.pl	9774	0755	edit dl rm
browsermatch.pl	2204	0755	edit dl rm
cache.pl	3067	0755	edit dl rm
change_files.cgi	976	0755	edit dl rm
config	52	0644	edit dl rm
config.info	148	0644	edit dl rm
config.info.ca	179	0755	edit dl rm
config.info.de	166	0644	edit dl rm
config.info.nl	148	0755	edit dl rm
config.info.no	153	0644	edit dl rm
core.pl	41560	0755	edit dl rm
create.cgi	463	0755	edit dl rm
create_files.cgi	586	0755	edit dl rm
defaultuconfig	34	0644	edit dl rm
delete_htaccess.cgi	248	0755	edit dl rm
edit_authgroup.cgi	1479	0755	edit dl rm
edit_authuser.cgi	1718	0755	edit dl rm
edit_files.cgi	911	0755	edit dl rm
edit_htaccess.cgi	820	0755	edit dl rm
files_index.cgi	1975	0755	edit dl rm
find.cgi	739	0755	edit dl rm
htaccess-lib.pl	644	0755	edit dl rm
htaccess_index.cgi	2639	0755	edit dl rm
index.cgi	1348	0755	edit dl rm
list_authgroups.cgi	1300	0755	edit dl rm
list_authusers.cgi	1129	0755	edit dl rm
manual_form.cgi	1753	0755	edit dl rm
manual_save.cgi	945	0755	edit dl rm
module.info	182	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	215	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	245	0644	edit dl rm
module.info.ca	35	0644	edit dl rm
module.info.ca.auto	130	0644	edit dl rm
module.info.cs	33	0644	edit dl rm
module.info.cs.auto	124	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	155	0644	edit dl rm
module.info.de	33	0644	edit dl rm
module.info.de.auto	132	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	252	0644	edit dl rm
module.info.es	0	0644	edit dl rm
module.info.es.auto	159	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	157	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	223	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	180	0644	edit dl rm
module.info.fr	0	0644	edit dl rm
module.info.fr.auto	161	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	147	0644	edit dl rm
module.info.hu	41	0644	edit dl rm
module.info.hu.auto	125	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	155	0644	edit dl rm
module.info.ja	0	0644	edit dl rm
module.info.ja.auto	199	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	170	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	148	0644	edit dl rm
module.info.nl	28	0644	edit dl rm
module.info.nl.auto	119	0644	edit dl rm
module.info.no	34	0644	edit dl rm
module.info.no.auto	124	0644	edit dl rm
module.info.pl	132	0644	edit dl rm
module.info.pl.auto	119	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	160	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	169	0644	edit dl rm
module.info.ru	0	0644	edit dl rm
module.info.ru.auto	218	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	159	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	144	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	163	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	232	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	130	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	138	0644	edit dl rm
mod_access.pl	3256	0755	edit dl rm
mod_actions.pl	2636	0755	edit dl rm
mod_alias.pl	5835	0755	edit dl rm
mod_apachessl.pl	13790	0755	edit dl rm
mod_asis.pl	125	0755	edit dl rm
mod_auth.pl	1928	0755	edit dl rm
mod_authn_dbm.pl	1046	0755	edit dl rm
mod_authn_file.pl	838	0755	edit dl rm
mod_authz_dbm.pl	1416	0755	edit dl rm
mod_authz_groupfile.pl	863	0755	edit dl rm
mod_authz_host.pl	314	0755	edit dl rm
mod_authz_owner.pl	139	0755	edit dl rm
mod_auth_basic.pl	983	0755	edit dl rm
mod_auth_dbm.pl	1832	0755	edit dl rm
mod_auth_digest.pl	1597	0755	edit dl rm
mod_autoindex.pl	2205	0755	edit dl rm
mod_bandwidth.pl	3950	0755	edit dl rm
mod_browser.pl	274	0755	edit dl rm
mod_cache.pl	2797	0755	edit dl rm
mod_cern_meta.pl	1152	0755	edit dl rm
mod_cgi.pl	1288	0755	edit dl rm
mod_dav.pl	1127	0755	edit dl rm
mod_dir.pl	1085	0755	edit dl rm
mod_disk_cache.pl	1050	0755	edit dl rm
mod_env.pl	2077	0755	edit dl rm
mod_ext_filter.pl	2697	0755	edit dl rm
mod_imap.pl	2406	0755	edit dl rm
mod_include.pl	601	0755	edit dl rm
mod_info.pl	145	0755	edit dl rm
mod_log_agent.pl	1101	0755	edit dl rm
mod_log_common.pl	1168	0755	edit dl rm
mod_log_config.pl	4599	0755	edit dl rm
mod_log_referer.pl	1625	0755	edit dl rm
mod_mem_cache.pl	1124	0755	edit dl rm
mod_mime.pl	6312	0755	edit dl rm
mod_mime_magic.pl	521	0755	edit dl rm
mod_negotiation.pl	1275	0755	edit dl rm
mod_perl.pl	147	0755	edit dl rm
mod_php.pl	93	0755	edit dl rm
mod_php3.pl	147	0755	edit dl rm
mod_php4.pl	2957	0755	edit dl rm
mod_php5.pl	2892	0755	edit dl rm
mod_proxy.pl	8949	0755	edit dl rm
mod_setenvif.pl	3113	0755	edit dl rm
mod_speling.pl	565	0755	edit dl rm
mod_ssl.pl	6366	0755	edit dl rm
mod_status.pl	542	0755	edit dl rm
mod_suexec.pl	1290	0755	edit dl rm
mod_userdir.pl	2640	0755	edit dl rm
mod_vhost_alias.pl	2389	0755	edit dl rm
mpm_netware.pl	1292	0755	edit dl rm
mpm_winnt.pl	801	0755	edit dl rm
perchild.pl	4148	0755	edit dl rm
prefork.pl	796	0755	edit dl rm
save_authgroup.cgi	1039	0755	edit dl rm
save_authuser.cgi	1121	0755	edit dl rm
save_files.cgi	441	0755	edit dl rm
save_htaccess.cgi	383	0755	edit dl rm
show.cgi	3039	0755	edit dl rm
uconfig.info	82	0644	edit dl rm
uconfig.info.ca	96	0755	edit dl rm
uconfig.info.de	92	0755	edit dl rm
uconfig.info.nl	89	0644	edit dl rm
uconfig.info.no	76	0644	edit dl rm
uconfig.info.pl	100	0644	edit dl rm
worker.pl	1610	0755	edit dl rm

Edit: /usr/share/usermin/htaccess/browsermatch.pl (2204B)

#  browsermatch.pl
# Functions used in mod_browser.pl and mod_setenvif.pl

sub edit_BrowserMatch_BrowserMatchNoCase
{
local($d, @w, $i, @regex, @var, @val, @case, $rv);
foreach $d (@{$_[0]}, @{$_[1]}) {
	@w = @{$d->{'words'}};
	for($i=1; $i<@w; $i++) {
		push(@regex, $w[0]);
		if ($w[$i] =~ /^\!(\S+)$/) { push(@var, $1); push(@val, undef); }
		elsif ($w[$i] =~ /^(\S+)=(\S*)$/) { push(@var, $1); push(@val, $2); }
		else { push(@var, $w[$i]); push(@val, 1); }
		if ($d->{'name'} eq "BrowserMatch") { push(@case, 1); }
		else { push(@case, 0); }
		}
	}
push(@regex, ""); push(@var, ""); push(@val, ""); push(@case, 0);
$rv = "<table border>\n".
      "<tr $tb> <td><b>$text{'browsermatch_regexp'}</b></td> <td><b>$text{'browsermatch_case'}</b></td>\n".
      "<td><b>$text{'browsermatch_var'}</b></td> <td><b>$text{'browsermatch_value'}</b></td> </tr>\n";
for($i=0; $i<@regex; $i++) {
	$rv .= "<tr $cb>\n";
	$rv .= sprintf
	        "<td><input size=20 name=Browser_regex_$i value=\"%s\"></td>\n",
	        $regex[$i];
	$rv .= "<td>".&choice_input($case[$i], "Browser_case_$i", 1,
	       "$text{'yes'},1", "$text{'no'},0")."</td>\n";
	$rv .= sprintf
	        "<td><input size=20 name=Browser_var_$i value=\"%s\"></td>\n",
	        $var[$i];
	$rv .= "<td>".&opt_input($val[$i], "Browser_val_$i",
				 "$text{'browsermatch_clear'}", 10)."</td>\n";
	$rv .= "</tr>\n";
	}
$rv .= "</table>\n";
return (2, "$text{'browsermatch_txt'}", $rv);
}
sub save_BrowserMatch_BrowserMatchNoCase
{
local($i, $regex, $case, $var, $val, $set, $lastbm, $lastbmnc, @bm, @bmnc);
for($i=0; defined($regex = $in{"Browser_regex_$i"}); $i++) {
	$case = $in{"Browser_case_$i"}; $var = $in{"Browser_var_$i"};
	if ($regex !~ /\S/ && $var !~ /\S/) { next; }
	$var =~ /^\S+$/ || &error(&text('browsermatch_evar', $var));
	$val = $in{"Browser_val_$i"};
	$set = $in{"Browser_val_${i}_def"} ? "!$var" :
		$val eq "1" ? $var : "$var=$val";
	if ($case) {
		if ($regex eq $lastbm) { $bm[$#bm] .= " $set"; }
		else { push(@bm, "\"$regex\" $set"); }
		$lastbm = $regex;
		}
	else {
		if ($regex eq $lastbmnc) { $bmnc[$#bmnc] .= " $set"; }
		else { push(@bmnc, "\"$regex\" $set"); }
		$lastbmnc = $regex;
		}
	}
return ( \@bm, \@bmnc );
}

# browsermatch.pl # Functions used in mod_browser.pl and mod_setenvif.pl sub edit_BrowserMatch_BrowserMatchNoCase { local($d, @w, $i, @regex, @var, @val, @case, $rv); foreach $d (@{$_[0]}, @{$_[1]}) { @w = @{$d->{'words'}}; for($i=1; $i<@w; $i++) { push(@regex, $w[0]); if ($w[$i] =~ /^\!(\S+)$/) { push(@var, $1); push(@val, undef); } elsif ($w[$i] =~ /^(\S+)=(\S*)$/) { push(@var, $1); push(@val, $2); } else { push(@var, $w[$i]); push(@val, 1); } if ($d->{'name'} eq "BrowserMatch") { push(@case, 1); } else { push(@case, 0); } } } push(@regex, ""); push(@var, ""); push(@val, ""); push(@case, 0); $rv = "\n". "\n". "\n"; for($i=0; $i<@regex; $i++) { $rv .= "\n"; $rv .= sprintf "\n", $regex[$i]; $rv .= "\n"; $rv .= sprintf "\n", $var[$i]; $rv .= "\n"; $rv .= "\n"; } $rv .= "

$text{'browsermatch_regexp'}	$text{'browsermatch_case'}	$text{'browsermatch_var'}	$text{'browsermatch_value'}
	".&choice_input($case[$i], "Browser_case_$i", 1, "$text{'yes'},1", "$text{'no'},0")."		".&opt_input($val[$i], "Browser_val_$i", "$text{'browsermatch_clear'}", 10)."

\n"; return (2, "$text{'browsermatch_txt'}", $rv); } sub save_BrowserMatch_BrowserMatchNoCase { local($i, $regex, $case, $var, $val, $set, $lastbm, $lastbmnc, @bm, @bmnc); for($i=0; defined($regex = $in{"Browser_regex_$i"}); $i++) { $case = $in{"Browser_case_$i"}; $var = $in{"Browser_var_$i"}; if ($regex !~ /\S/ && $var !~ /\S/) { next; } $var =~ /^\S+$/ || &error(&text('browsermatch_evar', $var)); $val = $in{"Browser_val_$i"}; $set = $in{"Browser_val_${i}_def"} ? "!$var" : $val eq "1" ? $var : "$var=$val"; if ($case) { if ($regex eq $lastbm) { $bm[$#bm] .= " $set"; } else { push(@bm, "\"$regex\" $set"); } $lastbm = $regex; } else { if ($regex eq $lastbmnc) { $bmnc[$#bmnc] .= " $set"; } else { push(@bmnc, "\"$regex\" $set"); } $lastbmnc = $regex; } } return ( \@bm, \@bmnc ); } 1;