gistfile1.txt

sub authen_ses_key ($$$) {
    my ($self, $r, $cookie) = @_;

    my $debug = $r->dir_config("AuthCookieDebug") || 0;
    $r->server->log_error(".oO( Entering: authen_ses_key )Oo.")if $debug >= 5;

    my($user, $password) = split(/:/, $cookie);

    $r->server->log_error("user=$user pass=$password cookie=$cookie");

    if ($user eq "programmer" && $password eq "Hero") {
         $user;
    } elsif ($user eq "some-user") {
        $user;
    } else {
         "";
   }
}