#!/usr/bin/perl -w

# Copyright 2001-2006 The Apache Software Foundation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#

sub conf_test1;
sub conf_test2 { return (); }
sub conf_test3 : Validate(sub{1});
sub conf_test4 : Validate(TAKEBOOL);
sub conf_test5 : Validate(TAKE1) { return $_[1]+1 }

sub conf_test_this_thoroughly;
sub conf_TestThisThoroughlyAsWell;
sub conf_HTMLResponse2Test;

sub hook_response {
    my ($self, $hd) = @_;

    my $uri = $hd->request_uri;
    $uri =~ s/[^A-Za-z0-9_]//g;

    $self->client->write(@{[$self->config($uri)]}?join(",",$self->config($uri)):"<undef>");
    
    return OK;
}
