1 files changed, 87 insertions, 0 deletions
diff --git a/web/stream.gathering.org/stream.pl b/web/stream.gathering.org/stream.pl
new file mode 100755
index 0000000..9415389
--- /dev/null
+++ b/web/stream.gathering.org/stream.pl
@@ -0,0 +1,87 @@
+#!/usr/bin/perl -I /srv/streamlib
+
+use warnings;
+use strict;
+
+use stream;
+use stream::config;
+use CGI;
+my $client = CGI->new;
+
+my $stream = $client->param('stream');
+my $interlaced = $client->param('interlaced');
+my $delivery = $client->param('delivery');
+
+my $v4net = $stream::config::v4net;
+my $v6net = $stream::config::v6net;
+my $multicast_ip = $stream::config::multicast;
+my $tg = $stream::config::tg;
+my $base_url = $stream::config::vlc_base_host;
+my %streams = %stream::config::streams;
+
+
+
+#default
+if (not defined $delivery) {
+	$delivery = "multicast";
+}
+
+if((not defined $stream) or (not defined $delivery)) {
+	print $client->header();
+	die "No stream and/or delivery method, robots unhappy :/\n";
+}
+
+my $url = "";
+my $port_del = "";
+my $port_str = "";
+my $extinf = "";
+my $url_path = "";
+
+my $clip = $client->remote_addr();
+
+if (exists($streams{$stream})) {
+	my $is_multicast = 0;
+	# add force is_ip_local in check? 
+	$is_multicast = 1	if (exists($streams{$stream}->{has_multicast}) && $delivery eq "multicast");
+
+	if ($is_multicast) {
+		$port_del = 20;
+		$extinf .= "Multicasted";
+		$url = $streams{$stream}->{multicast_ip};
+	} else {
+		#$port_del = 80;
+		$extinf .= "Unicasted";
+                $url = $base_url;
+		$url_path = $streams{$stream}->{url};
+	}
+
+	$port_del = $streams{$stream}->{preport} if (defined($streams{$stream}->{preport}));
+	$port_str = $streams{$stream}->{port};
+	$extinf .= " $streams{$stream}->{title}";
+		 
+} else {
+	 &error("No stream and/or delivery method, robots unhappy :-/");
+}
+
+#print out new file
+print $client->header(-type => "application/vlc",
+			"-Content-disposition" => "attachment; filename=tg-".$delivery."-".$stream.".vlc"
+);
+
+print "#EXTM3U\n";
+print "#EXTINF:-1,TG$tg $extinf\n";
+if(defined $interlaced && $interlaced == 1) {
+	print "#EXTVLCOPT:deinterlace=1\n";
+	print "#EXTVLCOPT:deinterlace-mode=linear\n";
+}
+if ($port_str == 80) {
+  print "$url$url_path\n";
+} else {
+  print "$url:$port_del$port_str$url_path\n";
+}
+
+sub error($) {
+	my $message = shift;
+	print $client->header();
+	die($message."\n");
+}