Lines Matching refs:ether
107 foreach $ether (keys %{$list}) {
108 $list->{$ether}->{'old_online'} = $list->{$ether}->{'online'};
109 $list->{$ether}->{'online'} = 0;
115 $ether = $host{ether_addr};
117 $list->{$ether}->{'online'} = 1;
120 $list->{$ether}->{$key} = $host{$key};
126 foreach $ether (keys %{$list}) {
127 $old = $list->{$ether}->{'old_online'};
128 $new = $list->{$ether}->{'online'};
131 do_host($ether, 'offline');
133 do_host($ether, 'join');
137 do_host($ether, 'leave');
139 do_host($ether, 'online');
151 my ($ether, $status) = @_;
154 if ($list->{$ether}->{'raw_client_id'} eq '*') {
155 $list->{$ether}->{'text_client_id'} = 'None';
158 foreach $char (split /:/, $list->{$ether}->{'raw_client_id'}) {
166 $list->{$ether}->{'text_client_id'} = $text;
170 if ($list->{$ether}->{'raw_lease'} == 0) {
171 $list->{$ether}->{'text_lease'} = 'Never';
173 $list->{$ether}->{'text_lease'} = nice_time($list->{$ether}->{'raw_lease'});
182 print "do_host: $ether joined the network.\n";
183 $list->{$ether}->{'join_time'} = time;
184 $list->{$ether}->{'since'} = nice_time(time);
187 print "do_host: $ether left the network.\n";
188 $list->{$ether}->{'leave_time'} = time;
189 $list->{$ether}->{'since'} = nice_time(time);