view release on metacpan or  search on metacpan

SimplePam.pm  view on Meta::CPAN

	      print "DEBUG: The old password was not asked for\n" if $DEBUG;
	      $done = 1;
	    }
	    $done++;
	  }
	}
	else
	{
	  # $state not defined
	  # This means that we got an unknow message.
	  # guessing blindly
	  warn "Don't know what to do about '$pam_message' .\n";
	  print "DEBUG: 'done' guess flag is $done\n";

	  if ($done == 0)
	  {
	    $answer     = $old_password;
	    warn "Trying to give the OLD password.\n";
	    $done ++;
	  }
	  elsif ($done > 0 && $done < 4)
	  {
	    $answer     = $new_password;