#!/usr/bin/perl # list_times.cgi # Display a list of time ranges that can be used in rules require './itsecur-lib.pl'; &can_use_error("times"); &header($text{'times_title'}, "", undef, undef, undef, undef, &apply_button()); print "
$text{'times_name'} | ", "$text{'times_hours'} | ", "$text{'times_days'} |
", "$t->{'name'} | \n"; print "",$t->{'hours'} eq "*" ? $text{'times_all'} : $t->{'hours'}," | \n"; print "",$t->{'days'} eq "*" ? $text{'times_all'} : join(" ", map { $text{'sday_'.$_} } split(/,/, $t->{'days'}))," | \n"; print "
\n"; } print "$text{'times_add'}
\n" if ($edit); print "