Skip to content

Instantly share code, notes, and snippets.

@masiuchi
masiuchi / install-reply-perl-589.sh
Last active June 24, 2021 18:37
Install Reply to Perl 5.8.9 environment.
#!/bin/sh
cpanm \
https://github.com/masiuchi/Mixin-Linewise/archive/refs/tags/0.110_01.tar.gz \
https://github.com/masiuchi/Config-INI-Reader-Ordered/archive/refs/tags/0.022_01.tar.gz \
Reply
@masiuchi
masiuchi / Vagrantfile
Last active August 14, 2019 07:10
Vagrantfile for Fedora 31.
# -*- mode: ruby -*-
# vi: set ft=ruby :
Vagrant.configure("2") do |config|
# https://app.vagrantup.com/fedora/boxes/30-cloud-base
config.vm.box = 'fedora/30-cloud-base'
config.vm.provider "virtualbox" do |vb|
# 512 MB is too small to execute dnf command
vb.memory = "1024"
end
@masiuchi
masiuchi / com.masiuchi.docker.mysql55.plist
Created June 10, 2018 12:54
Property list file for MySQL 5.5 on Docker.
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>KeepAlive</key>
<true/>
<key>Label</key>
<string>com.masiuchi.docker.mysql55</string>
<key>ProgramArguments</key>
<array>
@masiuchi
masiuchi / create_entries.pl
Last active June 11, 2018 09:55
Call MT create_entry endpoint many time in parallel.
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use Furl;
use JSON;
use Parallel::Prefork;
my $data_api_url = $ARGV[0];
@masiuchi
masiuchi / create_entries.sh
Created June 10, 2018 02:42
Call MT create_entry endpoint many times in parallel.
#!/bin/bash
TOTAL_REQUEST_COUNT=100
PARALLEL_COUNT=5
if [ $# -ne 3 ]; then
echo '[usage]: bash create_entries.sh [Data API URL] [USERNAME] [PASSWORD]'
exit 1
fi
@masiuchi
masiuchi / create_entries.rb
Last active June 10, 2018 02:43
Call MT create_entry endpoint many times.
require 'faraday'
require 'json'
require 'uri'
data_api_url = ARGV[0]
username = ARGV[1]
password = ARGV[2]
if data_api_url.nil? or data_api_url.empty? or username.nil? or username.empty? or password.nil? or password.empty?
puts '[usage]: ruby test.rb [data_api_base] [username] [password]'
#/bin/sh
find / -ls 2>/dev/null | perl -pe 'my @fields = split /\s+/, $_; my ($uid, $gid, $file) = @fields[4,5,10]; if (($uid =~ /^\d+$/ && $uid > 65535) || ($gid =~ /^\d+$/ && $gid > 65535)) { $_ = "$uid $gid $file\n" } else { $_ = "" }'
@masiuchi
masiuchi / docker-compose.yml
Created May 2, 2018 07:29
docker-compose.yml for OpenLDAP and phpLDAPadmin
version: '3'
services:
slapd:
image: osixia/openldap
environment:
LDAP_ORGANISATION: example
LDAP_DOMAIN: example.com
LDAP_ADMIN_PASSWORD: secret
ports:
- 389:389
@masiuchi
masiuchi / docker-compose.yml
Created March 12, 2018 08:22
mysql server for mt test.
version: '3'
services:
mysql:
image: mysql:5.7.16
ports:
- '3306:3306'
environment:
- MYSQL_DATABASE=mt_test
- MYSQL_USER=mt
@masiuchi
masiuchi / docker-compose.yml
Created January 24, 2018 06:55
test ftp server by docker-compose
version: '3'
services:
ftp:
image: mcreations/ftp
ports:
- '10021:21'
- '65000-65004:65000-65004'
environment:
- FTP_USER=ftpuser