lala.pl

#!/usr/bin/perl
# -*- cperl -*-

use strict;
use HTTP::Proxy qw/:log/;
use Time::HiRes qw/time/;
use HTTP::Proxy::BodyFilter::save;
use File::Path qw/mkpath/;

my $dir = shift @ARGV || die "usage: $0 /path/to/music/dump";
$dir =~ s/\/+$//;
mkpath $dir;

my $proxy = HTTP::Proxy->new(host => '127.0.0.1', port => 3845);
$proxy->logmask(STATUS);
$proxy
  ->push_filter(
                mime => 'audio/x-mpeg',
                path => qr!/contentfs/content!,
                response => HTTP::Proxy::BodyFilter::save
                ->new(filename => sub { return "${dir}/" . time() . ".mp3"; }));
$proxy->start();