#!/usr/bin/perl
use strict;
use warnings;
use IO::All;
use CGI;
open my $arcs_list_fh, "<", "fortunes-list.mak";
my @lines = <$arcs_list_fh>;
close($arcs_list_fh);
shift(@lines);
my @fortunes = (map { /([\w\-_]+)/ ; $1 } @lines);
my $out = io()->file("source-files-list.html");
$out->print(<<"EOF");
Shlomi Fish's Fortunes' Files List
Shlomi Fish's Fortunes' Files List
Introduction
Download this list using wget -r --level=1.
The List
EOF
$out->print(
map { "$_\n" }
map { my $escaped = CGI::escapeHTML($_); qq{- $escaped
} }
sort { $a cmp $b }
(
(map { ( "$_.xml", $_, "$_.dat" ) } @fortunes),
(map { $_->filename(); }
io(".")->filter( sub { $_->filename =~ m{\.(?:pl|mak|bash|spec\.in)\z} })->all_files()),
"fortunes-shlomif-all.atom",
"fortunes-shlomif-all.rss",
"Makefile", "ver.txt",
)
);
$out->print(<<"EOF");
EOF