sub redir {
    my $self = shift;
    my $q = $self->query();
    my $new_url = shift || $q->url(-relative=>1);
    $self->header_type('redirect');
    $self->header_props(-url=>$new_url);
#print STDERR Data::Dumper::Dumper($new_url);
    return "Redirecting to $new_url";
} # redir