sub write_htpasswd()

in t/modules/aaa.t [238:257]

• 15 lines of code
• 1 McCabe index (conditional complexity)

sub write_htpasswd
{
    my $digest_file = File::Spec->catfile(Apache::Test::vars('serverroot'), 'realm2');
    t_write_file($digest_file, << 'EOF' );
# udigest/pdigest
udigest:realm2:bccffb0d42943019acfbebf2039b8a3a
EOF

    my $basic_file = File::Spec->catfile(Apache::Test::vars('serverroot'), 'basic1');
    t_write_file($basic_file, << 'EOF' );
# ubasic:pbasic
ubasic:$apr1$opONH1Fj$dX0sZdZ0rRWEk0Wj8y.Qv1
EOF

    my $form_file = File::Spec->catfile(Apache::Test::vars('serverroot'), 'form1');
    t_write_file($form_file, << 'EOF' );
# uform:pform
uform:$apr1$BzhDZ03D$U598kbSXGy/R7OhYXu.JJ0
EOF
}