/*
 *  sydra
 *
 *  sydra is a toolbox which allows you to set up multiple bidirectional
 *  Video/Audio streams from external locations.
 *  sydra has been written to be used for the Elevate Festival in Graz
 *  Austria in order to involve external locations to present themselves
 *  at the festival.
 *  Sydra is based on GStreamer and is written in C.
 *
 *
 *  Copyright (C) 2014 Christian Pointner <equinox@spreadspace.org>
 *
 *  This file is part of sydra.
 *
 *  sydra is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  any later version.
 *
 *  sydra 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 for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with sydra. If not, see <http://www.gnu.org/licenses/>.
 *
 *  In addition, as a special exception, the copyright holders hereby
 *  grant permission for non-GPL-compatible GStreamer plugins to be used
 *  and distributed together with GStreamer and sydra.
 *  This permission goes above and beyond the permissions granted by the
 *  GPL license sydra is covered by.
 */

#define _GNU_SOURCE
#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netdb.h>

#include <glib.h>
#include <glib-unix.h>
#include <gio/gio.h>
#include <gst/gst.h>

#include "datatypes.h"
#include "options.h"
#include "string_list.h"
#include "log.h"
#include "daemon.h"

static gboolean sig_handler_terminate(gpointer user_data)
{
  GMainLoop *loop = (GMainLoop *)user_data;

  log_printf(NOTICE, "signal received, closing application");
  g_main_loop_quit(loop);
  return TRUE;
}

static gboolean bus_call(GstBus *bus, GstMessage *msg, gpointer data)
{
  GMainLoop *loop = (GMainLoop *)data;

  switch (GST_MESSAGE_TYPE(msg)) {
  case GST_MESSAGE_EOS: {
    log_printf(NOTICE, "End of stream");
    g_main_loop_quit(loop);
    break;
  }
  case GST_MESSAGE_INFO: {
    GError *info;
    gst_message_parse_info(msg, &info, NULL);
    log_printf(INFO, "%s", info->message);
    g_error_free(info);
    break;
  }
  case GST_MESSAGE_WARNING: {
    GError *warning;
    gst_message_parse_warning(msg, &warning, NULL);
    log_printf(WARNING, "%s", warning->message);
    g_error_free(warning);
    break;
  }
  case GST_MESSAGE_ERROR: {
    GError *error;
    gst_message_parse_error(msg, &error, NULL);
    log_printf(ERROR, "%s", error->message);
    g_error_free(error);
    g_main_loop_quit(loop);
    break;
  }
  case GST_MESSAGE_STATE_CHANGED: {
    GstState old_state, new_state;
    gst_message_parse_state_changed(msg, &old_state, &new_state, NULL);
    log_printf(DEBUG, "Element '%s' changed state from %s to %s",
        (msg->src ? GST_OBJECT_NAME(msg->src) : "NULL"),
        gst_element_state_get_name(old_state),
        gst_element_state_get_name(new_state));
    break;
  }
  case GST_MESSAGE_NEW_CLOCK:
  {
    GstClock *clock;
    gst_message_parse_new_clock(msg, &clock);
    log_printf(INFO, "New clock: %s", (clock ? GST_OBJECT_NAME (clock) : "NULL"));
    break;
  }
  case GST_MESSAGE_QOS: {
    guint64 running_time, stream_time, timestamp, duration;
    gst_message_parse_qos(msg, NULL, &running_time, &stream_time, &timestamp, &duration);
    log_printf(WARNING, "Element '%s' dropped frames running_time=%lu, stream_time=%lu, timestamp=%lu, duration=%lu",
        (msg->src ? GST_OBJECT_NAME(msg->src) : "NULL"), running_time, stream_time, timestamp, duration);
    break;
  }
  /* case GST_MESSAGE_STREAM_STATUS: */
  /* { */
  /*   GstStreamStatusType type; */
  /*   GstElement *owner; */
  /*   const GValue *val; */
  /*   gchar *path, *ownerstr; */
  /*   GstTask *task = NULL; */

  /*   gst_message_parse_stream_status (msg, &type, &owner); */
  /*   val = gst_message_get_stream_status_object (msg); */

  /*   path = gst_object_get_path_string (GST_MESSAGE_SRC (msg)); */
  /*   ownerstr = gst_object_get_path_string (GST_OBJECT (owner)); */
  /*   log_printf(DEBUG,"Recevied Stream-Status message type: %d, source: %s, owner: %s, object: type %s, value %p", */
  /*                       type, path, ownerstr, G_VALUE_TYPE_NAME (val), g_value_get_object (val)); */
  /*   g_free (path); */
  /*   g_free (ownerstr); */

  /*   /\* see if we know how to deal with this object *\/ */
  /*   if (G_VALUE_TYPE (val) == GST_TYPE_TASK) { */
  /*     task = g_value_get_object (val); */
  /*   } */

  /*   switch (type) { */
  /*     case GST_STREAM_STATUS_TYPE_CREATE: */
  /*       log_printf(DEBUG,"   created task %p", task); */
  /*       break; */
  /*     case GST_STREAM_STATUS_TYPE_ENTER: */
  /*       /\* log_printf(DEBUG,"   raising task priority"); *\/ */
  /*       /\* setpriority (PRIO_PROCESS, 0, -10); *\/ */
  /*       break; */
  /*     case GST_STREAM_STATUS_TYPE_LEAVE: */
  /*       break; */
  /*     default: */
  /*       break; */
  /*   } */
  /*   break; */
  /* } */
  default:
    log_printf(DEBUG, "unkonwn message %s from %s", GST_MESSAGE_TYPE_NAME(msg), GST_MESSAGE_SRC_NAME(msg));
    return TRUE;
  }
  return TRUE;
}

