Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
78 lines (59 sloc) 1.87 KB
UserTag timed-display Order start stop
UserTag timed-display HasEndTag
UserTag timed-display AddAttr 1
UserTag timed-display Routine <<EOR
sub {
my ($start, $stop, $opt, $body) = @_;
my $tv = $opt->{tv};
my $adjust = $opt->{adjust};
my $currtime = $tv && ($CGI->{$tv} || $Scratch->{$tv});
my $now = $Tag->convert_date({
fmt => '%Y%m%d%H%M',
body => $currtime,
adjust => $adjust,
my $else = pull_else($body);
if (!$start){
$start = $now - 1;
if (!$stop){
$stop = '599900010000';#forever or at least after I die.
$start = $Tag->convert_date({
fmt => '%Y%m%d%H%M',
body => $start,
$stop = $Tag->convert_date({
fmt => '%Y%m%d%H%M',
body => $stop,
return $body if !$start;
if ($start <= $now and $now <= $stop){
return $body;
else {
return $else;
UserTag timed-display Documentation <<EOD
Purpose: To allow for date specific display of text or html in pages.
[timed-display start=2007060608 stop=2007060612]
Some text/code to display between June 06, 2007 between 8am and Noon.
For open ended display you can just specify a start date. To start
immediately and end on a specific date you can just specify a stop
The start and stop date use the convert_date tag, so you can use any
format acceptable by that tag to specify your start and stop
dates. (See convert_date documentation for details.)
If the 'timevar' parameter is provided, instead of the current time
look first in the CGI and the Scratch variables with the provided name
for a date string to convert. This allows you to provide a way to
test this behavior outside of the wall-clock time and see the actual
behavior at a specific time.
You can also use the 'adjust' parameter, which will pass its argument
directly on to the convert_date calls; this can be used to localize
the timezone relative to the server time.