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 出来ないのを直すのに、いろいろ(消したり追加したり)していて 最後に戻すのを忘れていた(必要なことを分っていなかった)




最近の日記
2020年06月21日
sourceforge ban recovered
2020年05月27日
sudo service ssh start
2020年05月16日
Router host down
2020年04月29日
pan cake Japanese Hot cake
2020年03月31日
sysinst
以上、1 日分です。
タイトル一覧
カテゴリ分類
Powered by hns-2.19.9, HyperNikkiSystem Project

Count.cgi (since 2000/02/05)