use DBIx::UserDB;
use DBIx::SearchProfiles;
use Digest::MD5 qw(md5_hex);

sub CreateUser {
  my($userdb,$username,$password)=@_;
  print STDERR "Running Create User Subroutine.\n";
  # store md5 hash of password
  my $digest = md5_hex($password);
  # my $string = MD5->hexhash($password);

  my $user = { username => $username, password => $digest };
  $user = $userdb->user_create( $user );
  return;
}