mugifly

#!/bin/bash
# Database migration script for Sakura to Any

SRC_IS_SSH_USE=1
SRC_SSH_SAKURA_USER="example"
SRC_SSH_HOST="${SRC_SSH_SAKURA_USER}.sakura.ne.jp"
SRC_SSH_USERNAME="${SRC_SSH_SAKURA_USER}"
SRC_SSH_PASSWORD="foobar"

SRC_DB_HOST="mysql0000.db.sakura.ne.jp"

mugifly

#! /usr/bin/env perl
# Gist ssh-clone script
# Help: $ perl git-clone-ssh.pl --help
# (c) Masanori Ohgita (http://ohgita.info/) - 2013, MIT License.

use warnings;
use strict;
use utf8;

use File::Basename qw//;

mugifly

#!/usr/bin/env perl
print "MySQL Database and User Generator\n";

print "Input database name: ";
my $db_name = <STDIN>;
chomp $db_name;

if (length($db_name) <= 0) {
	exit 0;
}

mugifly

#!/usr/bin/env perl
# Arch Linux - Linux kernel rebuild script for Let's note CF-S10 series
# https://gist.github.com/mugifly/9582654/
# Required: perl 5.x
use strict;
use warnings;
use utf8;
use Cwd;
use File::Path;

mugifly

function test () {

	postToSlack('Hello!');

}


function postToSlack (text) {

	var SLACK_WEBHOOK_URL = 'https://hooks.slack.com/services/XXXXX/YYYYY/ZZZZZ';

mugifly

#!/bin/bash
# Setting Script for Let's Encrypt Certificate for Dokku apps

# Path of Let's Encrypt command
PATH_LE="/root/letsencrypt/"

# Base domain of dokku apps
DOKKU_BASE_DOMAIN="example.com"

# App names

mugifly

machine:
  environment:
    # Path
    PATH: "$PATH:/home/$USER/perl5/bin"
    # cpanm - Install destination of libraries
    PERL_CPANM_OPT: "--local-lib=/home/$USER/perl5"
    # perl - Include path
    PERL5LIB: "/home/$USER/perl5/lib/perl5:$PERL5LIB"

dependencies:

mugifly

FROM java:8

MAINTAINER Masanori Ohgita 
# NOTE: This Dockerfile was forked from following projects.
# https://github.com/denlabo/dockerfile-android-project - Modified by Ohgita on denLabo LLC
# https://github.com/gfx/docker-android-project - Authored by FUJI Goro (MIT License)

ENV DEBIAN_FRONTEND noninteractive

# Install dependencies

mugifly

#! /usr/bin/env perl
# Git branch cleaner ( Delete a branches that not exist on remote repository)
# If you have not ran the 'git fetch --plune' command, please try it before this script.
# Useful case (maybe): If can't delete a branches using 'git fetch --plune' command.
# 
# Usage: $ perl git-branch-clean.pl --help

use warnings;
use strict;
use utf8;

mugifly

#!/bin/bash
ip=` ip --oneline --family inet address show dev wlp8s0 | cut -d' ' -f7 | cut -d '/' -f1`
echo "-- Watching on ${ip}:6666 --"
nc -u -l -p 6666