Mercurial > hg > Members > kono > nitros9-code

changeset 3155:96af4bcea625

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
scripts/mkdskindex: Tag .img (other) and .DSK (RSDOS) images Also add ReadMe (disk list) to index file
author Tormod Volden <debian.tormod@gmail.com>
date Tue, 07 Feb 2017 00:37:56 +0100
parents d29a92fff7f2
children ab1e1bca132b
files scripts/mkdskindex
diffstat 1 files changed, 19 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/mkdskindex	Tue Feb 07 00:37:28 2017 +0100
+++ b/scripts/mkdskindex	Tue Feb 07 00:37:56 2017 +0100
@@ -19,7 +19,7 @@
 foreach $dsk (sort @dsks)
 {
 
- if ($dsk =~ m/.*\.dsk$/)
+ if ($dsk =~ m/.*\.(dsk|img|DSK)$/)
  {
   @os9id = `os9 id $dirtoget/$dsk`;
 
@@ -60,6 +60,18 @@
     $format = "CoCo SDC";
   }
 
+  if ($dsk =~ m/.*\.img/)
+  {
+    $format = "Other disk image";
+  }
+
+  if ($dsk =~ m/.*\.DSK/)
+  {
+    $format = "RSDOS";
+    $created = "-";
+    $sectors = "-";
+  }
+
   $size = -s "$dirtoget/$dsk";
 
   $size = int($size / 1024) . "k";
@@ -74,6 +86,12 @@
   print "</tr>\r\n";
  
  }
+
+ if ($dsk eq "ReadMe")
+ {
+  print "<td class='d1'><A HREF=$dsk>$dsk</A></td>";
+  print "\r\n";
+ }
 }
 
 print "</TABLE>";