Handle more file extensions

Author: fantasai

bin/issuegen.pl

@@ -120,13 +120,16 @@
 
 # Input/Output setup
 my $outFile = $inFile;
-if ($inFile =~ /\.txt$/) {
-  $outFile =~ s/\.txt/\.html/;
+if ($inFile =~ /\.(.+)$/) {
+  $outFile =~ s/\.$1/\.html/;
 }
 elsif ($inFile =~ /\.$/) { # tab completion case
   $inFile .= 'txt';
   $outFile .= 'html';
 }
+else {
+  $inFile .= '.html';
+}
 open IN,  "<", $inFile  || die "Cannot open $inFile: $!";
 open OUT, ">", $outFile || die "Cannot open $outFile: $!";
 $/ = "----\n";