diff options
| author | Paul Buetow <paul@buetow.org> | 2013-04-10 08:21:31 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2013-04-10 08:21:31 +0200 |
| commit | f9cfef3a1936770072446df241ddba203cb32a22 (patch) | |
| tree | 47654bf14e8446bfbe6dbd766b63920fb7d4753d /fype0.buetow.org | |
| parent | bc982b9d01836087cdb5450caf6ed6e3e0879e0e (diff) | |
foo
Diffstat (limited to 'fype0.buetow.org')
| -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> |