xquery version "1.0";
(: $Id: admin.xql 14995 2011-07-30 19:57:47Z dizzzz $ :)
(:
    Main module of the database administration interface.
:)

declare namespace admin = "http://exist-db.org/xquery/admin-interface";

declare namespace request = "http://exist-db.org/xquery/request";
declare namespace session = "http://exist-db.org/xquery/session";
declare namespace util = "http://exist-db.org/xquery/util";
declare namespace xdb = "http://exist-db.org/xquery/xmldb";

import module namespace status = "http://exist-db.org/xquery/admin-interface/status" at "status.xqm";
import module namespace browseprojects = "http://exist-db.org/xquery/admin-interface/browse-projects" at "browse-projects.xqm";
import module namespace rev = "http://exist-db.org/xquery/admin-interface/revisions" at "versions.xqm";

(:
    modules which might be used
import module namespace backup="http://exist-db.org/xquery/admin-interface/backup" at "backup.xqm";
import module namespace grammar="http://exist-db.org/xquery/admin-interface/grammar" at "grammar.xqm";disp
:)

(:
    unused modules
import module namespace browse = "http://exist-db.org/xquery/admin-interface/browse" at "browse.xqm";
import module namespace users = "http://exist-db.org/xquery/admin-interface/users" at "users.xqm";
import module namespace xqueries = "http://exist-db.org/xquery/admin-interface/xqueries" at "xqueries.xqm";
import module namespace shut = "http://exist-db.org/xquery/admin-interface/shutdown" at "shutdown.xqm";
import module namespace setup = "http://exist-db.org/xquery/admin-interface/setup" at "setup.xqm";
import module namespace prof="http://exist-db.org/xquery/profiling" at "trace.xqm";
import module namespace install="http://exist-db.org/xquery/install-tools" at "install.xqm";
import module namespace fundocs="http://exist-db.org/xquery/admin/fundocs" at "fundocs.xqm";

:)

import module namespace correction="http://exist-db.org/xquery/rebind/correction" at "correction.xqm";
(:import module namespace metadata="http://exist-db.org/xquery/rebind/edit-metadata" at "edit-metadata.xqm";:)
import module namespace metadata="http://exist-db.org/xquery/rebind/edit-metadata" at "xform-eml.xqm";

(: if a page needs custom html headers :)
declare function admin:header() as element()*
{
    
    let $panel := request:get-parameter("panel", "status")[1] 
    return
        if ($panel eq "editMetadata") then (
            metadata:header()
        ) else ()
};

(:
    Select the page to show. Every page is defined in its own module 
:)
declare function admin:panel() as element()
{   
    let $panel := request:get-parameter("panel", "status")[1]
    (:let $isLoggedIn :=  admin:isLoggedIn()
    let $userParam := request:get-parameter("user", ())
    let $passwdParam := request:get-parameter("pass", ())
    let $login := xdb:login( "/db", $userParam, $passwdParam, true()):)
    
    return
    (:if(not($login)) then (
            admin:display-login-form()
        ) else :)
        
        if($panel eq "browse") then (
            browseprojects:main()
        ) else if ($panel eq "correction") then (
            correction:main()
        ) else if ($panel eq "editMetadata") then (
            metadata:main()
        ) else if ($panel eq "revisions") then (
            rev:main()
        ) else (
            if(xdb:is-admin-user(xdb:get-current-user())) then (
                status:main()
             ) else (
                <div xmlns="http://www.w3.org/1999/xhtml" class="panel">
                    <h2>Information for Contributing Scientists!</h2>
                </div>
            )
        )
};
declare function admin:panelfromeml() as element()*
{
    
    let $action := request:get-parameter("action", ())[1] 
    return if($action eq "save-form") then(
        let $fileName := request:get-parameter("name", "test.xml")[1]
        return (<div id="save-dialog" class="info-dialog" style="background:#88ff88; position:fixed; padding:10px; top:5px; right:30px; z-index:200;">File '<a href="/exist/rest//db/test/xform/{$fileName}">{$fileName}</a>' was successfully saved!</div>,metadata:main())
    )else(
        metadata:main()
    )
};

