module Text.LDIF.Diff (
diffLDIF,
diffRecord
)
where
import Text.LDIF.Types
import Text.LDIF.Utils
import Data.Maybe
diffLDIF :: LDIF -> LDIF -> Either String LDIF
diffLDIF l1 l2 | getLDIFType l1 == LDIFContentType && getLDIFType l2 == LDIFContentType = Right (diffLDIF' l1 l2)
| otherwise = Left ("Diff supported only on Content LDIFs but SRC="
++(show $ getLDIFType l1)++" and DST="
++(show $ getLDIFType l2))
diffLDIF' :: LDIF -> LDIF -> LDIF
diffLDIF' l1@(LDIF _ c1) l2@(LDIF v2 c2) = LDIF v2 (changes ++ adds)
where
adds = map (content2add) $ filter (not . isEntryIn l1) c2
changes = filter (not . isDummyRecord) $ foldl (processEntry) [] c1
processEntry xs e1 = let me2 = findRecordByDN l2 (reDN e1)
change = case me2 of
Nothing -> ChangeRecord (reDN e1) ChangeDelete
Just e2 -> fromJust $ diffRecord e1 e2
in xs ++ [change]
isEntryIn ll ex = let mex = findRecordByDN ll (reDN ex)
in case mex of
Nothing -> False
Just _ -> True
content2add (ContentRecord dn vals) = ChangeRecord dn (ChangeAdd vals)
content2add (ChangeRecord _ _) = error "Unexpected record type"
diffRecord :: LDIFRecord -> LDIFRecord -> Maybe LDIFRecord
diffRecord r1 r2 | (reDN r1) /= (reDN r2) = Nothing
| otherwise = Just (ChangeRecord (reDN r1) (ChangeModify mods))
where
mods = delMods ++ addMods
addMods = map (\x -> ModAdd (fst x) [(snd x)]) addVals
delMods = map (\x -> ModDelete (fst x) [(snd x)]) delVals
addVals = filter (\x -> not $ elem x (coAttrVals r1)) (coAttrVals r2) :: [AttrValue]
delVals = filter (\x -> not $ elem x (coAttrVals r2)) (coAttrVals r1) :: [AttrValue]