diff options
| author | Paul Buetow (mars.fritz.box) <paul@buetow.org> | 2013-09-28 14:36:00 +0200 |
|---|---|---|
| committer | Paul Buetow (mars.fritz.box) <paul@buetow.org> | 2013-09-28 14:36:00 +0200 |
| commit | 6687ecb69c355c987948d4a2fcfce90b60904acd (patch) | |
| tree | 0dfdebb0dd1de966dba2d898a9b7ed545d5aa330 /fype.buetow.org/content/Examples.xml | |
| parent | 82530a1cfefe05e63dd7ff80704dd9ccc4a6bb4c (diff) | |
quick commit
Diffstat (limited to 'fype.buetow.org/content/Examples.xml')
| -rw-r--r-- | fype.buetow.org/content/Examples.xml | 23 |
1 files changed, 6 insertions, 17 deletions
diff --git a/fype.buetow.org/content/Examples.xml b/fype.buetow.org/content/Examples.xml index 6e41595..2c57c08 100644 --- a/fype.buetow.org/content/Examples.xml +++ b/fype.buetow.org/content/Examples.xml @@ -1,21 +1,10 @@ <?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?> <content> - <pagetitle>Sourcecode Examples</pagetitle> - <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; - </perl> + <pagetitle>Examples</pagetitle> + <noop>Go to </noop> + <namedlink href="http://web.buetow.org/git/?p=fype.git;a=tree;f=examples;h=ee051fd647807523887213aae68e060403041319;hb=refs/heads/build-009669">gitweb</namedlink> + <noop> to browse the all the code examples.</noop> + </text> </content> + |