The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

JMASON / HTML-WebMake-1.2 / t / data / perlout.wmk 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

              
<webmake>
<{!--
     A quick demo of using WebMake to generate a news site.
  --}>
<{!-- ------------------------------------------------------------------- --}>
<include file="data/test_stories.inc" />
<{perlpostdecl
        # create a ${all_stories} variable containing the list
        # of all text files just loaded.
        $_ = '';
        foreach my $pg (sorted_content_matching ("score title", "*.txt"))
        {
          $pg =~ s/\.txt$//; $_ .= "$pg ";
        }
        set_content ("all_stories", $_);
        '';
}>
<{!-- ------------------------------------------------------------------- --}>
<content name=header>
  <html>
  <head><title>$[this.title]</title></head>
  <body bgcolor=#ffffff>
</content>
<content name=footer>
  <hr /><p>
  <em>Sorry about the crappy formatting BTW, this is just a demo. ;)</em>
  </p>
  </body>
  </html>
</content>
<{!-- ------------------------------------------------------------------- --}>
<content name=index_list_item>
  <li>
    <a href=$(${item})>$[${item}.txt.title]</a><br />
    <p>$[${item}.txt.abstract]</p>
  </li>
</content>
<content name=index_chunk>
  <wmmeta name=title value="WebMake Sample: a news site" />
  <ul>
  <{perlout
    print make_list ('index_list_item', split (' ', get_content ("all_stories")));
  }>
  </ul>
</content>
<{!-- ------------------------------------------------------------------- --}>
<for name=pg values="${all_stories}">
  <out name="${pg}" file="log/perlout_${pg}.html">
    ${header}${${pg}.txt}${footer}
  </out>
</for>
<out name=mainindex file=log/perlout.html>
  ${header}${index_chunk}${footer}
</out>
</webmake>