Skip to content

Instantly share code, notes, and snippets.

View dex4er's full-sized avatar

Piotr Roszatycki dex4er

  • Berlin, Germany
View GitHub Profile
@dex4er
dex4er / surround.pa.sh
Created January 27, 2014 10:58
Upmixing stereo to 4.1 for PulseAudio
pactl load-module module-alsa-sink device=hw:Device channel_map=rear-left,rear-right,rear-center,subwoofer,front-right,front-left
pactl load-module module-remap-sink sink_name=surround remix=yes master=alsa_output.hw_Device channels=6 master_channel_map=front-right,front-left,rear-left,rear-right,lfe,lfe channel_map=front-left,front-right,front-left,front-right,front-left,front-right
pactl set-default-sink surround
pactl load-module module-loopback latency_msec=1
#!/usr/bin/env perl
use strict;
use warnings;
use Mail::Message;
use Mail::Message::Convert::HtmlFormatText;
my $af = Mail::Message::Convert::HtmlFormatText->new;
@dex4er
dex4er / alias.pl
Created May 17, 2014 10:50
mop traits
use mop;
use feature qw(postderef);
no warnings qw(experimental::postderef);
use Carp qw(confess);
use Package::Stash;
sub alias {
my $meta = shift;
#!/usr/bin/env starlight
use AnyEvent::DNS::EtcHosts;
use Plack::Builder;
use Plack::App::Proxy;
builder {
enable 'AccessLog';
enable 'Proxy::Connect';
enable 'Proxy::Requests';
@dex4er
dex4er / mojo+wx.pl
Last active August 29, 2015 14:03
wxPerl
#!/usr/bin/env perl
use v5.14;
package MyApp {
use Moo;
use Wx ':everything';
has url => is => 'ro';
@dex4er
dex4er / crontab
Created October 21, 2014 12:25
autossh
SHELL=/bin/bash
* * * * * . $HOME/.profile && { cd $HOME && run-parts --report $HOME/cron.minutely; }
@dex4er
dex4er / fatpack-mojo-entities.sh
Created November 13, 2014 16:10
Mojolicious + FatPacker
#!/bin/sh
die () {
msg="$1\n"
shift
printf "$msg" "$@" 1>&2
exit 1
}
use=`
#!/bin/sh
die () {
msg="$1\n"
shift
printf "$msg" "$@" 1>&2
exit 1
}
use=`
@dex4er
dex4er / mojo-app.pl
Last active February 12, 2019 11:53
Mojolicious + PAR::Packer without --addfile
#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use Mojolicious::Lite;
# Explicit use as a helper for PAR
ENABLED="true"
OPTIONS="
--log-level=warning
--log-file=/var/log/mysql-proxy.log
--admin-username=proxy
--admin-password=proxy
--admin-lua-script=/usr/share/mysql-proxy/admin.lua
--proxy-backend-addresses=10.0.0.1:3306
--proxy-backend-addresses=10.0.0.2:3306