From 297e838b5a08ccc4d7eaae94d7ed06ecda1a0d9e Mon Sep 17 00:00:00 2001 From: "Paul Buetow (mars.fritz.box)" Date: Tue, 1 Oct 2013 20:14:34 +0200 Subject: add sitemap --- sitemap.buetow.org/content/home.xml | 59 +++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 sitemap.buetow.org/content/home.xml (limited to 'sitemap.buetow.org/content') diff --git a/sitemap.buetow.org/content/home.xml b/sitemap.buetow.org/content/home.xml new file mode 100644 index 0000000..39e615f --- /dev/null +++ b/sitemap.buetow.org/content/home.xml @@ -0,0 +1,59 @@ + + + Sitemap + All sites hosted + + Here are all sites hosted within this instance of + Xerl + . + + + + All hosts ending with + .foo + are most likely dev, test or PoCs. Don't expect to find anything usefull there. Also, generally here is lots of crap listed. + + + + + # Ugly but works for now + my $hostroot = $config->get_hostroot(); + + sub getf ($) { + open my $f, $_[0] or die "$!: $_[0]\n"; + my @slurp = !!LT!!$f!!GT!!; + close $f; + @slurp; + } + + sub nl () { "!!LT!!br /!!GT!!\n" } + + sub list (*) { + my $tag = shift; + my @found = sort `find $hostroot -name $tag`; + my $ret = ''; + + + for my $found (@found) { + $found =~ /.*hosts.(.*?).$tag/; + my $host = $1; + + my @content = getf $found; + + $ret .= "!!LT!!b!!GT!!!!LT!!a href=http://$host!!GT!!$host!!LT!!/a!!GT!!!!LT!!/b!!GT!!" . nl;; + if (@content) { + $ret .= join " ", @content; + $ret .= nl; + } + $ret .= nl; + } + + $ret; + } + + my $ret = list SITEMAP; + + $ret; + + + -- cgit v1.2.3 From 7c110eed4873d7805db304f957278320e5aea0c7 Mon Sep 17 00:00:00 2001 From: "Paul C. Buetow (mars.fritz.box)" Date: Sun, 27 Apr 2014 12:34:02 +0200 Subject: add sitemap.inc.pl --- sitemap.buetow.org/content/home.xml | 41 +------------------------------ sitemap.buetow.org/content/sitemap.inc.pl | 36 +++++++++++++++++++++++++++ 2 files changed, 37 insertions(+), 40 deletions(-) create mode 100644 sitemap.buetow.org/content/sitemap.inc.pl (limited to 'sitemap.buetow.org/content') diff --git a/sitemap.buetow.org/content/home.xml b/sitemap.buetow.org/content/home.xml index 39e615f..283cd7e 100644 --- a/sitemap.buetow.org/content/home.xml +++ b/sitemap.buetow.org/content/home.xml @@ -15,45 +15,6 @@ - - # Ugly but works for now - my $hostroot = $config->get_hostroot(); - - sub getf ($) { - open my $f, $_[0] or die "$!: $_[0]\n"; - my @slurp = !!LT!!$f!!GT!!; - close $f; - @slurp; - } - - sub nl () { "!!LT!!br /!!GT!!\n" } - - sub list (*) { - my $tag = shift; - my @found = sort `find $hostroot -name $tag`; - my $ret = ''; - - - for my $found (@found) { - $found =~ /.*hosts.(.*?).$tag/; - my $host = $1; - - my @content = getf $found; - - $ret .= "!!LT!!b!!GT!!!!LT!!a href=http://$host!!GT!!$host!!LT!!/a!!GT!!!!LT!!/b!!GT!!" . nl;; - if (@content) { - $ret .= join " ", @content; - $ret .= nl; - } - $ret .= nl; - } - - $ret; - } - - my $ret = list SITEMAP; - - $ret; - + sitemap.inc.pl diff --git a/sitemap.buetow.org/content/sitemap.inc.pl b/sitemap.buetow.org/content/sitemap.inc.pl new file mode 100644 index 0000000..37740e7 --- /dev/null +++ b/sitemap.buetow.org/content/sitemap.inc.pl @@ -0,0 +1,36 @@ +my $hostroot = $config->get_hostroot(); + +sub getf ($) { + open my $f, $_[0] or die "$!: $_[0]\n"; + my @slurp = <$f>; + close $f; + @slurp; +} + +sub nl () { "
\n" } + +sub list (*) { + my $tag = shift; + my @found = sort `find $hostroot -name $tag`; + my $ret = ''; + + + for my $found (@found) { + $found =~ /.*hosts.(.*?).$tag/; + my $host = $1; + + my @content = getf $found; + + $ret .= "$host" . nl;; + + if (@content) { + $ret .= join " ", @content; + $ret .= nl; + } + $ret .= nl; + } + + $ret; +} + +list SITEMAP; -- cgit v1.2.3 From 0cbe4a852a344f0397b57773cb058b7aba8eb2fa Mon Sep 17 00:00:00 2001 From: "Paul C. Buetow (mars.fritz.box)" Date: Sun, 27 Apr 2014 12:35:45 +0200 Subject: Learn to pause -- or nothing worthwhile can catch up to you. --- sitemap.buetow.org/content/home.xml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sitemap.buetow.org/content') diff --git a/sitemap.buetow.org/content/home.xml b/sitemap.buetow.org/content/home.xml index 283cd7e..62dc939 100644 --- a/sitemap.buetow.org/content/home.xml +++ b/sitemap.buetow.org/content/home.xml @@ -15,6 +15,6 @@ - sitemap.inc.pl + sitemap.inc.pl -- cgit v1.2.3 From 4f1da9553943f9c2e6c9dd2790b3ff739b5f372f Mon Sep 17 00:00:00 2001 From: "Paul C. Buetow (mars.fritz.box)" Date: Sun, 27 Apr 2014 13:41:37 +0200 Subject: new sitemap --- sitemap.buetow.org/content/sitemap.inc.pl | 45 +++++++++++++++---------------- 1 file changed, 21 insertions(+), 24 deletions(-) (limited to 'sitemap.buetow.org/content') diff --git a/sitemap.buetow.org/content/sitemap.inc.pl b/sitemap.buetow.org/content/sitemap.inc.pl index 37740e7..6b08b82 100644 --- a/sitemap.buetow.org/content/sitemap.inc.pl +++ b/sitemap.buetow.org/content/sitemap.inc.pl @@ -1,36 +1,33 @@ my $hostroot = $config->get_hostroot(); -sub getf ($) { - open my $f, $_[0] or die "$!: $_[0]\n"; - my @slurp = <$f>; - close $f; - @slurp; -} - +sub space () { " " x 10 } sub nl () { "
\n" } sub list (*) { my $tag = shift; - my @found = sort `find $hostroot -name $tag`; - my $ret = ''; - - - for my $found (@found) { - $found =~ /.*hosts.(.*?).$tag/; - my $host = $1; - - my @content = getf $found; - - $ret .= "$host" . nl;; - - if (@content) { - $ret .= join " ", @content; - $ret .= nl; + 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; } - $ret .= nl; + + push @ret, nl; } - $ret; + join '', @ret; } list SITEMAP; -- cgit v1.2.3 From 7d41f1f69a8af9b3171f9f1c51fcc726062480bb Mon Sep 17 00:00:00 2001 From: "Paul Buetow (uranus)" Date: Sat, 27 Dec 2014 14:17:39 +0100 Subject: s/.foo/.ninja/ --- sitemap.buetow.org/content/home.xml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sitemap.buetow.org/content') diff --git a/sitemap.buetow.org/content/home.xml b/sitemap.buetow.org/content/home.xml index 62dc939..43b98bd 100644 --- a/sitemap.buetow.org/content/home.xml +++ b/sitemap.buetow.org/content/home.xml @@ -10,7 +10,7 @@ All hosts ending with - .foo + .ninja are most likely dev, test or PoCs. Don't expect to find anything usefull there. Also, generally here is lots of crap listed. -- cgit v1.2.3 From e43a989acd2055661bb2d93454f2f7aa4e6e5177 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (uranus)" Date: Thu, 1 Jan 2015 23:35:31 +0100 Subject: use alpha.buetow.org instead of buetow.ninja --- sitemap.buetow.org/content/home.xml | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'sitemap.buetow.org/content') diff --git a/sitemap.buetow.org/content/home.xml b/sitemap.buetow.org/content/home.xml index 43b98bd..84784e6 100644 --- a/sitemap.buetow.org/content/home.xml +++ b/sitemap.buetow.org/content/home.xml @@ -7,13 +7,18 @@ Xerl . - + - All hosts ending with - .ninja - are most likely dev, test or PoCs. Don't expect to find anything usefull there. Also, generally here is lots of crap listed. + Important notice: + The host + .alpha.buetow.org + contains only development, test and PoC stuff. Replace + $shomething.alpha.buetow.org + with + $something.buetow.org + (if exists) to get the stable stuff. - + sitemap.inc.pl -- cgit v1.2.3