1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
#!/usr/bin/perl -I /root/tgmanage/web/stream.gathering.org/streamlib/
use warnings;
use strict;
use CGI;
# apt-get install libgeo-ip-perl
use Geo::IP;
use NetAddr::IP;
use Net::IP;
# apt-get install libnet-ip-perl libnetaddr-ip-perl
use HTML::Template;
# apt-get install libhtml-template-perl
use stream;
use stream::config;
#use MIME::Base64;
use URI::Escape;
my $client = CGI->new;
my $video_url_mp4;
my $v4net = $stream::config::v4net;
my $v6net = $stream::config::v6net;
my $tg = $stream::config::tg;
my $tg_full = $stream::config::tg_full;
my $video_url = $stream::config::video_url;
my $video_url_fallback = $stream::config::video_url_fallback;
if($stream::config::video_url_mp4) {
$video_url_mp4 = $stream::config::video_url_mp4;
}
my %streams = %stream::config::streams;
my $force_unicast = $client->param('forceunicast');
my $no_header = $client->param('noheader');
my $location = undef;
print $client->header();
my $clip = $client->remote_addr();
my $template = HTML::Template->new(filename => 'index.tmpl');
my $is_local = &is_ip_local($clip, $v4net, $v6net);
my @streams = &loop_webcams("event");
my @camstreams = &loop_webcams("camera");
my %input;
for my $key ( $client->param() ) {
$input{$key} = $client->param($key);
}
$template->param(TG => $tg);
$template->param(TG_FULL => $tg_full);
$template->param(STREAMS => \@streams);
$template->param(CAMSTREAMS => \@camstreams);
$template->param(NOHEADER => $no_header);
if(exists $input{url}) {
my $url = uri_unescape($input{url});
if ($url ~~ %streams) {
$template->param(VIDEO_URL_MAIN => $streams{$url}->{main_url});
$template->param(VIDEO_URL_FALLBACK => $streams{$url}->{fallback_url});
if($streams{$url}->{mp4_url}) {
$template->param(VIDEO_URL_MP4 => $streams{$url}->{mp4_url});
}
}
# Check against XS-scripting:
#if (index($decodedUrl, 'cubemap.tg16.gathering.org/') != -1) {
# $template->param(VIDEO_URL => $decodedUrl);
#} elsif (index($decodedUrl, 'stream.tg16.gathering.org/') != -1) {
# $template->param(VIDEO_URL => $decodedUrl);
#} else {
# $template->param(VIDEO_URL => $video_url);
#}
$template->param(VIDEO_AUTO_PLAY => 'true');
} else {
$template->param(VIDEO_URL_MAIN => $video_url);
$template->param(VIDEO_URL_FALLBACK => $video_url_fallback);
if($video_url_mp4) {
$template->param(VIDEO_URL_MP4 => $video_url_mp4);
}
$template->param(VIDEO_AUTO_PLAY => 'false');
}
print $template->output();
sub loop_webcams() {
my @s = ();
foreach my $name (sort { $streams{$a}->{priority} <=> $streams{$b}->{priority} } keys %streams) {
if ($streams{$name}->{type} eq $_[0] && $streams{$name}->{online}) {
my $vlc_url = "http://stream.tg$tg.gathering.org/generate_vlc.pl?delivery=%s&stream=${name}&interlaced=%s";
my $multicast = $streams{$name}->{has_multicast} ? "multicast" : "unicast";
$multicast = "unicast" if (defined $force_unicast && $force_unicast == 1 || not $is_local);
my $vlc_link = sprintf($vlc_url, $multicast, $streams{$name}->{interlaced});
my $href_link = '<a class="stream-link-content" href="#" onclick="swapVideo(\'' . $name . '\');">';
my %hash = (
'href' => $href_link,
'title' => $streams{$name}->{title},
'quality' => $streams{$name}->{quality},
'type' => $streams{$name}->{type},
'vlc_link' => $vlc_link,
);
push(@s, \%hash);
}
}
return @s;
}
|
