なかのにっき

• 日経産業新聞 2 月分

• 日経サイエンス DVD 2000-2004, 2005-2009
• 理系のためのクラウド知的生産術
• すごい実験
• The R tips

• トランジスタ技術 4 月号

• 高校教科書 物理 I,II, 理科総合 A 各 2 社

#!/usr/bin/perl

use utf8;
use JSON qw/decode_json/;

binmode STDIN, ':encoding(utf8)';
binmode STDOUT, ':encoding(utf8)';
binmode STDERR, ':encoding(utf8)';

while(<>){ $content .= $_; }

$data = decode_json($content);

for (my $i=0; $i <= $#{$data->{"items"}} ; $i++){

    $url = $data->{"items"}->[$i]->{"alternate"}->[0]->{"href"};
    (以下 URL 取り込み〜DOI 取得〜bib 吐き)
}

• Option-Watched Folders にそのフォルダを指定。
• Option-File Organizer の Oraganize my files にチェックを入れ、 Copy Files to: にそのフォルダを指定。 subfolders とか Rename とかはチェックしない。

1. surf 停止、samba, nfs 停止
2. もっぺんミラースクリプトを走らす
3. 旧 babaserv 停止
4. /etc/network をコピーして新サーバを single user mode で再起動
5. convmv 使って /home (と /var/lib/samba/profiles) のファイル名エンコードを euc → utf8 へ。
6. ldap 復旧 (/etc/ldap, /var/lib/ldap, pam, nss 関連設定をコピって起動)
7. bind, postfix 復旧
8. nfs 復旧
9. openldap 復旧
10. 各部屋の vpn ルータと接続確認
11. surf 起動
12. samba 起動 (smb.conf を euc→utf8 へ)

• convmv を実際に動かすには --notest が必要 だった
• 古いユーザに、やったら長いファイル名をつけている人 (2007home/shibata) がいて、 255 文字制限に引っかかって convmv が走らなかった→いっぺん削除した
• ldap 関連のファイルに owner が openldap ユーザのやつがあって、 uid/gid が変わっていたため slapd が読めず起動に失敗した
• nss_ldap.conf の書き戻しを忘れて最初認証が走らなかった

• 家→さくら VPS OK
• 家→大学 NG
• さくら VPS→大学 OK

＠ ping:

＠ traceroute:

＠ 結局よくわからん(笑):

1. /home を convmv で変換
2. smb.conf の unix charset を UTF-8 に
3. utf-8 teraterm の設定を UTF-8 に
4. shell の LANG を ja_JP.utf-8 に。
5. .screenrc の defencoding を UTF-8 に
6. .emacs の set-keyboard-coding-system と set-terminal-coding-syste を 'utf-8-unix に
7. /etc/default/locale を ja_JP.utf-8 に (全部のサーバではまだ)

＠ mnews:

linux-gate.so.1 =>  (0xf76f4000)
libc.so.6 => /lib32/libc.so.6 (0xf75a1000)
/lib/ld-linux.so.2 (0xf76f5000)

＠ ipv6 disable:

net.ipv6.conf.all.disable_ipv6 = 1

Mar 26 15:11:45 babaserv rpc.statd[1298]: nsm_parse_reply: can't decode RPC reply

＠ convmv の残り:

＠ バックアップ関連:

＠ locate/updatedb:

＠ dropbox:

dropbox start

• パリティ 4 月号
• 日経サイエンス 5 月号

＠ Mendeley:

＠ revtex4:

#!/usr/bin/perl
$output = 1;
while(<>){
    if (/end{thebibliography}/) {$output = 1};
    if ($output == 0){next;}
    if (/REVTEX41Control/) {
	$output = 0;
	next;
    };
    if (/Bibitem[A-z{]+\%$/) {
	$str = $_; chomp $str;
	$str =~ s/\%$//;
	$nstr = <>; $nstr =~ s/^ +//;
	print $str . $nstr;
	next;
    }
    print;
}