From 7727d1da68051000c7d38b6f16f91cf0e5bb27f7 Mon Sep 17 00:00:00 2001
From: neingeist <neingeist@bl0rg.net>
Date: Sun, 21 Jun 2015 22:36:15 +0200
Subject: [PATCH] add florolfs media.ccc.de api example

---
 media.ccc.de-link-meister | 44 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 media.ccc.de-link-meister

diff --git a/media.ccc.de-link-meister b/media.ccc.de-link-meister
new file mode 100755
index 0000000..eb501e5
--- /dev/null
+++ b/media.ccc.de-link-meister
@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+
+use v5.12;
+use strict;
+use warnings;
+
+use Data::Dumper;
+use LWP::Simple;
+use JSON;
+
+if(@ARGV != 1) {
+  say STDERR "usage: $0 conference_id";
+  exit 1;
+}
+
+my ($conference_id) = @ARGV;
+
+sub get_conference {
+  my ($id) = @_;
+
+  my $json = get("http://api.media.ccc.de/public/conferences/$id");
+
+  return decode_json($json);
+}
+
+sub get_event {
+  my ($event) = @_;
+
+  my $json = get($event->{url});
+
+  return decode_json($json);
+}
+
+my $conference = get_conference($conference_id);
+
+foreach my $ev (@{$conference->{events}}) {
+  my $event = get_event($ev);
+
+  my $url = $event->{frontend_link};
+  #$url =~ s!\.html!/oembed.html!g;
+
+  printf qq!=== %s ===\n!, $event->{title};
+  printf qq!<pre>* Vortragsvideo/Download bei [%s media.ccc.de]</pre>\n!, $url;
+}