<%perl> my $cwd = $m->base_comp->source_dir; my $schedule = YAML::LoadFile("$cwd/../config/stream_schedule"); my $source = YAML::LoadFile("$cwd/../config/stream_source"); use YAML;

SCHEDULES

% my @day = qw(Sun Mon Tue Wed Thr Fri Sat); % foreach my $id (keys %$schedule){ % foreach my $t (@{$schedule->{$id}}){

<% $source->{$id}->{name} %>

% foreach (@{$schedule->{$id}}){

<% $_->[0] %>

(<% $_->[1] %> secs)

<% length($_->[2]) ? ('@ ', join q/,/, map{$day[$_]} split /,/o, $_->[2]) : ' every day' %> % }

% } %}

% if($ARGS{is_admin}){ % }