skaurus

# Setup https://github.com/trick77/dockerflix on Mikrotik router

:global portallerHosts " \
    ipinfo.io, \
    hulu.com, \
    netflix.com, \
    netflix.net, \
    mtv.com, \
    mtvnservices.com, \
    optimizely.com, \

skaurus

Controller::method {
    my $promise = Utils::get_me_promise;
    return $promise->then(sub ($inner_promise) {
        say 'method outer resolved';
        return $inner_promise->then(sub ($something) {
            say 'method inner resolved';
            render $something;
        }, sub {
            log_error
        }

skaurus

#!/usr/local/bin/perl
 
package TestApp;
 
use Mojolicious::Lite;
 
use Mojo::Promise;
use Mojo::UserAgent;
 
my $ua = Mojo::UserAgent->new;

skaurus

#!/usr/local/bin/perl

use 5.026;
use warnings;

use FindBin qw/$RealBin/;
use lib $RealBin . '/../local/lib/perl5', $RealBin . '/../lib';

use Benchmark;
use LWP::Curl;

skaurus

1. General Background and Overview

• Probabilistic Data Structures for Web Analytics and Data Mining : A great overview of the space of probabilistic data structures and how they are used in approximation algorithm implementation.
• Models and Issues in Data Stream Systems
• Philippe Flajolet’s contribution to streaming algorithms : A presentation by Jérémie Lumbroso that visits some of the hostorical perspectives and how it all began with Flajolet
• Approximate Frequency Counts over Data Streams by Gurmeet Singh Manku & Rajeev Motwani : One of the early papers on the subject.
• [Methods for Finding Frequent Items in Data Streams](http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.187.9800&rep

skaurus

# all files will be fetched to current directory.
# dependencies - curl somewhere in $PATH and URI perl library.

perl -e 'use URI; my $m3u_url = shift or die "provide hls playlist url"; sub get { my $path = shift; my $rel = URI->new($path)->rel($m3u_url); `curl $path --progress-bar --create-dirs -o $rel` // die "getting $path failed!"; return $rel }; sub parse_pls { my ($file, $abs) = @_; open(my $fh, $file); return map { chomp; URI->new_abs($_, $abs) } grep { $_ !~ /^#/ } <$fh> }; my $file = get $m3u_url; my @urls = parse_pls($file, $m3u_url); my %loop; while (my $url = shift @urls) { die "loop detected!" if $loop{$url}++; my $file = get $url; push @urls, parse_pls($file, $url) if ($file =~ /\.m3u8$/) }' 'http://www.streambox.fr/playlists/x36xhzz/x36xhzz.m3u8'

skaurus

# From a fresh install of squeeze
aptitude install ruby rubygems # Need ruby to use fpm
gem1.8 install fpm --no-ri --no-rdoc

aptitude install build-essential openssl libreadline6 libreadline6-dev zlib1g zlib1g-dev libssl-dev ncurses-dev libyaml-dev

wget ftp://ftp.ruby-lang.org/pub/ruby/1.9/ruby-1.9.3-p385.tar.gz
tar -zxvf ruby-1.9.3-p385.tar.gz
cd ruby-1.9.3-p385
rm -rf /tmp/ruby193

skaurus

#!/usr/local/bin/perl

use 5.012;

BEGIN { $ENV{MOJO_POLL} = 0; };
use Mojolicious::Lite;

use AnyEvent::HTTP;

skaurus

Run server as:

./mojo_ev_test.pl daemon --listen http://localhost:4242 --clients 1

Send requests as:

perl -Mstrict -MAnyEvent::HTTP -MData::Dumper -e 'my $cv = AnyEvent->condvar; http_post("http://localhost:4242/hitme", "", timeout => 10, persistent => 0, sub { my ($b, $h) = @_; warn Dumper $h; $cv->send() }); $cv->recv;'


First request dumps headers fine, consequent requests timeouts.

skaurus

#!/usr/bin/perl

# This is HTTP proxy built atop AnyEvent::HTTPD and AnyEvent::HTTP modules.
# I used it to solve some problem but after testing realised that it doesn't solve it entirely.
# So I removed special logic and leave almost plain proxy. With referer forging however :)
#
# Test thoroughly before use!

use strict;
use warnings;