#!/usr/bin/env perl
#-*- perl -*-
#
# Copyright (C) 2001 Ken'ichi Fukamachi
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $FML: distdir2url.pl,v 1.3 2002/04/01 23:41:23 fukachan Exp $
#
use strict;
use Carp;
my $Module;
HEADER();
Show();
FOOTER();
exit 0;
sub Show
{
print "
\n";
print "
\n";
foreach my $pathname (<*>) {
next if $pathname =~ /^\__template/;
next if $pathname =~ /^\@/;
next if $pathname =~ /\~$/;
next if $pathname =~ /pod$/;
next if $pathname eq 'CVS';
next if $pathname =~ /^index/;
next if $pathname =~ /^00_/;
next if $pathname eq 'Makefile';
print "
\n";
print "
$pathname \n";
for my $fn ("README", "INSTALL", "MANIFEST",
"00readme", "00install", "00manifest") {
print "