- <perl>
- my $output;
-
- if ($self->title eq 'new') {
-
- my @headers = dir_list('/home/bbearnes/p1k3.com/imgs/header', 'alpha',
- '\.(jpg|png)$');
- my $header_image = $headers[rand @headers];
- my $LinkDump = $self->wala->print_page('LinkDump');
-
- return <<"END_HTML";
- </div> <!-- end of updatecolumn div -->
-
- <div class="linkdump" id="linkdump">
-
- <p class="centerpiece"><img src="/imgs/header/$header_image" alt="" /></p>
-
- <h3 style="margin-bottom: .5em;"><a href="/wala/">wala</a>::<a href="/wala/wala.pl?LinkDump">LinkDump</a></h3>
-
- $LinkDump
-
- <p><em>For older stuff, see <a href="/wala/wala.pl?LinkDumpArchive">LinkDumpArchive</a>.</em></p>
-
- <p class="rights">All original content on p1k3, unless otherwise noted, is
- released to the public domain.</p>
-
- </div> <!-- end of linkdump div -->
- END_HTML
-
- } else {
-
- return <<"END_HTML";
- <p class="rights">All original content on p1k3, unless otherwise noted, is
- released to the public domain.</p>
- END_HTML
-
- }
-
- </perl>
-
- </body>
- </html>
|