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 |