#!/usr/bin/perl -w

my $erts_version=$ARGV[0];
my @files = `ls -d *\-*`;
chomp(@files);

my($filename);
foreach $filename (@files) {
        my($name) = $filename;
        print STDERR "Incorporating $filename:";

        #
        #  Add documentation and example directories
        #
        my(@info) = `ls $filename`;
        foreach $line (@info) {
                chomp($line);
                print STDERR " $line";
                print "/usr/share/doc/erlang-doc/lib/$filename/$line";
                print "  /usr/lib/erlang/lib/$filename/$line";
                print "\n";

		if ($line eq "doc") {
			my(@subinfo) = `ls $filename/$line`;
			foreach $subline (@subinfo) {
				chomp($subline);
				if ($subline eq "examples") {
					print STDERR " $line/$subline";
					print "/usr/share/doc/erlang-examples/lib/$filename/$line/$subline";
					print "  /usr/share/doc/erlang-doc/lib/$filename/$line/$subline";
					print "\n";
				}
			}
		}
        }
	print STDERR "\n";
}

#
#  Closing boilerplate
#
print "/usr/share/doc/erlang-doc/erts-$erts_version/doc /usr/lib/erlang/erts-$erts_version/doc\n";
print "/usr/share/doc/erlang-doc/doc /usr/lib/erlang/doc\n";
print "/usr/share/doc/erlang-doc/man /usr/lib/erlang/man\n";

print STDERR "Finished generating erlang-doc.links\n";
