Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
backup_config.pl	770 B	-rwxr-xr-x
config	152 B	-rw-r--r--
config-cobalt-linux	190 B	-rw-r--r--
config-coherent-linux	190 B	-rw-r--r--
config-debian-linux	166 B	-rw-r--r--
config-gentoo-linux	195 B	-rw-r--r--
config-mandrake-linux	185 B	-rw-r--r--
config-msc-linux	190 B	-rw-r--r--
config-openmamba-linux	190 B	-rw-r--r--
config-redhat-linux	190 B	-rw-r--r--
config-suse-linux	190 B	-rw-r--r--
config-syno-linux	152 B	-rw-r--r--
config-trustix-linux	190 B	-rw-r--r--
config-turbo-linux	190 B	-rw-r--r--
config-united-linux	202 B	-rw-r--r--
config.info	365 B	-rw-r--r--
config.info.ca	411 B	-rw-r--r--
config.info.ca.UTF-8	415 B	-rw-r--r--
config.info.cz	387 B	-rw-r--r--
config.info.cz.UTF-8	344 B	-rw-r--r--
config.info.de	421 B	-rw-r--r--
config.info.de.UTF-8	421 B	-rw-r--r--
config.info.es	348 B	-rw-r--r--
config.info.es.UTF-8	348 B	-rw-r--r--
config.info.nl	397 B	-rw-r--r--
config.info.nl.UTF-8	397 B	-rw-r--r--
config.info.no	381 B	-rw-r--r--
config.info.no.UTF-8	381 B	-rw-r--r--
config.info.pl	390 B	-rw-r--r--
config.info.pl.UTF-8	394 B	-rw-r--r--
config.info.ru.UTF-8	580 B	-rw-r--r--
config.info.ru_RU	384 B	-rw-r--r--
config.info.ru_RU.UTF-8	580 B	-rw-r--r--
config.info.ru_SU	384 B	-rw-r--r--
config.info.uk_UA	396 B	-rw-r--r--
config.info.uk_UA.UTF-8	584 B	-rw-r--r--
cpan_modules.pl	97 B	-rwxr-xr-x
edit_admin.cgi	1.66 KB	-rwxr-xr-x
edit_file.cgi	696 B	-rwxr-xr-x
edit_filter.cgi	1.37 KB	-rwxr-xr-x
edit_general.cgi	1.7 KB	-rwxr-xr-x
edit_ips.cgi	1.59 KB	-rwxr-xr-x
edit_karma.cgi	2.83 KB	-rwxr-xr-x
edit_messages.cgi	2.46 KB	-rwxr-xr-x
edit_modules.cgi	1.35 KB	-rwxr-xr-x
index.cgi	4.11 KB	-rwxr-xr-x
install_check.pl	609 B	-rwxr-xr-x
jabber-lib.pl	5.13 KB	-rwxr-xr-x
module.info	169 B	-rw-r--r--
module.info.ca	98 B	-rw-r--r--
module.info.ca.UTF-8	110 B	-rw-r--r--
module.info.cz	25 B	-rw-r--r--
module.info.cz.UTF-8	31 B	-rw-r--r--
module.info.de	95 B	-rw-r--r--
module.info.de.UTF-8	107 B	-rw-r--r--
module.info.es	50 B	-rw-r--r--
module.info.es.UTF-8	56 B	-rw-r--r--
module.info.ms_MY	100 B	-rw-r--r--
module.info.ms_MY.UTF-8	112 B	-rw-r--r--
module.info.nl	25 B	-rw-r--r--
module.info.nl.UTF-8	31 B	-rw-r--r--
module.info.no	25 B	-rw-r--r--
module.info.no.UTF-8	31 B	-rw-r--r--
module.info.pl	93 B	-rw-r--r--
module.info.pl.UTF-8	107 B	-rw-r--r--
module.info.ru.UTF-8	53 B	-rw-r--r--
module.info.ru_RU	35 B	-rw-r--r--
module.info.ru_RU.UTF-8	56 B	-rw-r--r--
module.info.ru_SU	35 B	-rw-r--r--
restart.cgi	274 B	-rwxr-xr-x
save_admin.cgi	1.16 KB	-rwxr-xr-x
save_file.cgi	636 B	-rwxr-xr-x
save_filter.cgi	920 B	-rwxr-xr-x
save_general.cgi	1.75 KB	-rwxr-xr-x
save_ips.cgi	979 B	-rwxr-xr-x
save_karma.cgi	1.26 KB	-rwxr-xr-x
save_messages.cgi	1.29 KB	-rwxr-xr-x
save_modules.cgi	748 B	-rwxr-xr-x
start.cgi	168 B	-rwxr-xr-x
stop.cgi	197 B	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# Display jabber configuration option categories

