#!/usr/bin/perl # A perl filter to update the index.html page for HOWTO's # Ralph Siemsen Oct 1999 my %description = ( 'Firmware-HOWTO' => "explains how to use and update the NetWinder flash memory. This is the equivalent to a normal PC's BIOS, though it has a few more options.", 'Kernel-HOWTO' => "describes howto compile and install kernels on a NetWinder. It needs to be updated for the 2.2.x and beyond kernel series (soon, I promise!).", 'Disk-Update-HOWTO' => "explains how to install new disk images on a NetWinder. Particularly usefulfor doing upgrades or for rescuing a system that no longer boots.", 'Rescue-HOWTO' => "explains how to use the rescue partition used on the OfficeServer (and dm-3.1-15), and how it can be used to easily recover your system.", ); foreach $file (sort keys %description) { $description .= qq(
  • The $file $description{$file}
    • ); $tableline = "$file\n"; foreach $type (qw/.html -all.html .ps .ps.gz .dvi .sgml/) { $size = getsize("$file$type"); $tableline .= qq($size); } $table .= "$tableline"; } $date = `date "+%A, %B %d @ %I:%M %p"`; print < Netwinder HOWTO's

    NetWinder howto's
    Last updated by Ralph on $date

    A number of HOWTO's now exist to help with common tasks such as kernel, firmware and disk upgrades. Feedback on these documents is appreciated, please direct your comments to the author of the HOWTO. The following documents are currently available:

    For your convenience, the HOWTO's are available in a number of different formats. They are generated from a common source document so they should all be identical in content.

    $table
    HTML (individual pages) HTML (one big page) PostScript Compressed PostScript DVI SGML Source

    If in doubt, use the first column :)

    Copyright ©1998, 1999 NetWinder.Org.  All Rights Reserved.
    For questions, comments, or suggestions contact webmaster\@netwinder.org
    EOF sub getsize { $size = `ls -l $_[0] | awk '{print \$5}'`; ($num, $let) = $size =~ /([\d.]+)(.*)/; if ($num > 1024 * 1024) { $num = sprintf ("%.1f M", $num / 1024 / 1024); } elsif ($num > 1024) { $num = sprintf ("%.1f k", $num / 1024); } return $num . 'bytes'; }