Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	3.61 KB	-rw-r--r--
acl_security.pl	10.09 KB	-rwxr-xr-x
backup_config.pl	699 B	-rwxr-xr-x
cgi_args.pl	358 B	-rwxr-xr-x
config-Amazon-Linux-2-ALL	318 B	-rw-r--r--
config-CentOS-Linux-5	363 B	-rw-r--r--
config-CentOS-Linux-6.0-6.9	369 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	318 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	369 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	318 B	-rw-r--r--
config-Scientific-Linux-6.0-6....	369 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	342 B	-rw-r--r--
config-Ubuntu-Linux-12.04-ALL	371 B	-rw-r--r--
config-Ubuntu-Linux-8.10-10.04...	390 B	-rw-r--r--
config-cobalt-linux	223 B	-rw-r--r--
config-coherent-linux	363 B	-rw-r--r--
config-corel-linux	215 B	-rw-r--r--
config-debian-linux	318 B	-rw-r--r--
config-debian-linux-3.0	345 B	-rw-r--r--
config-debian-linux-3.1-5.9	377 B	-rw-r--r--
config-debian-linux-6.0-ALL	383 B	-rw-r--r--
config-freebsd	231 B	-rw-r--r--
config-freebsd-8-ALL	408 B	-rw-r--r--
config-generic-linux	212 B	-rw-r--r--
config-gentoo-linux	313 B	-rw-r--r--
config-hpux	227 B	-rw-r--r--
config-irix	208 B	-rw-r--r--
config-macos	208 B	-rw-r--r--
config-mandrake-linux	323 B	-rw-r--r--
config-msc-linux	223 B	-rw-r--r--
config-netbsd	215 B	-rw-r--r--
config-open-linux	212 B	-rw-r--r--
config-open-linux-3.1e	359 B	-rw-r--r--
config-openbsd	215 B	-rw-r--r--
config-openbsd-3.6-ALL	197 B	-rw-r--r--
config-openmamba-linux	212 B	-rw-r--r--
config-openserver	208 B	-rw-r--r--
config-osf1	208 B	-rw-r--r--
config-pardus-linux	311 B	-rw-r--r--
config-redhat-linux	212 B	-rw-r--r--
config-redhat-linux-13.1-19.0	364 B	-rw-r--r--
config-redhat-linux-20.0-23.0	369 B	-rw-r--r--
config-redhat-linux-24.0-ALL	372 B	-rw-r--r--
config-redhat-linux-6.0-6.2	223 B	-rw-r--r--
config-redhat-linux-7.0-13.0	363 B	-rw-r--r--
config-slackware-linux	218 B	-rw-r--r--
config-slackware-linux-4.0	224 B	-rw-r--r--
config-slackware-linux-7.1-ALL	223 B	-rw-r--r--
config-sol-linux	243 B	-rw-r--r--
config-solaris	208 B	-rw-r--r--
config-suse-linux	223 B	-rw-r--r--
config-suse-linux-7.1-7.3	221 B	-rw-r--r--
config-suse-linux-8.0	346 B	-rw-r--r--
config-suse-linux-8.2-9.1	359 B	-rw-r--r--
config-suse-linux-9.2-ALL	362 B	-rw-r--r--
config-trustix-linux	344 B	-rw-r--r--
config-turbo-linux	212 B	-rw-r--r--
config-united-linux	346 B	-rw-r--r--
config-unixware	244 B	-rw-r--r--
config.info	1.26 KB	-rw-r--r--
config.info.ca	1.44 KB	-rw-r--r--
config.info.ca.UTF-8	1.46 KB	-rw-r--r--
config.info.cz	1.13 KB	-rw-r--r--
config.info.cz.UTF-8	1.19 KB	-rw-r--r--
config.info.da	1.13 KB	-rw-r--r--
config.info.da.UTF-8	1.13 KB	-rw-r--r--
config.info.de	1.42 KB	-rw-r--r--
config.info.de.UTF-8	1.42 KB	-rw-r--r--
config.info.es	509 B	-rw-r--r--
config.info.es.UTF-8	513 B	-rw-r--r--
config.info.fa	1.73 KB	-rw-r--r--
config.info.fr	1.2 KB	-rw-r--r--
config.info.fr.UTF-8	1.2 KB	-rw-r--r--
config.info.ja_JP.UTF-8	1.29 KB	-rw-r--r--
config.info.ja_JP.euc	1019 B	-rw-r--r--
config.info.nl	1.34 KB	-rw-r--r--
config.info.nl.UTF-8	1.34 KB	-rw-r--r--
config.info.no	1.33 KB	-rw-r--r--
config.info.no.UTF-8	1.33 KB	-rw-r--r--
config.info.pl	1.33 KB	-rw-r--r--
config.info.pl.UTF-8	1.37 KB	-rw-r--r--
config.info.pt_BR	1.33 KB	-rw-r--r--
config.info.pt_BR.UTF-8	1.34 KB	-rw-r--r--
config.info.ru.UTF-8	1.06 KB	-rw-r--r--
config.info.ru_RU	721 B	-rw-r--r--
config.info.ru_RU.UTF-8	1.06 KB	-rw-r--r--
config.info.ru_SU	721 B	-rw-r--r--
config.info.sk	1.2 KB	-rw-r--r--
config.info.sk.UTF-8	1.26 KB	-rw-r--r--
config.info.sv	383 B	-rw-r--r--
config.info.sv.UTF-8	394 B	-rw-r--r--
config.info.tr	241 B	-rw-r--r--
config.info.uk_UA	753 B	-rw-r--r--
config.info.uk_UA.UTF-8	1.09 KB	-rw-r--r--
config.info.zh_CN	162 B	-rw-r--r--
config.info.zh_CN.UTF-8	197 B	-rw-r--r--
config.info.zh_TW.Big5	1.18 KB	-rw-r--r--
config.info.zh_TW.UTF-8	1.02 KB	-rw-r--r--
confirm_delete.cgi	3.03 KB	-rwxr-xr-x
defaultacl	221 B	-rw-r--r--
delete_all.cgi	2.02 KB	-rwxr-xr-x
delete_hosts.cgi	1.57 KB	-rwxr-xr-x
delete_leases.cgi	1.04 KB	-rwxr-xr-x
delete_subnets.cgi	1.58 KB	-rwxr-xr-x
dhcpd-lib.pl	25.75 KB	-rwxr-xr-x
edit_group.cgi	7.14 KB	-rwxr-xr-x
edit_host.cgi	10.03 KB	-rwxr-xr-x
edit_iface.cgi	3.42 KB	-rwxr-xr-x
edit_keys.cgi	1.61 KB	-rwxr-xr-x
edit_options.cgi	9.08 KB	-rwxr-xr-x
edit_pool.cgi	3.32 KB	-rwxr-xr-x
edit_shared.cgi	5.64 KB	-rwxr-xr-x
edit_subnet.cgi	6.48 KB	-rwxr-xr-x
edit_text.cgi	869 B	-rwxr-xr-x
edit_zones.cgi	1.8 KB	-rwxr-xr-x
index.cgi	20.24 KB	-rwxr-xr-x
install_check.pl	557 B	-rwxr-xr-x
list_leases.cgi	8.75 KB	-rwxr-xr-x
log_parser.pl	1003 B	-rwxr-xr-x
lookup_group.cgi	1.02 KB	-rwxr-xr-x
lookup_host.cgi	2.1 KB	-rwxr-xr-x
lookup_shared.cgi	915 B	-rwxr-xr-x
lookup_subnet.cgi	969 B	-rwxr-xr-x
module.info	464 B	-rw-r--r--
module.info.ca	102 B	-rw-r--r--
module.info.ca.UTF-8	114 B	-rw-r--r--
module.info.cz	20 B	-rw-r--r--
module.info.cz.UTF-8	26 B	-rw-r--r--
module.info.de	114 B	-rw-r--r--
module.info.de.UTF-8	126 B	-rw-r--r--
module.info.es	25 B	-rw-r--r--
module.info.es.UTF-8	31 B	-rw-r--r--
module.info.fr	21 B	-rw-r--r--
module.info.fr.UTF-8	27 B	-rw-r--r--
module.info.ja_JP.UTF-8	32 B	-rw-r--r--
module.info.ja_JP.euc	27 B	-rw-r--r--
module.info.ko_KR.UTF-8	30 B	-rw-r--r--
module.info.ko_KR.euc	26 B	-rw-r--r--
module.info.ms_MY	105 B	-rw-r--r--
module.info.ms_MY.UTF-8	117 B	-rw-r--r--
module.info.nl	20 B	-rw-r--r--
module.info.nl.UTF-8	26 B	-rw-r--r--
module.info.no	20 B	-rw-r--r--
module.info.no.UTF-8	26 B	-rw-r--r--
module.info.pl	105 B	-rw-r--r--
module.info.pl.UTF-8	120 B	-rw-r--r--
module.info.pt	25 B	-rw-r--r--
module.info.pt.UTF-8	31 B	-rw-r--r--
module.info.ru.UTF-8	32 B	-rw-r--r--
module.info.ru_RU	23 B	-rw-r--r--
module.info.ru_RU.UTF-8	35 B	-rw-r--r--
module.info.ru_SU	23 B	-rw-r--r--
module.info.sk	20 B	-rw-r--r--
module.info.sk.UTF-8	26 B	-rw-r--r--
module.info.sv	20 B	-rw-r--r--
module.info.sv.UTF-8	26 B	-rw-r--r--
module.info.tr	22 B	-rw-r--r--
module.info.zh_CN	22 B	-rw-r--r--
module.info.zh_TW.Big5	28 B	-rw-r--r--
params-lib.pl	5.96 KB	-rwxr-xr-x
rbac-mapping	69 B	-rw-r--r--
restart.cgi	364 B	-rwxr-xr-x
save_group.cgi	3.89 KB	-rwxr-xr-x
save_host.cgi	5.42 KB	-rwxr-xr-x
save_iface.cgi	3.44 KB	-rwxr-xr-x
save_keys.cgi	1.11 KB	-rwxr-xr-x
save_options.cgi	8.15 KB	-rwxr-xr-x
save_pool.cgi	2.51 KB	-rwxr-xr-x
save_shared.cgi	6.1 KB	-rwxr-xr-x
save_subnet.cgi	6.2 KB	-rwxr-xr-x
save_text.cgi	717 B	-rwxr-xr-x
save_zones.cgi	1.73 KB	-rwxr-xr-x
start.cgi	343 B	-rwxr-xr-x
stop.cgi	321 B	-rwxr-xr-x

