Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	266 B	-rw-r--r--
backup_config.pl	613 B	-rwxr-xr-x
cgi_args.pl	357 B	-rwxr-xr-x
config	73 B	-rw-r--r--
config.info	138 B	-rw-r--r--
config.info.ca	178 B	-rw-r--r--
config.info.ca.UTF-8	179 B	-rw-r--r--
config.info.de	145 B	-rw-r--r--
config.info.de.UTF-8	145 B	-rw-r--r--
config.info.fr	103 B	-rw-r--r--
config.info.fr.UTF-8	103 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ms_MY	153 B	-rw-r--r--
config.info.ms_MY.UTF-8	153 B	-rw-r--r--
config.info.nl	93 B	-rw-r--r--
config.info.nl.UTF-8	93 B	-rw-r--r--
config.info.no	133 B	-rw-r--r--
config.info.no.UTF-8	133 B	-rw-r--r--
config.info.pl	136 B	-rw-r--r--
config.info.pl.UTF-8	141 B	-rw-r--r--
delete_rules.cgi	541 B	-rwxr-xr-x
edit_rule.cgi	3.35 KB	-rwxr-xr-x
index.cgi	1.44 KB	-rwxr-xr-x
module.info	144 B	-rw-r--r--
module.info.ca	103 B	-rw-r--r--
module.info.ca.UTF-8	116 B	-rw-r--r--
module.info.de	96 B	-rw-r--r--
module.info.de.UTF-8	108 B	-rw-r--r--
module.info.hu	86 B	-rw-r--r--
module.info.hu.UTF-8	108 B	-rw-r--r--
module.info.ms_MY	101 B	-rw-r--r--
module.info.ms_MY.UTF-8	113 B	-rw-r--r--
module.info.nl	21 B	-rw-r--r--
module.info.nl.UTF-8	27 B	-rw-r--r--
module.info.no	21 B	-rw-r--r--
module.info.no.UTF-8	27 B	-rw-r--r--
module.info.pl	92 B	-rw-r--r--
module.info.pl.UTF-8	106 B	-rw-r--r--
save_rule.cgi	2.21 KB	-rwxr-xr-x
tcpwrappers-lib.pl	2.85 KB	-rwxr-xr-x

Code Editor : tcpwrappers-lib.pl

# tcpwrappers-lib.pl
# Library for TCP Wrappers

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();

# list_rules($filename)
# Parse rules from /etc/hosts.*
# File format described in "man 5 hosts_access"
sub list_rules {
    my $file = shift;
    my @ret;
    my $id = 0;

open(HOSTS, $file) || return ();
    my $line;
    my $last_line = '';
    my $lnum = 0;
    while ($line = <HOSTS>) {
	my ($slnum, $elnum) = ($lnum, $lnum);
	s/\r|\n//g;

while ($line =~ /^(.*)\\/) {
	    # Continuation line! Read the next one and append it
	    local $before = $1;
	    local $nxt = <HOSTS>;
	    $nxt =~ s/\r|\n//g;
	    $line = $before.$nxt;
	    $elnum++; $lnum++;
        }

if ($line =~ /^\#(.*)/) {
	    # Comment
	    $cmt = $cmt ? $cmt."\n".$1 : $1;
	} elsif ($line =~ /^\s*$/) {
	    $cmt = undef;
	} else {
	    my @cmtlines = split(/\n/, $cmt);
	    $cmt = undef;
	    my ($service, $host, $cmd) = split /:/, $line, 3;
	    $service =~ s/^\s*//; $service =~ s/\s*$//;
	    $host =~ s/^\s*//; $host =~ s/\s*$//;
	    
	    push @ret, { 'id' => $id++,
			 'service' => $service,
			 'host' => $host,
			 'cmd' => $cmd,
			 'line' => $slnum-scalar(@cmtlines),
			 'eline' => $elnum
			 };
	}
	$lnum++;
    }
    close FILE;

return @ret;
}

# list_services()
# List system services from (x)inetd or return ()
sub list_services {
    my @ret;

if (&foreign_installed("xinetd")) {
	&foreign_require("xinetd", "xinetd-lib.pl");
	my @conf = &foreign_call('xinetd', 'get_xinetd_config');
	foreach $x (@conf) {
	    next if ($x->{'quick'}{'server'}[0] !~ /\/([^\/]+)$/);
	    push @ret, $1;
	}
    } elsif (&foreign_installed("inetd")) {
	&foreign_require("inetd", "inetd-lib.pl");
	my @conf = &foreign_call('inetd', 'list_inets');
	foreach $x (@conf) {
	    next unless ($x->[9] =~ /^(\S+)/);
	    push @ret, $1;
	}
    }

return &unique(@ret);
}

# delete_rule($filename, &rule)
# Removes one rule entry from the file
sub delete_rule {
    my ($filename, $rule) = @_;

my $lref = &read_file_lines($filename);
    my $len = $rule->{'eline'} - $rule->{'line'} + 1;
    splice(@$lref, $rule->{'line'}, $len);
    &flush_file_lines($filename);
}

# create_rule($filename, &rule)
# Adds new rule
sub create_rule {
    my ($file, $rule) = @_;

my $lref = &read_file_lines($file);
    my $newline = $rule->{'service'}.' : '.$rule->{'host'}.($rule->{'cmd'} ? ' : '.$rule->{'cmd'} : '');
    push(@$lref, $newline);
    &flush_file_lines($file);
}

# modify_rule($filename, &old_rule, &new_rule)
# Updates rule
sub modify_rule {
    my ($filename, $oldrule, $newrule) = @_;

my @newline = ($newrule->{'service'}.' : '.$newrule->{'host'}.($newrule->{'cmd'} ? ' : '.$newrule->{'cmd'} : ''));

my $lref = &read_file_lines($filename);
    my $len = $oldrule->{'eline'} - $oldrule->{'line'} + 1;
    splice(@$lref, $oldrule->{'line'}, $len, @newline);
    &flush_file_lines($filename);
}

${this.title}

Code Editor : tcpwrappers-lib.pl