(:~  
    Display the login form.
:)
declare function admin:display-login-form() as element()
{
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
    <head>
        <title>reBiND - Project Data portal</title>
        
        <link type="text/css" href="rebind-home.css" rel="stylesheet" />
    </head>
    
    <body>
    <div xmlns="http://www.w3.org/1999/xhtml">
    
        <div id="page" style="width: 62%;">
           
           <table cellpadding="5">
           <tr>
           <td width="5%">
                {admin:display-login-margin()}
        </td>
        <td>
            <div id="content">                
                             
                <div id="content-inner">Welcome to the reBIND data portal. Here you can <a href="./search.xql">browse biodiversity datasets</a> that have been published via the reBIND data standardisation and archiving workflow.
                    
                    <p>To submit a new dataset to the reBIND portal please login.</p>                

                    <p>
                    To read more about the reBIND project please visit the <a href="http://rebind.bgbm.org">reBIND web-site.</a>
                    </p>
                    <br></br>
                </div>              
            </div>
                 
                 </td>
                 </tr>
                 </table>
              <br></br>
        <div id="footer" class="region region-footer">

                        <div id="funded_by" style="float:left;text-align:left;top:10px;position:relative;margin-left:10px;"><em><strong>funded by</strong></em> <br />
                            <a href="http://www.dfg.de"><img style="padding-top:3px;" title="DFG" alt="DFG" src="http://rebind.bgbm.org/sites/rebind.bgbm.org/files/dfg_logo_schwarz.png" /></a></div>
                        <div id="bgbm_logo" style="float:right;top:10px;position:relative;margin-right:-5px;"><a href="http://www.bgbm.org"><img title="Botanic Garden and Botanical Museum Berlin-Dahlem" alt="Logo BGBM" src="//rebind.bgbm.org/sites/rebind.bgbm.org/files/BGBM_logo_durchsichtig.gif" /></a></div>
                        <!--div id="link_impressum" style="top:30px;position:relative;font-size:small"><a href="/Impressum">Impressum</a></div-->      
                    </div>

                </div>
    </div>
    
    </body>
</html>    
};

declare function admin:display-login-margin() as element()
{
           <form action="{session:encode-url(request:get-uri())}" method="post">
            <table class="login" cellpadding="2">
                <!--tr>
                    <th colspan="2" align="left">Please Login</th>
                </tr-->
                <tr>
                    <td align="center">Username :</td>
                </tr>   
                <tr>
                    <!--td align="left">Username:</td-->
                    <td><input name="user" type="text" size="15"/></td>
                </tr>
                <tr>
                    <td align="center">Password:</td>
                </tr>  
                <tr>
                    <!--td align="left">Password:</td-->
                    <td><input name="pass" type="password" size="15"/></td>
                </tr>
                <tr>
                    <td align="center"><input type="submit" value="Log in"/></td>
                </tr>
            </table>
            {
            for $param in request:get-parameter-names()
            return
            if ( $param = ("user","pass") ) then
            ()
            else 
            <input type="hidden" name="{$param}" value="{request:get-parameter($param, ())}"/>
            
            }
        </form>
};


declare function admin:display-login-form-old() as element()
{
    <div xmlns="http://www.w3.org/1999/xhtml" class="panel">
        <div class="panel-head">Login</div>
        <p>This is a protected resource. Only registered database users can log
        in.</p>

        <form action="{session:encode-url(request:get-uri())}" method="post">
            <table class="login" cellpadding="5">
                <tr>
                    <th colspan="2" align="left">Please Login</th>
                </tr>
                <tr>
                    <td align="left">Username:</td>
                    <td><input name="user" type="text" size="20"/></td>
                </tr>
                <tr>
                    <td align="left">Password:</td>
                    <td><input name="pass" type="password" size="20"/></td>
                </tr>
                <tr>
                    <td colspan="2" align="left"><input type="submit"/></td>
                </tr>
            </table>
            {
                for $param in request:get-parameter-names()
                return
                    if ( $param = ("user","pass") ) then
                        ()
                    else 
                        <input type="hidden" name="{$param}" value="{request:get-parameter($param, ())}"/>
                        
            }
        </form>
    </div>
};


