Skip to content

Instantly share code, notes, and snippets.

View twtxt-roster.conf
{ registration => 1, delay => 10 };
View injections.txt
2016-03-19T10:00:10Z ';alert(String.fromCharCode(88,83,83))//';alert(String.fromCharCode(88,83,83))//";alert(String.fromCharCode(88,83,83))//";alert(String.fromCharCode(88,83,83))//--></SCRIPT>">'><SCRIPT>alert(String.fromCharCode(88,83,83))</SCRIPT>
2016-03-19T10:00:10Z <SCRIPT SRC=http://xss.rocks/xss.js></SCRIPT>
View keybase.md

Keybase proof

I hereby claim:

  • I am mdom on github.
  • I am mdom (https://keybase.io/mdom) on keybase.
  • I have a public key whose fingerprint is B0C5 2689 4327 47EE 7F33 2BD8 B165 84D4 6EB3 A510

To claim this, I am signing this object:

@mdom
mdom / install_couchdb_jessie.sh
Created Feb 28, 2017 — forked from MatthieuLemoine/install_couchdb_jessie.sh
Install CouchDB from source on Debian Jessie
View install_couchdb_jessie.sh
#!/bin/bash
# Inspired by http://verbally.flimzy.com/install-couchdb-1-6-1-debian-8-2-jessie/
# Erlang
echo -e "deb http://packages.erlang-solutions.com/debian jessie contrib" | sudo tee /etc/apt/sources.list.d/erlang-solutions.list
wget -qO - http://packages.erlang-solutions.com/debian/erlang_solutions.asc | sudo apt-key add -
# Update packages
sudo apt-get update
@mdom
mdom / mdom.txt
Last active May 14, 2018
twtxt.txt for mdom
View mdom.txt
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512
# __ __ __
#| |_.--.--.--| |_.--.--| |_
#| _| | | | _|_ _| _|
#|____|________|____|__.__|____|
#
# twtxt is an open, distributed
# microblogging platform that
@mdom
mdom / init.el
Last active May 16, 2018
elfeed enclosure filename
View init.el
(defun my-slugify (str)
(downcase
(replace-regexp-in-string
"[[:space:]-]+" "-"
(my-trim-string
(replace-regexp-in-string
"[^[:word:][:space:]]+" "" str)))))
(defun my-trim-string (string)
(replace-regexp-in-string
View tazxslt
#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::IOLoop;
use XML::LibXSLT;
use XML::LibXML;
get '/*path' => sub {
my $c = shift;
@mdom
mdom / inet.pm
Created May 21, 2019
Start mojo application for inetd server
View inet.pm
package Mojolicious::Command::inetd;
use Mojo::Base 'Mojolicious::Command';
use Mojo::IOLoop;
use Scalar::Util 'weaken';
has description => 'Start application for inetd server';
sub run {
my ( $self, @args ) = @_;
my $tx = Mojo::Transaction::HTTP->new;
View dom_to_sax.pl
sub new_nodes {
my @events;
for my $node (@_) {
my $type = $node->type;
if ( $type eq 'text' ) {
push @events, [ 'start_text', $node ];
}
elsif ( $type eq 'tag' ) {
my $tag = $node->tag;
push @events, [ "start_$tag", $node ];
View requeue.sh
#!/bin/sh
file="$1"
url="$2"
run="${3:-0}"
case $run in
0 ) timespec="now" ;;
1 ) timespec="now + 5 minutes" ;;
2 ) timespec="now + 30 minutes" ;;