Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	484 B	-rw-r--r--
allmanual_form.cgi	1.07 KB	-rwxr-xr-x
allmanual_save.cgi	652 B	-rwxr-xr-x
anon_index.cgi	2.64 KB	-rwxr-xr-x
apply.cgi	349 B	-rwxr-xr-x
backup_config.pl	797 B	-rwxr-xr-x
config	179 B	-rw-r--r--
config-AlmaLinux-7.0-ALL	292 B	-rw-r--r--
config-Amazon-Linux-2-ALL	258 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	292 B	-rw-r--r--
config-CentOS-Stream-Linux-8.0...	292 B	-rw-r--r--
config-Oracle-Linux-8.0-ALL	292 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	258 B	-rw-r--r--
config-Rocky-Linux-7.0-ALL	292 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	258 B	-rw-r--r--
config-Ubuntu-Linux	231 B	-rw-r--r--
config-cobalt-linux	157 B	-rw-r--r--
config-coherent-linux	157 B	-rw-r--r--
config-debian-linux	227 B	-rw-r--r--
config-debian-linux-10.0-ALL	231 B	-rw-r--r--
config-debian-linux-4.0-9.0	235 B	-rw-r--r--
config-freebsd	173 B	-rw-r--r--
config-freebsd-8-ALL	269 B	-rw-r--r--
config-gentoo-linux	165 B	-rw-r--r--
config-mandrake-linux	219 B	-rw-r--r--
config-msc-linux	157 B	-rw-r--r--
config-open-linux	157 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	223 B	-rw-r--r--
config-redhat-linux	222 B	-rw-r--r--
config-redhat-linux-10.0-23.0	262 B	-rw-r--r--
config-redhat-linux-24.0-ALL	308 B	-rw-r--r--
config-slackware-linux	157 B	-rw-r--r--
config-sol-linux	195 B	-rw-r--r--
config-suse-linux	227 B	-rw-r--r--
config-syno-linux	179 B	-rw-r--r--
config-trustix-linux	227 B	-rw-r--r--
config-turbo-linux	237 B	-rw-r--r--
config-united-linux	227 B	-rw-r--r--
config.info	803 B	-rw-r--r--
config.info.ca	970 B	-rw-r--r--
config.info.cs	720 B	-rw-r--r--
config.info.de	933 B	-rw-r--r--
config.info.es	241 B	-rw-r--r--
config.info.fa	792 B	-rw-r--r--
config.info.fr	1.02 KB	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ja	789 B	-rw-r--r--
config.info.ko	686 B	-rw-r--r--
config.info.nl	661 B	-rw-r--r--
config.info.no	626 B	-rw-r--r--
config.info.pl	696 B	-rw-r--r--
config.info.pt_BR	769 B	-rw-r--r--
config.info.ru	349 B	-rw-r--r--
config.info.uk	376 B	-rw-r--r--
config.info.zh_TW	410 B	-rw-r--r--
create_dir.cgi	1.08 KB	-rwxr-xr-x
create_ftpaccess.cgi	784 B	-rwxr-xr-x
create_limit.cgi	1.16 KB	-rwxr-xr-x
create_virt.cgi	1.01 KB	-rwxr-xr-x
delete_ftpaccess.cgi	408 B	-rwxr-xr-x
dir_index.cgi	2.67 KB	-rwxr-xr-x
edit_anon.cgi	1.13 KB	-rwxr-xr-x
edit_aserv.cgi	2.03 KB	-rwxr-xr-x
edit_dir.cgi	2.07 KB	-rwxr-xr-x
edit_dserv.cgi	2.11 KB	-rwxr-xr-x
edit_ftpaccess.cgi	1.07 KB	-rwxr-xr-x
edit_ftpusers.cgi	589 B	-rwxr-xr-x
edit_global.cgi	1011 B	-rwxr-xr-x
edit_limit.cgi	3.77 KB	-rwxr-xr-x
edit_lserv.cgi	4.19 KB	-rwxr-xr-x
edit_net.cgi	777 B	-rwxr-xr-x
edit_virt.cgi	1020 B	-rwxr-xr-x
edit_vserv.cgi	1.37 KB	-rwxr-xr-x
feedback_files.pl	126 B	-rwxr-xr-x
find_ftpaccess.cgi	1.01 KB	-rwxr-xr-x
ftpaccess.cgi	1.37 KB	-rwxr-xr-x
ftpaccess_index.cgi	1.81 KB	-rwxr-xr-x
index.cgi	8.11 KB	-rwxr-xr-x
install_check.pl	429 B	-rwxr-xr-x
limit_index.cgi	2.9 KB	-rwxr-xr-x
log_parser.pl	3.14 KB	-rwxr-xr-x
manual_form.cgi	3.91 KB	-rwxr-xr-x
manual_save.cgi	3.14 KB	-rwxr-xr-x
mod_auth.pl	2.68 KB	-rwxr-xr-x
mod_core.pl	41.29 KB	-rwxr-xr-x
mod_ldap.pl	9.01 KB	-rwxr-xr-x
mod_log.pl	3.14 KB	-rwxr-xr-x
mod_ls.pl	4.4 KB	-rwxr-xr-x
mod_pam.pl	676 B	-rwxr-xr-x
mod_readme.pl	426 B	-rwxr-xr-x
mod_site.pl	443 B	-rwxr-xr-x
mod_unixpw.pl	1.54 KB	-rwxr-xr-x
module.info	204 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	151 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	193 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	225 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	230 B	-rw-r--r--
module.info.ca	141 B	-rw-r--r--
module.info.ca.auto	16 B	-rw-r--r--
module.info.cs	23 B	-rw-r--r--
module.info.cs.auto	139 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	162 B	-rw-r--r--
module.info.de	151 B	-rw-r--r--
module.info.de.auto	16 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	265 B	-rw-r--r--
module.info.es	25 B	-rw-r--r--
module.info.es.auto	139 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	159 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	220 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	150 B	-rw-r--r--
module.info.fr	24 B	-rw-r--r--
module.info.fr.auto	143 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	197 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	162 B	-rw-r--r--
module.info.hu	30 B	-rw-r--r--
module.info.hu.auto	136 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	159 B	-rw-r--r--
module.info.ja	26 B	-rw-r--r--
module.info.ja.auto	175 B	-rw-r--r--
module.info.ko	23 B	-rw-r--r--
module.info.ko.auto	147 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	151 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	161 B	-rw-r--r--
module.info.ms	148 B	-rw-r--r--
module.info.ms.auto	16 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	168 B	-rw-r--r--
module.info.nl	23 B	-rw-r--r--
module.info.nl.auto	128 B	-rw-r--r--
module.info.no	22 B	-rw-r--r--
module.info.no.auto	134 B	-rw-r--r--
module.info.pl	29 B	-rw-r--r--
module.info.pl.auto	137 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	155 B	-rw-r--r--
module.info.pt_BR	28 B	-rw-r--r--
module.info.pt_BR.auto	136 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	157 B	-rw-r--r--
module.info.ru	28 B	-rw-r--r--
module.info.ru.auto	194 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	162 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	152 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	152 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	309 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	164 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	224 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	237 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	189 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	146 B	-rw-r--r--
module.info.zh_TW	27 B	-rw-r--r--
module.info.zh_TW.auto	127 B	-rw-r--r--
proftpd-lib.pl	23.42 KB	-rwxr-xr-x
save_anon.cgi	594 B	-rwxr-xr-x
save_aserv.cgi	1.7 KB	-rwxr-xr-x
save_dir.cgi	874 B	-rwxr-xr-x
save_dserv.cgi	1.37 KB	-rwxr-xr-x
save_ftpaccess.cgi	486 B	-rwxr-xr-x
save_ftpusers.cgi	342 B	-rwxr-xr-x
save_global.cgi	529 B	-rwxr-xr-x
save_limit.cgi	1.02 KB	-rwxr-xr-x
save_lserv.cgi	1.79 KB	-rwxr-xr-x
save_virt.cgi	496 B	-rwxr-xr-x
save_vserv.cgi	1.55 KB	-rwxr-xr-x
start.cgi	223 B	-rwxr-xr-x
stop.cgi	207 B	-rwxr-xr-x
userpermissions_form.cgi	16.7 KB	-rwxr-xr-x
virt_index.cgi	2.62 KB	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# Display the icons for various types of proftpd config options

