Lines Matching full:"$ list"
71 my $list = {};
107 foreach $ether (keys %{$list}) {
108 $list->{$ether}->{'old_online'} = $list->{$ether}->{'online'};
109 $list->{$ether}->{'online'} = 0;
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'};
144 @hosts = sort byip values %{$list};
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'});
183 $list->{$ether}->{'join_time'} = time;
184 $list->{$ether}->{'since'} = nice_time(time);
188 $list->{$ether}->{'leave_time'} = time;
189 $list->{$ether}->{'since'} = nice_time(time);
