Select decompressor based on the file suffix.

1 files changed, 11 insertions, 3 deletions

diff --git a/mansrv b/mansrv
index e42c689..100df80 100755
--- a/mansrv
+++ b/mansrv
@@ -35,12 +35,20 @@ our $incfilesuf;
 my @deps = ( $0 );
 my @grohtml_opts;
 
 my $tempcachefile;
 my $mansep;
 
+my %decomp = (
+    'gz' => 'gzip -d -c',
+    'bz2' => 'bzip2 -d -c',
+    'z' => 'compress -d -c',
+    'Z' => 'compress -d -c'
+);
+    
+
 sub syserror {
     my $s = shift;
     syslog("LOG_ERR", "$s");
     print "<h1>ABEND</h1>\n"; # Let them guess...
     exit 1;
 }
@@ -242,15 +250,15 @@ unless (-e $cachefile && checkdeps($cachefile)) {
     if ($includepath) {
 	$groffcmd .= join(' ',map { "-I $_" } split(/:/,$includepath)) . " ";
     }
     if ($#grohtml_opts >= 0) {
 	$groffcmd .= join(' ', @grohtml_opts) . " ";
     }
-	
-    if ($file =~ /\.gz$/) {
-	$groffcmd = "gzip -d -c $file | $groffcmd -";
+
+    if ($file =~ /.*\.([^.]+)$/ && exists($decomp{$1})) {
+	$groffcmd = "$decomp{$1} $file | $groffcmd -";
     } else {
 	$groffcmd .= $file;
     }
 
     open(my $p, "-|", $groffcmd) or syserror("running \"$groffcmd\": $!");