Bug#161593: [path] apt-utils doesn't fail any more about signed debs

[Andreas Barth <aba@not.so.argh.org>]

tags 161680 +patch
thanks

Hi,

attached is a patch to debsigs that creates apt-utils compatible
ar-files. However, this patch has one major drawback: It is ugly, and
it duplicates logic form dpkg-deb to debsigs. So, it should be backed
out once a "debian ar" is available, e.g. as part of dpgk.

I also put an updated version of apt-utils at
deb http://debsign.turmzimmer.net/ ./
deb-src http://debsign.turmzimmer.net/ ./


Cheers,
Andi
-- 
   http://home.arcor.de/andreas-barth/
   PGP 1024/89FB5CE5  DC F1 85 6D A6 45 9C 0F  3B BE F1 D0 C5 D1 D9 0C

diff -Nur debsigs-0.1.14/arf.pm debsigs-0.1.14-working-with-apt/arf.pm
--- debsigs-0.1.14/arf.pm	Wed May  9 13:21:52 2001
+++ debsigs-0.1.14-working-with-apt/arf.pm	Sat Dec  6 13:23:15 2003
@@ -51,8 +51,29 @@
 sub setfile {
   my ($self, $filename) = @_;
 
-  return(system($self->{ar}, "-r", 
-		$self->{filename}, $filename));
+#  return(system($self->{ar}, "-r", 
+#		$self->{filename}, $filename));
+
+  open(IN, "< $filename") || return 256;
+  $data=join('',<IN>);
+  $time=((stat IN)[9]);
+  close IN;
+  ($data) || return 256;
+  $filename =~ s/.*\///;
+  if (length($filename) > 15) {
+  	print STDERR "Archive name too long\n";
+	return 256;
+  }
+  $out = sprintf ("%-16s%-12s%-6s%-6s%-8s%-10s`\n",
+  	$filename, $time,
+  	0, 0, 100644,
+	length($data)).$data;
+  (length($data)%2) && ($out .= "\n");
+  open(OUT, ">> $self->{filename}") || return 256;
+  print OUT $out || return 256;
+  close OUT || return 256;
+#  print "\nAdded Signature $filename to $self->{filename}\n";
+  return 0;
 }
 
 # Delete the specified file.