--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/servlib/cmd/ECLACommand.cc	Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,92 @@
+/* Copyright 2004-2006 BBN Technologies Corporation
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License"); you may not
+ * use this file except in compliance with the License. You may obtain a copy
+ * of the License at http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
+ * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ *
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ *
+ */
+
+#ifdef HAVE_CONFIG_H
+#  include <dtn-config.h>
+#endif
+
+#if defined(XERCES_C_ENABLED) && defined(EXTERNAL_CL_ENABLED)
+
+#include <oasys/io/NetUtils.h>
+
+#include "ECLACommand.h"
+#include "conv_layers/ConvergenceLayer.h"
+#include "conv_layers/ExternalConvergenceLayer.h"
+
+namespace dtn {
+
+static ExternalConvergenceLayer* ecl = NULL;
+
+ECLACommand::ECLACommand() 
+    : TclCommand("ecla")
+{
+    bind_var( new oasys::StringOpt("schema",
+              &ExternalConvergenceLayer::schema_,
+              "ECLA schema location",
+              "The location of the ECLA schema file.") );
+    
+    bind_var( new oasys::InAddrOpt("server_addr",
+              &ExternalConvergenceLayer::server_addr_,
+              "ECLA server address",
+              "The address to listen for external CLAs on") );
+    
+    bind_var( new oasys::UInt16Opt("server_port",
+              &ExternalConvergenceLayer::server_port_,
+              "ECLA server port",
+              "The port to listen for external CLAs on") );
+    
+    bind_var( new oasys::BoolOpt("create_discovered_links",
+              &ExternalConvergenceLayer::create_discovered_links_,
+              "Whether external CLAs should create discovered links") );
+    
+    bind_var( new oasys::BoolOpt("discovered_prev_hop_header",
+              &ExternalConvergenceLayer::discovered_prev_hop_header_,
+              "Whether discovered links get prev-hop headers") );
+}
+
+int
+ECLACommand::exec(int argc, const char** argv, Tcl_Interp* interp)
+{
+    (void)interp;
+    
+    if (argc < 2) {
+        resultf("Need an ecla subcommand");
+        return TCL_ERROR;
+    }
+
+    const char* cmd = argv[1];
+
+    if (strcmp(cmd, "start") == 0) {
+        if (ecl) {
+            resultf("ExternalConvergenceLayer already started");
+            return TCL_ERROR;
+        }
+        
+        ecl = new ExternalConvergenceLayer();
+        ecl->start();        
+        ConvergenceLayer::add_clayer(ecl);
+    }
+    
+    else {
+        resultf("Unimplemented ecla subcommand %s", cmd);
+        return TCL_ERROR;
+    }
+    
+    return TCL_OK;
+}
+    
+} // namespace dtn
+
+#endif // XERCES_C_ENABLED && EXTERNAL_CL_ENABLED