[totem] Add HTTP referrer property to BaconVideoWidget

[Christian Persch <chpe src gnome org>]

commit 849aab10072b15d6b6b99ac559500ec9d3bb8010
Author: Christian Persch <chpe gnome org>
Date:   Thu Oct 22 12:59:12 2009 +0200

    Add HTTP referrer property to BaconVideoWidget
    
    Part of bug #581857.

 src/backend/bacon-video-widget-gst-0.10.c |  105 ++++++++++++++++++++++++++--
 src/backend/bacon-video-widget.h          |    3 +
 2 files changed, 100 insertions(+), 8 deletions(-)
---
diff --git a/src/backend/bacon-video-widget-gst-0.10.c b/src/backend/bacon-video-widget-gst-0.10.c
index 9b53248..ad4c19b 100644
--- a/src/backend/bacon-video-widget-gst-0.10.c
+++ b/src/backend/bacon-video-widget-gst-0.10.c
@@ -4,6 +4,7 @@
  *      Ronald Bultje <rbultje ronald bitfreak net>
  * Copyright (C) 2005-2008 Tim-Philipp Müller <tim centricular net>
  * Copyright (C) 2009 Sebastian Dröge <sebastian droege collabora co uk>
+ * Copyright © 2009 Christian Persch
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -120,6 +121,7 @@ enum
   PROP_CURRENT_TIME,
   PROP_STREAM_LENGTH,
   PROP_PLAYING,
+  PROP_REFERRER,
   PROP_SEEKABLE,
   PROP_SHOW_CURSOR,
   PROP_SHOW_VISUALS,
@@ -149,6 +151,7 @@ struct BaconVideoWidgetPrivate
 {
   char                        *user_agent;
 
+  char                        *referrer;
   char                        *mrl;
   BvwAspectRatio               ratio_type;
 
@@ -1063,6 +1066,16 @@ bacon_video_widget_class_init (BaconVideoWidgetClass * klass)
                                                          G_PARAM_WRITABLE));
 
   /**
+   * BaconVideoWidget:referrer:
+   *
+   * The HTTP referrer URI.
+   **/
+  g_object_class_install_property (object_class, PROP_USER_AGENT,
+                                   g_param_spec_string ("referrer", NULL, NULL,
+                                                        NULL,
+                                                        G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
+
+  /**
    * BaconVideoWidget:user-agent:
    *
    * The HTTP user agent string to use.
@@ -2047,9 +2060,41 @@ bvw_set_user_agent_on_element (BaconVideoWidget * bvw, GstElement * element)
 }
 
 static void
+bvw_set_referrer_on_element (BaconVideoWidget * bvw, GstElement * element)
+{
+  BaconVideoWidgetPrivate *priv = bvw->priv;
+  GstStructure *extra_headers = NULL;
+
+  if (g_object_class_find_property (G_OBJECT_GET_CLASS (element), "extra-headers") == NULL)
+    return;
+
+  GST_DEBUG ("Setting HTTP referrer to '%s'", priv->referrer ? priv->referrer : "none");
+
+  g_object_get (element, "extra-headers", &extra_headers, NULL);
+  if (extra_headers == NULL) {
+    extra_headers = gst_structure_empty_new ("extra-headers");
+  }
+  g_assert (GST_IS_STRUCTURE (extra_headers));
+
+  if (priv->referrer != NULL) {
+    gst_structure_set (extra_headers,
+                       "Referer" /* not a typo! */,
+                       G_TYPE_STRING,
+                       priv->referrer,
+                       NULL);
+  } else {
+    gst_structure_remove_field (extra_headers,
+                                "Referer" /* not a typo! */);
+  }
+
+  g_object_set (element, "extra-headers", extra_headers, NULL);
+  gst_structure_free (extra_headers);
+}
+
+static void
 playbin_source_notify_cb (GObject *play, GParamSpec *p, BaconVideoWidget *bvw)
 {
-  GObject *source = NULL;
+  GstElement *source = NULL;
 
   /* CHECKME: do we really need these taglist frees here (tpm)? */
   if (bvw->priv->tagcache) {
@@ -2066,13 +2111,14 @@ playbin_source_notify_cb (GObject *play, GParamSpec *p, BaconVideoWidget *bvw)
   }
 
   g_object_get (play, "source", &source, NULL);
-
-  if (source) {
-    GST_DEBUG ("Got source of type %s", G_OBJECT_TYPE_NAME (source));
-    bvw_set_device_on_element (bvw, GST_ELEMENT (source));
-    bvw_set_user_agent_on_element (bvw, GST_ELEMENT (source));
-    g_object_unref (source);
-  }
+  if (source == NULL)
+    return;
+    
+  GST_DEBUG ("Got source of type %s", G_OBJECT_TYPE_NAME (source));
+  bvw_set_device_on_element (bvw, source);
+  bvw_set_user_agent_on_element (bvw, source);
+  bvw_set_referrer_on_element (bvw, source);
+  g_object_unref (source);
 }
 
 static gboolean