Code Editor : list_leases.cgi

#!/usr/bin/perl
# list_leases.cgi
# List all active leases

require './dhcpd-lib.pl';
use Time::Local;
&ReadParse();
$timenow = time();

%access = &get_module_acl();
&error_setup($text{'eacl_aviol'});
&error("$text{'eacl_np'} $text{'eacl_psl'}") unless $access{'r_leases'};

if ($in{'network'}) {
	$desc = &text('listl_network', "<tt>$in{'network'}</tt>",
			 "<tt>$in{'netmask'}</tt>");
	}
print "Refresh: $config{'lease_refresh'}\r\n"
	if ($config{'lease_refresh'});
&ui_print_header($desc, $text{'listl_header'}, "");

# Work out how many IPs we have in our subnet ranges
%ranges = ( );
$conf = &get_config();
@subnets = &find("subnet", $conf);
foreach $shared (&find("shared-network", $conf)) {
	push(@subnets, &find("subnet", $shared->{'members'}));
	}
foreach $subnet (@subnets) {
	if ($in{'network'}) {
		# Only count ranges in specified subnet
		if ($subnet->{'values'}->[0] ne $in{'network'}) {
			next;
			}
		}
	$subnet->{'ips'} = 0;
	local @nw = split(/\./, $subnet->{'values'}->[0]);
	local @nm = split(/\./, $subnet->{'values'}->[2]);
	@ranges = &find("range", $subnet->{'members'});
	foreach $pool (&find("pool", $subnet->{'members'})) {
		push(@ranges, &find("range", $pool->{'members'}));
		}
	foreach $range (@ranges) {
		local @rv = @{$range->{'values'}};
		shift(@rv) if ($rv[0] eq "dynamic-bootp");
		foreach $ip (&expand_ip_range($rv[0], $rv[1])) {
			if (&within_network($ip)) {
				$ranges{$ip} = $subnet;
				}
			$subnet->{'ips'}++;
			}
		}
	}

