sub init
{
my ($self, $r) = @_ ;
$r -> {initdoner} = 1 ;
$self -> {initdonea} = 1 ;
$self -> {initdoneb} = 2 ;
return 0 ;
}
sub init
{
my ($self, $r) = @_ ;
$r -> {initdoner} = 1 ;
$self -> {initdonea} = 1 ;
$self -> {initdoneb} = 2 ;
return 0 ;
}