wrt/footer

<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><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>