static GstElement* sydra_create_bin_from_desc(const char* type, const char* desc)
{
  GError *error = NULL;
  GstElement *bin =  gst_parse_bin_from_description(desc, TRUE, &error);
  if(!bin) {
    log_printf(ERROR, "Bin description for %s parser error: %s", type, error ? error->message : "unknown");
    g_error_free(error);
    return NULL;
  }
  if(error) {
    log_printf(WARNING, "Bin description for %s parser warning: %s", type, error ? error->message : "unknown");
    g_error_free(error);
  }
  return bin;
}

static GstElement* sydra_create_element(const char* type, const char* name)
{
  GstElement *e = gst_element_factory_make (type, name);
  if(!e) {
    log_printf(ERROR, "Error creating element %s%sof type %s", name ? name : "", name ? " " : "", type);
    return NULL;
  }
  return e;
}

static gboolean sydra_link_pads(GstElement* src, GstPad* src_pad, const char* src_pad_name, GstElement* sink, GstPad* sink_pad, const char* sink_pad_name)
{
  if(!src_pad || !sink_pad)
    return FALSE;

  GstPadLinkReturn ret = gst_pad_link(src_pad, sink_pad);
  gst_object_unref(GST_OBJECT(src_pad));
  gst_object_unref(GST_OBJECT(sink_pad));

  if(GST_PAD_LINK_FAILED(ret)) {
    gchar* src_name = gst_element_get_name(src);
    gchar* sink_name = gst_element_get_name(sink);
    log_printf(ERROR, "Error linking pad '%s' of '%s' with pad '%s' of '%s'",
               src_pad_name, src_name, sink_pad_name, sink_name);
    g_free(src_name);
    g_free(sink_name);
    return FALSE;
  }
  return TRUE;
}

static gboolean sydra_link_request_static(GstElement* src, const char* src_pad_name, GstElement* sink, const char* sink_pad_name)
{
  GstPad *src_pad = gst_element_get_request_pad(src, src_pad_name);
  GstPad *sink_pad = gst_element_get_static_pad(sink, sink_pad_name);
  return sydra_link_pads(src, src_pad, src_pad_name, sink, sink_pad, sink_pad_name);
}

