-- | Make Change LDIF based on two Content LDIFs import Data.List import Data.Either import Data.Maybe import Control.Monad import System.FilePath import System.Environment import Text.LDIF import qualified Data.Set as Set ldif2html :: Set.Set String -> LDIF -> String ldif2html idx (LDIF v xs) = unlines $ (ver2str v) ++ (map (record2html idx) xs) -- | Serialize version to LDIF Format Lines ver2str :: Maybe String -> [String] ver2str Nothing = [] ver2str (Just v) = ["version: "++v] -- | Serialize DN to LDIF Format dn2html :: DN -> String dn2html ys@(DN xs) = concat [ "

dn: ", dnstr, ""] where dnstr = intercalate "," $ map (\((Attribute n),v) -> n++"="++v) xs nm = dn2last ys dn2last (DN xs) = snd $ head xs -- | Serialize Change Record in LDIF Format record2html :: Set.Set String -> LDIFRecord -> String record2html idx (ChangeRecord dn (ChangeDelete)) = unlines [ (dn2str dn), "changetype: delete" ] record2html idx (ChangeRecord dn (ChangeAdd xs)) = unlines $ [ (dn2html dn), "changetype: add" ] ++ (attrVals2Ln idx xs) record2html idx (ChangeRecord dn (ChangeModify xs)) = unlines $ [ (dn2str dn), "changetype: modify" ] ++ (mods2Ln idx xs) record2html idx (ChangeRecord dn (ChangeModDN)) = unlines $ [ (dn2str dn), "changetype: moddn" ] record2html idx (ContentRecord dn xs) = unlines $ [ (dn2html dn) ] ++ (attrVals2Ln idx xs) attrVals2Ln :: Set.Set String -> [AttrValue] -> [String] attrVals2Ln idx xs = map (attrVal2Ln idx) xs attrVal2Ln :: Set.Set String -> AttrValue -> String attrVal2Ln idx ((Attribute n),v) = if Set.member v idx then ""++n++" : "++v++"" else ""++n++" : "++v mods2Ln :: Set.Set String -> [Modify] -> [String] mods2Ln idx xs = intercalate ["-"] $ map (mod2Ln idx) xs mod2Ln :: Set.Set String -> Modify -> [String] mod2Ln idx (ModAdd a@(Attribute nm) xs) = [ attrVal2Ln idx ((Attribute "add"),nm) ] ++ (map (\v -> attrVal2Ln idx (a,v)) xs) mod2Ln idx (ModDelete a@(Attribute nm) xs) = [ attrVal2Ln idx ((Attribute "delete"),nm) ] ++ (map (\v -> attrVal2Ln idx (a,v)) xs) mod2Ln idx (ModReplace a@(Attribute nm) xs) = [ attrVal2Ln idx ((Attribute "replace"),nm) ] ++ (map (\v -> attrVal2Ln idx (a,v)) xs) -- Dummy ldif2html implementation but it should -- display LDIF file as HTML with values as href to -- DN which has the value as the leaf RDN value main = do args <- getArgs case args of [] -> putStrLn "Usage: ldif2html [ ... ]" [inp] -> do doLDIF2HTML [inp] (putStrLn) putStrLn "# Done." xs -> do doLDIF2HTML (init xs) (writeFile (last xs)) putStrLn $ "## Processed : " ++ (unlines $ init xs) putStrLn $ "## Written : " ++ (last xs) doLDIF2HTML names outF = do mls <- mapM (parseLDIFFile) names case lefts mls of [] -> do let idx = Set.unions $ map (dns) (rights mls) outF $ concat ["

", concat $ map (ldif2html idx) (rights mls), "

" ] xs -> mapM_ print xs dns :: LDIF -> Set.Set String dns (LDIF _ xs) = Set.fromList $ nub $ map (dn2last . reDN) xs