--- trunk/lib/perl/Gedafe/Start.pm	2005/02/16 22:49:57	13
+++ trunk/lib/perl/Gedafe/Start.pm	2005/05/08 15:01:05	14
@@ -113,9 +113,17 @@
 	GUI_CheckFormID(\%s, $user);
 
 	my $ticket_value;
-	my $dbh = AuthConnect(\%s, \$user, \$cookie,\$ticket_value) or do {
-		die "Couldn't connect to database or database error";
-	};
+	my $dbh;
+
+	if ($g{conf}{preauth_user}) {
+		use Gedafe::DB qw(DB_Connect);
+		$dbh = DB_Connect($g{conf}{preauth_user},($g{conf}{preauth_passwd} || ''));
+		$user = $g{conf}{preauth_user};
+	} else {
+		$dbh = AuthConnect(\%s, \$user, \$cookie,\$ticket_value) or do {
+			die "Couldn't connect to database or database error";
+		};
+	}
 	
 	$s{dbh}=$dbh;
 	$s{user}=$user;