|
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
という訳で 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 -RFound 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 が欠けていたので、追加したら読めるようになった
( つっこみ )
|
最近の日記 2024年05月06日 ・py-setuptools (python 3.11.1) ・make release took 1 hours and 10 min ・qemu invocation for 10.99.10 2024年05月05日 ・Windows 10 version ・serial connection ・bc bench 2024年05月04日 ・Trial on 10.99.10 ・another version (later trial) to succeed 2024年04月29日 ・dkim 2024年03月10日 ・停電 (瞬電) | ||