static gboolean sydra_link_static_request(GstElement* src, const char* src_pad_name, GstElement* sink, const char* sink_pad_name)
{
  GstPad *src_pad = gst_element_get_static_pad(src, src_pad_name);
  GstPad *sink_pad = gst_element_get_request_pad(sink, sink_pad_name);
  return sydra_link_pads(src, src_pad, src_pad_name, sink, sink_pad, sink_pad_name);
}

static gboolean sydra_link_static_static(GstElement* src, const char* src_pad_name, GstElement* sink, const char* sink_pad_name)
{
  GstPad *src_pad = gst_element_get_static_pad(src, src_pad_name);
  GstPad *sink_pad = gst_element_get_static_pad(sink, sink_pad_name);
  return sydra_link_pads(src, src_pad, src_pad_name, sink, sink_pad, sink_pad_name);
}

static gboolean sydra_link_static_compatible(GstElement* src, const char* src_pad_name, GstElement* sink)
{
  GstPad *src_pad = gst_element_get_static_pad(src, src_pad_name);
  if(!src_pad) return FALSE;

  GstPad *sink_pad = gst_element_get_compatible_pad(sink, src_pad, NULL);
  if(!sink_pad) return FALSE;

  gchar* sink_pad_name = gst_pad_get_name(sink_pad);
  gboolean res = sydra_link_pads(src, src_pad, src_pad_name, sink, sink_pad, sink_pad_name);
  g_free(sink_pad_name);

  return res;
}

struct media_elements {
  const char* name_;

  const char* src_str_;
  GstElement* src_;

  GstElement* tee_raw_;

  const char* enc_str_;
  GstElement* enc_;

  GstElement* tee_enc_;

  const char* payloader_str_;
  GstElement* payloader_;
};

static gboolean create_media_elements(struct media_elements *me, GstElement* pipeline, GstElement *rtp, uint32_t idx)
{
  char bin_name[32];

  snprintf(bin_name, sizeof(bin_name), "%s source", me->name_);
  me->src_ = sydra_create_bin_from_desc(bin_name, me->src_str_);
  me->tee_raw_ = sydra_create_element("tee", NULL);
  GstElement *qr = sydra_create_element("queue", NULL);

  snprintf(bin_name, sizeof(bin_name), "%s encoder", me->name_);
  me->enc_ = sydra_create_bin_from_desc(bin_name, me->enc_str_);
  me->tee_enc_ = sydra_create_element("tee", NULL);
  GstElement *qe = sydra_create_element("queue", NULL);

  me->payloader_ = sydra_create_element(me->payloader_str_, NULL);

  if(!me->src_ || !me->tee_raw_ || !qr || !me->enc_ || !me->tee_enc_ || !qe || !me->payloader_) {
    return FALSE;
  }

  log_printf(DEBUG, "%s path created successfully!", me->name_);

  gst_bin_add_many (GST_BIN(pipeline), me->src_, me->tee_raw_, qr, me->enc_, me->tee_enc_, qe, me->payloader_, NULL);
  gst_element_link(me->src_, me->tee_raw_);
  gst_element_link_many(qr, me->enc_, me->tee_enc_, NULL);
  gst_element_link(qe, me->payloader_);

  char pad_name[32];
  snprintf(pad_name, sizeof(bin_name), "send_rtp_sink_%u", idx);
  if(!sydra_link_request_static(me->tee_raw_, "src_%u", qr, "sink") ||
     !sydra_link_request_static(me->tee_enc_, "src_%u", qe, "sink") ||
     !sydra_link_static_request(me->payloader_, "src", rtp, pad_name)) {
    return FALSE;
  }

  log_printf(DEBUG, "%s path linked successfully!", me->name_);
  return TRUE;
}

struct udp_elements {
  GstElement *rtp_video_;
  GstElement *rtcp_video_;
  GstElement *rtp_audio_;
  GstElement *rtcp_audio_;
};