if (!-r $config{'lease_file'}) {
	# No leases file
	print "".&text('listl_lfnotexist',$config{'lease_file'})."\n";
	}
elsif (!&tokenize_file($config{'lease_file'}, \@tok)) {
	# Leases file is not valid or empty
	print "",&text('listl_lfnotcont',$config{'lease_file'}),"\n";
	}
else {
	# Parse lease file
	$i = $j = 0;
	local @nw = split(/\./, $in{'network'});
	local @nm = split(/\./, $in{'netmask'});
	LEASE: while($i < @tok) {
		$lease = &parse_struct(\@tok, \$i, $j++, $config{'lease_file'});
		next if (!$lease || $lease->{'name'} ne 'lease');
		local $mems = $lease->{'members'};
		local $starts = &find('starts', $mems);
		local $ends = &find('ends', $mems);
		$lease->{'stime'} = &lease_time($starts);
		$lease->{'etime'} = &lease_time($ends);
		if ($lease->{'etime'} < $timenow ||
		 $lease->{'stime'} > $timenow) {
			if ($in{'all'}) { $lease->{'expired'}++; }
			else { next; }
			}
		next if (!&within_network($lease->{'values'}->[0]));
		push(@leases, $lease);
		}

# Find leases which have been obsoleted by a more recent one, even if
	# they are still valid
	my %already;
	foreach my $l (reverse(@leases)) {
		my $client = &find('client-hostname', $l->{'members'});
		my $ch = $client ? $client->{'values'}->[0] : undef;
		if ($already{$l->{'values'}->[0],$ch}++) {
			$l->{'obsolete'} = 1;
			}
		}
	if (!$in{'all'}) {
		@leases = grep { !$_->{'obsolete'} } @leases;
		}

# Show links to select mode, if not showing a single subnet
	if (!$in{'network'}) {
		@links = ( );
		foreach $m (0, 1) {
			$msg = $text{'listl_mode_'.$m};
			if ($m != $in{'bysubnet'}) {
				$msg = &ui_link("list_leases.cgi?bysubnet=$m",$msg);
				}
			push(@links, $msg);
			}
		print "$text{'listl_mode'} ",
		 &ui_links_row(\@links)," \n";
		}

if ($in{'bysubnet'}) {
		# Show table of subnets, with lease usage
		print &ui_columns_start([
			$text{'index_net'}, $text{'index_desc'},
			$text{'listl_size'}, $text{'listl_used'}, 
			$text{'listl_pc'} ], 100);
		foreach $subnet (@subnets) {
			%used = ( );
			foreach $lease (@leases) {
				$r = $ranges{$lease->{'values'}->[0]};
				if ($r eq $subnet && !$lease->{'expired'}) {
					$used{$lease->{'values'}->[0]}++;
					}
				}
			$used = scalar(keys %used);
			print &ui_columns_row([
				$subnet->{'values'}->[0],
				&html_escape($subnet->{'comment'}),
				$subnet->{'ips'},
				$used,
				$subnet->{'ips'} ?
					int(100*$used / $subnet->{'ips'})."%" :
					"",
				]);
			}
		print &ui_columns_end();
		}
	elsif (@leases) {
		# Sort leases by selected type
		if ($in{'sort'} eq 'ipaddr') {
			@leases = sort { &ip_compare($a, $b) } @leases;
			}
		elsif ($in{'sort'} eq 'ether') {
			@leases = sort { &ether_compare($a, $b) } @leases;
			}
		elsif ($in{'sort'} eq 'host') {
			@leases = sort { &hostname_compare($a, $b) } @leases;
			}
		elsif ($in{'sort'} eq 'start') {
			@leases = sort { $a->{'stime'} <=> $b->{'stime'} }
				 @leases;
			}
		elsif ($in{'sort'} eq 'end') {
			@leases = sort { $a->{'etime'} <=> $b->{'etime'} }
				 @leases;
			}
		elsif ($config{'lease_sort'} == 1) {
			@leases = sort { &ip_compare($a, $b) } @leases;
			}
		elsif ($config{'lease_sort'} == 2) {
			@leases = sort { &hostname_compare($a, $b) } @leases;
			}

# Show available and used
		$leased = 0;
		foreach $lease (@leases) {
			$ip = $lease->{'values'}->[0];
			if ($ranges{$ip} && !$donelease{$ip}++ &&
			 !$lease->{'expired'}) {
				$leased++;
				}
			}
		if (keys %ranges) {
			print &text('listl_allocs',
			 scalar(keys %ranges), $leased,
			 int($leased*100/scalar(keys %ranges))),"\n";
			}

# Table header, with sorting
		@tds = ( "width=5" );
		print &ui_form_start("delete_leases.cgi", "post");
		print &ui_hidden("all", $in{'all'});
		print &ui_hidden("network", $in{'network'});
		print &ui_hidden("netmask", $in{'netmask'});
		@links = ( &select_all_link("d"), &select_invert_link("d") );
		$links = "<table width=100%><tr><td>".
			 &ui_links_row(\@links).
			 "</td><td align=right>".
			 &ui_links_row([ &ui_link("list_leases.cgi?$in",$text{'listl_refresh'}) ]).
			 "</td></tr></table>\n";
		print $links;
		print &ui_columns_start([
			"",
			&sort_link("ipaddr"),
			&sort_link("ether"),
			&sort_link("host"),
			&sort_link("start"),
			&sort_link("end"),
			], 100, 0, \@tds);

foreach $lease (@leases) {
			local @cols;
			local $mems = $lease->{'members'};
			local $starts = &find('starts', $mems);
			local $ends = &find('ends', $mems);
			local $ht = $lease->{'expired'} ||
				 $lease->{'obsolete'} ? "i" : "tt";
			push(@cols, "<$ht>$lease->{'values'}->[0]</$ht>");
			local $hard = &find('hardware', $mems);
			push(@cols,$hard->{'values'}->[1] ?
				"<tt>$hard->{'values'}->[1]</tt>" :
				 "$text{'listl_unknown'}");
			local $client = &find('client-hostname', $mems);
			push(@cols, $client ? "<tt>".&html_escape(
					 $client->{'values'}->[0])."</tt>"
					 : undef);
			if ($config{'lease_tz'} ||
			 $starts->{'values'}->[0] eq 'epoch') {
				$s = &make_date($lease->{'stime'});
				$e = &make_date($lease->{'etime'});
				}
			else {
				$s = $starts->{'values'}->[1]." ".
				 $starts->{'values'}->[2];
				$e = $ends->{'values'}->[1]." ".
				 $ends->{'values'}->[2];
				}

push(@cols, "<tt>$s</tt>");
			push(@cols, "<tt>$e</tt>");
			print &ui_checked_columns_row(\@cols, \@tds, "d",
						 $lease->{'index'});
			}
		print &ui_columns_end();
		print $links;
		print &ui_form_end([ [ undef, $text{'listl_delete'} ] ]);
		}
	else {
		print "",&text($in{'all'} ? 'listl_lfnotcont' :
				 'listl_lfnotcont2', $config{'lease_file'}),
		 "\n";
		}
	if (!$in{'all'} && !$in{'bysubnet'}) {
		print &ui_form_start("list_leases.cgi");
		print &ui_hidden("all", 1);
		print &ui_hidden("network", $in{'network'});
		print &ui_hidden("netmask", $in{'netmask'});
		print &ui_form_end([ [ undef, $text{'listl_all'} ] ]);
		}
	}

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