require './jabber-lib.pl';

# Check if config file exists
if (!-r $config{'jabber_config'}) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, undef,
		&help_search_link("jabber", "man", "doc", "google"));
	print &text('index_econfig', "<tt>$config{'jabber_config'}</tt>",
		    "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
	&ui_print_footer("/", $text{"index"});
	exit;
	}

# Check if base directory exists
if (!-d $config{'jabber_dir'}) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, undef,
		&help_search_link("jabber", "man", "doc", "google"));
	print &text('index_edir', "<tt>$config{'jabber_dir'}</tt>",
		    "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
	&ui_print_footer("/", $text{"index"});
	exit;
	}

# Check the version of jabberd
$jabberd = $config{'jabber_daemon'} ? $config{'jabber_daemon'}
				    : "$config{'jabber_dir'}/bin/jabberd";
if (!-x $jabberd) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, undef,
		&help_search_link("jabber", "man", "doc", "google"));
	print &text('index_ejabberd', "<tt>$jabberd</tt>",
		    "$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
	&ui_print_footer("/", $text{"index"});
	exit;
	}
$ver = &get_jabberd_version(\$out);
if (!$ver) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, undef,
		&help_search_link("jabber", "man", "doc", "google"));
	print &text('index_eversion', "<pre>$out</pre>", "1.4",
		    "<tt>$jabberd -v</tt>"),"<p>\n";
	&ui_print_footer("/", $text{"index"});
	exit;
	}
elsif ($ver >= 2) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, undef,
		&help_search_link("jabber", "man", "doc", "google"));
	print &text('index_eversion2', "<pre>$out</pre>", "2.0",
		    "<tt>$jabberd -v</tt>"),"<p>\n";
	&ui_print_footer("/", $text{"index"});
	exit;
	}

&ui_print_header(undef, $text{'index_title'}, "", "intro", 1, 1, undef,
	&help_search_link("jabber", "man", "doc", "google"),
	undef, undef, &text('index_version', $ver));

# Check if the needed Perl module are installed
push(@needs, "XML::Parser") if (!$got_xml_parser);
push(@needs, "XML::Generator") if (!$got_xml_generator);
if (@needs) {
	$needs = &urlize(join(" ", @needs));
	print &text(@needs == 2 ? 'index_emodules' : 'index_emodule', @needs,
	    "/cpan/download.cgi?source=3&cpan=$needs&mode=2&return=/$module_name/&returndesc=".&urlize($text{'index_return'})),"<p>\n";
	print "$text{'index_expat'}<p>\n";
	print &ui_hr();
	&ui_print_footer("/", $text{"index"});
	exit;
	}

# Show config category icons
$conf = &get_jabber_config();
if (!ref($conf)) {
	print &text('index_eparse', "<tt>XML::Parser</tt>", $conf),"<p>\n";
	print &ui_hr();
	&ui_print_footer("/", $text{"index"});
	exit;
	}
@cats = ( "general", "messages", "modules", "karma", "ips", "filter", "admin", "file" );
@links = map { "edit_${_}.cgi" } @cats;
@titles = map { $text{"${_}_title"} } @cats;
@icons = map { "images/${_}.gif" } @cats;
&icons_table(\@links, \@titles, \@icons);

# Show warning about config file
open(CONFIG, $config{'jabber_config'});
while(<CONFIG>) {
	if (/\s+<!--/) {
		$has_comment++;
		last;
		}
	}
close(CONFIG);
print "<b>",&text('index_comments',
	  "<tt>$config{'jabber_config'}</tt>"),"</b><p>\n" if ($has_comment);

# Check if jabber is running and show the correct buttons
print &ui_hr();
print "<table width=100%>\n";
if (&check_pid_file(&jabber_pid_file())) {
	# Running .. offer to restart and stop
	print "<form action=restart.cgi><tr>\n";
	print "<td><input type=submit value=\"$text{'index_restart'}\"></td>\n";
	print "<td>$text{'index_restartmsg'}</td>\n";
	print "</tr></form>\n";

print "<form action=stop.cgi><tr>\n";
	print "<td><input type=submit value=\"$text{'index_stop'}\"></td>\n";
	print "<td>$text{'index_stopmsg'}</td>\n";
	print "</tr></form>\n";
	}
else {
	# Not running .. offer to start
	print "<form action=start.cgi><tr>\n";
	print "<td><input type=submit value=\"$text{'index_start'}\"></td>\n";
	print "<td>$text{'index_startmsg'}</td>\n";
	print "</tr></form>\n";
	}
print "</table>\n";
close(PID);

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

${this.title}

Code Editor : index.cgi