The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# Copyright (c) 2000-2004 Sergey Rusakov.  All rights reserved.
%# This program is open source software
%#
%#
%#----------------------------------------------------------------------------
<%perl>
    my $username = $ARGS{username};
    my $savepassword = $ARGS{savepassword};

    my $cookie;

    if (defined $username) {
        my $remoteip = $r->get_remote_host;
        my $md5hash = Digest::MD5::md5_hex('13', $username, $remoteip);
        my $ticket = join(":", $username, $remoteip, $md5hash );

        $cookie = new Apache::Cookie( $r, -name => 'ePortal_auth',
                $savepassword ? (-expires => 'Mon, 28-Dec-2099 00:00:00 GMT') : (),
                -value => $ticket, -path => '/',);
    } else {
        $cookie = new Apache::Cookie($r, -name=>'ePortal_auth',
            -expires => 'Mon, 21-May-1971 00:00:00 GMT',
            -value => "", -path => '/',);
    }
    logline('debug', "Sending cookie ". $cookie->as_string);
    $cookie->bake;
    return undef;
</%perl>