[Diy_efi] need help w/archives

[Eric Fahlgren]

In case the answer actually is "perl," give this a try.  If not,
let me know.

#!/usr/bin/perl -w
#-------------------------------------------------------------------------------
#
#  Copyright (C) 2002 by Steve Ravet
#  All Rights Reserved.  This code may not be copied or reproduced in
#  any form, in part or in whole,  without the explicit permission of
#  the copyright owner.
#
#-------------------------------------------------------------------------------

my $VersionId = "%W% %G%";

BEGIN { unshift(@INC, substr($0, 0, rindex($0, '/'))); }

require 5.005;
use strict;

#-------------------------------------------------------------------------------

while (<>) {
   chomp;
   m/^(\d\d\d\d-.*)\.txt/;
   my $date = $1;
   print <<ROW;
            <tr>
            <td>$date:</td>
            <td>
              <A href="$date/thread.html">[ Thread ]</a>
              <A href="$date/subject.html">[ Subject ]</a>
              <A href="$date/author.html">[ Author ]</a>
              <A href="$date/date.html">[ Date ]</a>
            </td>
            <td><A href="$_">[ Text 102 KB ]</a></td>
            </tr>
ROW
}

-- 
Eric Fahlgren                                        MSC.Software
Simulating Reality                       Ann Arbor, Michigan, USA

_______________________________________________
Diy_efi mailing list
Diy_efi at diy-efi.org
http://www.diy-efi.org/mailman/listinfo/diy_efi