[debian-devel:02866] Re: Lintian (Re: Uploaded canna 3.5b2-10 to master)

[Fumitoshi UKAI <ukai@debian.or.jp>]

From: Fumitoshi UKAI <ukai@debian.or.jp>
Subject: [debian-devel:02864] Re: Lintian (Re: Uploaded canna 3.5b2-10 to master)
Date: Thu, 26 Feb 1998 21:58:56 +0900

> > bo環境でも lintian が動くようなので ちょっとやってみました。
> 
> ちょっと嘘。
> 少なくとも以下のパッチを /usr/share/lintian/checks/files にあてる必要あり。

やはり、こんないい加減なパッチでは駄目だった(^^;
前のは捨てて、これを/usr/share/lintian/unpack/unpack-binpkg-l1 に
当ててください。
# hamm ではあてる必要ありません。
## tar を変えればいいのかな。

--- unpack-binpkg-l1.orig	Fri Feb 27 01:04:39 1998
+++ unpack-binpkg-l1	Fri Feb 27 01:01:42 1998
@@ -52,7 +52,21 @@
 (system("dpkg-deb -e $file $base_dir/control") == 0) or fail();
 
 # create index file for package
-(system("dpkg-deb -c $file > $base_dir/index") == 0) or fail();
+#(system("dpkg-deb -c $file > $base_dir/index") == 0) or fail();
+%month = (Jan => '01', Feb => '02', Mar => '03', Apr => '04', 
+	May => '05', Jun => '06', Jul => '07', Aug => '08', 
+	Sep => '09', Oct => '10', Nov => '11', Dec => '12');
+open(C, "dpkg-deb -c $file|") or fail();
+open(I, ">$base_dir/index") or fail();
+while (<C>) {
+#bo:   drwxr-xr-x root/root         0 Feb 26 21:35 1998 ./
+#hamm: drwxr-xr-x root/root         0 1997-08-08 16:21 ./
+  if (/^(\S+\s+\S+\s+\d+\s+)([A-Za-z]{3})\s+(\d+)\s+(\S+)\s+(\d+)(.*)/) {
+	$_ = $1 . "$5-$month{$2}-$3 $4" . $6 . "\n";
+  }
+  print I $_;
+}
+close(C);close(I);
   
 # create control field files
 for $field (keys %data) {

PS.
別に lintian に文句言われていても パッケージを
アップロードしてもいいですよ。
# もちろん、文句いわれないにこしたことはないけど。
-- 
鵜飼文敏