@@ -2252,6 +2298,9 @@ bacon_video_widget_finalize (GObject * object)
   g_free (bvw->priv->media_device);
   bvw->priv->media_device = NULL;
 
+  g_free (bvw->priv->referrer);
+  bvw->priv->referrer = NULL;
+
   g_free (bvw->priv->mrl);
   bvw->priv->mrl = NULL;
 
@@ -2329,6 +2378,10 @@ bacon_video_widget_set_property (GObject * object, guint property_id,
       bacon_video_widget_set_logo_mode (bvw,
       g_value_get_boolean (value));
       break;
+    case PROP_REFERRER:
+      bacon_video_widget_set_referrer (bvw,
+      g_value_get_string (value));
+      break;
     case PROP_SHOW_CURSOR:
       bacon_video_widget_set_show_cursor (bvw,
       g_value_get_boolean (value));
@@ -2374,6 +2427,9 @@ bacon_video_widget_get_property (GObject * object, guint property_id,
       g_value_set_boolean (value,
       bacon_video_widget_is_playing (bvw));
       break;
+    case PROP_REFERRER:
+      g_value_set_string (value, bvw->priv->referrer);
+      break;
     case PROP_SEEKABLE:
       g_value_set_boolean (value,
       bacon_video_widget_is_seekable (bvw));
@@ -3898,6 +3954,39 @@ bacon_video_widget_set_user_agent (BaconVideoWidget *bvw,
 }
 
 /**
+ * bacon_video_widget_set_referrer:
+ * @bvw: a #BaconVideoWidget
+ * @referrer: a HTTP referrer URI, or %NULL
+ *
+ * Sets the HTTP referrer URI to use when fetching HTTP ressources.
+ **/
+void
+bacon_video_widget_set_referrer (BaconVideoWidget *bvw,
+                                 const char *referrer)
+{
+  BaconVideoWidgetPrivate *priv;
+  char *frag;
+
+  g_return_if_fail (BACON_IS_VIDEO_WIDGET (bvw));
+
+  priv = bvw->priv;
+
+  if (g_strcmp0 (referrer, priv->referrer) == 0)
+    return;
+
+  g_free (priv->referrer);
+  priv->referrer = g_strdup (referrer);
+
+  /* Referrer URIs must not have a fragment */
+  if ((frag = strchr (priv->referrer, '#')) != NULL)
+    *frag = '\0';
+  
+  g_object_notify (G_OBJECT (bvw), "referrer");
+
+  /* FIXME: set the new referrer on the source element if it already exists */
+}
+
+/**
  * bacon_video_widget_can_set_volume:
  * @bvw: a #BaconVideoWidget
  *
diff --git a/src/backend/bacon-video-widget.h b/src/backend/bacon-video-widget.h
index b2ad057..6e516b5 100644
--- a/src/backend/bacon-video-widget.h
+++ b/src/backend/bacon-video-widget.h
@@ -235,6 +235,9 @@ void bacon_video_widget_set_subtitle_encoding	 (BaconVideoWidget *bvw,
 void bacon_video_widget_set_user_agent           (BaconVideoWidget *bvw,
                                                   const char *user_agent);
 
+void bacon_video_widget_set_referrer             (BaconVideoWidget *bvw,
+                                                  const char *referrer);
+
 /* Metadata */
 /**
  * BvwMetadataType: