Linux – ページ 6 – 水色（仮）

2018年9月27日2018年9月28日

Network File System (NFS)

$ uname -a
Linux hogehoge 4.4.0-135-generic #161-Ubuntu SMP Mon Aug 27 10:45:01 UTC 2018 x86_64 x86_64 x86_64 GNU/Linux

1 2	$ uname -a Linux hogehoge 4.4.0-135-generic #161-Ubuntu SMP Mon Aug 27 10:45:01 UTC 2018 x86_64 x86_64 x86_64 GNU/Linux

Install Server 192.168.11.20

# apt install nfs-kernel-server

# vi /etc/exports

# apt install nfs-kernel-server

# vi /etc/exports

# /etc/exports: the access control list for filesystems which may be exported
# to NFS clients. See exports(5).
#
# Example for NFSv2 and NFSv3:
# /srv/homes hostname1(rw,sync,no_subtree_check) hostname2(ro,sync,no_subtree_check)
#
# Example for NFSv4:
# /srv/nfs4 gss/krb5i(rw,sync,fsid=0,crossmnt,no_subtree_check)
# /srv/nfs4/homes gss/krb5i(rw,sync,no_subtree_check)
#

/home/user/nfs_export 192.168.11.10/24(rw,sync,no_subtree_check)

# /etc/exports: the access control list for filesystems which may be exported

# to NFS clients. See exports(5).

# Example for NFSv2 and NFSv3:

# /srv/homes hostname1(rw,sync,no_subtree_check) hostname2(ro,sync,no_subtree_check)

# Example for NFSv4:

# /srv/nfs4 gss/krb5i(rw,sync,fsid=0,crossmnt,no_subtree_check)

# /srv/nfs4/homes gss/krb5i(rw,sync,no_subtree_check)

/home/user/nfs_export 192.168.11.10/24(rw,sync,no_subtree_check)

# /etc/init.d/nfs-kernel-server restart
# exportfs -ra
# exportfs -v

# /etc/init.d/nfs-kernel-server restart

# exportfs -ra

# exportfs -v

Install Client 192.168.11.10

# apt install nfs-common

1	# apt install nfs-common

# mount -t nfs -o rw 192.168.11.20:/home/user/nfs_export /var/nfs_import
# mount -t nfs 192.168.11.20:/home/user/nfs_export /var/nfs_import

1 2	# mount -t nfs -o rw 192.168.11.20:/home/user/nfs_export /var/nfs_import # mount -t nfs 192.168.11.20:/home/user/nfs_export /var/nfs_import

See

https://qiita.com/salty-vanilla/items/5bc95ad47af6bf051bf7
http://www.atmarkit.co.jp/flinux/rensai/linuxtips/367usenfs.html
https://hhelibex.hatenablog.jp/entry/20111205/1323111243

2018年9月22日2018年9月22日

elFinder-2.1.42 を取り敢えず、動くところまでにするメモ

https://studio-42.github.io/elFinder/
https://github.com/Studio-42/elFinder

ファイル名を変更

From: php/connector.minimal.php-dist
To: php/connector.minimal.php

From: elfinder.legacy.html
To: index.php

From: main.default.js
To: main.js

編集

index.php 内で uiOptions, contextmenu 等の設定をする
設定値は js/elfinder.full.js を参照する

アクセス権変更

$ find . -type d -exec chmod 775 {} +
$ chmod -R 777 files php/.tmp

1 2	$ find . -type d -exec chmod 775 {} + $ chmod -R 777 files php/.tmp

一応 cdn から読み込んでいるファイルをダウンロードしておく

使わないファイルを削除

ローカルディスクのみで使用するのとメンテ簡略の為
使わないファイルを削除しておく

.
├── index.php
├── main.js
├── css
│   ├── elfinder.full.css
│   ├── elfinder.min.css
│   └── theme.css
├── files
│   └── ...
├── img
│   ├── arrows-active.png
│   └── ...
├── js
│   ├── elfinder.full.js
│   ├── elfinder.min.js
│   ├── extras
│   │   ├── editors.default.js
│   │   ├── editors.default.min.js
│   │   ├── quicklook.googledocs.js
│   │   └── quicklook.googledocs.min.js
│   └── i18n
│   ├── elfinder.LANG.js
│   ├── elfinder.fallback.js
│   ├── elfinder.ja.js
│   └── help
│   ├── en.html.js
│   └── ja.html.js
├── php
│   ├── autoload.php
│   ├── connector.minimal.php
│   ├── editors
│   │   ├── OnlineConvert
│   │   │   └── editor.php
│   │   ├── ZipArchive
│   │   │   └── editor.php
│   │   ├── ZohoOffice
│   │   │   └── editor.php
│   │   └── editor.php
│   ├── elFinder.class.php
│   ├── elFinderConnector.class.php
│   ├── elFinderPlugin.php
│   ├── elFinderSession.php
│   ├── elFinderSessionInterface.php
│   ├── elFinderVolumeDriver.class.php
│   ├── elFinderVolumeLocalFileSystem.class.php
│   ├── elFinderVolumeTrash.class.php
│   ├── libs
│   │   └── GdBmp.php
│   ├── mime.types
│   ├── plugins
│   │   ├── AutoResize
│   │   │   └── plugin.php
│   │   ├── AutoRotate
│   │   │   └── plugin.php
│   │   ├── Normalizer
│   │   │   └── plugin.php
│   │   ├── Sanitizer
│   │   │   └── plugin.php
│   │   └── Watermark
│   │   ├── logo.png
│   │   └── plugin.php
│   └── resources
│   ├── image.png
│   └── video.png
└── sounds
   └── rm.wav

├── index.php

├── main.js

├── css

│ ├── elfinder.full.css

│ ├── elfinder.min.css

│ └── theme.css

├── files

│ └── ...

├── img

│ ├── arrows-active.png

│ └── ...

├── js

│ ├── elfinder.full.js

│ ├── elfinder.min.js

│ ├── extras

│ │ ├── editors.default.js

│ │ ├── editors.default.min.js

│ │ ├── quicklook.googledocs.js

│ │ └── quicklook.googledocs.min.js

│ └── i18n

│ ├── elfinder.LANG.js

│ ├── elfinder.fallback.js

│ ├── elfinder.ja.js

│ └── help

│ ├── en.html.js

│ └── ja.html.js

├── php

│ ├── autoload.php

│ ├── connector.minimal.php

│ ├── editors

│ │ ├── OnlineConvert

│ │ │ └── editor.php

│ │ ├── ZipArchive

│ │ │ └── editor.php

│ │ ├── ZohoOffice

│ │ │ └── editor.php

│ │ └── editor.php

│ ├── elFinder.class.php

│ ├── elFinderConnector.class.php

│ ├── elFinderPlugin.php

│ ├── elFinderSession.php

│ ├── elFinderSessionInterface.php

│ ├── elFinderVolumeDriver.class.php

│ ├── elFinderVolumeLocalFileSystem.class.php

│ ├── elFinderVolumeTrash.class.php

│ ├── libs

│ │ └── GdBmp.php

│ ├── mime.types

│ ├── plugins

│ │ ├── AutoResize

│ │ │ └── plugin.php

│ │ ├── AutoRotate

│ │ │ └── plugin.php

│ │ ├── Normalizer

│ │ │ └── plugin.php

│ │ ├── Sanitizer

│ │ │ └── plugin.php

│ │ └── Watermark

│ │ ├── logo.png

│ │ └── plugin.php

│ └── resources

│ ├── image.png

│ └── video.png

└── sounds

└── rm.wav

2018年9月21日2018年9月21日

fdisk -l 出力をフォーマットするメモ / fdisk -l formated output

# fdisk -l -o device,start,end,sectors,size,type

1	# fdisk -l -o device,start,end,sectors,size,type

使用できるフィールドを確認する:

# fdisk --help

Usage:
 fdisk [options] <disk>      change partition table
 fdisk [options] -l [<disk>] list partition table(s)

