ywatase

#!/usr/bin/env perl 
use strict;
use warnings;
use Path::Tiny;

use XML::LibXML::Simple qw(XMLin);

my $xml = path('sample.xml')->slurp_utf8;

my $dom = eval { XMLin $xml };

ywatase

#!/bin/sh

# install & set up daemontools and so on.
#
# Author       : Y.Watase
# Date         : 2007/01/11
# Last Modified: 2016/03/03.
# Mail         : [email protected]

################################################################################

ywatase

diff -N -u wiki.cgi.old wiki.cgi
--- wiki.cgi.old	2012-11-13 18:47:10.000000000 +0900
+++ wiki.cgi	2018-04-24 00:18:18.000000000 +0900
@@ -83,6 +83,14 @@
 	}

 	#==============================================================================
+	# Redirect if URI is escaped twice and pointed page exists.
+	#==============================================================================
+	if (not $wiki->page_exists($cgi->param('page'))

ywatase

#!/bin/bash
prefix=/usr/local
current_version=$(/usr/local/bin/node --version)

which rsync >/dev/null 2>&1 || yum install -y rsync

install_n () {
  if ! [ -x $prefix/bin/n ] ; then
    curl -L https://raw.githubusercontent.com/tj/n/master/bin/n -o $prefix/bin/n
    chmod a+x $prefix/bin/n