static gboolean create_udp_elements(options_t* opt, GstElement* pipeline, GstElement* rtp, struct udp_elements *udp)
{
  udp->rtp_video_ = sydra_create_element("udpsink", "udprtpv");
  udp->rtcp_video_ = sydra_create_element("udpsink", "udprtcpv");
  udp->rtp_audio_ = sydra_create_element("udpsink", "udprtpa");
  udp->rtcp_audio_ = sydra_create_element("udpsink", "udprtcpa");

  if(!udp->rtp_video_ || !udp->rtcp_video_ || !udp->rtp_audio_ || !udp->rtcp_audio_)
    return FALSE;

  log_printf(DEBUG, "udp elements created successfully!");

  int rtp_port = opt->rtp_port_base_;
  int rtp_port_local = opt->rtp_port_base_local_;
  g_object_set(G_OBJECT(udp->rtp_video_), "host", opt->rtp_host_, "port", rtp_port++,
               "bind-port", rtp_port_local++, NULL);
  g_object_set(G_OBJECT(udp->rtcp_video_), "host", opt->rtp_host_, "port", rtp_port++,
               "bind-port", rtp_port_local++, "sync", FALSE, "async", FALSE, NULL);
  g_object_set(G_OBJECT(udp->rtp_audio_), "host", opt->rtp_host_, "port", rtp_port++,
               "bind-port", rtp_port_local++, NULL);
  g_object_set(G_OBJECT(udp->rtcp_audio_), "host", opt->rtp_host_, "port", rtp_port++,
               "bind-port", rtp_port_local++, "sync", FALSE, "async", FALSE, NULL);

  if(opt->rtp_addr_local_) {
    g_object_set(G_OBJECT(udp->rtp_video_), "bind-address", opt->rtp_addr_local_, NULL);
    g_object_set(G_OBJECT(udp->rtcp_video_), "bind-address", opt->rtp_addr_local_, NULL);
    g_object_set(G_OBJECT(udp->rtp_audio_), "bind-address", opt->rtp_addr_local_, NULL);
    g_object_set(G_OBJECT(udp->rtcp_audio_), "bind-address", opt->rtp_addr_local_, NULL);
  }

  gst_bin_add_many(GST_BIN (pipeline), udp->rtp_video_, udp->rtcp_video_, udp->rtp_audio_, udp->rtcp_audio_, NULL);

  if(!sydra_link_static_static(rtp, "send_rtp_src_0", udp->rtp_video_, "sink") ||
     !sydra_link_request_static(rtp, "send_rtcp_src_0", udp->rtcp_video_, "sink") ||
     !sydra_link_static_static(rtp, "send_rtp_src_1", udp->rtp_audio_, "sink") ||
     !sydra_link_request_static(rtp, "send_rtcp_src_1", udp->rtcp_audio_, "sink"))
    return FALSE;

  log_printf(DEBUG, "udp elements linked successfully!");

  return TRUE;
}

static gboolean create_preview_elements(const char* preview_bin_desc, GstElement* pipeline, GstElement* tee)
{
  GstElement *qr = sydra_create_element("queue", NULL);
  GstElement *to = sydra_create_element("textoverlay", NULL);
  GstElement *preview_bin = sydra_create_bin_from_desc("preview sink", preview_bin_desc);

  if(!qr || !to || !preview_bin) {
    return FALSE;
  }

  log_printf(DEBUG, "preview path created successfully!");

  g_object_set(G_OBJECT(to), "text", " local ", "halignment", 1 , "valignment", 0,
                             "shaded-background", TRUE, "font-desc", "Sans 18", NULL);

  gst_bin_add_many (GST_BIN(pipeline), qr, to, preview_bin, NULL);
  gst_element_link_many(qr, to, preview_bin, NULL);

  if(!sydra_link_request_static(tee, "src_%u", qr, "sink")) {
    return FALSE;
  }

  log_printf(DEBUG, "preview path linked successfully!");
  return TRUE;
}

