brennen
/
wrt
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 27 Wiki Activity
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.
438 Commits
1 Branch
2.2 MiB
Tree: 2007-06-20
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '2007-06-20'
${ noResults }
wrt/header

84 lines
2.2 KiB
Raw Permalink Normal View History

Still rearranging repository.
17 years ago
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
 
  1. Content-type: text/html
  2. 

  3. <?xml version="1.0" encoding="iso-8859-1"?>
  4. <!DOCTYPE html
  5.      PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  6.     "DTD/xhtml1-strict.dtd">
  7. 

  8. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
  9. <head>
  10.    <title>p1k3::${title}</title>
  11. 

  12.    <meta name="keywords" content="brennen, bearnes, journal, poetry,
  13.     wiki, perl, linux, debian, free software, beer, colorado,
  14.     boulder, nebraska, kansas, midwest, lincoln, salina, laurel, UNL,
  15.     ultimate frisbee, cornfed, education, public domain, photography,
  16.     history, anarchism"
  17.    />
  18. 

  19.    <meta name="description" content="Writing by ${author}." /> 
  20. 

  21.    <meta name="author" content="${author}" />
  22. 

  23.    <link rel="alternate" type="application/atom+xml" title="p1k3 atom feed" href="${feed_url}" />
  24.    <link rel="feed" type="application/atom+xml" title="p1k3 atom feed" href="${feed_url}" />
  25. 

  26.    <link rel="stylesheet" href="${stylesheet_url}" />
  27.    <link rel="icon" type="image/x-png" href="${favicon_url}" />
  28. </head>
  29. 

  30. <body>
  31. 

  32. <p>
  33. <perl>
  34.   # linkbar
  35.   my $title = $DISPLAY_CONF{title};
  36.   my $output;
  37. 

  38.   my (%description) =
  39.   (
  40.     new => 'newest entries',
  41.     all => 'all entries',
  42.     chapbook => 'unrequired poetry',
  43.     2000 => 'entries for 2000',
  44.     2001 => 'entries for 2001',
  45.     2002 => 'entries for 2001',
  46.     2003 => 'entries for 2003',
  47.     2004 => 'entries for 2004',
  48.     2005 => 'entries for 2005',
  49.     2006 => 'entries for 2006',
  50.     2007 => 'entries for 2007'
  51.   );
  52. 

  53.   my (@linklist) = qw(new all 2007 2006 2005 chapbook hack );
  54. 

  55.   foreach my $link (@linklist) {
  56.     if ($title ne $link) {
  57.       if ($link eq 'new') {
  58.         $output .= "<a href=\"$DISPLAY_CONF{URL_ROOT}\" title=\"$description{new}\">new</a> \n";
  59.       } else {
  60.         $output .= "<a href=\"$DISPLAY_CONF{URL_ROOT}${link}\" title=\"$description{$link}\">$link</a> \n";
  61.       }
  62.     } else {
  63.       if ($link eq "new") {
  64.         $output .= "<strong><span title=\"$description{new}\">new</span></strong> \n";
  65.       } else {
  66.         $output .= "<strong><span title=\"$description{$link}\">$link</span></strong> \n";
  67.       }
  68.     }
  69.   }
  70. 

  71.   return $output;
  72. </perl>
  73. </p>
  74. 

  75. <perl>
  76.   if ($DISPLAY_CONF{title} eq 'new') {
  77.       return "<div id=\"entries\">\n\n";
  78.   } 
  79. 

  80.   return '';
  81. </perl>
  82. 

  83. <h1>${title}</h1>
  84.