Changeset 132

Timestamp:

09/28/07 14:39:47 (17 years ago)

Author:

kdeugau

Message:

/trunk

Fiddle manpages into the correct format from whatever the upstream
install does.

RPM does info pages and several other bits; while this should be
simple to hack into supporting info pages I'm not so sure about
the other bits.

File:

• trunk/debbuild (modified) (1 diff)

trunk/debbuild

@@ -1005 +1005 @@
   # and clean up
   unlink $installscriptfile;
+
+  # final bit: compress manpages if present
+  # done here cuz I don't grok shell well
+  # should probably error-check all kinds of things.  <g>
+  if (opendir MANROOT, "$buildroot/usr/share/man") {
+    my @mansects = readdir MANROOT;
+    closedir MANROOT;
+    foreach my $mandir (@mansects) {
+      next if $mandir !~ /^man/;
+      opendir MANPAGES, "$buildroot/usr/share/man/$mandir";
+      my @pagelist = readdir MANPAGES;
+      closedir MANPAGES;                        # Slightly safer to to this;  no accidental recursion.  O_o
+      foreach my $manpage (@pagelist) {
+        $manpage = "$buildroot/usr/share/man/$mandir/$manpage";
+        if ( -f $manpage) {
+          if ($manpage =~ /^(.+)\.(?:Z|gz|bz2)\n?$/) {
+            my $newpage = $1;
+            `gunzip $manpage` if $manpage =~ /\.(?:Z|gz)$/;
+            `bunzip2 $manpage` if $manpage =~ /\.bz2$/;
+            $manpage = $newpage;
+          }
+          `gzip -9 -n $manpage`;
+        } elsif ( -l $manpage) {
+          my $linkdest = readlink $manpage;
+          $linkdest =~ s/\.(?:Z|gz|bz2)//;
+          unlink $manpage;
+          $manpage =~ s/\.(?:Z|gz|bz2)//;
+          symlink "$linkdest.gz", "$manpage.gz" or print "DEBUG: wibble: symlinking manpage failed: $!\n";
+        }
+      }
+    }
+  } # if opendir MANROOT
 } # end install()