static gboolean create_recorder_elements(options_t* opt, GstElement* pipeline, struct media_elements *mv, struct media_elements *ma)
{
  GstElement *qv = sydra_create_element("queue", NULL);
  GstElement *qa = sydra_create_element("queue", NULL);
  GstElement *mux = sydra_create_element(opt->rec_mux_, NULL);
  GstElement *sink = sydra_create_element("filesink", NULL);

  if(!qv || !qa || !mux || !sink) {
    return FALSE;
  }

  GstElement *ev = NULL, *tv = mv->tee_enc_;
  if(opt->video_enc_rec_) {
    ev = sydra_create_bin_from_desc("record video encoder", opt->video_enc_rec_);
    if(!ev) return FALSE;
    tv = mv->tee_raw_;
  }
  GstElement *ea = NULL, *ta = ma->tee_enc_;
  if(opt->audio_enc_rec_) {
    ea = sydra_create_bin_from_desc("record audio encoder", opt->audio_enc_rec_);
    if(!ea) return FALSE;
    ta = ma->tee_raw_;
  }

  log_printf(DEBUG, "recorder path created successfully!");

  struct timespec now;
  clock_gettime(CLOCK_REALTIME, &now);
  struct tm bd_time;
  localtime_r(&(now.tv_sec), &bd_time);
  char recfile[1024]; //TODO: fix this hardcoded length
  recfile[0] = 0;
  strftime(recfile, sizeof(recfile), opt->rec_name_format_, &bd_time);
  g_object_set(G_OBJECT(sink), "location", recfile, NULL);

  gst_bin_add_many(GST_BIN(pipeline), qv, qa, mux, sink, NULL);
  gst_element_link(mux, sink);
  GstElement* sv = qv;
  if(ev) {
    gst_bin_add(GST_BIN(pipeline), ev);
    gst_element_link(qv, ev);
    sv = ev;
  }
  GstElement* sa = qa;
  if(ev) {
    gst_bin_add(GST_BIN(pipeline), ea);
    gst_element_link(qa, ea);
    sa = ea;
  }

  if(!sydra_link_request_static(tv, "src_%u", qv, "sink") ||
     !sydra_link_static_compatible(sv, "src", mux) ||
     !sydra_link_request_static(ta, "src_%u", qa, "sink") ||
     !sydra_link_static_compatible(sa, "src", mux)) {
    return FALSE;
  }

  log_printf(DEBUG, "recorder path linked successfully!");
  return TRUE;
}

static GstElement* create_pipeline(options_t* opt, struct udp_elements *udp)
{
  GstElement *pipeline = gst_pipeline_new ("sydra");
  if(!pipeline) {
    log_printf(ERROR, "Creating pipeline failed!");
    return NULL;
  }
  GstElement *rtp = sydra_create_element("rtpbin", "rtpbin");
  if(!rtp || !gst_bin_add(GST_BIN(pipeline), rtp)) {
    return NULL;
  }
  log_printf(DEBUG, "rtpbin created successfully!");

  struct media_elements video = { "video", opt->video_src_, NULL, NULL,
                                  opt->video_enc_, NULL, NULL,
                                  opt->video_payloader_, NULL };
  struct media_elements audio = { "audio", opt->audio_src_, NULL, NULL,
                                  opt->audio_enc_, NULL, NULL,
                                  opt->audio_payloader_, NULL };
  if(!create_media_elements(&video, pipeline, rtp, 0) ||
     !create_media_elements(&audio, pipeline, rtp, 1) ||
     !create_udp_elements(opt, pipeline, rtp, udp)) {
    return NULL;
  }

  if(opt->preview_videosink_) {
    if(!create_preview_elements(opt->preview_videosink_, pipeline, video.tee_raw_))
      return NULL;
  }

  if(opt->rec_mux_) {
    if(!create_recorder_elements(opt, pipeline, &video, &audio))
      return NULL;
  }

  log_printf(DEBUG, "pipeline created successfully!");
  return pipeline;
}


