#!/usr/bin/perl -I /root/tgmanage/web/stream.gathering.org/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};
		if($streams{$stream}->{ts_enabled} eq 1) {
			$url_path =~ s/.flv/.ts/;
		}
	}

	$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");
}