#*****************************************************************#
  # TOOL:                                                           #
  # Google Sitemap erstellen                                        #
  #*****************************************************************#


  # Rootpfad
  my $pfad = 'd:/htdocs/';

  # Sitemapdatei
  my $datei = 'sitemap.xml';

  # Erlaubte Dateiformate:
  my @allow = ('htm', 'html', 'php');

  # Änderungsfrequenz
  my $changefreq = 'weekly';

  #*****************************************************************#

  # Dateien im Webordner lesen
  opendir(FOLDER, $pfad) || die ("error");
  @array = readdir(FOLDER);
  closedir(FOLDER);

  @liste = sort(@array);

  # XML Datei erzeugen
  open(FILE, '>'.$datei);
  print FILE '<?xml version="1.0" encoding="UTF-8"?>'."\n";
  print FILE '<urlset xmlns="http://www.google.com/schemas/sitemap/0.84">'."\n";

  foreach $file(@liste)
  {
    my $lastmod = '';
    if (-f $pfad.$file)
    {
      @ext = (split(/\./, $file));
      if (grep {$_ =~ /$ext[1]/i} @allow)
      {
        # Letzte Änderung der Datei
        (@FLAG_A) = stat($pfad.$file);

        my (@FLAG_B) = localtime($FLAG_A[9]);
        $FLAG_B[4] += 1;
        $FLAG_B[5] += 1900;
        $lastmod = sprintf("%04d-%02d-%02d" ,$FLAG_B[5],$FLAG_B[4],$FLAG_B[3]);

        print FILE '  <url>'."\n";
        print FILE '    <loc>http://home.arcor.de/jmilius/'.$file.'</loc>'."\n";
        print FILE '    <lastmod>'.$lastmod.'</lastmod>'."\n";
        print FILE '    <changefreq>'.$changefreq.'</changefreq>'."\n";
        print FILE '  </url>'."\n";
      }
    }
  }

  print FILE '</urlset>'."\n";
  close(FILE);