Index: trunk/FACT++/src/HeadersGCN.h
===================================================================
--- trunk/FACT++/src/HeadersGCN.h	(revision 16954)
+++ trunk/FACT++/src/HeadersGCN.h	(revision 16954)
@@ -0,0 +1,16 @@
+#ifndef FACT_HeadersGCN
+#define FACT_HeadersGCN
+
+namespace GCN
+{
+    namespace State
+    {
+        enum states_t
+        {
+            kDisconnected = 1,
+            kConnected    = 2,
+        };
+    }
+}
+
+#endif
Index: trunk/FACT++/src/gcn.cc
===================================================================
--- trunk/FACT++/src/gcn.cc	(revision 16954)
+++ trunk/FACT++/src/gcn.cc	(revision 16954)
@@ -0,0 +1,570 @@
+#include <functional>
+
+#include "Dim.h"
+#include "Event.h"
+#include "Shell.h"
+#include "StateMachineDim.h"
+#include "StateMachineAsio.h"
+#include "Connection.h"
+#include "LocalControl.h"
+#include "Configuration.h"
+#include "Console.h"
+#include "Converter.h"
+
+#include "tools.h"
+#include "../externals/nova.h"
+
+#include "HeadersGCN.h"
+
+#include <QtXml/QDomDocument>
+
+namespace ba    = boost::asio;
+namespace bs    = boost::system;
+namespace dummy = ba::placeholders;
+
+using namespace std;
+using namespace GCN;
+
+// ------------------------------------------------------------------------
+
+class ConnectionGCN : public Connection
+{
+private:
+    vector<string> fEndPoints;
+    int fEndPoint;
+
+    bool fIsVerbose;
+    bool fDebugRx;
+
+    uint32_t     fRxSize;
+    vector<char> fRxData;
+
+    Time fLastKeepAlive;
+
+    int ProcessXml(const QDomElement &root)
+    {
+        if (root.isNull())
+            return -1;
+
+        const string role = root.attribute("role", "").toStdString();
+        const string name = root.tagName().toStdString();
+
+        Out() << Time().GetAsStr() << " ----- " << name << " [" << role << "] -----" << endl;
+
+        // A full description can be found at http://voevent.dc3.com/schema/default.html
+
+        if (name=="trn:Transport")
+        {
+            if (role=="iamalive")
+            {
+                const QDomElement orig = root.firstChildElement("Origin");
+                const QDomElement time = root.firstChildElement("TimeStamp");
+                if (orig.isNull() || time.isNull())
+                    return -1;
+
+                fLastKeepAlive = Time(time.text().toStdString());
+
+                Out() << " " << time.tagName().toStdString() << " = " << fLastKeepAlive.GetAsStr() << '\n';
+                Out() << " " << orig.tagName().toStdString() << " = " << orig.text().toStdString() << '\n';
+                Out() << endl;
+
+                return true;
+            }
+
+            return false;
+        }
+
+        ofstream fout("gcn.stream", ios::app);
+        fout << "------------------------------------------------------------------------------\n" << fRxData.data() << endl;
+
+        if (name=="voe:VOEvent")
+        {
+            const QDomElement who  = root.firstChildElement("Who");
+            const QDomElement what = root.firstChildElement("What");
+            const QDomElement when = root.firstChildElement("WhereWhen");
+            //const QDomElement how  = root.firstChildElement("How");
+            //const QDomElement why  = root.firstChildElement("Why");
+            //const QDomElement cite = root.firstChildElement("Citations");
+            //const QDomElement desc = root.firstChildElement("Description");
+            //const QDomElement ref  = root.firstChildElement("Reference");
+            if (who.isNull() || what.isNull() || when.isNull())
+                return -1;
+
+            const QDomElement date   = who.firstChildElement("Date");
+            const QDomElement author = who.firstChildElement("Author");
+            const QDomElement sname  = author.firstChildElement("shortName");
+            const QDomElement desc   = what.firstChildElement("Description");
+
+            const QDomElement obsdat = when.firstChildElement("ObsDataLocation");
+            const QDomElement obsloc = obsdat.firstChildElement("ObservationLocation");
+            const QDomElement coord  = obsloc.firstChildElement("AstroCoords");
+
+            const QDomElement time   = coord.firstChildElement("Time").firstChildElement("TimeInstant").firstChildElement("ISOTime");
+            const QDomElement pos2d  = coord.firstChildElement("Position2D");
+            const QDomElement name1  = pos2d.firstChildElement("Name1");
+            const QDomElement name2  = pos2d.firstChildElement("Name2");
+            const QDomElement val2   = pos2d.firstChildElement("Value2");
+            const QDomElement c1     = val2.firstChildElement("C1");
+            const QDomElement c2     = val2.firstChildElement("C2");
+            const QDomElement errad  = pos2d.firstChildElement("Error2Radius");
+
+            if (date.isNull()   || author.isNull() || sname.isNull() || desc.isNull() ||
+                obsdat.isNull() || obsloc.isNull() || coord.isNull() || time.isNull() ||
+                pos2d.isNull()  || name1.isNull()  || name2.isNull() || val2.isNull() ||
+                c1.isNull()     || c2.isNull()     || errad.isNull())
+                return -1;
+
+            const string unit = pos2d.attribute("unit", "").toStdString();
+
+            const double ra  = c1.text().toDouble();
+            const double dec = c2.text().toDouble();
+            const double err = errad.text().toDouble();
+
+            const string n1 = name1.text().toStdString();
+            const string n2 = name2.text().toStdString();
+
+            Out() << Time(date.text().toStdString()).GetAsStr() << " ----- " << sname.text().toStdString() << '\n';
+            Out() << "[" << desc.text().toStdString()  << "]\n";
+            Out() << left;
+            Out() << "  " << setw(5) << "TIME" << "= " << Time(time.text().toStdString()).GetAsStr() << '\n';
+            Out() << "  " << setw(5) << n1     << "= " << ra  << unit << '\n';
+            Out() << "  " << setw(5) << n2     << "= " << dec << unit << '\n';
+            Out() << "  " << setw(5) << "ERR"  << "= " << err << unit << '\n';
+
+            if (n1=="RA" && n2=="Dec" && unit=="deg")
+            {
+                const double jd = Time().JD();
+
+                const Nova::EquPosn equ = { ra, dec };
+
+                /*
+                 <Group name="Obs_Support_Info" >
+                 <Description>The Sun and Moon values are valid at the time the VOEvent XML message was created.</Description>
+                 <Param name="Sun_RA"        value="117.44" unit="deg" ucd="pos.eq.ra" />
+                 <Param name="Sun_Dec"       value="21.04" unit="deg" ucd="pos.eq.dec" />
+                 <Param name="Sun_Distance"  value="105.22" unit="deg" ucd="pos.angDistance" />
+                 <Param name="Sun_Hr_Angle"  value="-3.70" unit="hr" />
+                 <Param name="Moon_RA"       value="225.90" unit="deg" ucd="pos.eq.ra" />
+                 <Param name="Moon_Dec"      value="-16.75" unit="deg" ucd="pos.eq.dec" />
+                 <Param name="MOON_Distance" value="67.47" unit="deg" ucd="pos.angDistance" />
+                 <Param name="Moon_Illum"    value="69.44" unit="%" ucd="arith.ratio" />
+                 </Group>
+                 */
+
+                const Nova::ZdAzPosn pos = Nova::GetHrzFromEqu(equ, jd);
+                const Nova::EquPosn moon = Nova::GetLunarEquCoords(jd);
+                const Nova::ZdAzPosn sun = Nova::GetHrzFromEqu(Nova::GetSolarEquCoords(jd), jd);
+
+                const double disk = Nova::GetLunarDisk(jd);
+                const double dist = Nova::GetAngularSeparation(equ, moon);
+
+                Out() << "  " << setw(5) << "ZD"   << "= " << pos.zd << "deg\n";
+                Out() << "  " << setw(5) << "Az"   << "= " << pos.az << "deg\n";
+
+                Out() << "  " << setw(5) << "MOON" << "= " << int(disk*100) << "%\n";
+                Out() << "  " << setw(5) << "DIST" << "= " << dist << "deg\n";
+
+                if (dist>10 && dist<170 && pos.zd<80 && sun.zd>108)
+                {
+                    Out() << "  visible ";
+                    if (pos.zd<70)
+                        Out() << '+';
+                    if (pos.zd<60)
+                        Out() << '+';
+                    if (pos.zd<45)
+                        Out() << '+';
+                    Out() << '\n';
+                }
+            }
+
+            Out() << endl;
+
+            if (role=="observation")
+            {
+                return true;
+            }
+
+            if (role=="test")
+            {
+                return true;
+            }
+
+            if (role=="retraction")
+            {
+                return true;
+            }
+
+            if (role=="utility")
+            {
+                return true;
+            }
+
+            return false;
+        }
+
+        return false;
+    }
+
+    void HandleReceivedData(const bs::error_code& err, size_t bytes_received, int type)
+    {
+        // Do not schedule a new read if the connection failed.
+        if (bytes_received==0 || err)
+        {
+            if (err==ba::error::eof)
+                Warn("Connection closed by remote host (GCN).");
+
+            // 107: Transport endpoint is not connected (bs::error_code(107, bs::system_category))
+            // 125: Operation canceled
+            if (err && err!=ba::error::eof &&                     // Connection closed by remote host
+                err!=ba::error::basic_errors::not_connected &&    // Connection closed by remote host
+                err!=ba::error::basic_errors::operation_aborted)  // Connection closed by us
+            {
+                ostringstream str;
+                str << "Reading from " << URL() << ": " << err.message() << " (" << err << ")";// << endl;
+                Error(str);
+            }
+            PostClose(err!=ba::error::basic_errors::operation_aborted);
+            return;
+        }
+
+        if (type==0)
+        {
+            fRxSize = ntohl(fRxSize);
+            fRxData.assign(fRxSize+1, 0);
+            ba::async_read(*this, ba::buffer(fRxData, fRxSize),
+                             boost::bind(&ConnectionGCN::HandleReceivedData, this,
+                                         dummy::error, dummy::bytes_transferred, 1));
+            return;
+        }
+
+        if (fDebugRx)
+        {
+            Out() << "------------------------------------------------------\n";
+            Out() << fRxData.data() << '\n';
+            Out() << "------------------------------------------------------" << endl;
+        }
+
+        QDomDocument doc;
+        if (!doc.setContent(QString(fRxData.data()), false))
+        {
+            Warn("Parsing of xml failed [0].");
+            PostClose(false);
+            return;
+        }
+
+        if (fDebugRx)
+            Out() << "Parsed:\n-------\n" << doc.toString().toStdString() << endl;
+
+        const int rc = ProcessXml(doc.documentElement());
+        if (rc<0)
+        {
+            Warn("Parsing of xml failed [1].");
+            PostClose(false);
+            return;
+        }
+
+        if (!rc)
+        {
+            Out() << "------------------------------------------------------\n";
+            Out() << doc.toString().toStdString() << '\n';
+            Out() << "------------------------------------------------------" << endl;
+        }
+
+        StartRead();
+    }
+
+    void StartRead()
+    {
+        ba::async_read(*this, ba::buffer(&fRxSize, 4),
+                             boost::bind(&ConnectionGCN::HandleReceivedData, this,
+                                         dummy::error, dummy::bytes_transferred, 0));
+    }
+
+    // This is called when a connection was established
+    void ConnectionEstablished()
+    {
+        StartRead();
+    }
+
+public:
+    ConnectionGCN(ba::io_service& ioservice, MessageImp &imp) : Connection(ioservice, imp()),
+        fIsVerbose(false), fDebugRx(false)
+    {
+        SetLogStream(&imp);
+    }
+
+    void SetVerbose(bool b)
+    {
+        fIsVerbose = b;
+    }
+
+    void SetDebugRx(bool b)
+    {
+        fDebugRx = b;
+        Connection::SetVerbose(b);
+    }
+
+    void SetEndPoints(const vector<string> &v)
+    {
+        fEndPoints = v;
+        fEndPoint = 0;
+    }
+
+    void StartConnect()
+    {
+        if (fEndPoints.size()>0)
+            SetEndpoint(fEndPoints[fEndPoint++%fEndPoints.size()]);
+        Connection::StartConnect();
+    }
+};
+
+// ------------------------------------------------------------------------
+
+#include "DimDescriptionService.h"
+
+class ConnectionDimGCN : public ConnectionGCN
+{
+private:
+
+public:
+    ConnectionDimGCN(ba::io_service& ioservice, MessageImp &imp) : ConnectionGCN(ioservice, imp)
+    {
+    }
+};
+
+// ------------------------------------------------------------------------
+
+template <class T, class S>
+class StateMachineGCN : public StateMachineAsio<T>
+{
+private:
+    S fGCN;
+
+    int Disconnect()
+    {
+        // Close all connections
+        fGCN.PostClose(false);
+
+        return T::GetCurrentState();
+    }
+
+    int Reconnect(const EventImp &evt)
+    {
+        // Close all connections to supress the warning in SetEndpoint
+        fGCN.PostClose(false);
+
+        // Now wait until all connection have been closed and
+        // all pending handlers have been processed
+        ba::io_service::poll();
+
+        if (evt.GetBool())
+            fGCN.SetEndpoint(evt.GetString());
+
+        // Now we can reopen the connection
+        fGCN.PostClose(true);
+
+        return T::GetCurrentState();
+    }
+
+    int Execute()
+    {
+        return fGCN.IsConnected() ? State::kConnected : State::kDisconnected;
+    }
+
+    bool CheckEventSize(size_t has, const char *name, size_t size)
+    {
+        if (has==size)
+            return true;
+
+        ostringstream msg;
+        msg << name << " - Received event has " << has << " bytes, but expected " << size << ".";
+        T::Fatal(msg);
+        return false;
+    }
+
+    int SetVerbosity(const EventImp &evt)
+    {
+        if (!CheckEventSize(evt.GetSize(), "SetVerbosity", 1))
+            return T::kSM_FatalError;
+
+        fGCN.SetVerbose(evt.GetBool());
+
+        return T::GetCurrentState();
+    }
+
+    int SetDebugRx(const EventImp &evt)
+    {
+        if (!CheckEventSize(evt.GetSize(), "SetDebugRx", 1))
+            return T::kSM_FatalError;
+
+        fGCN.SetDebugRx(evt.GetBool());
+
+        return T::GetCurrentState();
+    }
+
+public:
+    StateMachineGCN(ostream &out=cout) :
+        StateMachineAsio<T>(out, "GCN"), fGCN(*this, *this)
+    {
+        // State names
+        T::AddStateName(State::kDisconnected, "Disconnected",
+                     "No connection to GCN.");
+
+        T::AddStateName(State::kConnected, "Connected",
+                     "Connection to GCN established.");
+
+        // Verbosity commands
+        T::AddEvent("SET_VERBOSE", "B:1")
+            (bind(&StateMachineGCN::SetVerbosity, this, placeholders::_1))
+            ("set verbosity state"
+             "|verbosity[bool]:disable or enable verbosity for received data (yes/no), except dynamic data");
+
+        T::AddEvent("SET_DEBUG_RX", "B:1")
+            (bind(&StateMachineGCN::SetDebugRx, this, placeholders::_1))
+            ("Set debux-rx state"
+             "|debug[bool]:dump received text and parsed text to console (yes/no)");
+
+
+        // Conenction commands
+        T::AddEvent("DISCONNECT", State::kConnected)
+            (bind(&StateMachineGCN::Disconnect, this))
+            ("disconnect from ethernet");
+
+        T::AddEvent("RECONNECT", "O", State::kDisconnected, State::kConnected)
+            (bind(&StateMachineGCN::Reconnect, this, placeholders::_1))
+            ("(Re)connect ethernet connection to FTM, a new address can be given"
+             "|[host][string]:new ethernet address in the form <host:port>");
+
+        fGCN.StartConnect();
+    }
+
+    void SetEndpoint(const string &url)
+    {
+        vector<string> v;
+        v.push_back(url);
+        fGCN.SetEndPoints(v);
+    }
+
+    vector<string> fEndPoints;
+
+    int EvalOptions(Configuration &conf)
+    {
+        fGCN.SetVerbose(!conf.Get<bool>("quiet"));
+        fGCN.SetEndPoints(conf.Vec<string>("addr"));
+
+        return -1;
+    }
+};
+
+// ------------------------------------------------------------------------
+
+#include "Main.h"
+
+template<class T, class S, class R>
+int RunShell(Configuration &conf)
+{
+    return Main::execute<T, StateMachineGCN<S, R>>(conf);
+}
+
+void SetupConfiguration(Configuration &conf)
+{
+    po::options_description control("FTM control options");
+    control.add_options()
+        ("no-dim",        po_bool(),  "Disable dim services")
+        ("addr,a",        vars<string>(),  "Network addresses of GCN server")
+        ("quiet,q",       po_bool(true),  "Disable printing contents of all received messages (except dynamic data) in clear text.")
+        ;
+
+    conf.AddOptions(control);
+}
+
+/*
+ Extract usage clause(s) [if any] for SYNOPSIS.
+ Translators: "Usage" and "or" here are patterns (regular expressions) which
+ are used to match the usage synopsis in program output.  An example from cp
+ (GNU coreutils) which contains both strings:
+  Usage: cp [OPTION]... [-T] SOURCE DEST
+    or:  cp [OPTION]... SOURCE... DIRECTORY
+    or:  cp [OPTION]... -t DIRECTORY SOURCE...
+ */
+void PrintUsage()
+{
+    cout <<
+        "The gcn reads and evaluates alerts from the GCN network.\n"
+        "\n"
+        "The default is that the program is started without user intercation. "
+        "All actions are supposed to arrive as DimCommands. Using the -c "
+        "option, a local shell can be initialized. With h or help a short "
+        "help message about the usuage can be brought to the screen.\n"
+        "\n"
+        "Usage: gcn [-c type] [OPTIONS]\n"
+        "  or:  gcn [OPTIONS]\n";
+    cout << endl;
+}
+
+void PrintHelp()
+{
+    Main::PrintHelp<StateMachineGCN<StateMachine, ConnectionGCN>>();
+
+    /* Additional help text which is printed after the configuration
+     options goes here */
+
+    /*
+     cout << "bla bla bla" << endl << endl;
+     cout << endl;
+     cout << "Environment:" << endl;
+     cout << "environment" << endl;
+     cout << endl;
+     cout << "Examples:" << endl;
+     cout << "test exam" << endl;
+     cout << endl;
+     cout << "Files:" << endl;
+     cout << "files" << endl;
+     cout << endl;
+     */
+}
+
+int main(int argc, const char* argv[])
+{
+    Configuration conf(argv[0]);
+    conf.SetPrintUsage(PrintUsage);
+    Main::SetupConfiguration(conf);
+    SetupConfiguration(conf);
+
+    if (!conf.DoParse(argc, argv, PrintHelp))
+        return 127;
+
+    //try
+    {
+        // No console access at all
+        if (!conf.Has("console"))
+        {
+            if (conf.Get<bool>("no-dim"))
+                return RunShell<LocalStream, StateMachine, ConnectionGCN>(conf);
+            else
+                return RunShell<LocalStream, StateMachineDim, ConnectionDimGCN>(conf);
+        }
+        // Cosole access w/ and w/o Dim
+        if (conf.Get<bool>("no-dim"))
+        {
+            if (conf.Get<int>("console")==0)
+                return RunShell<LocalShell, StateMachine, ConnectionGCN>(conf);
+            else
+                return RunShell<LocalConsole, StateMachine, ConnectionGCN>(conf);
+        }
+        else
+        {
+            if (conf.Get<int>("console")==0)
+                return RunShell<LocalShell, StateMachineDim, ConnectionDimGCN>(conf);
+            else
+                return RunShell<LocalConsole, StateMachineDim, ConnectionDimGCN>(conf);
+        }
+    }
+    /*catch (std::exception& e)
+    {
+        cerr << "Exception: " << e.what() << endl;
+        return -1;
+    }*/
+
+    return 0;
+}
