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
38 lines
962 B
<perl>
|
|
my $output;
|
|
|
|
if ($DISPLAY_CONF{title} eq "new") {
|
|
|
|
my @headers = dir_list('imgs/header', 'alpha', '\.jpg');
|
|
my $header_image = $headers[rand @headers];
|
|
my $LinkDump = 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><em>All original content on p1k3, unless otherwise noted, is released
|
|
to the public domain.</em></p>
|
|
|
|
</div> <!-- end of linkdump div -->
|
|
END_HTML
|
|
} else {
|
|
return <<"END_HTML";
|
|
<p><em>All original content on p1k3, unless otherwise noted, is released
|
|
to the public domain.</em></p>
|
|
END_HTML
|
|
}
|
|
</perl>
|
|
|
|
|
|
</body>
|
|
</html>
|