Display or manipulate a disk partition table.

オプション:
 -b, --sector-size <size>      physical and logical sector size
 -B, --protect-boot            don't erase bootbits when create a new label
 -c, --compatibility[=<mode>]  mode is 'dos' or 'nondos' (default)
 -L, --color[=<when>]          colorize output (auto, always or never)
                                 colors are enabled by default
 -l, --list                    display partitions end exit
 -o, --output <list>           output columns
 -t, --type <type>             recognize specified partition table type only
 -u, --units[=<unit>]          display units: 'cylinders' or 'sectors' (default)
 -s, --getsz                   display device size in 512-byte sectors [DEPRECATED]
     --bytes                   print SIZE in bytes rather than in human readable format

 -C, --cylinders <number>      specify the number of cylinders
 -H, --heads <number>          specify the number of heads
 -S, --sectors <number>        specify the number of sectors per track

 -h, --help     display this help and exit
 -V, --version  output version information and exit

Available columns (for -o):
 gpt: Device Start End Sectors Size Type Type-UUID Attrs Name UUID
 dos: Device Start End Sectors Cylinders Size Type Id Attrs Boot End-C/H/S
      Start-C/H/S
 bsd: Slice Start End Sectors Cylinders Size Type Bsize Cpg Fsize
 sgi: Device Start End Sectors Cylinders Size Type Id Attrs
 sun: Device Start End Sectors Cylinders Size Type Id Flags

For more details see fdisk(8).

# fdisk --help

Usage:

fdisk [options] <disk> change partition table

fdisk [options] -l [<disk>] list partition table(s)

Display or manipulate a disk partition table.

オプション:

-b, --sector-size <size> physical and logical sector size

-B, --protect-boot don't erase bootbits when create a new label

-c, --compatibility[=<mode>] mode is 'dos' or 'nondos' (default)

-L, --color[=<when>] colorize output (auto, always or never)

colors are enabled by default

-l, --list display partitions end exit

-o, --output <list> output columns

-t, --type <type> recognize specified partition table type only

-u, --units[=<unit>] display units: 'cylinders' or 'sectors' (default)

-s, --getsz display device size in 512-byte sectors [DEPRECATED]

--bytes print SIZE in bytes rather than in human readable format

-C, --cylinders <number> specify the number of cylinders

-H, --heads <number> specify the number of heads

-S, --sectors <number> specify the number of sectors per track

-h, --help display this help and exit

-V, --version output version information and exit

Available columns (for -o):

gpt: Device Start End Sectors Size Type Type-UUID Attrs Name UUID

dos: Device Start End Sectors Cylinders Size Type Id Attrs Boot End-C/H/S

Start-C/H/S

bsd: Slice Start End Sectors Cylinders Size Type Bsize Cpg Fsize

sgi: Device Start End Sectors Cylinders Size Type Id Attrs

sun: Device Start End Sectors Cylinders Size Type Id Flags

For more details see fdisk(8).

2018年9月2日2018年10月16日

Linux に接続した新品ハードディスクにパティションを作成し、フォーマットし、ラベルを付けて利用可能にするメモ

注意：使用中のディスクに対してこれを行うとディスク内のデーターは消えてなくなります

ディスクをまるごと1つのパティションにするのに、バッチ処理で行うにはどうしたらいいか調べた

例:
デバイス名: /dev/sdc
作成するパティション: /dev/sdc1

NTFS にする カッコの部分はメモなので実行しない

