dbmopen(%synusers,"synusers",0666) || die "Can't open synusers DBM file\n";
	#search database entries
	while (($key, $value) = each(%synusers)){
		if (index($key,$fields{'updalumname'})!=-1){
 			($alumemail, $emailpub, $alumsnail1, $snail1pub, $alumsnail2, $snail2pub, $alumsnail3, $snail3pub, 
			$phone, $phonepub, $alumyears, $yearspub, $comment, $commentpub, $synpass, $synpass2)=split(/::/,$value);
		
			if ($fields{'synpassold'} ne $synpass2){
				print "Content-type: text/html", "\n\n";
				print "Incorrect password.  If you cannot remember your old password, email the webmaster.";
				die;
			}
			
			if ($fields{'updsynpass'}==""){
				$fields{'updsynpass'}=$synpass2;
				$fields{'updsynpass2'}=$synpass2;
			}
			delete $synusers{$fields{'updalumname'}};
			$synusers{$fields{'updalumname'}}="
			$fields{'updalumemail'}::$fields{'updemailpub'}::
			$fields{'updalumsnail1'}::$fields{'updsnail1pub'}::$fields{'updalumsnail2'}::$fields{'updsnail2pub'}::
			$fields{'updalumsnail3'}::$fields{'updsnail3pub'}::$fields{'updphone'}::$fields{'updphonepub'}::$fields{'updalumyears'}::$fields{'updyearspub'}::
			$fields{'updcomment'}::$fields{'updcommentpub'}::$fields{'updsynpass'}::$fields{'updsynpass2'}";
		
			print "Content-type: text/html", "\n\n";
			print "Thank you for updating your information.";
			die;
		}
	}