Almost-minimal filesystem based blog.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

38 lines
962 B

17 years ago
17 years ago
17 years ago
17 years ago
  1. <perl>
  2. my $output;
  3. if ($DISPLAY_CONF{title} eq "new") {
  4. my @headers = dir_list('imgs/header', 'alpha', '\.jpg');
  5. my $header_image = $headers[rand @headers];
  6. my $LinkDump = Wala::print_page('LinkDump');
  7. return <<END_HTML;
  8. </div> <!-- end of updatecolumn div -->
  9. <div class="linkdump" id="linkdump">
  10. <p class="centerpiece"><img src="/imgs/header/$header_image" alt="" /></p>
  11. <h3 style="margin-bottom: .5em;"><a href="/wala/">wala</a>::<a href="/wala/wala.pl?LinkDump">LinkDump</a></h3>
  12. $LinkDump
  13. <p><em>For older stuff, see <a href="/wala/wala.pl?LinkDumpArchive">LinkDumpArchive</a>.</em></p>
  14. <p><em>All original content on p1k3, unless otherwise noted, is released
  15. to the public domain.</em></p>
  16. </div> <!-- end of linkdump div -->
  17. END_HTML
  18. } else {
  19. return <<"END_HTML";
  20. <p><em>All original content on p1k3, unless otherwise noted, is released
  21. to the public domain.</em></p>
  22. END_HTML
  23. }
  24. </perl>
  25. </body>
  26. </html>