###############################
# Send password
###############################
sub pm_send_password
{
 open (DATABASE, "<${root}$database") or print $!;
 if($flocking) {flock DATABASE, 2;}

 while(($thisrow = <DATABASE>))
 {
    if ($thisrow =~ m/^$input{'login'}\|(.*)/)
 	{
     &init($thisrow);
	&sendemail($values{'email'}, $from, $subject_lost_password, &tempwiz_to_from);
	 $sent = 1;
 	}
 }
 if($flocking) {flock DATABASE, 8;}
 close DATABASE; 
 if(!$sent){&init_errors; &err($error_message{'login not found'});exit;}
 $input{'action'} = "lost_password_sent";
 &tempwiz;
 exit;
}