#!/usr/bin/perl

use DBI();
use CGI qw(:standard);
use CGI::Cookie;
use MIME::Base64();


$database="mail";
$hostname="127.0.0.1";
$port="3306";
$dbuser="root";
$dbpasswd="zopa25703";

$user = param("login");

$dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect_cached($dsn, $dbuser, $dbpasswd) || die;

$sth = $dbh->prepare("SELECT * FROM users WHERE user=\"$user\"");
$sth->execute();
($login, $user, $pass, $quota, $maildir, $exp, $av, $as, $comment) = $sth->fetchrow_array();

###$pass = MIME::Base64::encode($pass);

$auth=sprintf("%s %s", $user, $pass);
my $cook = cookie(
    -name => 'mn.mail.auth',
    -value => $auth,
    -expires => '0',
    -domain => 'miranet.lan',
    -path => '/',
    );
$cook = sprintf header(-cookie=>$cook);
($cook) = split("charset=", $cook);
$cook = sprintf ("%s charset=KOI8-R\n\n", $cook);
print "$cook";
print "<META HTTP-EQUIV=\"refresh\" content=\"1; URL=inbox.cgi\">";