declare function admin:isLoggedIn() as xs:boolean{

    let $userParam := request:get-parameter("user", ())
    let $passwdParam := request:get-parameter("pass", ())
    
    return if(xdb:get-current-user() eq "guest") then
    (
        (: is this a login attempt? :)
        if($userParam and not(empty($passwdParam)))then
        (
            if($userParam = ("", "guest") )then
            (
                (: prevent the guest user from accessing the admin webapp :)
                false()
            )
            else
            (
                (: try and log the user in :)
                xdb:login( "/db", $userParam, $passwdParam, true() )
            )
        )
        else
        (
            (: prevent the guest user from accessing the admin webapp :)
            false()
        )
    )
    else
    (
        (: if we are already logged in, are we logging out - i.e. set permissions back to guest :)
        if(request:get-parameter("logout",()))then
        (
            let $null  := xdb:login("/db", "guest", "guest") 
            let $inval := session:invalidate()
            
            return false()
        )
        else
        (
             (: we are already logged in and we are not the guest user :)
            true()
        )
    )
 };



declare option exist:serialize "indent=yes method=xhtml media-type=text/html doctype-public=-//W3C//DTD&#160;XHTML&#160;1.0&#160;Strict//EN doctype-system=http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd";

(: main entry point :)
let $isLoggedIn :=  admin:isLoggedIn()

return (
    
    <html xml:lang="en" xmlns="http://www.w3.org/1999/xhtml" lang="en">
    
        <head>
        
            <title>{rebind:getSetting('project-name')} Data Administration</title>
            
            <meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" />
            <link type="text/css" href="admin.css" rel="stylesheet"/>
            <link rel="stylesheet" href="rebind-leaflet.css" />
            <link rel="stylesheet" href="metadata-editor.css" />
            <link rel="stylesheet" href="leaflet/leaflet.css" />
            
            <link rel="shortcut icon" href="../{rebind:getSetting('project-icon-ico')}"/>
            
			<link rel="icon" href="../{rebind:getSetting('project-icon-png')}" type="image/png"/>
			
			<script type="text/javascript" src="$shared/resources/scripts/jquery/jquery-1.7.1.min.js"></script>
			<script type="text/javascript" src="$shared/resources/scripts/jquery/jquery-ui-1.8.custom.min.js"></script>
            <script type="text/javascript" src="scripts/rebind.js"></script>
            <script type="text/javascript" src="script.js"></script>
            <script type="text/javascript" src="leaflet/leaflet.js"></script>
            <script type="text/javascript" src="rebind-leaflet.js"></script>
            
            
            {admin:header()}
        </head>
        <body class="rebind">
            <div class="header">
                <a id="logo" href="./"><img src="../{rebind:getSetting('project-logo')}" alt="{rebind:getSetting('project-name')} - Logo" title="{rebind:getSetting('project-name')} - {rebind:getSetting('project-title')}"/></a>
            
                {
                 let $colName := request:get-parameter("collection", "/db")[1]
                
                    return 
                    if($isLoggedIn) then (
                        <div class="info">
                            {browseprojects:process-action($colName)}
                        </div> 
                    ) else ()
                }
            </div>
            
            <div class="content">
                {
                    let $link := session:encode-url(request:get-uri())
                    let $protectedRoot  := rebind:getSetting('db-protected-folder')
                    return
                         if($isLoggedIn)then
                            (
                             browseprojects:show-project-menu()
                            )
                            else ()
                }
                {
                    if($isLoggedIn)then
                    (
                        admin:panel()
                    )
                    else
                    (
                        admin:display-login-form()
                    )
                }
                        
                <div id="blackout">
                    <div id="blackoutBackground"></div>
                    <div id="formContainer">
                    </div>
                </div>
            </div>
        </body>
    </html>
)