#! /usr/bin/perl

print "Content-type: text/xml\n\n";

#This script generates xml for sitemap.xml

my $dir = 'GWP/Bulletin Archive_files/';
my $url = 'http://www.greenwoodpark.org/GWP/Bulletin Archive_files/';
my $text = '';
if (opendir (DIR, $dir)) {
	foreach (sort readdir DIR) {
		unless (-d "$dir$_" || $_ !~ m/\.pdf$/) {		
			
			$_ =~ s/ /%20/g;
			
			$text .= "\t<url>\n";
			$text .= "\t\t<loc>$url$_</loc>\n";
			$text .= "\t\t<changefreq>daily</changefreq>\n";
			$text .= "\t</url>\n";
		}
	}
}

print<<EOT;
<?xml version="1.0" encoding="UTF-8"?>
<urlset 
	xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"
	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
	xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9
		http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd"> 
  <url>
  	<loc>http://www.greenwoodpark.org/wordpress/</loc>
  	<changefreq>daily</changefreq>
  	<priority>1</priority>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=78</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=80</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=86</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=84</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=88</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=90</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=92</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?page_id=94</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?feed=rss2</loc>
  	<changefreq>daily</changefreq>
	</url>
	<url>
  	<loc>http://www.greenwoodpark.org/wordpress/?feed=atom</loc>
  	<changefreq>daily</changefreq>
	</url>
	$text
</urlset>
EOT

exit;