version 1.471, 2011/12/04 16:27:06
|
version 1.472, 2011/12/18 17:15:03
|
Line 5118 sub check_for_slot {
|
Line 5118 sub check_for_slot {
|
my $ip = $slots{$slot_name}->{'ip'}; |
my $ip = $slots{$slot_name}->{'ip'}; |
if ($self->simpleStatus() == OPEN) { |
if ($self->simpleStatus() == OPEN) { |
my $startreserve = $slots{$slot_name}->{'startreserve'}; |
my $startreserve = $slots{$slot_name}->{'startreserve'}; |
|
my $endreserve = $slots{$slot_name}->{'endreserve'}; |
my @proctors; |
my @proctors; |
if ($slots{$slot_name}->{'proctor'} ne '') { |
if ($slots{$slot_name}->{'proctor'} ne '') { |
@proctors = split(',',$slots{$slot_name}->{'proctor'}); |
@proctors = split(',',$slots{$slot_name}->{'proctor'}); |
Line 5143 sub check_for_slot {
|
Line 5144 sub check_for_slot {
|
} |
} |
} else { |
} else { |
if ($start > $now) { |
if ($start > $now) { |
return (RESERVABLE,$startreserve,$slot_name); |
if (!$endreserve || $endreserve > $now) { |
|
return (RESERVABLE,$startreserve,$slot_name); |
|
} |
} |
} |
} |
} |
} |
} |