From fe38c58d89a500e69baa343d7105924ce83167fb Mon Sep 17 00:00:00 2001 From: "Paul Buetow (europa)" Date: Sat, 25 Jul 2015 00:16:13 +0100 Subject: politics, n.: A strife of interests masquerading as a contest of principles. The conduct of public affairs for private advantage. -- Ambrose Bierce --- sitemap.buetow.org/SITEMAP | 0 sitemap.buetow.org/content/home.xml | 21 ------------------- sitemap.buetow.org/content/sitemap.inc.pl | 33 ------------------------------ sitemap.buetow.zone/SITEMAP | 0 sitemap.buetow.zone/content/home.xml | 21 +++++++++++++++++++ sitemap.buetow.zone/content/sitemap.inc.pl | 33 ++++++++++++++++++++++++++++++ 6 files changed, 54 insertions(+), 54 deletions(-) delete mode 100644 sitemap.buetow.org/SITEMAP delete mode 100644 sitemap.buetow.org/content/home.xml delete mode 100644 sitemap.buetow.org/content/sitemap.inc.pl create mode 100644 sitemap.buetow.zone/SITEMAP create mode 100644 sitemap.buetow.zone/content/home.xml create mode 100644 sitemap.buetow.zone/content/sitemap.inc.pl diff --git a/sitemap.buetow.org/SITEMAP b/sitemap.buetow.org/SITEMAP deleted file mode 100644 index e69de29..0000000 diff --git a/sitemap.buetow.org/content/home.xml b/sitemap.buetow.org/content/home.xml deleted file mode 100644 index a6d72ad..0000000 --- a/sitemap.buetow.org/content/home.xml +++ /dev/null @@ -1,21 +0,0 @@ - - - Sitemap - All sites hosted - - Here are all sites hosted within this instance of - Xerl - . - - - - Important notice: - The host - .alpha.buetow.org - contains only development, test and PoC stuff. - - - - sitemap.inc.pl - - diff --git a/sitemap.buetow.org/content/sitemap.inc.pl b/sitemap.buetow.org/content/sitemap.inc.pl deleted file mode 100644 index 6b08b82..0000000 --- a/sitemap.buetow.org/content/sitemap.inc.pl +++ /dev/null @@ -1,33 +0,0 @@ -my $hostroot = $config->get_hostroot(); - -sub space () { " " x 10 } -sub nl () { "
\n" } - -sub list (*) { - my $tag = shift; - my @homepages = sort `find $hostroot -name $tag`; - my @ret = (); - - for my $homepage (sort @homepages) { - my ($host) = $homepage =~ /.*hosts.(.*?).$tag/; - push @ret, "$host", nl; - - my $sitepath = "$hostroot/$host"; - - my @pages = sort `find $sitepath -name \*.xml`; - for my $page (sort @pages) { - my ($site) = $page =~ m#$host/content/(.*)\.xml$#; - $site =~ s#\.sub/#/#g; - $site =~ s#\d\d\.##g; - next if $site eq 'home'; - my $sitelink = "http://$host?site=$site"; - push @ret, space, "$site", nl; - } - - push @ret, nl; - } - - join '', @ret; -} - -list SITEMAP; diff --git a/sitemap.buetow.zone/SITEMAP b/sitemap.buetow.zone/SITEMAP new file mode 100644 index 0000000..e69de29 diff --git a/sitemap.buetow.zone/content/home.xml b/sitemap.buetow.zone/content/home.xml new file mode 100644 index 0000000..a6d72ad --- /dev/null +++ b/sitemap.buetow.zone/content/home.xml @@ -0,0 +1,21 @@ + + + Sitemap + All sites hosted + + Here are all sites hosted within this instance of + Xerl + . + + + + Important notice: + The host + .alpha.buetow.org + contains only development, test and PoC stuff. + + + + sitemap.inc.pl + + diff --git a/sitemap.buetow.zone/content/sitemap.inc.pl b/sitemap.buetow.zone/content/sitemap.inc.pl new file mode 100644 index 0000000..6b08b82 --- /dev/null +++ b/sitemap.buetow.zone/content/sitemap.inc.pl @@ -0,0 +1,33 @@ +my $hostroot = $config->get_hostroot(); + +sub space () { " " x 10 } +sub nl () { "
\n" } + +sub list (*) { + my $tag = shift; + my @homepages = sort `find $hostroot -name $tag`; + my @ret = (); + + for my $homepage (sort @homepages) { + my ($host) = $homepage =~ /.*hosts.(.*?).$tag/; + push @ret, "$host", nl; + + my $sitepath = "$hostroot/$host"; + + my @pages = sort `find $sitepath -name \*.xml`; + for my $page (sort @pages) { + my ($site) = $page =~ m#$host/content/(.*)\.xml$#; + $site =~ s#\.sub/#/#g; + $site =~ s#\d\d\.##g; + next if $site eq 'home'; + my $sitelink = "http://$host?site=$site"; + push @ret, space, "$site", nl; + } + + push @ret, nl; + } + + join '', @ret; +} + +list SITEMAP; -- cgit v1.2.3