mtsukamoto

#!/bin/bash -xe
exec > >(tee /var/log/user-data.log|logger -t user-data -s 2>/dev/console) 2>&1
export HOME="/root"

dnf update -y
dnf upgrade --releasever=2023.3.20240117 -y

# install docker
dnf install -y docker
systemctl enable --now docker

mtsukamoto

#!/bin/bash
sudo yum update -y
sudo yum install -y httpd php

curl https://github.com/flatpressblog/flatpress/archive/1.2.1.zip -O -L
curl https://hfj.sakura.ne.jp/dl/FlatPress1.2.1-LanguagePack-Japanese1.2.zip -O -L
unzip -qq 1.2.1.zip
unzip -qq FlatPress1.2.1-LanguagePack-Japanese1.2.zip
sudo \cp -r -f flatpress-1.2.1/* /var/www/html
sudo \cp -r -f FlatPress1.2.1-LanguagePack-Japanese1.2/* /var/www/html

mtsukamoto

from datetime import date, datetime
import json
import os
import boto3

# Update this to match the name of your Tracker resource
TRACKER_NAME = "handson-20210717"

"""
This Lambda function receives a payload from AWS IoT Core and publishes device updates to Amazon Location Service via the BatchUpdateDevicePosition API.

mtsukamoto

# Memo_Create_Azure-VM.ps1
# ----
# Powershellから、仮想マシンサイズや仮想マシンイメージを指定して、
# 仮想マシンを作成する手順のメモ

# ---- 事前準備（PowershellでAzureを操作する時の共通作業）----

# Azureにログインします（Azure Browser Shellでは、アクセス時にログインしているので不要です）。
# Login-AzureRmAccountコマンドレットを使用します。

mtsukamoto

# Get-AzureVnetSummary.ps1
# ----
# Makio Tsukamoto <tsukamoto@gmail.com>
# Initial : 2018.03.16
# Latest  : 2018.04.03

# 引数の処理
Param( 
	[string]$SubscriptionName, # 情報取得対象のサブスクリプション名、デフォルトはカレントコンテキストのサブスクリプション

mtsukamoto

#!/usr/bin/perl -w

# hostServiceOps.pl
# ----
# Makio Tsukamoto modified hostServiceManagement.pl
# for using on Windows (disable ANSI COLOR)
# 08/02/2016
# https://github.com/mtsukamoto

mtsukamoto

use strict;
use warnings;
use utf8;
use Encode;

use Web::Scraper;
use URI;

my ($opts, @urls) = &parse_args(@ARGV);

mtsukamoto

#!perl
# Written by Makio Tsukaoto (tsukamoto at gmail.com)

use strict;
use warnings;
use File::Spec;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
our $VERSION = "0.01";

mtsukamoto

use utf8;
use WWW::Mechanize;
use Encode qw(encode decode);

my $auth = {
	email    => $ENV{'BOOKSCAN_MAIL'},
	password => $ENV{'BOOKSCAN_PASS'},
};
my $mech = WWW::Mechanize->new;
$mech->env_proxy();

mtsukamoto

package MySAXHandler;
use base qw(XML::SAX::Base);

# --- SYNOPSYS ---
# use XML::SAX;
# use MySAXHandler;
# my $parser = XML::SAX::ParserFactory->parser(Handler => MySAXHandler->new);
# $parser->parse_uri("sample.xml");

sub start_document {