util.sasl: Adding clean_clone() method.

diff --git a/util/sasl.lua b/util/sasl.lua
index 7b7db0247ae50efa6537002a65fb71ed30562a20..e3ae8087d491016196470cae8f0baa8c133963b6 100644 (file)
--- a/util/sasl.lua
+++ b/util/sasl.lua
@@ -90,6 +90,11 @@ function new(realm, profile, forbidden)
        return s;
 end
 
+-- get a fresh clone with the same realm, profiles and forbidden mechanisms
+function method:clean_clone()
+       return new(self.realm, self.profile, self:forbidden())
+end
+
 -- set the forbidden mechanisms
 function method:forbidden( restrict )
        if restrict then