require './proftpd-lib.pl';

# Check if proftpd is installed
@st = stat($config{'proftpd_path'});
if (!@st) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
		&help_search_link("proftpd", "man", "doc", "google"));
	print &text('index_eproftpd', "<tt>$config{'proftpd_path'}</tt>",
		  "@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";

&foreign_require("software", "software-lib.pl");
	$lnk = &software::missing_install_link("proftpd",$text{'index_proftpd'},
			"../$module_name/", $text{'index_title'});
	print $lnk,"<p>\n" if ($lnk);

&ui_print_footer("/", $text{'index'});
	exit;
	}

# Check if the config file exists
$conf = &get_config();
if (!@$conf) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
		&help_search_link("proftpd", "man", "doc", "google"));
	print &text('index_econf', "<tt>$config{'proftpd_conf'}</tt>",
		  "@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Check if the executable has changed ..
if ($site{'size'} != $st[7]) {
	# Check if it really is proftpd and the right version
	$site{'size'} = $st[7];
	$ver = &get_proftpd_version(\$out);
	if (!$ver) {
		&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
			&help_search_link("proftpd", "man", "doc", "google"));
		print &text('index_eproftpd2',
			  "<tt>$config{'proftpd_path'}</tt>",
			  "@{[&get_webprefix()]}/config.cgi?$module_name",
			  "<tt>$config{'proftpd_path'} -v</tt>",
			  "<pre>$out</pre>"),"<p>\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	$site{'version'} = $ver;
	if ($site{'version'} < 0.99) {
		&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
			&help_search_link("proftpd", "man", "doc", "google"));
		print &text('index_eversion',
			  "<tt>$config{'proftpd_path'}</tt>",
			  "@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}

# Get the list of modules
	local @mods;
	open(MODS, "$config{'proftpd_path'} -l |");
	while(<MODS>) {
		s/\r|\n//g;
		if (/^\s*(\S+)\.c$/) {
			push(@mods, $1);
			}
		}
	close(MODS);
	$site{'modules'} = join(" ", @mods);
	&write_file("$module_config_directory/site", \%site);
	}

&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("proftpd", "man", "doc", "google"),
	undef, undef, &text('index_version', $site{'version'}));
$conf = &get_config();

# Display global category icons
print &ui_subheading($text{'index_global'});
$ft_icon = { "icon" => "images/dir.gif",
	     "name" => $text{'ftpaccess_title'},
	     "link" => "ftpaccess.cgi" };
$us_icon = { "icon" => "images/ftpusers.gif",
	     "name" => $text{'ftpusers_title'},
	     "link" => "edit_ftpusers.cgi" };
$ed_icon = { "icon" => "images/edit.gif",
	     "name" => $text{'manual_configs'},
	     "link" => "allmanual_form.cgi" };
&config_icons("root global", "edit_global.cgi?", $ft_icon, $us_icon, $ed_icon);

# Display global per-directory/limit options
$global = &find_directive_struct("Global", $conf);
$gconf = $global->{'members'} if ($global);
@dir = ( &find_directive_struct("Directory", $gconf) ,
	 &find_directive_struct("Limit", $gconf) );
if (@dir) {
	print &ui_hr();
	print &ui_subheading($text{'virt_header'});
	foreach $d (@dir) {
		if ($d->{'name'} eq 'Limit') {
			push(@links, "limit_index.cgi?limit=".
				     &indexof($d, @$gconf)."&global=1");
			push(@titles, &text('virt_limit', $d->{'value'}));
			push(@icons, "images/limit.gif");
			}
		else {
			push(@links, "dir_index.cgi?idx=".
				     &indexof($d, @$gconf)."&global=1");
			push(@titles, &text('virt_dir', $d->{'value'}));
			push(@icons, "images/dir.gif");
			}
		}
	&icons_table(\@links, \@titles, \@icons, 3);
	}

print "<table width=100%><tr><td>\n";

print "<form action=create_dir.cgi>\n";
print "<input type=hidden name=global value=1>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'virt_adddir'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
print "<tr> <td><b>$text{'virt_path'}</b></td>\n";
print "<td><input name=dir size=30>\n";
print "<input type=submit value=\"$text{'create'}\"></td> </tr>\n";
print "</table></td></tr></table></form>\n";

print "</td><td>\n";

print "<form action=create_limit.cgi>\n";
print "<input type=hidden name=global value=1>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'virt_addlimit'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
print "<tr> <td><b>$text{'virt_cmds'}</b></td>\n";
print "<td><input name=cmd size=20>\n";
print "<input type=submit value=\"$text{'create'}\"></td> </tr>\n";
print "</table></td></tr></table></form>\n";

print "</td></tr></table>\n";

# Start virtual server list with default
push(@vname, $text{'index_defserv'});
push(@vlink, "virt_index.cgi");
push(@vdesc, $text{'index_defdesc'});
push(@vaddr, $text{'index_any'});
push(@vserv, &def(&find_directive("ServerName", $conf), $text{'default'}));

# Add other virtual servers
@virt = &find_directive_struct("VirtualHost", $conf);
foreach $v (@virt) {
	$vm = $v->{'members'};
	push(@vname, $text{'index_virt'});
	push(@vlink, "virt_index.cgi?virt=".&indexof($v, @$conf));
	push(@vaddr, $v->{'value'});
	$sname = &find_directive("ServerName", $vm);
	local $ip = &to_ipaddress($v->{'value'});
	push(@vdesc, &text('index_vdesc', $ip ? $ip : $text{'index_eip'}));
	push(@vserv, &def(&find_vdirective("ServerName", $vm, $conf),
			  $text{'index_auto'}));
	}

# Show virtual servers
print &ui_hr();
print &ui_subheading($text{'index_virts'});

if ($config{'show_list'} && scalar(@vname)) {
	# as list for people with lots of servers
	print "<table width=100% border=1>\n";
	print "<tr $tb> <td><b>$text{'index_type'}</b></td> ",
	      "<td><b>$text{'index_addr'}</b></td> ",
	      "<td><b>$text{'index_name'}</b></td> </tr>\n";
	for($i=0; $i<@vname; $i++) {
		print "<tr $cb>\n";
		print "<td><a href=\"$vlink[$i]\">",
		      &html_escape($vname[$i]),"</a></td>\n";
		print "<td>",&html_escape($vaddr[$i]),"</td>\n";
		print "<td>",&html_escape($vserv[$i]),"</td>\n";
		print "</tr>\n";
		}
	print "</table>\n";
	}
else {
	# as icons for niceness
	print "<table width=100% cellpadding=5>\n";
	for($i=0; $i<@vname; $i++) {
		print "<tr> <td valign=top align=center nowrap>";
		print '<div class="row icons-row inline-row">';
		&generate_icon("images/virt.gif", &html_escape($vname[$i]),
			       $vlink[$i]);
		print "</div>\n";
		print "</td> <td valign=top>\n";
		print &html_escape($vdesc[$i]),"<br>\n";
		print "<table width=100%><tr>\n";
		print "<td width=30%><b>$text{'index_addr'}</b> ",
		      &html_escape($vaddr[$i]),"</td>\n";
		print "<td width=70%><b>$text{'index_name'}</b> ",
		      &html_escape($vserv[$i]),"</td></tr>\n";
		print "</table></td> </tr>\n";
		}
	print "</table>\n";
	}

print "<form action=create_virt.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'index_create'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
print "<tr> <td><b>$text{'index_addr'}</b></td>\n";
print "<td><input name=addr size=25></td> </tr>\n";
print "<tr> <td><b>$text{'index_port'}</b></td>\n";
print "<td>",&opt_input(undef, "Port", $text{'default'}, 6),"</td> </tr>\n";
print "<tr> <td><b>$text{'index_name'}</b></td>\n";
print "<td>",&opt_input(undef, "ServerName", $text{'default'}, 25);
print "&nbsp;&nbsp;\n";
print "<input type=submit value=\"$text{'create'}\"></td> </tr>\n";
print "</table></td></tr></table>\n";
print "</form>\n";

# Find out how ProFTPd is running
($inet, $inet_mod) = &running_under_inetd();
if (!$inet) {
	# Get the FTP server pid
	$pid = &get_proftpd_pid();
	print &ui_hr();
	print &ui_buttons_start();
	}
if (!$inet && $pid) {
	print &ui_buttons_row("apply.cgi",
			      $text{'index_apply'},
			      &get_proftpd_version() > 1.22 ? 
				$text{'index_applymsg2'} :
				$text{'index_applymsg'});
	print &ui_buttons_row("stop.cgi",
			      $text{'index_stop'}, $text{'index_stopmsg'});
	}
elsif (!$inet && !$pid) {
	print &ui_buttons_row("start.cgi",
		      $text{'index_start'},
		      $inet_mod ? &text('index_startmsg', "/$inet_mod/")
				: $text{'index_startmsg2'});
	}
if (!$inet) {
	print &ui_buttons_end();
	}

&ui_print_footer("/", $text{'index'});

${this.title}

Code Editor : index.cgi