diff options
Diffstat (limited to 'fype0.buetow.org/content/Examples.xml')
| -rw-r--r-- | fype0.buetow.org/content/Examples.xml | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/fype0.buetow.org/content/Examples.xml b/fype0.buetow.org/content/Examples.xml index 6e41595..8ff2e6d 100644 --- a/fype0.buetow.org/content/Examples.xml +++ b/fype0.buetow.org/content/Examples.xml @@ -4,18 +4,7 @@ <perl> use LWP::Simple; - my $site = get 'https://ssl.buetow.org/repos/fype/branches/experimental/build-009669/examples/'; - my @sites = $site =~ /file name="(.*?\.fy)" .*/g; - my @return; - - for my $site (sort @sites) { - push @return, "!!LT!!h2!!GT!!$site!!LT!!/h2!!GT!!"; - push @return, '!!LT!!pre class="code"!!GT!!'; - push @return, get "https://ssl.buetow.org/repos/fype/branches/experimental/build-009669/examples/$site"; - push @return, '!!LT!!/pre!!GT!!'; - } - - return join '', @return; + get 'http://web.buetow.org/git/?p=fype.git;a=blob_plain;f=examples/all-examples.txt;hb=build-009669'; </perl> </content> |