Mercurial > hg > Members > kono > nitros9-code
annotate 3rdparty/utils/aaw/mkdskindex @ 2724:05b648103e78 lwtools-port
Renamed dw3.sb to dwio.sb and rbdw3 to rbdw
| author | Boisy Pitre <boisy.pitre@nuance.com> |
|---|---|
| date | Mon, 30 Jul 2012 19:35:05 -0500 |
| parents | 3dcda506604b |
| children | 1868fbf470e7 |
| rev | line source |
|---|---|
| 2512 | 1 #!/usr/bin/perl |
| 2 | |
| 3 # generate pretty index.html from directory of .dsks | |
| 4 # AAW 4/5/10 | |
| 5 | |
| 6 | |
| 7 $dirtoget=$ARGV[0]; | |
| 8 | |
| 9 opendir(DSKD, $dirtoget) || die("Cannot open directory"); | |
| 10 | |
| 11 @dsks=readdir(DSKD); | |
| 12 | |
| 13 &header; | |
| 14 | |
| 15 print "<TABLE class=tab1>"; | |
| 16 | |
| 17 print "<TR id='header'><TD class='h1'>File</td><TD class='h1'>Name</td><TD class='h1'>Size</td><TD class='h1'>Created</td><TD class='h1'>Sectors</td><TD class='h1'>Format</td></tr>"; | |
| 18 | |
| 19 foreach $dsk (sort @dsks) | |
| 20 { | |
| 21 | |
| 22 if ($dsk =~ m/.*\.dsk$/) | |
| 23 { | |
| 24 @os9id = `os9 id $dirtoget/$dsk`; | |
| 25 | |
| 26 foreach $line (@os9id) | |
| 27 { | |
| 28 if ($line =~ m/Disk\sname\s+:\s+(.*)/) | |
| 29 { | |
| 30 $name = $1; | |
| 31 } | |
| 32 elsif ($line =~ m/Disk\sformat\s+:.*\((.*)\)/) | |
| 33 { | |
| 34 $format = $1; | |
| 35 } | |
| 36 elsif ($line =~ m/Creation\sdate\s+:\s+(.*)/) | |
| 37 { | |
| 38 $created = $1; | |
| 39 } | |
| 40 elsif ($line =~ m/Total\ssectors\s+:\s+(.*)/) | |
| 41 { | |
| 42 $sectors = $1; | |
| 43 } | |
| 44 | |
| 45 | |
| 46 } | |
| 47 | |
|
2724
05b648103e78
Renamed dw3.sb to dwio.sb and rbdw3 to rbdw
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2512
diff
changeset
|
48 if ($dsk =~ m/_dw[\._]/) |
| 2512 | 49 { |
|
2724
05b648103e78
Renamed dw3.sb to dwio.sb and rbdw3 to rbdw
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2512
diff
changeset
|
50 $format = "DriveWire"; |
| 2512 | 51 } |
| 52 | |
| 53 $size = -s "$dirtoget/$dsk"; | |
| 54 | |
| 55 $size = int($size / 1024) . "k"; | |
| 56 | |
| 57 print "<TR class='r1'>"; | |
| 58 print "<td class='d1'><A HREF=$dsk>$dsk</A></td>"; | |
| 59 print "<TD class='d1'>$name</td>"; | |
| 60 print "<TD class='d1'>$size</td>"; | |
| 61 print "<td class='d1'>$created</td>"; | |
| 62 print "<td class='d1'>$sectors</td>"; | |
| 63 print "<TD class='d1'>$format</TD>"; | |
| 64 print "</tr>\r\n"; | |
| 65 | |
| 66 } | |
| 67 } | |
| 68 | |
| 69 print "</TABLE>"; | |
| 70 | |
| 71 &footer; | |
| 72 | |
| 73 closedir(DSKD); | |
| 74 | |
| 75 | |
| 76 | |
| 77 | |
| 78 | |
| 79 sub header | |
| 80 { | |
| 81 print "<HTML><HEAD><TITLE>Latest disk images</TITLE>"; | |
| 82 | |
| 83 print '<style type="text/css">'; | |
| 84 | |
| 85 print 'body { margin: 0px; padding 0px; }'; | |
| 86 print 'td.h1 { font-family: arial; padding: 5px; padding-right: 10px; font-size:12px; color: #FFFFFF; background-color: #444444; }'; | |
| 87 print 'td.d1 { font-family: arial; padding: 5px; padding-right: 10px; font-size:12px; }'; | |
| 88 print 'table.tab1 { margin: 10px; border-collapse:collapse;}'; | |
| 89 | |
| 90 print 'h4 { font-family: arial; padding: 10px;}'; | |
| 91 | |
| 92 print "</style>"; | |
| 93 | |
| 94 print "</HEAD><BODY>"; | |
| 95 print "<H4>NitrOS-9: Latest disk images</h4>"; | |
| 96 | |
| 97 } | |
| 98 | |
| 99 | |
| 100 sub footer | |
| 101 { | |
| 102 print "</BODY></HTML>"; | |
| 103 | |
| 104 | |
| 105 } |