static void udp_add_client(struct sockaddr_storage *addr, socklen_t addrlen, GstElement* udp)
{
  char addrstr[INET6_ADDRSTRLEN + 1];
  u_short port;
  char addrport_sep = ':';

  switch(addr->ss_family)
  {
  case AF_INET: addrport_sep = ':'; port = ntohs(((struct sockaddr_in*)addr)->sin_port); break;
  case AF_INET6: addrport_sep = '.'; port = ntohs(((struct sockaddr_in6*)addr)->sin6_port); break;
  default: return;
  }

  int errcode  = getnameinfo((struct sockaddr *)addr, addrlen, addrstr, sizeof(addrstr), NULL, 0, NI_NUMERICHOST | NI_NUMERICSERV);
  if (errcode != 0) {
    log_printf(WARNING, "getnameinfo() error: %s", gai_strerror(errcode));
    return;
  }
  gchar* name = gst_element_get_name(udp);
  log_printf(DEBUG, "adding host %s%c%d to list of receivers to element %s", addrstr, addrport_sep, port, name);
  g_free(name);
  g_signal_emit_by_name(udp, "add", addrstr, port, NULL);
}

static gboolean on_udp_desc_ready(gint fd, GIOCondition cond, gpointer user_data)
{
  GstElement* udp = (GstElement*)user_data;
  if(!udp) {
    log_printf(WARNING, "File descriptor %d is ready for reading - but supplied element is NULL removing callback", fd);
    return FALSE;
  }

  struct sockaddr_storage addr;
  socklen_t addrlen = sizeof(addr);
  char buf[2048];
  ssize_t bytes = recvfrom(fd, buf, sizeof(buf), 0, (struct sockaddr *)&addr, &addrlen);
  if(bytes < 1) {
    if(errno == EINTR)
      return TRUE;

    log_printf(WARNING, "Error while receiving UDP data on fd %d, will remove callback", fd);
    return FALSE;
  }

  udp_add_client(&addr, addrlen, udp);
  return TRUE;
}

static gboolean attach_udp_descriptor(GstElement* udp, const char* name, const char* prop)
{
  GSocket *sock;
  g_object_get(G_OBJECT(udp), prop, &sock, NULL);
  int fd = g_socket_get_fd(sock);

  guint id = g_unix_fd_add(fd, G_IO_IN, on_udp_desc_ready, udp);
  if(id <= 0) {
    log_printf(ERROR, "Error while adding %s file descriptor (%d) to main loop", name, fd);
    return FALSE;
  }
  log_printf(DEBUG, "successfully installed callback for %s (fd: %d) for reading (id: %d)", name, fd, id);
  return TRUE;
}


static gboolean attach_udp_descriptors(struct udp_elements *udp)
{
  if(!attach_udp_descriptor(udp->rtp_video_, "RTP(video)", "used-socket") ||
     !attach_udp_descriptor(udp->rtp_video_, "RTP(video)", "used-socket-v6") ||
     !attach_udp_descriptor(udp->rtcp_video_, "RTCP(video)", "used-socket") ||
     !attach_udp_descriptor(udp->rtcp_video_, "RTCP(video)", "used-socket-v6") ||
     !attach_udp_descriptor(udp->rtp_audio_, "RTP(audio)", "used-socket") ||
     !attach_udp_descriptor(udp->rtp_audio_, "RTP(audio)", "used-socket-v6") ||
     !attach_udp_descriptor(udp->rtcp_audio_, "RTCP(audio)", "used-socket") ||
     !attach_udp_descriptor(udp->rtcp_audio_, "RTCP(audio)", "used-socket-v6")) {
    return FALSE;
  }
  return TRUE;
}


int main_loop(options_t* opt)
{
  log_printf(INFO, "entering main loop");

  struct udp_elements udp;
  GstElement *pipeline = create_pipeline(opt, &udp);
  if(!pipeline) {
    log_printf(ERROR, "creating pipeline failed");
    return -1;
  }

  GMainLoop *loop = g_main_loop_new(NULL, FALSE);

  GstBus *bus = gst_pipeline_get_bus(GST_PIPELINE(pipeline));
  gst_bus_add_watch(bus, bus_call, loop);
  gst_object_unref(bus);

  gulong deep_notify_id = 0;
  if(opt->debug_) {
    deep_notify_id = g_signal_connect (pipeline, "deep-notify",
        G_CALLBACK (gst_object_default_deep_notify), NULL);
  }

  log_printf(INFO, "Set State: Paused");
  gst_element_set_state(pipeline, GST_STATE_PAUSED);

  if(!attach_udp_descriptors(&udp))
    return -1;

  log_printf(INFO, "Set State: Playing");
  gst_element_set_state(pipeline, GST_STATE_PLAYING);

  g_unix_signal_add(SIGHUP, sig_handler_terminate, loop);
  g_unix_signal_add(SIGINT, sig_handler_terminate, loop);
  g_unix_signal_add(SIGTERM, sig_handler_terminate, loop);
  g_main_loop_run(loop);

  if (deep_notify_id != 0)
    g_signal_handler_disconnect (pipeline, deep_notify_id);

  log_printf(NOTICE, "Stopping pipeline");
  gst_element_set_state (pipeline, GST_STATE_NULL);
  gst_object_unref(GST_OBJECT(pipeline));

  return 0;
}

