dinkypumpkin

## hls.sh
#!/usr/bin/env bash

# An oversimplistic HLS player
# Usage:
#       $ hls.sh http://example.com/path/to/list.m3u8

CURLOPTS="--buffer --connect-timeout 2 --retry 3 --retry-max-time 3"
F="/tmp/.hls.$(mcookie).ts"
L="$(tempfile -d /tmp/ -p .hls.)"
LL="$(tempfile -d /tmp/ -p .hls.)"

## mojo-crawler.pl
#!/usr/bin/env perl
use 5.010;
use open qw(:locale);
use strict;
use utf8;
use warnings qw(all);

use Mojo::UserAgent;

# FIFO queue

## URLQueue.pl
#!/usr/bin/env perl
package Mojo::URLQueue;
use Mojo::Base 'Mojo::EventEmitter';

use Mojo::UserAgent;

has queue => sub { [] };
has ua    => sub { Mojo::UserAgent->new(max_redirects => 5) };
has concurrency => 4;

## etc.fstab
.host:/vmshared    /mnt/vmshared     fuse.vmhgfs-fuse allow_other,uid=1000,gid=1000,auto_unmount,defaults 0 0
	#!/usr/bin/env bash

	# An oversimplistic HLS player
	# Usage:
	# $ hls.sh http://example.com/path/to/list.m3u8

	CURLOPTS="--buffer --connect-timeout 2 --retry 3 --retry-max-time 3"
	F="/tmp/.hls.$(mcookie).ts"
	L="$(tempfile -d /tmp/ -p .hls.)"
	LL="$(tempfile -d /tmp/ -p .hls.)"
	#!/usr/bin/env perl
	use 5.010;
	use open qw(:locale);
	use strict;
	use utf8;
	use warnings qw(all);

	use Mojo::UserAgent;

	# FIFO queue
	#!/usr/bin/env perl
	package Mojo::URLQueue;
	use Mojo::Base 'Mojo::EventEmitter';

	use Mojo::UserAgent;

	has queue => sub { [] };
	has ua => sub { Mojo::UserAgent->new(max_redirects => 5) };
	has concurrency => 4;