Amazon S3へのバックアップ用スクリプトです。ディレクトリおよびMySQLデータベースのバックアップができます。
以前に作ったもので、やっつけ仕事で汚すぎるコードですが、一応動きますので公開しますw サーバのcrontabにでも登録してご自由にご利用ください。
ファイルシステムはSquashFSを用いてアーカイブされます (MySQLデータベースは、tar.gz)。
- CentOS/Fedora:
北海道 | ほっかいどう | hokkaido | |
---|---|---|---|
青森県 | あおもり | aomori | |
岩手県 | いわて | iwate | |
宮城県 | みやぎ | miyagi | |
秋田県 | あきた | akita | |
山形県 | やまがた | yamagata | |
福島県 | ふくしま | fukushima | |
茨城県 | いばらき | ibaraki | |
栃木県 | とちぎ | tochigi | |
群馬県 | ぐんま | gumma |
#!/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; |
/** | |
ArduinoProMini_FelicaPlug_Type3_RW.ino | |
Felica PlugのArduino向けライブラリに付属されているサンプルを基に改変 | |
(ライブラリ: http://blog.felicalauncher.com/sdk_for_air/?page_id=2419) | |
**/ | |
#define CONFIG_FELICA_PLUG_EEPROM | |
#include <EEPROM.h> | |
#include <FeliCaPlug.h> | |
#include <inttypes.h> |
#! /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//; |
#! /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; |
#include <SoftwareSerial.h> | |
#define LED_PORT 13 | |
#define BT_RX 11 | |
#define BT_TX 10 | |
// TX(RBT-001) <-> 11(Arduino) | |
#define PWM_WIDTH 500 | |
// roop = 2ms |
#!/usr/bin/env perl | |
# Bayon Simple WebAPI (with Mojolicious::Lite) | |
# https://gist.github.com/mugifly/5222608 | |
use Mojolicious::Lite; | |
use utf8; | |
use Mojo::JSON; | |
use Mojo::ByteStream; | |
use Mojo::Asset::File; | |
use Text::Bayon; | |
use Encode; |
/* Blink for Webkit and others | |
(Chrome, Safari, Firefox, IE, ...) | |
*/ | |
@-webkit-keyframes blinker { | |
from {opacity: 1.0;} | |
to {opacity: 0.0;} | |
} | |
.blink{ | |
text-decoration: blink; |
#!/usr/bin/env perl | |
# GitHub Webhook receiver & updater cgi (for Hosting-web-server) | |
# https://gist.github.com/mugifly/5087897/ | |
use strict; | |
use warnings; | |
use utf8; | |
use lib 'lib'; # for local lib directory | |
use CGI; |