--- loncom/lond 2004/03/22 09:41:53 1.178.2.11 +++ loncom/lond 2004/03/22 10:02:24 1.178.2.12 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.178.2.11 2004/03/22 09:41:53 foxr Exp $ +# $Id: lond,v 1.178.2.12 2004/03/22 10:02:24 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,7 +53,7 @@ my $DEBUG = 1; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.178.2.11 $'; #' stupid emacs +my $VERSION='$Revision: 1.178.2.12 $'; #' stupid emacs my $remoteVERSION; my $currenthostid; my $currentdomainid; @@ -254,7 +254,7 @@ sub TieUserHash { # Tie the database. my %hash; - if(tie(%hash, 'GDBM_FILE', "$proname/$namespace.db", + if(tie(%hash, 'GDBM_File', "$proname/$namespace.db", $how, 0640)) { return \%hash; }