# parted -s -a optimal /dev/sdc mklabel gpt
(# parted -s -a optimal /dev/sdc mklabel msdos)

# parted -s -a optimal /dev/sdc -- mkpart primary ntfs 1 -1

# mkntfs --force --fast -L LABEL_NAME /dev/sdc1

(# ntfslabel /dev/sdc1 LABEL_NAME)

# parted -s -a optimal /dev/sdc mklabel gpt

(# parted -s -a optimal /dev/sdc mklabel msdos)

# parted -s -a optimal /dev/sdc -- mkpart primary ntfs 1 -1

# mkntfs --force --fast -L LABEL_NAME /dev/sdc1

(# ntfslabel /dev/sdc1 LABEL_NAME)

ext4 にする カッコの部分はメモなので実行しない

# parted -s -a optimal /dev/sdc mklabel gpt
(# parted -s -a optimal /dev/sdc mklabel msdos)

# parted -s -a optimal /dev/sdc -- mkpart primary ext4 1 -1

# mkfs.ext4 -F -t ext4 -L LABEL_NAME /dev/sdc1

(# e2label /dev/sdc1 LABEL_NAME)

# parted -s -a optimal /dev/sdc mklabel gpt

(# parted -s -a optimal /dev/sdc mklabel msdos)

# parted -s -a optimal /dev/sdc -- mkpart primary ext4 1 -1

# mkfs.ext4 -F -t ext4 -L LABEL_NAME /dev/sdc1

(# e2label /dev/sdc1 LABEL_NAME)

vfat にラベルを設定する方法

# mlabel -i /dev/sdc1 ::LABEL_NAME

1	# mlabel -i /dev/sdc1 ::LABEL_NAME

パティション /dev/sdc1 を削除する方法

# parted /dev/sdc -- rm 1

1	# parted /dev/sdc -- rm 1

NTFS にラベルを設定する方法

# ntfslabel /dev/sdc1 LABEL_NAME

1	# ntfslabel /dev/sdc1 LABEL_NAME

See:

https://qiita.com/ngyuki/items/93da394fd0847ed5155e
https://qiita.com/ikuwow/items/c5832fd823e869825c80
http://vild.hatenablog.com/entry/2015/10/25/194833
http://mrs.suzu841.com/mini_memo/numero_13.html
https://linux.die.net/man/8/mkfs.ntfs
https://www.centos.org/docs/5/html/5.1/Deployment_Guide/s2-disk-storage-parted-remove-part.html
http://ja.akionux.net/wiki/index.php/Linux%E3%81%A7%E3%82%B9%E3%83%88%E3%83%AC%E3%83%BC%E3%82%B8%E3%81%AE%E3%83%A9%E3%83%99%E3%83%AB%E3%82%92%E7%A2%BA%E8%AA%8D%E3%83%BB%E5%A4%89%E6%9B%B4%E3%81%99%E3%82%8B
https://eng-entrance.com/linux-format

2018年7月31日2018年9月8日

Get and manage snapshot for samba file sharing

How to get the script directory, this method is good. update 8 Sep 2018.

use FindBin;
$SDIR = $FindBin::Bin; # script directory

1 2	use FindBin; $SDIR = $FindBin::Bin; # script directory

Get a snapshot by the output of rsync. This way is enough for my practical use.

#
# config.pl
#
# 2016-03-02
#

$TARGET_BASE = '/home/user/Desktop/snapshot';
$LOG_DIR = $TARGET_BASE . '/log';
$RSYNC_LOG = $LOG_DIR . '/rsync.log';
$TARGET_OF_SNAPSHOT = $TARGET_BASE . '/share';
$SNAPSHOT_DIR = $TARGET_BASE . '/snapshot';

# backup from $TARGET_OF_SNAPSHOT to $BACKUP_DIR
$BACKUP_DIR = $TARGET_BASE . '/backup';

#

$SELF_DIR = '/home/user/Desktop/snapshot/bin';
# push(@INC, $SELF_DIR);
$EXCLUDE_FROM = $SELF_DIR . '/exclude-from.txt';

#

$RSYNC = "/usr/bin/rsync";
$FIND = "/usr/bin/find";
$MKDIR = "/bin/mkdir";

#

$GMT = -9; # JST

$MAX_SIZE = '256M';

$KEEP_NUMBER_OF_SNAPSHOT = 30;

$DELETE_IF_DAY_AFTER_N_DAYS = 400;

# end of config.pl

# config.pl

# 2016-03-02

$TARGET_BASE = '/home/user/Desktop/snapshot';

$LOG_DIR = $TARGET_BASE . '/log';

$RSYNC_LOG = $LOG_DIR . '/rsync.log';

$TARGET_OF_SNAPSHOT = $TARGET_BASE . '/share';

$SNAPSHOT_DIR = $TARGET_BASE . '/snapshot';

# backup from $TARGET_OF_SNAPSHOT to $BACKUP_DIR

$BACKUP_DIR = $TARGET_BASE . '/backup';

$SELF_DIR = '/home/user/Desktop/snapshot/bin';

# push(@INC, $SELF_DIR);

$EXCLUDE_FROM = $SELF_DIR . '/exclude-from.txt';

$RSYNC = "/usr/bin/rsync";

$FIND = "/usr/bin/find";

$MKDIR = "/bin/mkdir";

$GMT = -9; # JST

$MAX_SIZE = '256M';

$KEEP_NUMBER_OF_SNAPSHOT = 30;

$DELETE_IF_DAY_AFTER_N_DAYS = 400;

# end of config.pl

#
# exclude-from.txt
#

- .DS_Store
- .git
- .gitignore

# temporary

- tmp/
- *.tmp

# ms office temporary file

- ~$*.*

# + *

# exclude-from.txt

- .DS_Store

- .git

- .gitignore

# temporary

- tmp/

- *.tmp

# ms office temporary file

- ~$*.*

# + *

#!/usr/bin/perl
#
# backup.pl
# 
# test script
#
# 2014-04-14
#

use File::Basename 'basename', 'dirname';
use FindBin;

# get script directory
$SDIR = $FindBin::Bin;
# print $SDIR."\n";

require "$SDIR/config.pl";

$cmd = sprintf("%s -azv '%s' '%s' >>'%s'", $RSYNC, $TARGET_OF_SNAPSHOT, $BACKUP_DIR, $RSYNC_LOG);
print("$cmd\n");
exit(system($cmd));

#!/usr/bin/perl

# backup.pl

# test script

# 2014-04-14

use File::Basename 'basename', 'dirname';

use FindBin;

# get script directory

$SDIR = $FindBin::Bin;

# print $SDIR."\n";

require "$SDIR/config.pl";

$cmd = sprintf("%s -azv '%s' '%s' >>'%s'", $RSYNC, $TARGET_OF_SNAPSHOT, $BACKUP_DIR, $RSYNC_LOG);

print("$cmd\n");

exit(system($cmd));

#!/usr/bin/perl
#
# get_snapshot.pl
#
# 2017-04-14
#

# use File::Copy;
use File::Basename 'basename', 'dirname';
use FindBin;

# get script directory
$SDIR = $FindBin::Bin;
# print $SDIR."\n";

require "$SDIR/config.pl";

$return_code = 0;

if (!open(IN, "< $RSYNC_LOG")) {
    printf(STDERR "$0: Cannot open log file: $RSYNC_LOG.\n");
    exit(1);
}
@logs = <IN>;
close(IN);
# print @logs;

local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + $GMT * 60 * 60);
$year += 1900;
$mon  += 1;
# /path/@GMT-2017.04.12-00.53.59
$dst_dir = sprintf("%s/\@GMT-%04d.%02d.%02d-%02d.%02d.%02d", $SNAPSHOT_DIR, $year, $mon, $mday, $hour, $min, $sec);

$now_int = sprintf("%04d%02d%02d", $year, $mon, $mday) + 0;

$copy_count = 0;
%srcs;
$is_list = 0;
$src_dir = dirname($TARGET_OF_SNAPSHOT);
foreach $fpath (@logs) {
    chomp $fpath;
    # printf("fpath: %s\n", $fpath);

    if ($is_list && !$fpath) {
        $is_list = 0;
        next;
    }
    if (!$is_list && $fpath eq 'sending incremental file list') {
        $is_list = 1;
        next;
    }
    if (!$is_list) {
        next;
    }

    if ($fpath =~ m/^deleting /) {
        next;
    }

    $src = sprintf("%s/%s", $src_dir, $fpath);

    if (! -f $src) {
        printf("%s: skip: file not found: '%s'\n", $0, $src);
        next;
    }

    if ($srcs{$src} == 1) {
        printf("%s: skip: already did snapshot: '%s'\n", $0, $src);
        next;
    }

    # do snapshot ------------------------------
    $dst = sprintf("%s/%s", $dst_dir, $fpath);
    # printf("%s: snapshot: %s => %s\n", $0, $src, $dst);
    $dir = dirname $dst;
    # printf("mkdir %s\n", $dir);
    $cmd = sprintf("%s -p '%s'", $MKDIR, $dir);
    if (system($cmd)) {
        $return_code++;
        printf("%s: failed to make directory: '%s'\n", $0, $dir);
        next;
    }
    # copy the one file to snapshot directory.
    $cmd = sprintf("%s -av --max-size=%s --exclude-from='%s' '%s' '%s' >/dev/null", $RSYNC, $MAX_SIZE, $EXCLUDE_FROM, $src, $dst);
    if (system($cmd)) {
        $return_code++;
        printf(STDERR "%s: failed to snapshot: '%s' => '%s'\n", $0, $src, $dst);
    } else {
        $srcs{$src} = 1;
        $copy_count++;
        printf("%s: did snapshot: '%s' => '%s'\n", $0, $src, $dst);
    }
}

if (!unlink($RSYNC_LOG)) {
    printf(STDERR "%s: failed to delete log: '%s'\n", $0, $RSYNC_LOG);
}

exit($return_code);

100

#!/usr/bin/perl

# get_snapshot.pl

# 2017-04-14

# use File::Copy;

use File::Basename 'basename', 'dirname';

use FindBin;

# get script directory

$SDIR = $FindBin::Bin;

# print $SDIR."\n";

require "$SDIR/config.pl";

$return_code = 0;

if (!open(IN, "< $RSYNC_LOG")) {

printf(STDERR "$0: Cannot open log file: $RSYNC_LOG.\n");

exit(1);

}

@logs = <IN>;

close(IN);

# print @logs;

local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + $GMT * 60 * 60);

$year += 1900;

$mon += 1;

# /path/@GMT-2017.04.12-00.53.59

$dst_dir = sprintf("%s/\@GMT-%04d.%02d.%02d-%02d.%02d.%02d", $SNAPSHOT_DIR, $year, $mon, $mday, $hour, $min, $sec);

$now_int = sprintf("%04d%02d%02d", $year, $mon, $mday) + 0;

$copy_count = 0;

%srcs;

$is_list = 0;

$src_dir = dirname($TARGET_OF_SNAPSHOT);

foreach $fpath (@logs) {

chomp $fpath;

# printf("fpath: %s\n", $fpath);

if ($is_list && !$fpath) {

$is_list = 0;

next;

}

if (!$is_list && $fpath eq 'sending incremental file list') {

$is_list = 1;

next;

}

if (!$is_list) {

next;

}

if ($fpath =~ m/^deleting /) {

next;

}

$src = sprintf("%s/%s", $src_dir, $fpath);

if (! -f $src) {

printf("%s: skip: file not found: '%s'\n", $0, $src);

next;

}

if ($srcs{$src} == 1) {

printf("%s: skip: already did snapshot: '%s'\n", $0, $src);

next;

}

# do snapshot ------------------------------

$dst = sprintf("%s/%s", $dst_dir, $fpath);

# printf("%s: snapshot: %s => %s\n", $0, $src, $dst);

$dir = dirname $dst;

# printf("mkdir %s\n", $dir);

$cmd = sprintf("%s -p '%s'", $MKDIR, $dir);

if (system($cmd)) {

$return_code++;

printf("%s: failed to make directory: '%s'\n", $0, $dir);

next;

}

# copy the one file to snapshot directory.

$cmd = sprintf("%s -av --max-size=%s --exclude-from='%s' '%s' '%s' >/dev/null", $RSYNC, $MAX_SIZE, $EXCLUDE_FROM, $src, $dst);

if (system($cmd)) {

$return_code++;

printf(STDERR "%s: failed to snapshot: '%s' => '%s'\n", $0, $src, $dst);

} else {

$srcs{$src} = 1;

$copy_count++;

printf("%s: did snapshot: '%s' => '%s'\n", $0, $src, $dst);

}

if (!unlink($RSYNC_LOG)) {

printf(STDERR "%s: failed to delete log: '%s'\n", $0, $RSYNC_LOG);

}

exit($return_code);

#!/usr/bin/perl
#
# purge_snapshot.pl
#
# 2014-04-14
#

use File::Basename 'basename', 'dirname';
use File::Path 'rmtree';
# use File::Copy;
use FindBin;

# get script directory
$SDIR = $FindBin::Bin;
# print $SDIR."\n";

require "$SDIR/config.pl";

$return_code = 0;

#
# Get the snapshot directory list.
#

if (!opendir(DIRHANDLE, $SNAPSHOT_DIR)) {
    printf(STDERR "%s: Cannot open snapshot directory: %s.\n", $0, $SNAPSHOT_DIR);
    exit 1;
}
@dirs;
foreach(readdir(DIRHANDLE)){
    # print "$_\n";
    next if /^\.{1,2}$/;    # skip '.' and '..'
    $dir = sprintf("%s/%s", $SNAPSHOT_DIR, $_);
    if (! $dir =~ /^\@GMT\-/) { next; }   # @GMT-
    if (! -d $dir) { next; }
    push(@dirs, $dir);
    # print "$dir\n";
}
closedir(DIRHANDLE);

@dirs = sort @dirs;
# print join(',',@dirs),"\n";

#
# Keep constant the number of snapshots.
#

$cut = $#dirs - $KEEP_NUMBER_OF_SNAPSHOT + 1;

if ($cut < 1) {
    printf("%s: No need to purge.\n", $0);
    exit($return_code);
}

# Merge from new snapshots to old,
# put snapshots together to $dst.
for ($i = $cut; $i > 0; $i--) {
    $src = sprintf("%s", $dirs[$i]);
    $dst = sprintf("%s", $dirs[$i - 1]);
    printf("%s: %s => %s\n", $0, $src, $dst);
    $cmd = sprintf("%s -av --max-size=%s --exclude-from='%s' '%s/' '%s/'", $RSYNC, $MAX_SIZE, $EXCLUDE_FROM, $src, $dst);
    printf("%s: execute: %s\n", $0, $cmd);
    if (system($cmd) > 0) {
        printf(STDERR "%s: failed to execute: %s\n", $0, $cmd);
        $return_code++;
        next;
    }
    rmtree($src);
}

if ($return_code) {
    exit($return_code);
}

# Move from the merged snapshot to new.
# from $dst to $dirs[$cut]
# don't use rename and move
$save = sprintf("%s", $dirs[$cut]);
printf("%s: %s => %s\n", $0, $dst, $save);
$cmd = sprintf("%s -av --max-size=%s --exclude-from='%s' '%s/' '%s/'", $RSYNC, $MAX_SIZE, $EXCLUDE_FROM, $dst, $save);
printf("%s: execute: %s\n", $0, $cmd);
if (system($cmd) > 0) {
    $return_code++;
    printf("%s: failed to execute: %s\n", $0, $cmd);
} else {
    rmtree($dst);
}

if ($SNAPSHOT_DIR =~ /snapshot$/ && $DELETE_IF_DAY_AFTER_N_DAYS > 14) {
    printf("%s: delete the snapshot files that is %d days old from the changed.\n", $0, $DELETE_IF_DAY_AFTER_N_DAYS);
    $files = `$FIND '$SNAPSHOT_DIR' -mtime +$DELETE_IF_DAY_AFTER_N_DAYS -delete -print`;
    if ($files) {
        printf("%s: deleted old snapshot files: %s\n", $0, $DELETE_IF_DAY_AFTER_N_DAYS, join(", ", $files));
    }

    # delete empty snapshot directories
    $files = `$FIND '$SNAPSHOT_DIR' -type d -empty -delete -print`;
    if ($files) {
        printf("%s: delete empty snapshot directories: %s\n", $0, join(", ", $files));
    }
}

exit($return_code);

100

101

102

103

#!/usr/bin/perl

# purge_snapshot.pl

# 2014-04-14

use File::Basename 'basename', 'dirname';

use File::Path 'rmtree';

# use File::Copy;

use FindBin;

# get script directory

$SDIR = $FindBin::Bin;

# print $SDIR."\n";

require "$SDIR/config.pl";

$return_code = 0;

# Get the snapshot directory list.

if (!opendir(DIRHANDLE, $SNAPSHOT_DIR)) {

printf(STDERR "%s: Cannot open snapshot directory: %s.\n", $0, $SNAPSHOT_DIR);

exit 1;

}

@dirs;

foreach(readdir(DIRHANDLE)){

# print "$_\n";

next if /^\.{1,2}$/; # skip '.' and '..'

$dir = sprintf("%s/%s", $SNAPSHOT_DIR, $_);

if (! $dir =~ /^\@GMT\-/) { next; } # @GMT-

if (! -d $dir) { next; }

push(@dirs, $dir);

# print "$dir\n";

}

closedir(DIRHANDLE);

@dirs = sort @dirs;

# print join(',',@dirs),"\n";

# Keep constant the number of snapshots.

$cut = $#dirs - $KEEP_NUMBER_OF_SNAPSHOT + 1;

if ($cut < 1) {

printf("%s: No need to purge.\n", $0);

exit($return_code);

}

# Merge from new snapshots to old,

# put snapshots together to $dst.

for ($i = $cut; $i > 0; $i--) {

$src = sprintf("%s", $dirs[$i]);

$dst = sprintf("%s", $dirs[$i - 1]);

printf("%s: %s => %s\n", $0, $src, $dst);

$cmd = sprintf("%s -av --max-size=%s --exclude-from='%s' '%s/' '%s/'", $RSYNC, $MAX_SIZE, $EXCLUDE_FROM, $src, $dst);

printf("%s: execute: %s\n", $0, $cmd);

if (system($cmd) > 0) {

printf(STDERR "%s: failed to execute: %s\n", $0, $cmd);

$return_code++;

next;

}

rmtree($src);

}

if ($return_code) {

exit($return_code);

}

# Move from the merged snapshot to new.

# from $dst to $dirs[$cut]

# don't use rename and move

$save = sprintf("%s", $dirs[$cut]);

printf("%s: %s => %s\n", $0, $dst, $save);

$cmd = sprintf("%s -av --max-size=%s --exclude-from='%s' '%s/' '%s/'", $RSYNC, $MAX_SIZE, $EXCLUDE_FROM, $dst, $save);

printf("%s: execute: %s\n", $0, $cmd);

if (system($cmd) > 0) {

$return_code++;

printf("%s: failed to execute: %s\n", $0, $cmd);

} else {

rmtree($dst);

}

if ($SNAPSHOT_DIR =~ /snapshot$/ && $DELETE_IF_DAY_AFTER_N_DAYS > 14) {

printf("%s: delete the snapshot files that is %d days old from the changed.\n", $0, $DELETE_IF_DAY_AFTER_N_DAYS);

$files = `$FIND '$SNAPSHOT_DIR' -mtime +$DELETE_IF_DAY_AFTER_N_DAYS -delete -print`;

if ($files) {

printf("%s: deleted old snapshot files: %s\n", $0, $DELETE_IF_DAY_AFTER_N_DAYS, join(", ", $files));

}

# delete empty snapshot directories

$files = `$FIND '$SNAPSHOT_DIR' -type d -empty -delete -print`;

if ($files) {

printf("%s: delete empty snapshot directories: %s\n", $0, join(", ", $files));

}

exit($return_code);

lsyncd でサーバー間ファイル同期してみるメモ / synchronize files between servers with lsyncd