hns - 日記自動生成システム - Version 2.19.9

先月 2019年11月 来月
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
Namazu for hns による簡易全文検索
詳しくは 詳細指定/ヘルプを参照して下さい
検索式:

2019年11月03日() 旧暦 [n年日記] [更新:"2019/11/02 23:46:50"]

#1 [pkgsrc] (Wanderlust) problem reading mail メールが読めなくなって

Checking "%inbox!"
Opening TLS connection to ‘imap.example.com’...
Opening TLS connection with ‘gnutls-cli --x509cafile nil -p 993 imap.example.com’...failed
Opening TLS connection with ‘gnutls-cli --x509cafile nil -p 993 imap.example.com --protocols ssl3’...failed
Opening TLS connection to ‘imap.example.com’...failed
Auto plugged off at imap.example.com:993
  • Not the server side problem (With other MUA OK)
    サーバ側の原因ではなさそう (他の MUA では問題ない)
  • Very much similar environment has no problem
    とても似た環境なら読める
Then I've written the Perl script to compare 'pkg_info' output
という訳で pkg_info の差分を表示する perl script を作って比べて見た
#!/usr/pkg/bin/perl
use strict;
use Getopt::Std;

our %ARGV;
our %opts;

sub ColorString($$){
    my (%COLOR) = ( qw (
        black   30
        red     31
        green   32
        yellow  33
        blue    34
        pink    35
        magenta 36
        white   37
                    ));
    my($color) = shift;
    my($string) = shift;
    return sprintf("%c[%dm%s%c[0m", 0x1b, $COLOR{$color}, $string, 0x1b);
}

getopt('',\%opts);
print STDERR  sprintf("%4d <", __LINE__). (caller 0)[3]. '> '.
    $ARGV[0] .' '. 
    $ARGV[1].' '. 
    "\n";
my $FILEA = $ARGV[0];
my $FILEB = $ARGV[1];

if ($FILEB eq '') { 
    print STDERR  sprintf("%04d <", __LINE__). (caller 0)[3]. "> you need two filename\n";
    die;
}
my (%LISTA, %LISTB, %WHOLE);
# ------------------------------------------------------------------------------
open(FILEA, $FILEA) || die "problem opening file: $FILEA :$!\n";
while(<FILEA>){
    if (/(\S+)-([0-9.]+(nb[0-9.]*){0,})/) {
	my $name = $1;
	my $version = $2;
#	print STDERR  sprintf("%04d ", __LINE__). (caller 0)[3]. $name. ' ' . $version . "\n";
	$LISTA{$name} = $version;
	$WHOLE{$name}++
    }
}
close(FILEA);
# ------------------------------------------------------------------------------
open(FILEB, $FILEB) || die "problem opening file: $FILEB :$!\n";
while(<FILEB>){
    if (/(\S+)-([0-9.]+(nb[0-9.]*){0,})/) {
	my $name = $1;
	my $version = $2;
#	print STDERR  sprintf("%04d ", __LINE__). (caller 0)[3]. $name. ' ' . $version . "\n";
	$LISTB{$name} = $version;
	$WHOLE{$name}++
    }
}
close(FILEB);
# -----------------------------------------------------------------------------

foreach my $i (sort keys %WHOLE) {
    my $a = $LISTA{$i};
    my $b = $LISTB{$i};
    if ($a ne $b) {
	if ($a eq '') { $a = ColorString('red', sprintf("%20s", '('. $i. ')'));}
	if ($b eq '') { $b = ColorString('red', sprintf("%20s", '('. $i. ')'));}
	printf("%-25s\t %20s\t %20s\n", $i, $a, $b);
    }
}
__END__
How-to-use:
使い方:
at HOST B:
   pkg_info > /tmp/hostB

at HOST A: 
   pkg_info > /tmp/hostA
   scp HOST_B:/tmp/hostB /tmp
   perl this_script /tmp/hostA /tmp/hostB  |less -R
Found missing one as emacs-w3m. I've added it and resolved. I recently the work to fix the emacs-w3m-snapshot build problem.

emacs-w3m が欠けていたので、追加したら読めるようになった
最近 emacs-w3m-snapshot が package 出来ないのを直すのに、いろいろ(消したり追加したり)していて 最後に戻すのを忘れていた(必要なことを分っていなかった)




最近の日記
2024年03月10日
停電 (瞬電)
2024年03月03日
the second try on bare-metal
useradd
2024年02月29日
opendkim and senmail
2024年01月24日
chat/iam 0.0.8
2024年01月21日
uselocale vs setlocale (textproc/R-readxl)
以上、1 日分です。
タイトル一覧
カテゴリ分類
Powered by hns-2.19.9, HyperNikkiSystem Project

Count.cgi (since 2000/02/05)