Skip to content

Instantly share code, notes, and snippets.

use 5.010;
use strict;
use warnings;
use open qw/:std :utf8/;
use utf8;
my @moins;
my @plus;
sub uu ($$) {
@nemunaire
nemunaire / tlsrpt-report-display.pl
Last active April 25, 2019 17:48
Parse and display a RFC 8460 (SMTP-TLS) report
#!/usr/bin/env perl
#=============================================================================
#
# FILE: tlsrpt-report-display.pl
#
# USAGE: ./tlsrpt-report-display.pl REPORT
#
# DESCRIPTION: Parse and display a TLS-RPT report
#
# REQUIREMENTS: Perl 5.10; Term::ANSIColor; JSON
##
# @filename : epd7in5.py
# @brief : Implements for Dual-color e-paper library
# @author : Yehui from Waveshare
#
# Copyright (C) Waveshare July 10 2017
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documnetation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
@nemunaire
nemunaire / Dockerfile
Created November 2, 2017 01:23
A Dockerfile to build a statically linked nginx (for educational purpose)
FROM alpine as build
RUN apk add --no-cache gcc make musl-dev
RUN wget -O /tmp/nginx.tar.gz http://nginx.org/download/nginx-1.13.6.tar.gz && \
mkdir /tmp/nginx && \
tar xf /tmp/nginx.tar.gz -C /tmp/nginx --strip-components=1 && \
cd /tmp/nginx && \
./configure --prefix=/ --with-cc=/usr/bin/cc --with-cc-opt="-static -static-libgcc" --with-ld-opt="-static" --with-ipv6 --with-poll_module --without-http_rewrite_module --without-http_gzip_module && \
make -j5
#!/bin/sh
if [ "$1" = "-draft1" ] || [ "$1" = "-draft2" ]
then
shift
alias khash='python -c "import sys; import base64; print(base64.b32encode(sys.stdin.readline().strip().encode()).decode().lower())"'
elif [ "$1" = "-draft3" ]
then
shift
alias khash='sha224sum | cut -d " " -f 1'
@nemunaire
nemunaire / bromem.sh
Created June 22, 2015 23:17
Display memory used by a program, using Linux cgroup
#!/bin/sh
CGROUP_dir=/sys/fs/cgroup/memory
CGROUP_name=${0%.*}
CGROUP_limit=550502400
if [ "$EUID" != "0" ]
then
sudo $0 $@
exit $?
@nemunaire
nemunaire / merge_files.py
Last active April 7, 2021 08:04
An Ansible module to merge files contained in a directory to a single file
#!/usr/bin/python2
import filecmp
import json
import os
import shutil
import tempfile
def main():
@nemunaire
nemunaire / tree2ftp.pl
Last active October 12, 2021 20:24
Generate FTP commands to send the content of a directory and subdirectories
#!/usr/bin/env perl
#=============================================================================
#
# FILE: tree2ftp.pl
#
# USAGE: ./tree2ftp.pl [options] host path [path ...]
#
# DESCRIPTION: Send a directory to FTP
#
# OPTIONS: -username: Username
@nemunaire
nemunaire / dmarc-report-display.pl
Last active April 23, 2021 17:23
Parse and display DMARC reports for human review.
#!/usr/bin/env perl
#=============================================================================
#
# FILE: dmarc-report-display.pl
#
# USAGE: ./dmarc-report-display.pl REPORT
#
# DESCRIPTION: Parse and display a DMARC report
#
# REQUIREMENTS: Perl 5.10; File::LibMagic, Term::ANSIColor; XML::LibXML
@nemunaire
nemunaire / ratp-trafic.pl
Last active August 29, 2015 14:01
Display traffic information for various RATP reseau: métro, RER and tramway
#!/usr/bin/env perl
#=============================================================================
#
# FILE: ratp-trafic.pl
#
# USAGE: ./ratp-trafic.pl [options] [lines]
#
# DESCRIPTION: Check RATP reseau status
#
# OPTIONS: -raw: Display JSON formated data.