Parent Directory | Revision Log | Patch
revision 330 by dpavlin, Fri Aug 28 22:29:08 2009 UTC | revision 391 by dpavlin, Mon Sep 7 21:53:45 2009 UTC | |
---|---|---|
# | Line 83 sub next_ip($) { | Line 83 sub next_ip($) { |
83 | my $mac = shift; | my $mac = shift; |
84 | $mac = format::mac($mac); | $mac = format::mac($mac); |
85 | ||
86 | if ( my $clients_left = server::shared( 'new_clients' ) ) { | |
87 | server::shared( 'new_clients', $clients_left - 1 ); | |
88 | } else { | |
89 | warn "W: no new clients accepted"; | |
90 | return '0.0.0.0'; | |
91 | } | |
92 | ||
93 | my $prefix = $server::ip; | my $prefix = $server::ip; |
94 | $prefix =~ s{\.\d+$}{.}; | $prefix =~ s{\.\d+$}{.}; |
95 | my $addr = $server::ip_from || die; | my $addr = $server::ip_from || die; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |