blob: 6e415952ceefe9b8985d6eb025af8428b56de9a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
<?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>
</content>
|