int main(int argc, char* argv[])
{
  log_init();

  options_t opt;
  int ret = options_parse(&opt, argc, argv);
  if(ret) {
    if(ret > 0)
      fprintf(stderr, "syntax error near: %s\n\n", argv[ret]);
    if(ret == -2)
      fprintf(stderr, "memory error on options_parse, exitting\n");
    if(ret == -3)
      options_print_version();
    if(ret == -4)
      fprintf(stderr, "the port number is invalid\n");

    if(ret != -2 && ret != -3 && ret != -4)
      options_print_usage();

    if(ret == -1 || ret == -3)
      ret = 0;

    options_clear(&opt);
    log_close();
    exit(ret);
  }
  slist_element_t* tmp = opt.log_targets_.first_;
  while(tmp) {
    ret = log_add_target(tmp->data_);
    if(ret) {
      switch(ret) {
      case -2: fprintf(stderr, "memory error on log_add_target, exitting\n"); break;
      case -3: fprintf(stderr, "unknown log target: '%s', exitting\n", (char*)(tmp->data_)); break;
      case -4: fprintf(stderr, "this log target is only allowed once: '%s', exitting\n", (char*)(tmp->data_)); break;
      default: fprintf(stderr, "syntax error near: '%s', exitting\n", (char*)(tmp->data_)); break;
      }

      options_clear(&opt);
      log_close();
      exit(ret);
    }
    tmp = tmp->next_;
  }

  log_printf(NOTICE, "just started...");
  options_parse_post(&opt);

  if(opt.debug_)
    options_print(&opt);


  if(opt.appname_)
    g_set_prgname (opt.appname_);
  else
    g_set_prgname (opt.progname_);

  priv_info_t priv;
  if(opt.username_)
    if(priv_init(&priv, opt.username_, opt.groupname_)) {
      options_clear(&opt);
      log_close();
      exit(-1);
    }

  FILE* pid_file = NULL;
  if(opt.pid_file_) {
    pid_file = fopen(opt.pid_file_, "w");
    if(!pid_file) {
      log_printf(WARNING, "unable to open pid file: %s", strerror(errno));
    }
  }

  if(opt.chroot_dir_)
    if(do_chroot(opt.chroot_dir_)) {
      options_clear(&opt);
      log_close();
      exit(-1);
    }
  if(opt.username_)
    if(priv_drop(&priv)) {
      options_clear(&opt);
      log_close();
      exit(-1);
    }

  if(opt.daemonize_) {
    pid_t oldpid = getpid();
    daemonize();
    log_printf(INFO, "running in background now (old pid: %d)", oldpid);
  }

  if(pid_file) {
    pid_t pid = getpid();
    fprintf(pid_file, "%d", pid);
    fclose(pid_file);
  }

  gst_init(NULL, NULL);
  const gchar *nano_str;
  guint major, minor, micro, nano;
  gst_version(&major, &minor, &micro, &nano);
  if (nano == 1)
    nano_str = " (CVS)";
  else if (nano == 2)
    nano_str = " (Prerelease)";
  else
    nano_str = "";
  log_printf(NOTICE, "sydra linked against GStreamer %d.%d.%d%s", major, minor, micro, nano_str);

  ret = main_loop(&opt);

  options_clear(&opt);

  log_printf(NOTICE, "sydra shutdown");

  gst_deinit();
  log_close();

  return ret;
}