$ uname -a
SunOS sword 5.10 Generic120012-14 i86pc i386 i86pc
$ ls -l /usr/include/kerberos5
計 242
-rw-r--r--   1 root     bin         2782  8月  9日 2007年 comerr.h
-rw-r--r--   1 root     bin       105188  8月  9日 2007年 krb5.h
-rw-r--r--   1 root     bin         1113  1月 22日 2005年 mit-sipb-copyright.h
-rw-r--r--   1 root     bin         3199  1月 22日 2005年 mit_copyright.h

ところでこのパッチ、 lofs(7FS) を利用していると、 以下のようになってパッチ適用に失敗する:

# /usr/local/sbin/pca -i 120012
省略
Checking patches that you specified for installation.
Done!
mount: Mount point /var/run/.patchSafeMode/root/home/fumiyas does not exist.
Mount operation failed - /sbin/mount -F lofs -o nosub  /home/fumiyas /var/run/.patchSafeMode/root/home/fumiyas
Could not successfully create environment for 'deferred activation patching'.
Failed (exit code 1)

lofs(7FS) なファイルシステムをアウンマウントすれば回避できるけど、 ゾーンを ZFS に構築しているとかなり面倒。 参考: http://www.mydatabasesupport.com/forums/solaris/346058-zonepath-svm-soft-partition.html

mktemp(1) も含まれていないので、 Samba のコンパイルで make test_pam_modules test_nss_modules が実行できない。 仕方ないので Perl で実装して、自作ツールチェインに同梱することにした。 ちなみに Perl Power Tools にも含まれていなかった。

#!/usr/bin/perl -w


#

Perl-version mktemp(1) command

Copyright (c) 2007 SATOH Fumiyasu @ OSS Technology, Co., Japan

<http://www.osstech.co.jp/>

#

License: GNU General Public License version 3

Date: 2007-07-11, since 2007-07-11

#

use strict;

use warnings;

use Getopt::Long;
use POSIX;
use IO::File;
umask(0077);
my @seed = ('0'..'9', 'a'..'z', 'A'..'Z');
my $flagdir = undef;
my $flagquiet = undef;
my $flagunsafe = undef;
my $flaggeneratepath = undef;
my $prefixdir = undef;
my $template = 'tmp.XXXXXXXXXX';
my $cmdname = $0;
$cmdname =~ s#^.*/##;
my $cmd_usage = "Usage: $cmd_name [-dptu] [-p DIRECTORY] [TEMPLATE]\n";
Getopt::Long::Configure('bundling');
Getopt::Long::Configure('no_ignore_case');
Getopt::Long::Configure('no_auto_abbrev');
GetOptions(
'd' =>   \$flag_dir,
'q' =>   \$flag_quiet,
't' =>   \$flag_generate_path,
'u' =>   \$flag_unsafe,
'p=s' => sub {
$prefix_dir = $_[1];
$flag_generate_path = 1;
}
) || die "$cmd_usage";
if ($flag_quiet) {
$SIG{'DIE'} = sub {
exit(1);
}
}
if ($flag_unsafe) {
die "$cmd_name: -u option is not supported yet\n";
}
if (@ARGV == 1) {
$template = $ARGV[0];
}
elsif (@ARGV > 1) {
die "$cmd_name: too many argument\n";
}
if ($flag_generate_path) {
if ($template =~ m#/#) {
die "$cmd_name: template must not contain directory separators in -t mode\n";
}
if (defined($ENV{'TMPDIR'})) {
$template = "$ENV{'TMPDIR'}/$template";
}
elsif (defined($prefix_dir)) {
$template = "$prefix_dir/$template";
}
else {
$template = "/tmp/$template";
}
}
$template =~ s#//+#/#g;
$template =~ s/(X+)$//;
my $seed_n = defined($1) ? length($1) : 0;
my $try_max = $seed_n * 10;
for (my $try = 0; $try <= $try_max; $try++) {
my $temp = $template;
for (my $n = 0; $n < $seed_n; $n++) {
$temp .= $seed[int(rand(@seed))];
}
if ($flag_dir) {
if (mkdir($temp, 0700)) {
print "$temp\n";
exit(0);
}
elsif ($! != POSIX::EEXIST || $try == $try_max) {
die "$cmd_name: cannot create temporary directory $temp: $!\n";
}
}
else {
my $fh = IO::File->new($temp, O_RDWR|O_CREAT|O_EXCL, 0600);
if (defined($fh)) {
print "$temp\n";
exit(0);
}
elsif ($! != POSIX::EEXIST || $try == $try_max) {
die "$cmd_name: cannot create temporary file $temp: $!\n";
}
}
}

Not reached

exit(1);

閉じた環境や特定の用途向けであれば、それほど気をつかわなくてもいいだろう。 しかし、配布するソフトウェアパッケージを作成する場合はどうだろう? 実行するマシンや人によって違う動作をするバイナリができてしまうのは、 大きな問題だ。

一方、実際の現場ではどうなってるか。 仕事柄、RPM や Debian パッケージを触ることがよくあるのだが、 個々のパッケージの作成ルール (RPM なら SPEC ファイル、Debian なら debian/rules) はもちろん、 パッケージ管理 (作成) システム自体にそういったことに気を使っている節は見あたらない。 同じ OS、同じバージョン、同じ手順なのに、 環境変数によって異なるパッケージが生まれてしまう可能性がある。 そんなんでいいのだろうか? 誰も困っていないのだろうか? 私は実際に困ってしまい、せめて問題提起をと思って、今この文を書いている…。

先日 RPM for Solaris 環境を構築しているとき、 rpmbuild の実行過程で利用されるあるシェルスクリプトに次のような文を入れていた。 (Solaris の /bin/sh は unset PATH を拒否するので除外しているが、 別の箇所で PATH をリセットしているので問題ない)

## Make a clean room
eval "env |sed -n '/^PATH=/d;s/^\([a-zA-Z0-9_]*\)=.*$/unset \1/p'"

せめてこれくらい、パッケージ管理 (作成) システムで標準でやってくれないものだろうか。 余計なお世話?

Linux ディストリビューターは皆、 厳密に管理されたパッケージ作成専用の環境でのみパッケージを作成しているんだろうか? 某所の事情は少し知っているが、その工程に携わったことがないので、実際どうなのかわからん…。

auth.debug              /var/log/pam.log

ログファイルを作成し、syslogd プロセスに反映させる。

# touch /var/log/pam.log


svcadm refresh system-log

PAM のデバッグを有効にする。

# touch /etc/pam_debug

ログを読んでみたが、 PAM の実装を理解していないせいか、わけがわからん。 設定ファイル、インターフェイス、実装の触りを見る限りでは、 PAM って設計が間違っていて、できれば見ないほうがいいのではないかという予感がヒシヒシと…。 勉強したくないなぁ。 cvm のほうが、まだよさげ。

これはいい。 SunSolve Online から最新パッチ情報を持ってきて、 パッチの適用状態を見たり、パッチを適用できる便利ツール。 まだ smpatch(1M) は使ったことがないので比較はできないが。

そういえば Solaris 8 の時代、 ダウンロード済みの 8_Recommended.README ファイルを見てパッチの適用状態を表示するスクリプトを作ったっけ。 Perl で作ったんだっけ? シェルだっけ? …思い出せない。 あのスクリプトはどこへやってしまったのかな。 なんだか懐しい気分になってしまった。。