sub date_r {
my $ds_wanted    = $params{Datestamp};
    my $ds_defaulted = ($is_top and !exists($params{Datestamp}));
    if (($ds_wanted or $ds_defaulted) and !exists($params{Date})) {
        my ($u_wdy, $u_mon, $u_mdy, $u_time, $u_y4) =
            split /\s+/, gmtime()."";   ### should be non-locale-dependent
        my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time UT";
        $self->add("date", $date);
    }
	print 
}