- my($days) = join(", ", @days[@{$Conf{BlackoutWeekDays}}]);
- my($t0) = sprintf("%d:%02d", $Conf{BlackoutHourBegin},
- 60 * ($Conf{BlackoutHourBegin}
- - int($Conf{BlackoutHourBegin})));
- my($t1) = sprintf("%d:%02d", $Conf{BlackoutHourEnd},
- 60 * ($Conf{BlackoutHourEnd}
- - int($Conf{BlackoutHourEnd})));
+ my $blackoutStr;
+ my $periodCnt = 0;
+ foreach my $p ( @{$Conf{BlackoutPeriods}} ) {
+ next if ( ref($p->{weekDays}) ne "ARRAY"
+ || !defined($p->{hourBegin})
+ || !defined($p->{hourEnd})
+ );
+ my $days = join(", ", @days[@{$p->{weekDays}}]);
+ my $t0 = sprintf("%d:%02d", $p->{hourBegin},
+ 60 * ($p->{hourBegin} - int($p->{hourBegin})));
+ my $t1 = sprintf("%d:%02d", $p->{hourEnd},
+ 60 * ($p->{hourEnd} - int($p->{hourEnd})));
+ if ( $periodCnt ) {
+ $blackoutStr .= ", ";
+ if ( $periodCnt == @{$Conf{BlackoutPeriods}} - 1 ) {
+ $blackoutStr .= eval("qq{$Lang->{and}}");
+ $blackoutStr .= " ";
+ }
+ }
+ $blackoutStr
+ .= eval("qq{$Lang->{__time0_to__time1_on__days}}");
+ $periodCnt++;
+ }