head	1.2;
access;
symbols;
locks; strict;
comment	@# @;


1.2
date	99.08.04.04.15.58;	author chuck;	state dead;
branches;
next	1.1;

1.1
date	99.07.20.07.36.25;	author jon;	state Exp;
branches;
next	;


desc
@@


1.2
log
@cjh: pruning out all the code that either isn't used or is only used for
maintaining/creating users - all of which is moving to Horde proper. Also a
few more fixes for the new session/user stuff, though I haven't quite gotten
rid of the "users" table yet - that's coming, though.

babel.php3 is a nice bit shorter, now... ;)

Anyway, a bit more work, and a better Horde user framework, and babel should
be more or less ready for primetime. oh, there's that whole customization
thing, too.

Speaking of which, what do people prefer: imp-style defaults.php3, or
babel-style babel.conf. I figure we should standardize on one; they're both
easy to auto-generate; babel's is maybe a little bit more overhead to parse,
but it's a bit more user friendly as well. Thoughts?
@
text
@function authenticate_user (&$request_ref) {
  global $PHP_AUTH_USER, $PHP_AUTH_PW;
  
  if (!($dbh = $request_ref->dbh))
    return error("database undefined");
  
  if (!isset($PHP_AUTH_USER) || !($username = $PHP_AUTH_USER))
    return error("username not specified");
  
  if (!isset($PHP_AUTH_PW) || !($password = $PHP_AUTH_PW))
    return error("password not specified");
  
  $query  = "SELECT id FROM users WHERE username='$username' AND password=password('$password')";
  
  if (!($sth = $dbh->prepare($query)))
    return error("could not prepare: " . $dbh->errstr);
  
  if (!($sth->execute()))
    return error("could not execute: " . $sth->errstr); 
  
  if (!($record = $sth->fetchrow()))
    return error("could not fetch row");
  
  if (!($id_ref = $record[0]))
    return error("user_id not found in row");
  
  $sth->finish();
  
  return success();
}
@


1.1
log
@
jon: alrighty, babel.php3.in is now broken down into seperate
     function files.  they're jusy dying to be combined into
     objects and seperate source files.
@
text
@@

