diff options
| author | Paul Buetow (europa) <paul@buetow.org> | 2015-07-25 00:16:13 +0100 |
|---|---|---|
| committer | Paul Buetow (europa) <paul@buetow.org> | 2015-07-25 00:16:13 +0100 |
| commit | fe38c58d89a500e69baa343d7105924ce83167fb (patch) | |
| tree | 9fc54fbca0a2a32f3a6698c567d1b0916287367f /sitemap.buetow.org | |
| parent | 3402004178ab0ecdf44f382d0f21475fd09eae18 (diff) | |
politics, n.:
A strife of interests masquerading as a contest of principles.
The conduct of public affairs for private advantage.
-- Ambrose Bierce
Diffstat (limited to 'sitemap.buetow.org')
| -rw-r--r-- | sitemap.buetow.org/SITEMAP | 0 | ||||
| -rw-r--r-- | sitemap.buetow.org/content/home.xml | 21 | ||||
| -rw-r--r-- | sitemap.buetow.org/content/sitemap.inc.pl | 33 |
3 files changed, 0 insertions, 54 deletions
diff --git a/sitemap.buetow.org/SITEMAP b/sitemap.buetow.org/SITEMAP deleted file mode 100644 index e69de29..0000000 --- a/sitemap.buetow.org/SITEMAP +++ /dev/null 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 @@ -<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?> -<content> - <pagetitle>Sitemap</pagetitle> - <textheader>All sites hosted</textheader> - <text> - <noop>Here are all sites hosted within this instance of </noop> - <namedlink href="https://xerl.buetow.org">Xerl</namedlink> - <noop>.</noop> - </text> - <important> - <text> - <strong>Important notice:</strong> - <noop>The host </noop> - <strong>.alpha.buetow.org</strong> - <noop>contains only development, test and PoC stuff.</noop> - </text> - </important> - <text> - <includerun>sitemap.inc.pl</includerun> - </text> -</content> 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 () { "<br />\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, "<b><a href='http://$host'>$host</a></b>", 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, "<a href='$sitelink'>$site</a>", nl; - } - - push @ret, nl; - } - - join '', @ret; -} - -list SITEMAP; |