#include <gst/gst.h>
#include <glib.h>
#include <stdio.h>

GstElement *pipeline;
GstElement *src;

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

  switch (GST_MESSAGE_TYPE (msg)) {

    case GST_MESSAGE_EOS:
      g_print ("End of stream\n");
      g_main_loop_quit (loop);
      break;

    case GST_MESSAGE_ERROR: {
      gchar  *debug;
      GError *error;

      gst_message_parse_error (msg, &error, &debug);
      g_free (debug);

      g_printerr ("Error: %s\n", error->message);
      g_error_free (error);

      g_main_loop_quit (loop);
      break;
    }
    default:
      break;
  }

  return TRUE;
}

static void
print_cookies (void)
{
  gchar **cookies;
  gchar **c;

  g_object_get (G_OBJECT (src), "cookies", &cookies, NULL);

  printf ("COOKIES:\n");
  for (c = cookies; c != NULL && *c != NULL; c++) {
    printf ("%s\n", *c);
  }
  printf ("\n");

  g_strfreev (cookies);
}

int
main (int   argc,
      char *argv[])
{
  GMainLoop *loop;
  gint i;

  GstBus *bus;
  guint bus_watch_id;

  /* Initialisation */
  gst_init (&argc, &argv);

  loop = g_main_loop_new (NULL, FALSE);

  /* Check input arguments */
  if (argc < 2) {
    g_printerr ("Usage: %s <url list>\n", argv[0]);
    return -1;
  }

  /* Create gstreamer elements */
  pipeline = gst_parse_launch ("souphttpsrc name=src keep-alive=1 ! fakesink", NULL);
  src = gst_bin_get_by_name (GST_BIN (pipeline), "src");

  /* we add a message handler */
  bus = gst_pipeline_get_bus (GST_PIPELINE (pipeline));
  bus_watch_id = gst_bus_add_watch (bus, bus_call, loop);
  gst_object_unref (bus);

  for (i = 1; i < argc; i++) {
    g_object_set (G_OBJECT (src), "location", argv[i], NULL);

    /* Set the pipeline to "playing" state*/
    g_print ("Now playing: %s\n", argv[i]);
    gst_element_set_state (pipeline, GST_STATE_PLAYING);

    g_print ("Running...\n");
    g_main_loop_run (loop);

    print_cookies ();

    /* Out of the main loop, clean up nicely */
    g_print ("Returned, stopping playback\n");
    gst_element_set_state (pipeline, GST_STATE_READY);
  }

  g_print ("Deleting pipeline\n");
  gst_element_set_state (pipeline, GST_STATE_NULL);
  gst_object_unref (GST_OBJECT (src));
  gst_object_unref (GST_OBJECT (pipeline));
  g_source_remove (bus_watch_id);
  g_main_loop_unref (loop);

  return 0;
}
