diff options
Diffstat (limited to 'ppdb.hs')
| -rw-r--r-- | ppdb.hs | 39 |
1 files changed, 39 insertions, 0 deletions
@@ -0,0 +1,39 @@ +{- +ppdb: pretty-print a ShareGuard database + + Copyright (C) 2011 Clint Adams <clint@gnu.org> + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU Affero General Public License as + published by the Free Software Foundation, either version 3 of the + License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Affero General Public License for more details. + + You should have received a copy of the GNU Affero General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. + +-} + +import Config as C +import DB as D + +import Text.Printf + +main = do + conf <- C.getConfig "/usr/local/etc/shareguard.conf" + up <- D.withDB conf $ \db -> D.getUserPw db + fa <- D.withDB conf $ \db -> D.getUserDirs db + own <- D.withDB conf $ \db -> D.getOwnership db + printf "Users\n======\n" + mapM_ showDoublet up + printf "Authorizations\n=========\n" + mapM_ showDoublet fa + printf "Ownership\n=========\n" + mapM_ showDoublet own + +showDoublet (x,y) = printf "%30s|%-30s\n" x y +-- showTriplet (x,y,z) = printf "%20s|%-20s|%-20s\n" x y z |