/*
 * Copyright (c) 2015, 2018, Oracle and/or its affiliates. All rights reserved.
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 *
 * This code is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License version 2 only, as
 * published by the Free Software Foundation.
 *
 * This code 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 General Public License
 * version 2 for more details (a copy is included in the LICENSE file that
 * accompanied this code).
 *
 * You should have received a copy of the GNU General Public License version
 * 2 along with this work; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
 * or visit www.oracle.com if you need additional information or have any
 * questions.
 */

/**
 * Demonstrate Java object storage and retrieval using an LDAP directory.
 * The ActionEvent object is serializable and is supplied by the java.desktop
 * module.
 */

package test;

import java.awt.event.ActionEvent;
import java.io.PrintStream;
import java.net.*;
import java.util.*;
import javax.naming.*;
import javax.naming.directory.*;

public class StoreObject {

    static {
        final PrintStream out = new PrintStream(System.out, true);
        final PrintStream err = new PrintStream(System.err, true);

        System.setOut(out);
        System.setErr(err);
    }

    // LDAP capture file
    private static final String LDAP_CAPTURE_FILE =
        System.getProperty("test.src") + "/src/test/test/StoreObject.ldap";

    public static void main(String[] args) throws Exception {

        /*
         * Process arguments
         */

        int argc = args.length;
        if ((argc < 1) ||
            ((argc == 1) && (args[0].equalsIgnoreCase("-help")))) {

            System.err.println("\nUsage:   StoreObject <ldapurl>\n");
            System.err.println("        <ldapurl> is the LDAP URL of the parent entry\n");
            System.err.println("example:");
            System.err.println("        java StoreObject ldap://oasis/o=airius.com");
            return;
        }

        /*
         * Launch the LDAP server with the StoreObject.ldap capture file
         */

        try (ServerSocket serverSocket = new ServerSocket()) {
            serverSocket.bind(new InetSocketAddress(InetAddress.getLoopbackAddress(), 0));
            new Thread(new Runnable() {
                @Override
                public void run() {
                    try {
                        new LDAPServer(serverSocket, LDAP_CAPTURE_FILE);
                    } catch (Exception e) {
                        System.out.println("ERROR: unable to launch LDAP server");
                        e.printStackTrace();
                    }
                }
            }).start();

            /*
             * Store objects in the LDAP directory
             */

            Hashtable<String,Object> env = new Hashtable<>();
            env.put(Context.INITIAL_CONTEXT_FACTORY,
                    "com.sun.jndi.ldap.LdapCtxFactory");
            URI ldapUri = new URI(args[0]);
            if (ldapUri.getPort() == -1) {
                ldapUri = new URI(ldapUri.getScheme(), null, ldapUri.getHost(),
                        serverSocket.getLocalPort(), ldapUri.getPath(), null, null);
            }
            env.put(Context.PROVIDER_URL, ldapUri.toString());
            if (args[args.length - 1].equalsIgnoreCase("-trace")) {
                env.put("com.sun.jndi.ldap.trace.ber", System.out);
            }

            System.out.println("StoreObject: connecting to " + ldapUri);
            DirContext ctx = new InitialDirContext(env);
            String dn = "cn=myevent";
            String dn2 = "cn=myevent2";

            try {
                ctx.bind(dn, new ActionEvent("", 1, "Hello1"));
                System.out.println("StoreObject: created entry '" + dn + "'");
            } catch (NameAlreadyBoundException e) {
                System.err.println("StoreObject: entry '" + dn +
                        "' already exists");
                cleanup(ctx, (String)null);
                return;
            }

            try {
                ctx.bind(dn2, new ActionEvent("", 2, "Hello2"));
                System.out.println("StoreObject: created entry '" + dn2 + "'");
            } catch (NameAlreadyBoundException e) {
                System.err.println("StoreObject: entry '" + dn2 +
                        "' already exists");
                cleanup(ctx, dn);
                return;
            }

            /*
             * Retrieve objects from the LDAP directory
             */

            try {
                ActionEvent b = (ActionEvent) ctx.lookup(dn);
                System.out.println("StoreObject: retrieved object: " + b);
            } catch (NamingException e) {
                System.err.println("StoreObject: error retrieving entry '" +
                        dn + "' " + e);
                e.printStackTrace();
                cleanup(ctx, dn, dn2);
                return;
            }

            try {
                ActionEvent t = (ActionEvent) ctx.lookup(dn2);
                System.out.println("StoreObject: retrieved object: " + t);
            } catch (NamingException e) {
                System.err.println("StoreObject: error retrieving entry '" +
                        dn2 + "' " + e);
                e.printStackTrace();
                cleanup(ctx, dn, dn2);
                return;
            }

            cleanup(ctx, dn, dn2);
            ctx.close();
        }
    }

    /*
     * Remove objects from the LDAP directory
     */
    private static void cleanup(DirContext ctx, String... dns)
        throws NamingException {

        for (String dn : dns) {
            try {
                ctx.destroySubcontext(dn);
                System.out.println("StoreObject: removed entry '" + dn + "'");
            } catch (NamingException e) {
                System.err.println("StoreObject: error removing entry '" + dn +
                    "' " + e);
            }
        }
        ctx.close();
    }
}