#!/usr/bin/perl
  use warnings;
  use strict;
 
    my @EXT = qw (html htm shtml);
    my ($DOMAIN, $START) = ($ARGV[0], $ARGV[1]);

    my $URL = '
        <url>
                <loc>[!domain][!url]</loc>
                <lastmod>[!date]</lastmod>
                <changefreq>weekly</changefreq>
        </url>';
   
    sub DATE
    {
        my (undef, undef, undef, $day, $month, $year) = localtime(time);
        $year+=1900;
        $month++;
        $month = '0'.$month if $month < 10;
        $day = '0'.$day if $day < 10;
        return $year.'-'.$month.'-'.$day;
    }
   
    my $DATE = DATE();
   
    print '<?xml version="1.0" encoding="UTF-8"?>
    <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">';

    push(my @DIR, $START);
   
    foreach my $DIR (@DIR)
    {
        opendir(DIR, $DIR) || die;
        my @ls = readdir(DIR);
        closedir(DIR);
       
        foreach my $u (@ls)
        {
            next if ($u=~/^.$/ || $u=~/^..$/);
            if(opendir(tDIR, $DIR.$u.'/'))
            {
                closedir(tDIR);
                push (@DIR, $DIR.$u.'/');
            }
            else
            {
                foreach my $ext (@EXT)
                {
                    if ($u=~/$ext/)
                    {
                        my $tmp = $URL;
                        my $url = $DIR.$u;
                        $url=~s/$START//;
                        $tmp=~s/\[!url]/$url/;
                        $tmp=~s/\[!domain]/$DOMAIN/;
                        $tmp=~s/\[!date]/$DATE/;
                        print $tmp;
                        last;
                    }
                }
            }
        }
    }
   
    print "\n",'    </urlset>',"\n";