sub lease_time
{
local ($l) = @_;
if ($l->{'values'}->[0] eq 'epoch') {
	return $l->{'values'}->[1];
	}
else {
	local @d = split(/\//, $l->{'values'}->[1]);
	local @t = split(/:/, $l->{'values'}->[2]);
	local $t;
	eval { $t = timegm($t[2], $t[1], $t[0], $d[2], $d[1]-1, $d[0]-1900) };
	return $@ ? undef : $t;
	}
}

sub ip_compare
{
$a->{'values'}->[0] =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)/;
local ($a1, $a2, $a3, $a4) = ($1, $2, $3, $4);
$b->{'values'}->[0] =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)/;
return	$a1 < $1 ? -1 :
	$a1 > $1 ? 1 :
	$a2 < $2 ? -1 :
	$a2 > $2 ? 1 :
	$a3 < $3 ? -1 :
	$a3 > $3 ? 1 :
	$a4 < $4 ? -1 :
	$a4 > $4 ? 1 : 0;
}

sub hostname_compare
{
local $client_a = &find_value('client-hostname', $a->{'members'});
local $client_b = &find_value('client-hostname', $b->{'members'});
return lc($client_a) cmp lc($client_b);
}

sub ether_compare
{
local $ether_a = &find('hardware', $a->{'members'});
local $ether_b = &find('hardware', $b->{'members'});
return lc($ether_a->{'values'}->[1]) cmp lc($ether_b->{'values'}->[1]);
}

sub sort_link
{
local ($c) = @_;
if ($in{'sort'} eq $c) {
	return $text{'listl_'.$c};
	}
else {
    return &ui_link("list_leases.cgi?all=$in{'all'}&network=$in{'network'}&netmask=$in{'netmask'}&sort=$c",$text{'listl_'.$c});
	}
}

sub within_network
{
local ($ip) = @_;
if ($in{'network'}) {
	# Is lease within network/netmask?
	local @ad = split(/\./, $ip);
	for($k=0; $k<4; $k++) {
		if ((int($ad[$k]) & int($nm[$k])) != int($nw[$k])) {
			return 0;
			}
		}
	}
return 1;
}

${this.title}

Code Editor : list_leases.cgi