diff options
author | Joachim Tingvold <joachim@tingvold.com> | 2014-04-06 03:11:04 +0200 |
---|---|---|
committer | Joachim Tingvold <joachim@tingvold.com> | 2014-04-06 03:11:04 +0200 |
commit | 2a0c0a3dbbdf7fa5040953c0b0d88ad6f62c011e (patch) | |
tree | 92c7cbf54272466b46f64e5dc8d1ddb429858836 /web/tech.gathering.org/event-720p.mp4.pl | |
parent | fe0be5960aac1f9bb600dbf853d862a9f4e60de8 (diff) |
Initial commit. Source; TG13-goodiebag.
Diffstat (limited to 'web/tech.gathering.org/event-720p.mp4.pl')
-rwxr-xr-x | web/tech.gathering.org/event-720p.mp4.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/web/tech.gathering.org/event-720p.mp4.pl b/web/tech.gathering.org/event-720p.mp4.pl new file mode 100755 index 0000000..631e40d --- /dev/null +++ b/web/tech.gathering.org/event-720p.mp4.pl @@ -0,0 +1,11 @@ +#!/usr/bin/env +use strict; +use warnings; +use Capture::Tiny ':all'; + +$! = 1; +print "Content-Type: video/mp4\n\n"; + +my ($stdout, $stderr) = tee { + system('wget', '-qO-', 'http://stream.tg13.gathering.org:3013'); +}; |