File Coverage

blib/lib/App/Phoebe.pm

Criterion	Covered	Total	%
statement	36	1882	1.9
branch	0	620	0.0
condition	0	203	0.0
subroutine	12	176	6.8
pod	0	107	0.0
total	48	2988	1.6

#!/usr/bin/perl
# Copyright (C) 2017–2021  Alex Schroeder

# This program is free software: you can redistribute it and/or modify it under
# the terms of the GNU Affero General Public License as published by the Free
# Software Foundation, either version 3 of the License, or (at your option) any
# later version.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
# details.
#
# You should have received a copy of the GNU Affero General Public License along
# with this program. If not, see .

=encoding utf8

=head1 App::Phoebe

This module contains the core of the Phoebe wiki. Import functions and variables
from this module to write extensions, or to run it some other way. Usually,
F is used to start a Phoebe server. This is why all the necessary </td>
</tr>

<tr>
<td  class="h" >
<a name="24">24</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> documentation can be found there. </td>
</tr>

<tr>
<td  class="h" >
<a name="25">25</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="26">26</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> This section describes some hooks you can use to customize your wiki using the </td>
</tr>

<tr>
<td  class="h" >
<a name="27">27</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> F<config> file, or using a Perl file (ending in F<*.pl> or F<*.pm>) in the </td>
</tr>

<tr>
<td  class="h" >
<a name="28">28</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> F<conf.d> directory. Once you're happy with the changes you've made, restart the </td>
</tr>

<tr>
<td  class="h" >
<a name="29">29</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> server, or send a SIGHUP if you know the PID. </td>
</tr>

<tr>
<td  class="h" >
<a name="30">30</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="31">31</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Here are the ways you can hook into Phoebe code: </td>
</tr>

<tr>
<td  class="h" >
<a name="32">32</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="33">33</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> C<@extensions> is a list of code references allowing you to handle additional </td>
</tr>

<tr>
<td  class="h" >
<a name="34">34</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> URLs; return 1 if you handle a URL; each code reference gets called with $stream </td>
</tr>

<tr>
<td  class="h" >
<a name="35">35</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> (L<Mojo::IOLoop::Stream>), the first line of the request (a Gemini URL, a Gopher </td>
</tr>

<tr>
<td  class="h" >
<a name="36">36</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> selector, a finger user, a HTTP request line), a hash reference for the headers </td>
</tr>

<tr>
<td  class="h" >
<a name="37">37</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> (in the case of HTTP requests), and a buffer of bytes (e.g. for Titan or HTTP </td>
</tr>

<tr>
<td  class="h" >
<a name="38">38</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> PUT or POST requests) </td>
</tr>

<tr>
<td  class="h" >
<a name="39">39</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="40">40</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> C<@main_menu> adds more lines to the main menu, possibly links that aren't </td>
</tr>

<tr>
<td  class="h" >
<a name="41">41</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> simply links to existing pages </td>
</tr>

<tr>
<td  class="h" >
<a name="42">42</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="43">43</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> C<@footer> is a list of code references allowing you to add things like licenses </td>
</tr>

<tr>
<td  class="h" >
<a name="44">44</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> or contact information to every page; each code reference gets called with </td>
</tr>

<tr>
<td  class="h" >
<a name="45">45</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> $stream (L<Mojo::IOLoop::Stream>), $host, $space, $id, $revision, and $format </td>
</tr>

<tr>
<td  class="h" >
<a name="46">46</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> ('gemini' or 'html') used to serve the page; return a gemtext string to append </td>
</tr>

<tr>
<td  class="h" >
<a name="47">47</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> at the end; the alternative is to overwrite the C<footer> or C<html_footer> subs </td>
</tr>

<tr>
<td  class="h" >
<a name="48">48</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> – the default implementation for Gemini adds History, Raw text and HTML link, </td>
</tr>

<tr>
<td  class="h" >
<a name="49">49</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> and C<@footer> to the bottom of every page; the default implementation for HTTP </td>
</tr>

<tr>
<td  class="h" >
<a name="50">50</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> just adds C<@footer> to the bottom of every page </td>
</tr>

<tr>
<td  class="h" >
<a name="51">51</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="52">52</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> If you do hook into Phoebe's code, you probably want to make use of the </td>
</tr>

<tr>
<td  class="h" >
<a name="53">53</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> following variables: </td>
</tr>

<tr>
<td  class="h" >
<a name="54">54</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="55">55</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> C<$server> stores the command line options provided by the user. </td>
</tr>

<tr>
<td  class="h" >
<a name="56">56</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="57">57</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> C<$log> is how you log things. </td>
</tr>

<tr>
<td  class="h" >
<a name="58">58</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="59">59</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> A very simple example to add a contact mail at the bottom of every page; this </td>
</tr>

<tr>
<td  class="h" >
<a name="60">60</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> works for both Gemini and the web: </td>
</tr>

<tr>
<td  class="h" >
<a name="61">61</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="62">62</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # tested by t/example-footer.t </td>
</tr>

<tr>
<td  class="h" >
<a name="63">63</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     use App::Phoebe qw(@footer); </td>
</tr>

<tr>
<td  class="h" >
<a name="64">64</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push(@footer, sub { '=> mailto:[e-mail] Mail' }); </td>
</tr>

<tr>
<td  class="h" >
<a name="65">65</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="66">66</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> This prints a very simply footer instead of the usual footer for Gemini, as the </td>
</tr>

<tr>
<td  class="h" >
<a name="67">67</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> C<footer> function is redefined. At the same time, the C<@footer> array is still </td>
</tr>

<tr>
<td  class="h" >
<a name="68">68</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> used for the web: </td>
</tr>

<tr>
<td  class="h" >
<a name="69">69</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="70">70</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # tested by t/example-footer2.t </td>
</tr>

<tr>
<td  class="h" >
<a name="71">71</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     package App::Phoebe; </td>
</tr>

<tr>
<td  class="h" >
<a name="72">72</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     use Modern::Perl; </td>
</tr>

<tr>
<td  class="h" >
<a name="73">73</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     our (@footer); # HTML only </td>
</tr>

<tr>
<td  class="h" >
<a name="74">74</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push(@footer, sub { '=> https://alexschroeder.ch/wiki/Contact Contact' }); </td>
</tr>

<tr>
<td  class="h" >
<a name="75">75</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # footer sub is Gemini only </td>
</tr>

<tr>
<td  class="h" >
<a name="76">76</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     no warnings qw(redefine); </td>
</tr>

<tr>
<td  class="h" >
<a name="77">77</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub footer { </td>
</tr>

<tr>
<td  class="h" >
<a name="78">78</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return "\n" . '—' x 10 . "\n" . '=> mailto:[e-mail] Mail'; </td>
</tr>

<tr>
<td  class="h" >
<a name="79">79</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="80">80</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="81">81</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> This example also shows how to redefine existing code in your config file </td>
</tr>

<tr>
<td  class="h" >
<a name="82">82</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> without the warning "Subroutine … redefined". </td>
</tr>

<tr>
<td  class="h" >
<a name="83">83</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="84">84</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Here's a more elaborate example to add a new action the main menu and a handler </td>
</tr>

<tr>
<td  class="h" >
<a name="85">85</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> for it, for Gemini only: </td>
</tr>

<tr>
<td  class="h" >
<a name="86">86</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="87">87</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # tested by t/example-new-action.t </td>
</tr>

<tr>
<td  class="h" >
<a name="88">88</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     package App::Phoebe; </td>
</tr>

<tr>
<td  class="h" >
<a name="89">89</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     use Modern::Perl; </td>
</tr>

<tr>
<td  class="h" >
<a name="90">90</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     our (@extensions, @main_menu); </td>
</tr>

<tr>
<td  class="h" >
<a name="91">91</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push(@main_menu, "=> gemini://localhost/do/test Test"); </td>
</tr>

<tr>
<td  class="h" >
<a name="92">92</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push(@extensions, \&serve_test); </td>
</tr>

<tr>
<td  class="h" >
<a name="93">93</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub serve_test { </td>
</tr>

<tr>
<td  class="h" >
<a name="94">94</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="95">95</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $url = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="96">96</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $headers = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="97">97</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $host = host_regex(); </td>
</tr>

<tr>
<td  class="h" >
<a name="98">98</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="99">99</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($url =~ m!^gemini://($host)(?::$port)?/do/test$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="100">100</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	result($stream, "20", "text/plain"); </td>
</tr>

<tr>
<td  class="h" >
<a name="101">101</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$stream->write("Test\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="102">102</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="103">103</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="104">104</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return; </td>
</tr>

<tr>
<td  class="h" >
<a name="105">105</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="106">106</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     1; </td>
</tr>

<tr>
<td  class="h" >
<a name="107">107</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="108">108</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Here's an example where we wrap one the subroutines in App::Phoebe: we keep a </td>
</tr>

<tr>
<td  class="h" >
<a name="109">109</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> code reference to the original, substitute our own, and when it gets called, it </td>
</tr>

<tr>
<td  class="h" >
<a name="110">110</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> first calls the old code to print some CSS, and then we append some CSS of our </td>
</tr>

<tr>
<td  class="h" >
<a name="111">111</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> own. Also note how we import C<$log>. </td>
</tr>

<tr>
<td  class="h" >
<a name="112">112</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="113">113</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # tested by t/example-dark-mode.t </td>
</tr>

<tr>
<td  class="h" >
<a name="114">114</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     package App::Phoebe::DarkMode; </td>
</tr>

<tr>
<td  class="h" >
<a name="115">115</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     use App::Phoebe qw($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="116">116</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     no warnings qw(redefine); </td>
</tr>

<tr>
<td  class="h" >
<a name="117">117</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="118">118</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # fully qualified because we're in a different package! </td>
</tr>

<tr>
<td  class="h" >
<a name="119">119</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     *old_serve_css_via_http = \&App::Phoebe::serve_css_via_http; </td>
</tr>

<tr>
<td  class="h" >
<a name="120">120</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     *App::Phoebe::serve_css_via_http = \&serve_css_via_http; </td>
</tr>

<tr>
<td  class="h" >
<a name="121">121</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="122">122</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub serve_css_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="123">123</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="124">124</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       old_serve_css_via_http($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="125">125</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->info("Adding more CSS via HTTP (for dark mode)"); </td>
</tr>

<tr>
<td  class="h" >
<a name="126">126</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(<<'EOT'); </td>
</tr>

<tr>
<td  class="h" >
<a name="127">127</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     @media (prefers-color-scheme: dark) { </td>
</tr>

<tr>
<td  class="h" >
<a name="128">128</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        body { color: #eeeee8; background-color: #333333; } </td>
</tr>

<tr>
<td  class="h" >
<a name="129">129</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        a:link { color: #1e90ff } </td>
</tr>

<tr>
<td  class="h" >
<a name="130">130</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        a:hover { color: #63b8ff } </td>
</tr>

<tr>
<td  class="h" >
<a name="131">131</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        a:visited { color: #7a67ee } </td>
</tr>

<tr>
<td  class="h" >
<a name="132">132</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="133">133</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     EOT </td>
</tr>

<tr>
<td  class="h" >
<a name="134">134</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="135">135</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="136">136</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     1; </td>
</tr>

<tr>
<td  class="h" >
<a name="137">137</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="138">138</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="139">139</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="140">140</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> package App::Phoebe; </td>
</tr>

<tr>
<td  class="h" >
<a name="141">141</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#141-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

1225

</td>

<td class="s"> use Modern::Perl '2018'; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

11263

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

7

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="142">142</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#142-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

743

</td>

<td class="s"> use File::Slurper qw(read_text read_binary read_lines read_dir write_text write_binary); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

16002

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

75

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="143">143</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#143-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

8

</td>

<td class="s"> use Encode qw(encode_utf8 decode_utf8); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

2

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

42

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="144">144</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#144-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

509

</td>

<td class="s"> use Net::IDN::Encode qw(domain_to_ascii); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

112748

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

76

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="145">145</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#145-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

569

</td>

<td class="s"> use Socket qw(:addrinfo SOCK_RAW); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

3802

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

337

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="146">146</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#146-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

8

</td>

<td class="s"> use List::Util qw(first min any); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

2

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

117

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="147">147</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#147-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

522

</td>

<td class="s"> use File::ReadBackwards; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

989

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

33

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="148">148</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#148-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

625

</td>

<td class="s"> use Algorithm::Diff; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

5240

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

46

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="149">149</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#149-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

497

</td>

<td class="s"> use URI::Escape; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

1534

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

60

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="150">150</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#150-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

550

</td>

<td class="s"> use Mojo::IOLoop; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

331938

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

6

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="151">151</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#151-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

531

</td>

<td class="s"> use Mojo::Log; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

12499

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

12

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="152">152</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c3" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#152-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

39

</td>

<td class="s"> use utf8; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

2

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c3" >

1

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

7

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="153">153</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="154">154</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our $VERSION = 4.00; </td>
</tr>

<tr>
<td  class="h" >
<a name="155">155</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="156">156</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> require Exporter; </td>
</tr>

<tr>
<td  class="h" >
<a name="157">157</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our @ISA = qw(Exporter); </td>
</tr>

<tr>
<td  class="h" >
<a name="158">158</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our @EXPORT_OK = qw(@extensions @main_menu @footer $log $server $full_url_regex </td>
</tr>

<tr>
<td  class="h" >
<a name="159">159</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    space port host_regex space_regex reserved_regex success </td>
</tr>

<tr>
<td  class="h" >
<a name="160">160</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    result get_ip_numbers run_extensions pages blog blog_pages </td>
</tr>

<tr>
<td  class="h" >
<a name="161">161</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    text save_page serve_index serve_page serve_raw serve_html </td>
</tr>

<tr>
<td  class="h" >
<a name="162">162</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    serve_history serve_diff @request_handlers handle_request </td>
</tr>

<tr>
<td  class="h" >
<a name="163">163</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    process_titan process_gemini valid_id valid_mime_type </td>
</tr>

<tr>
<td  class="h" >
<a name="164">164</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    valid_size valid_token print_link gemini_link colourize </td>
</tr>

<tr>
<td  class="h" >
<a name="165">165</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    modified changes diff bogus_hash quote_html write_page </td>
</tr>

<tr>
<td  class="h" >
<a name="166">166</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    @known_fingerprints http_error with_lock wiki_dir </td>
</tr>

<tr>
<td  class="h" >
<a name="167">167</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		    handle_http_header to_url handle_titan footer); </td>
</tr>

<tr>
<td  class="h" >
<a name="168">168</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="169">169</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # Phoebe variables you can set in the config file </td>
</tr>

<tr>
<td  class="h" >
<a name="170">170</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="171">171</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our (@extensions, @main_menu, @footer); </td>
</tr>

<tr>
<td  class="h" >
<a name="172">172</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our $log ||= Mojo::Log->new(level => 'warn'); </td>
</tr>

<tr>
<td  class="h" >
<a name="173">173</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our $server = {host => {}}; </td>
</tr>

<tr>
<td  class="h" >
<a name="174">174</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="175">175</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our $protocols = 'https?|ftp|afs|news|nntp|mid|cid|mailto|wais|prospero|telnet|gophers?|irc|feed|gemini|xmpp'; </td>
</tr>

<tr>
<td  class="h" >
<a name="176">176</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our $chars = '[-a-zA-Z0-9/@=+$_~*.,;:?!\'"()&#%]'; # see RFC 2396 </td>
</tr>

<tr>
<td  class="h" >
<a name="177">177</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our $full_url_regex = "((?:$protocols):$chars+)"; </td>
</tr>

<tr>
<td  class="h" >
<a name="178">178</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="179">179</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our @known_fingerprints; # only used by extensions </td>
</tr>

<tr>
<td  class="h" >
<a name="180">180</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="181">181</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # Conventions: </td>
</tr>

<tr>
<td  class="h" >
<a name="182">182</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # - a regular exression on the first line of the request </td>
</tr>

<tr>
<td  class="h" >
<a name="183">183</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # - a handle_foo sub to do wait until you're ready (take $stream and $data, </td>
</tr>

<tr>
<td  class="h" >
<a name="184">184</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> #   where $data->{buffer} keeps growing with bytes) </td>
</tr>

<tr>
<td  class="h" >
<a name="185">185</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # - a process_foo sub to finish the job and write stuff back to the $stream </td>
</tr>

<tr>
<td  class="h" >
<a name="186">186</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="187">187</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> our @request_handlers = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="188">188</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   '^titan://' => \&handle_titan, </td>
</tr>

<tr>
<td  class="h" >
<a name="189">189</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   '^gemini://' => \&handle_gemini, </td>
</tr>

<tr>
<td  class="h" >
<a name="190">190</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   '^GET .* HTTP/1\.[01]$' => \&handle_http_header, </td>
</tr>

<tr>
<td  class="h" >
<a name="191">191</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   '^[^:/?#]+://([^/?#]*)([^?#]*)(?:\?([^#]*))?(?:#(.*))?$' => \&handle_url, </td>
</tr>

<tr>
<td  class="h" >
<a name="192">192</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> ); </td>
</tr>

<tr>
<td  class="h" >
<a name="193">193</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="194">194</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # Phoebe subroutines you might want to call in your extensions </td>
</tr>

<tr>
<td  class="h" >
<a name="195">195</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="196">196</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub port { </td>
</tr>

<tr>
<td  class="h" >
<a name="197">197</a>
</td>

<td  class="c0" >
 <a href="#198"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#197-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#197-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="198">198</a>
</td>

<td  class="c0" >
 <a href="#199"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#198-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 1965 unless $stream; # if called in a test situation </td>
</tr>

<tr>
<td  class="h" >
<a name="199">199</a>
</td>

<td  class="c0" >
 <a href="#203"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $stream->handle->sockport; # the actual port </td>
</tr>

<tr>
<td  class="h" >
<a name="200">200</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="201">201</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="202">202</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub get_ip_numbers { </td>
</tr>

<tr>
<td  class="h" >
<a name="203">203</a>
</td>

<td  class="c0" >
 <a href="#204"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#203-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#203-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $hostname = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="204">204</a>
</td>

<td  class="c0" >
 <a href="#205"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $punycode = domain_to_ascii($hostname); </td>
</tr>

<tr>
<td  class="h" >
<a name="205">205</a>
</td>

<td  class="c0" >
 <a href="#206"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @addresses; </td>
</tr>

<tr>
<td  class="h" >
<a name="206">206</a>
</td>

<td  class="c0" >
 <a href="#207"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($err, @res) = getaddrinfo($punycode, "", {socktype => SOCK_RAW}); </td>
</tr>

<tr>
<td  class="h" >
<a name="207">207</a>
</td>

<td  class="c0" >
 <a href="#208"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#207-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->error("Cannot determine the IP number of $punycode: $err") if $err; </td>
</tr>

<tr>
<td  class="h" >
<a name="208">208</a>
</td>

<td  class="c0" >
 <a href="#209"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $ai (@res) { </td>
</tr>

<tr>
<td  class="h" >
<a name="209">209</a>
</td>

<td  class="c0" >
 <a href="#210"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($err, $ipaddr) = getnameinfo($ai->{addr}, NI_NUMERICHOST, NIx_NOSERV); </td>
</tr>

<tr>
<td  class="h" >
<a name="210">210</a>
</td>

<td  class="c0" >
 <a href="#211"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#210-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->error("Cannot get a readable IP number of $punycode: $err") if $err; </td>
</tr>

<tr>
<td  class="h" >
<a name="211">211</a>
</td>

<td  class="c0" >
 <a href="#213"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#211-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push(@addresses, $ipaddr) if $ipaddr; </td>
</tr>

<tr>
<td  class="h" >
<a name="212">212</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="213">213</a>
</td>

<td  class="c0" >
 <a href="#219"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return @addresses; </td>
</tr>

<tr>
<td  class="h" >
<a name="214">214</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="215">215</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="216">216</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # The hostnames we know we want to serve because they were specified via --host </td>
</tr>

<tr>
<td  class="h" >
<a name="217">217</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # options. </td>
</tr>

<tr>
<td  class="h" >
<a name="218">218</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub host_regex { </td>
</tr>

<tr>
<td  class="h" >
<a name="219">219</a>
</td>

<td  class="c0" >
 <a href="#220"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#219-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#219-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="220">220</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return join("|", map { quotemeta domain_to_ascii $_ } keys %{$server->{host}}); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#229"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="221">221</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="222">222</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="223">223</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # A regular expression matching wiki spaces in URLs. The tricky part is that we </td>
</tr>

<tr>
<td  class="h" >
<a name="224">224</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # must strip the hostnames, as these aren't repeated: for a URL like </td>
</tr>

<tr>
<td  class="h" >
<a name="225">225</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # gemini://localhost:1965/alex/ the regular expression must just match 'alex' </td>
</tr>

<tr>
<td  class="h" >
<a name="226">226</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # and it's space($stream, 'localhost', 'alex') that will check whether 'alex' is a </td>
</tr>

<tr>
<td  class="h" >
<a name="227">227</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # legal space for localhost. </td>
</tr>

<tr>
<td  class="h" >
<a name="228">228</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub space_regex { </td>
</tr>

<tr>
<td  class="h" >
<a name="229">229</a>
</td>

<td  class="c0" >
 <a href="#230"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#229-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#229-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my @spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="230">230</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#230-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (keys %{$server->{host}} > 1) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#231"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="231">231</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for (@{$server->{wiki_space}}) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#232"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="232">232</a>
</td>

<td  class="c0" >
 <a href="#233"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($space) = /\/(.*)/; </td>
</tr>

<tr>
<td  class="h" >
<a name="233">233</a>
</td>

<td  class="c0" >
 <a href="#235"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push(@spaces, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="234">234</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="235">235</a>
</td>

<td  class="c0" >
 <a href="#236"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif (@{$server->{wiki_space}}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="236">236</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     @spaces = @{$server->{wiki_space}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#238"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="237">237</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="238">238</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return join("|", map { quotemeta } @spaces); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#247"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="239">239</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="240">240</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="241">241</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # A regular expression matching parts of reserved paths in URLs. When looking at </td>
</tr>

<tr>
<td  class="h" >
<a name="242">242</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # gemini://localhost:1965/page/test or gemini://localhost:1965/do/index and </td>
</tr>

<tr>
<td  class="h" >
<a name="243">243</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # using a client that has an "up" command, you'd end up at </td>
</tr>

<tr>
<td  class="h" >
<a name="244">244</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # gemini://localhost:1965/page – but what should happen in this case? We should </td>
</tr>

<tr>
<td  class="h" >
<a name="245">245</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # redirect these requests to gemini://localhost:1965/, I think. </td>
</tr>

<tr>
<td  class="h" >
<a name="246">246</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub reserved_regex { </td>
</tr>

<tr>
<td  class="h" >
<a name="247">247</a>
</td>

<td  class="c0" >
 <a href="#252"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#247-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#247-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   return join("|", qw(do page raw file html history diff)); </td>
</tr>

<tr>
<td  class="h" >
<a name="248">248</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="249">249</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="250">250</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="251">251</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub success { </td>
</tr>

<tr>
<td  class="h" >
<a name="252">252</a>
</td>

<td  class="c0" >
 <a href="#253"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#252-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#252-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="253">253</a>
</td>

<td  class="c0" >
 <a href="#254"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#253-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $type = shift || 'text/gemini; charset=UTF-8'; </td>
</tr>

<tr>
<td  class="h" >
<a name="254">254</a>
</td>

<td  class="c0" >
 <a href="#255"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $lang = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="255">255</a>
</td>

<td  class="c0" >
 <a href="#256"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#255-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($lang) { </td>
</tr>

<tr>
<td  class="h" >
<a name="256">256</a>
</td>

<td  class="c0" >
 <a href="#258"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "20", "$type; lang=$lang"); </td>
</tr>

<tr>
<td  class="h" >
<a name="257">257</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="258">258</a>
</td>

<td  class="c0" >
 <a href="#263"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "20", "$type"); </td>
</tr>

<tr>
<td  class="h" >
<a name="259">259</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="260">260</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="261">261</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="262">262</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub result { </td>
</tr>

<tr>
<td  class="h" >
<a name="263">263</a>
</td>

<td  class="c0" >
 <a href="#264"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#263-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#263-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="264">264</a>
</td>

<td  class="c0" >
 <a href="#265"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $code = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="265">265</a>
</td>

<td  class="c0" >
 <a href="#266"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $meta = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="266">266</a>
</td>

<td  class="c0" >
 <a href="#267"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#266-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift||""; </td>
</tr>

<tr>
<td  class="h" >
<a name="267">267</a>
</td>

<td  class="c0" >
 <a href="#271"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("$code $meta\r\n$data"); </td>
</tr>

<tr>
<td  class="h" >
<a name="268">268</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="269">269</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="270">270</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub handle_titan { </td>
</tr>

<tr>
<td  class="h" >
<a name="271">271</a>
</td>

<td  class="c0" >
 <a href="#272"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#271-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#271-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="272">272</a>
</td>

<td  class="c0" >
 <a href="#274"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="273">273</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # extra processing of the request if we didn't do that, yet </td>
</tr>

<tr>
<td  class="h" >
<a name="274">274</a>
</td>

<td  class="c0" >
 <a href="#275"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#274-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#274-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $data->{upload} ||= is_upload($stream, $data->{request}) or return; </td>
</tr>

<tr>
<td  class="h" >
<a name="275">275</a>
</td>

<td  class="c0" >
 <a href="#276"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $size = $data->{upload}->{params}->{size}; </td>
</tr>

<tr>
<td  class="h" >
<a name="276">276</a>
</td>

<td  class="c0" >
 <a href="#277"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $actual = length($data->{buffer}); </td>
</tr>

<tr>
<td  class="h" >
<a name="277">277</a>
</td>

<td  class="c0" >
 <a href="#278"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#277-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($actual == $size) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="278">278</a>
</td>

<td  class="c0" >
 <a href="#279"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Handle Titan request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="279">279</a>
</td>

<td  class="c0" >
 <a href="#281"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     process_titan($stream, $data->{request}, $data->{upload}, $data->{buffer}, $size); </td>
</tr>

<tr>
<td  class="h" >
<a name="280">280</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # do not close in case we're waiting for the lock </td>
</tr>

<tr>
<td  class="h" >
<a name="281">281</a>
</td>

<td  class="c0" >
 <a href="#283"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="282">282</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif ($actual > $size) { </td>
</tr>

<tr>
<td  class="h" >
<a name="283">283</a>
</td>

<td  class="c0" >
 <a href="#284"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Received more than the promised $size bytes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="284">284</a>
</td>

<td  class="c0" >
 <a href="#285"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Received more than the promised $size bytes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="285">285</a>
</td>

<td  class="c0" >
 <a href="#286"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="286">286</a>
</td>

<td  class="c0" >
 <a href="#288"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="287">287</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="288">288</a>
</td>

<td  class="c0" >
 <a href="#292"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Waiting for " . ($size - $actual) . " more bytes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="289">289</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="290">290</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="291">291</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub process_titan { </td>
</tr>

<tr>
<td  class="h" >
<a name="292">292</a>
</td>

<td  class="c0" >
 <a href="#293"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#292-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#292-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my ($stream, $request, $upload, $buffer, $size) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="293">293</a>
</td>

<td  class="c0" >
 <a href="#294"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   eval { </td>
</tr>

<tr>
<td  class="h" >
<a name="294">294</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#294-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     local $SIG{'ALRM'} = sub { $log->error("Timeout processing upload $request") }; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#295"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="295">295</a>
</td>

<td  class="c0" >
 <a href="#297"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     alarm(10); # timeout </td>
</tr>

<tr>
<td  class="h" >
<a name="296">296</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     save_page($stream, $upload->{host}, $upload->{space}, $upload->{id}, </td>
</tr>

<tr>
<td  class="h" >
<a name="297">297</a>
</td>

<td  class="c0" >
 <a href="#298"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	      $upload->{params}->{mime}, $buffer, $size); </td>
</tr>

<tr>
<td  class="h" >
<a name="298">298</a>
</td>

<td  class="c0" >
 <a href="#300"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     alarm(0); </td>
</tr>

<tr>
<td  class="h" >
<a name="299">299</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   }; </td>
</tr>

<tr>
<td  class="h" >
<a name="300">300</a>
</td>

<td  class="c0" >
 <a href="#301"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#300-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless $@; </td>
</tr>

<tr>
<td  class="h" >
<a name="301">301</a>
</td>

<td  class="c0" >
 <a href="#302"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->error("Error: $@"); </td>
</tr>

<tr>
<td  class="h" >
<a name="302">302</a>
</td>

<td  class="c0" >
 <a href="#306"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="303">303</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="304">304</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="305">305</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub save_page { </td>
</tr>

<tr>
<td  class="h" >
<a name="306">306</a>
</td>

<td  class="c0" >
 <a href="#307"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#306-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#306-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="307">307</a>
</td>

<td  class="c0" >
 <a href="#308"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="308">308</a>
</td>

<td  class="c0" >
 <a href="#309"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="309">309</a>
</td>

<td  class="c0" >
 <a href="#310"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="310">310</a>
</td>

<td  class="c0" >
 <a href="#311"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $type = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="311">311</a>
</td>

<td  class="c0" >
 <a href="#312"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="312">312</a>
</td>

<td  class="c0" >
 <a href="#313"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $length = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="313">313</a>
</td>

<td  class="c0" >
 <a href="#314"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#313-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($type ne "text/plain") { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="314">314</a>
</td>

<td  class="c0" >
 <a href="#315"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#314-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($length == 0) { </td>
</tr>

<tr>
<td  class="h" >
<a name="315">315</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#315-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       with_lock($stream, $host, $space, sub { delete_file($stream, $host, $space, $id) } ); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#317"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="316">316</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="317">317</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#317-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       with_lock($stream, $host, $space, sub { write_file($stream, $host, $space, $id, $data, $type) } ); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#320"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="318">318</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="319">319</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif ($length == 0) { </td>
</tr>

<tr>
<td  class="h" >
<a name="320">320</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#320-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     with_lock($stream, $host, $space, sub { delete_page($stream, $host, $space, $id) } ); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#322"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="321">321</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif (utf8::decode($data)) { # decodes in-place and returns success </td>
</tr>

<tr>
<td  class="h" >
<a name="322">322</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#322-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     with_lock($stream, $host, $space, sub { write_page($stream, $host, $space, $id, $data) } ); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#324"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="323">323</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="324">324</a>
</td>

<td  class="c0" >
 <a href="#325"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("The text is invalid UTF-8"); </td>
</tr>

<tr>
<td  class="h" >
<a name="325">325</a>
</td>

<td  class="c0" >
 <a href="#326"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "The text is invalid UTF-8"); </td>
</tr>

<tr>
<td  class="h" >
<a name="326">326</a>
</td>

<td  class="c0" >
 <a href="#333"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="327">327</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="328">328</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="329">329</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="330">330</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # We can't use C<flock> because this defaults to C<fcntl> which means they are </td>
</tr>

<tr>
<td  class="h" >
<a name="331">331</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # I<per process> </td>
</tr>

<tr>
<td  class="h" >
<a name="332">332</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub with_lock { </td>
</tr>

<tr>
<td  class="h" >
<a name="333">333</a>
</td>

<td  class="c0" >
 <a href="#334"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#333-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#333-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="334">334</a>
</td>

<td  class="c0" >
 <a href="#335"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="335">335</a>
</td>

<td  class="c0" >
 <a href="#336"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="336">336</a>
</td>

<td  class="c0" >
 <a href="#337"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $code = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="337">337</a>
</td>

<td  class="c0" >
 <a href="#338"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#337-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $count = shift || 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="338">338</a>
</td>

<td  class="c0" >
 <a href="#339"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="339">339</a>
</td>

<td  class="c0" >
 <a href="#341"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $lock = "$dir/locked"; </td>
</tr>

<tr>
<td  class="h" >
<a name="340">340</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # remove stale locks </td>
</tr>

<tr>
<td  class="h" >
<a name="341">341</a>
</td>

<td  class="c0" >
 <a href="#342"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#341-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $lock) { </td>
</tr>

<tr>
<td  class="h" >
<a name="342">342</a>
</td>

<td  class="c0" >
 <a href="#343"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $age = time() - modified($lock); </td>
</tr>

<tr>
<td  class="h" >
<a name="343">343</a>
</td>

<td  class="c0" >
 <a href="#344"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("lock is ${age}s old"); </td>
</tr>

<tr>
<td  class="h" >
<a name="344">344</a>
</td>

<td  class="c0" >
 <a href="#346"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#344-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#344-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     rmdir $lock if -e $lock and $age > 5; </td>
</tr>

<tr>
<td  class="h" >
<a name="345">345</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="346">346</a>
</td>

<td  class="c0" >
 <a href="#347"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#346-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (mkdir($lock)) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="347">347</a>
</td>

<td  class="c0" >
 <a href="#348"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Running code with lock $lock"); </td>
</tr>

<tr>
<td  class="h" >
<a name="348">348</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     eval { $code->() }; # protect against exceptions </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#349"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="349">349</a>
</td>

<td  class="c0" >
 <a href="#350"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#349-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($@) { </td>
</tr>

<tr>
<td  class="h" >
<a name="350">350</a>
</td>

<td  class="c0" >
 <a href="#351"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->error("Unable to run code with locked $lock: $@"); </td>
</tr>

<tr>
<td  class="h" >
<a name="351">351</a>
</td>

<td  class="c0" >
 <a href="#353"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "40", "An error occured, unfortunately"); </td>
</tr>

<tr>
<td  class="h" >
<a name="352">352</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="353">353</a>
</td>

<td  class="c0" >
 <a href="#354"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     rmdir($lock); </td>
</tr>

<tr>
<td  class="h" >
<a name="354">354</a>
</td>

<td  class="c0" >
 <a href="#356"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="355">355</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif ($count > 25) { </td>
</tr>

<tr>
<td  class="h" >
<a name="356">356</a>
</td>

<td  class="c0" >
 <a href="#357"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->error("Unable to unlock $lock"); </td>
</tr>

<tr>
<td  class="h" >
<a name="357">357</a>
</td>

<td  class="c0" >
 <a href="#358"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "40", "The wiki is locked; try again in a few seconds"); </td>
</tr>

<tr>
<td  class="h" >
<a name="358">358</a>
</td>

<td  class="c0" >
 <a href="#360"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="359">359</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="360">360</a>
</td>

<td  class="c0" >
 <a href="#362"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Waiting $count..."); </td>
</tr>

<tr>
<td  class="h" >
<a name="361">361</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     Mojo::IOLoop->timer(0.2 => sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="362">362</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#362-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       with_lock($stream, $host, $space, $code, $count + 1)}); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#368"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="363">363</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # don't close the stream </td>
</tr>

<tr>
<td  class="h" >
<a name="364">364</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="365">365</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="366">366</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="367">367</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub write_page { </td>
</tr>

<tr>
<td  class="h" >
<a name="368">368</a>
</td>

<td  class="c0" >
 <a href="#369"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#368-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#368-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="369">369</a>
</td>

<td  class="c0" >
 <a href="#370"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="370">370</a>
</td>

<td  class="c0" >
 <a href="#371"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="371">371</a>
</td>

<td  class="c0" >
 <a href="#372"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="372">372</a>
</td>

<td  class="c0" >
 <a href="#373"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $text = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="373">373</a>
</td>

<td  class="c0" >
 <a href="#374"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Writing page $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="374">374</a>
</td>

<td  class="c0" >
 <a href="#375"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="375">375</a>
</td>

<td  class="c0" >
 <a href="#376"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $file = "$dir/page/$id.gmi"; </td>
</tr>

<tr>
<td  class="h" >
<a name="376">376</a>
</td>

<td  class="c0" >
 <a href="#377"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="377">377</a>
</td>

<td  class="c0" >
 <a href="#378"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#377-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $file) { </td>
</tr>

<tr>
<td  class="h" >
<a name="378">378</a>
</td>

<td  class="c0" >
 <a href="#379"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $old = read_text($file); </td>
</tr>

<tr>
<td  class="h" >
<a name="379">379</a>
</td>

<td  class="c0" >
 <a href="#380"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#379-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($old eq $text) { </td>
</tr>

<tr>
<td  class="h" >
<a name="380">380</a>
</td>

<td  class="c0" >
 <a href="#381"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->info("$id is unchanged"); </td>
</tr>

<tr>
<td  class="h" >
<a name="381">381</a>
</td>

<td  class="c0" >
 <a href="#382"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "30", to_url($stream, $host, $space, "page/$id")); </td>
</tr>

<tr>
<td  class="h" >
<a name="382">382</a>
</td>

<td  class="c0" >
 <a href="#384"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return; </td>
</tr>

<tr>
<td  class="h" >
<a name="383">383</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="384">384</a>
</td>

<td  class="c0" >
 <a href="#385"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#384-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     mkdir "$dir/keep" unless -d "$dir/keep"; </td>
</tr>

<tr>
<td  class="h" >
<a name="385">385</a>
</td>

<td  class="c0" >
 <a href="#386"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#385-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (-d "$dir/keep/$id") { </td>
</tr>

<tr>
<td  class="h" >
<a name="386">386</a>
</td>

<td  class="c0" >
 <a href="#387"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       foreach (read_dir("$dir/keep/$id")) { </td>
</tr>

<tr>
<td  class="h" >
<a name="387">387</a>
</td>

<td  class="c0" >
 <a href="#389"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#387-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#387-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$revision = $1 if m/^(\d+)\.gmi$/ and $1 > $revision; </td>
</tr>

<tr>
<td  class="h" >
<a name="388">388</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="389">389</a>
</td>

<td  class="c0" >
 <a href="#391"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $revision++; </td>
</tr>

<tr>
<td  class="h" >
<a name="390">390</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="391">391</a>
</td>

<td  class="c0" >
 <a href="#392"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       mkdir "$dir/keep/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="392">392</a>
</td>

<td  class="c0" >
 <a href="#394"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $revision = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="393">393</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="394">394</a>
</td>

<td  class="c0" >
 <a href="#396"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     rename $file, "$dir/keep/$id/$revision.gmi"; </td>
</tr>

<tr>
<td  class="h" >
<a name="395">395</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="396">396</a>
</td>

<td  class="c0" >
 <a href="#397"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $index = "$dir/index"; </td>
</tr>

<tr>
<td  class="h" >
<a name="397">397</a>
</td>

<td  class="c0" >
 <a href="#398"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#397-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (not open(my $fh, ">>:encoding(UTF-8)", $index)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="398">398</a>
</td>

<td  class="c0" >
 <a href="#399"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->error("Cannot write index $index: $!"); </td>
</tr>

<tr>
<td  class="h" >
<a name="399">399</a>
</td>

<td  class="c0" >
 <a href="#400"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "59", "Unable to write index"); </td>
</tr>

<tr>
<td  class="h" >
<a name="400">400</a>
</td>

<td  class="c0" >
 <a href="#402"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return; </td>
</tr>

<tr>
<td  class="h" >
<a name="401">401</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="402">402</a>
</td>

<td  class="c0" >
 <a href="#403"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       say $fh $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="403">403</a>
</td>

<td  class="c0" >
 <a href="#406"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="404">404</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="405">405</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="406">406</a>
</td>

<td  class="c0" >
 <a href="#407"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $changes = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="407">407</a>
</td>

<td  class="c0" >
 <a href="#408"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#407-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not open(my $fh, ">>:encoding(UTF-8)", $changes)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="408">408</a>
</td>

<td  class="c0" >
 <a href="#409"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->error("Cannot write log $changes: $!"); </td>
</tr>

<tr>
<td  class="h" >
<a name="409">409</a>
</td>

<td  class="c0" >
 <a href="#410"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Unable to write log"); </td>
</tr>

<tr>
<td  class="h" >
<a name="410">410</a>
</td>

<td  class="c0" >
 <a href="#412"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="411">411</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="412">412</a>
</td>

<td  class="c0" >
 <a href="#413"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $peerhost = $stream->handle->peerhost; </td>
</tr>

<tr>
<td  class="h" >
<a name="413">413</a>
</td>

<td  class="c0" >
 <a href="#414"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     say $fh join("\x1f", scalar(time), $id, $revision + 1, bogus_hash($peerhost)); </td>
</tr>

<tr>
<td  class="h" >
<a name="414">414</a>
</td>

<td  class="c0" >
 <a href="#416"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="415">415</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="416">416</a>
</td>

<td  class="c0" >
 <a href="#417"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#416-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   mkdir "$dir/page" unless -d "$dir/page"; </td>
</tr>

<tr>
<td  class="h" >
<a name="417">417</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   eval { write_text($file, $text) }; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#418"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="418">418</a>
</td>

<td  class="c0" >
 <a href="#419"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#418-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($@) { </td>
</tr>

<tr>
<td  class="h" >
<a name="419">419</a>
</td>

<td  class="c0" >
 <a href="#420"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->error("Unable to save $id: $@"); </td>
</tr>

<tr>
<td  class="h" >
<a name="420">420</a>
</td>

<td  class="c0" >
 <a href="#422"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Unable to save $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="421">421</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="422">422</a>
</td>

<td  class="c0" >
 <a href="#423"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->info("Wrote $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="423">423</a>
</td>

<td  class="c0" >
 <a href="#428"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "30", to_url($stream, $host, $space, "page/$id")); </td>
</tr>

<tr>
<td  class="h" >
<a name="424">424</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="425">425</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="426">426</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="427">427</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub delete_page { </td>
</tr>

<tr>
<td  class="h" >
<a name="428">428</a>
</td>

<td  class="c0" >
 <a href="#429"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#428-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#428-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="429">429</a>
</td>

<td  class="c0" >
 <a href="#430"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="430">430</a>
</td>

<td  class="c0" >
 <a href="#431"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="431">431</a>
</td>

<td  class="c0" >
 <a href="#432"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="432">432</a>
</td>

<td  class="c0" >
 <a href="#433"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Deleting page $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="433">433</a>
</td>

<td  class="c0" >
 <a href="#434"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="434">434</a>
</td>

<td  class="c0" >
 <a href="#435"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $file = "$dir/page/$id.gmi"; </td>
</tr>

<tr>
<td  class="h" >
<a name="435">435</a>
</td>

<td  class="c0" >
 <a href="#436"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#435-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $file) { </td>
</tr>

<tr>
<td  class="h" >
<a name="436">436</a>
</td>

<td  class="c0" >
 <a href="#437"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $revision = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="437">437</a>
</td>

<td  class="c0" >
 <a href="#438"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#437-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     mkdir "$dir/keep" unless -d "$dir/keep"; </td>
</tr>

<tr>
<td  class="h" >
<a name="438">438</a>
</td>

<td  class="c0" >
 <a href="#439"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#438-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (-d "$dir/keep/$id") { </td>
</tr>

<tr>
<td  class="h" >
<a name="439">439</a>
</td>

<td  class="c0" >
 <a href="#440"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       foreach (read_dir("$dir/keep/$id")) { </td>
</tr>

<tr>
<td  class="h" >
<a name="440">440</a>
</td>

<td  class="c0" >
 <a href="#442"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#440-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#440-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$revision = $1 if m/^(\d+)\.gmi$/ and $1 > $revision; </td>
</tr>

<tr>
<td  class="h" >
<a name="441">441</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="442">442</a>
</td>

<td  class="c0" >
 <a href="#444"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $revision++; </td>
</tr>

<tr>
<td  class="h" >
<a name="443">443</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="444">444</a>
</td>

<td  class="c0" >
 <a href="#445"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       mkdir "$dir/keep/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="445">445</a>
</td>

<td  class="c0" >
 <a href="#448"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $revision = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="446">446</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="447">447</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # effectively deleting the file </td>
</tr>

<tr>
<td  class="h" >
<a name="448">448</a>
</td>

<td  class="c0" >
 <a href="#450"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     rename $file, "$dir/keep/$id/$revision.gmi"; </td>
</tr>

<tr>
<td  class="h" >
<a name="449">449</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="450">450</a>
</td>

<td  class="c0" >
 <a href="#451"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $index = "$dir/index"; </td>
</tr>

<tr>
<td  class="h" >
<a name="451">451</a>
</td>

<td  class="c0" >
 <a href="#453"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#451-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-f $index) { </td>
</tr>

<tr>
<td  class="h" >
<a name="452">452</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # remove $id from the index </td>
</tr>

<tr>
<td  class="h" >
<a name="453">453</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my @pages = grep { $_ ne $id } read_lines $index; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#454"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="454">454</a>
</td>

<td  class="c0" >
 <a href="#456"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     write_text($index, join("\n", @pages, "")); </td>
</tr>

<tr>
<td  class="h" >
<a name="455">455</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="456">456</a>
</td>

<td  class="c0" >
 <a href="#457"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $changes = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="457">457</a>
</td>

<td  class="c0" >
 <a href="#458"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#457-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not open(my $fh, ">>:encoding(UTF-8)", $changes)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="458">458</a>
</td>

<td  class="c0" >
 <a href="#459"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->error("Cannot write log $changes: $!"); </td>
</tr>

<tr>
<td  class="h" >
<a name="459">459</a>
</td>

<td  class="c0" >
 <a href="#460"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Unable to write log"); </td>
</tr>

<tr>
<td  class="h" >
<a name="460">460</a>
</td>

<td  class="c0" >
 <a href="#462"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="461">461</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="462">462</a>
</td>

<td  class="c0" >
 <a href="#463"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $peerhost = $stream->handle->peerhost; </td>
</tr>

<tr>
<td  class="h" >
<a name="463">463</a>
</td>

<td  class="c0" >
 <a href="#464"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     say $fh join("\x1f", scalar(time), $id, "🖹", bogus_hash($peerhost)); </td>
</tr>

<tr>
<td  class="h" >
<a name="464">464</a>
</td>

<td  class="c0" >
 <a href="#466"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="465">465</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="466">466</a>
</td>

<td  class="c0" >
 <a href="#467"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Deleted page $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="467">467</a>
</td>

<td  class="c0" >
 <a href="#471"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   result($stream, "30", to_url($stream, $host, $space, "page/$id")); </td>
</tr>

<tr>
<td  class="h" >
<a name="468">468</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="469">469</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="470">470</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub handle_gemini { </td>
</tr>

<tr>
<td  class="h" >
<a name="471">471</a>
</td>

<td  class="c0" >
 <a href="#472"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#471-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#471-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="472">472</a>
</td>

<td  class="c0" >
 <a href="#473"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="473">473</a>
</td>

<td  class="c0" >
 <a href="#475"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Handle Gemini request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="474">474</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Discarding " . length($data->{buffer}) . " bytes") </td>
</tr>

<tr>
<td  class="h" >
<a name="475">475</a>
</td>

<td  class="c0" >
 <a href="#476"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#475-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if $data->{buffer}; </td>
</tr>

<tr>
<td  class="h" >
<a name="476">476</a>
</td>

<td  class="c0" >
 <a href="#480"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   process_gemini($stream, $data->{request}); </td>
</tr>

<tr>
<td  class="h" >
<a name="477">477</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="478">478</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="479">479</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub process_gemini { </td>
</tr>

<tr>
<td  class="h" >
<a name="480">480</a>
</td>

<td  class="c0" >
 <a href="#481"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#480-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#480-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my ($stream, $url) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="481">481</a>
</td>

<td  class="c0" >
 <a href="#483"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   eval { </td>
</tr>

<tr>
<td  class="h" >
<a name="482">482</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     local $SIG{'ALRM'} = sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="483">483</a>
</td>

<td  class="c0" >
 <a href="#484"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#483-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->error("Timeout processing $url"); </td>
</tr>

<tr>
<td  class="h" >
<a name="484">484</a>
</td>

<td  class="c0" >
 <a href="#485"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     }; </td>
</tr>

<tr>
<td  class="h" >
<a name="485">485</a>
</td>

<td  class="c0" >
 <a href="#486"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     alarm(10); # timeout </td>
</tr>

<tr>
<td  class="h" >
<a name="486">486</a>
</td>

<td  class="c0" >
 <a href="#487"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $hosts = host_regex(); </td>
</tr>

<tr>
<td  class="h" >
<a name="487">487</a>
</td>

<td  class="c0" >
 <a href="#488"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="488">488</a>
</td>

<td  class="c0" >
 <a href="#489"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $spaces = space_regex(); </td>
</tr>

<tr>
<td  class="h" >
<a name="489">489</a>
</td>

<td  class="c0" >
 <a href="#490"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $reserved = reserved_regex($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="490">490</a>
</td>

<td  class="c0" >
 <a href="#491"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Serving ($hosts)(?::$port)?"); </td>
</tr>

<tr>
<td  class="h" >
<a name="491">491</a>
</td>

<td  class="c0" >
 <a href="#492"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Spaces $spaces"); </td>
</tr>

<tr>
<td  class="h" >
<a name="492">492</a>
</td>

<td  class="c0" >
 <a href="#494"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my($scheme, $authority, $path, $query, $fragment) = </td>
</tr>

<tr>
<td  class="h" >
<a name="493">493</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$url =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|; </td>
</tr>

<tr>
<td  class="h" >
<a name="494">494</a>
</td>

<td  class="c0" >
 <a href="#495"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->info("Looking at $url"); </td>
</tr>

<tr>
<td  class="h" >
<a name="495">495</a>
</td>

<td  class="c0" >
 <a href="#496"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($host, $space, $id, $n, $style, $filter); </td>
</tr>

<tr>
<td  class="h" >
<a name="496">496</a>
</td>

<td  class="c0" >
 <a href="#499"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#496-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#496-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (run_extensions($stream, $url)) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-4"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-5"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-6"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-7"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-8"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-9"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-10"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-11"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-12"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-13"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-14"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-15"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-16"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-17"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-18"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-19"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-20"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-21"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-22"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-23"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-24"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-25"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-26"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-27"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-28"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-29"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-30"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-31"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-32"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-33"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="497">497</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # config file goes first </td>
</tr>

<tr>
<td  class="h" >
<a name="498">498</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (not $url) { </td>
</tr>

<tr>
<td  class="h" >
<a name="499">499</a>
</td>

<td  class="c0" >
 <a href="#500"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("The URL is empty"); </td>
</tr>

<tr>
<td  class="h" >
<a name="500">500</a>
</td>

<td  class="c0" >
 <a href="#502"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "59", "URL expected"); </td>
</tr>

<tr>
<td  class="h" >
<a name="501">501</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (length($url) > 1024) { </td>
</tr>

<tr>
<td  class="h" >
<a name="502">502</a>
</td>

<td  class="c0" >
 <a href="#503"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("The URL is too long"); </td>
</tr>

<tr>
<td  class="h" >
<a name="503">503</a>
</td>

<td  class="c0" >
 <a href="#507"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "59", "The URL is too long"); </td>
</tr>

<tr>
<td  class="h" >
<a name="504">504</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $n, $space) = $url =~ m!^(?:gemini:)?//($hosts)(:$port)?(?:/($spaces))?/(?:$reserved)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="505">505</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # redirect gemini://localhost:2020/do to gemini://localhost:2020/ </td>
</tr>

<tr>
<td  class="h" >
<a name="506">506</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # redirect gemini://localhost:2020/space/do to gemini://localhost:2020/space </td>
</tr>

<tr>
<td  class="h" >
<a name="507">507</a>
</td>

<td  class="c0" >
 <a href="#508"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#507-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $space = space($stream, $host, $space) || ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="508">508</a>
</td>

<td  class="c0" >
 <a href="#510"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#508-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "31", "gemini://$host" . ($n ? ":$port" : "") . "/$space"); # this supports "up" </td>
</tr>

<tr>
<td  class="h" >
<a name="509">509</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="510">510</a>
</td>

<td  class="c0" >
 <a href="#512"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_main_menu($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="511">511</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $n) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/more(?:/(\d+))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="512">512</a>
</td>

<td  class="c0" >
 <a href="#514"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_blog($stream, $host, space($stream, $host, $space), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="513">513</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/index$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="514">514</a>
</td>

<td  class="c0" >
 <a href="#516"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_index($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="515">515</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/files$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="516">516</a>
</td>

<td  class="c0" >
 <a href="#518"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_files($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="517">517</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/spaces$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="518">518</a>
</td>

<td  class="c0" >
 <a href="#520"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_spaces($stream, $host, $port); </td>
</tr>

<tr>
<td  class="h" >
<a name="519">519</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/data$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="520">520</a>
</td>

<td  class="c0" >
 <a href="#522"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_data($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="521">521</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($url =~ m!^(?:gemini:)?//($hosts)(?::$port)?/do/source$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="522">522</a>
</td>

<td  class="c0" >
 <a href="#523"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       success($stream, 'text/plain; charset=UTF-8'); </td>
</tr>

<tr>
<td  class="h" >
<a name="523">523</a>
</td>

<td  class="c0" >
 <a href="#524"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       seek DATA, 0, 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="524">524</a>
</td>

<td  class="c0" >
 <a href="#525"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       local $/ = undef; # slurp </td>
</tr>

<tr>
<td  class="h" >
<a name="525">525</a>
</td>

<td  class="c0" >
 <a href="#527"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 <DATA>); </td>
</tr>

<tr>
<td  class="h" >
<a name="526">526</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/match$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="527">527</a>
</td>

<td  class="c0" >
 <a href="#529"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "10", "Find page by name (Perl regex)"); </td>
</tr>

<tr>
<td  class="h" >
<a name="528">528</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($query and ($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/match\?!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="529">529</a>
</td>

<td  class="c0" >
 <a href="#531"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_match($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($query))); </td>
</tr>

<tr>
<td  class="h" >
<a name="530">530</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/search$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="531">531</a>
</td>

<td  class="c0" >
 <a href="#533"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "10", "Find page by content (Perl regex)"); </td>
</tr>

<tr>
<td  class="h" >
<a name="532">532</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($query and ($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/search\?!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="533">533</a>
</td>

<td  class="c0" >
 <a href="#535"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_search($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($query))); # search terms include spaces </td>
</tr>

<tr>
<td  class="h" >
<a name="534">534</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/new$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="535">535</a>
</td>

<td  class="c0" >
 <a href="#538"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "10", "New page"); </td>
</tr>

<tr>
<td  class="h" >
<a name="536">536</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # no URI escaping required </td>
</tr>

<tr>
<td  class="h" >
<a name="537">537</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($query and ($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/new\?!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="538">538</a>
</td>

<td  class="c0" >
 <a href="#539"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#538-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($space) { </td>
</tr>

<tr>
<td  class="h" >
<a name="539">539</a>
</td>

<td  class="c0" >
 <a href="#541"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	result($stream, "30", "gemini://$host:$port/$space/raw/$query"); </td>
</tr>

<tr>
<td  class="h" >
<a name="540">540</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="541">541</a>
</td>

<td  class="c0" >
 <a href="#544"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	result($stream, "30", "gemini://$host:$port/raw/$query"); </td>
</tr>

<tr>
<td  class="h" >
<a name="542">542</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="543">543</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $n, $style) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/changes(?:/(\d+))?(?:/(colour|fancy))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="544">544</a>
</td>

<td  class="c0" >
 <a href="#546"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#544-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_changes($stream, $host, space($stream, $host, $space), $n||100, $style); </td>
</tr>

<tr>
<td  class="h" >
<a name="545">545</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $filter, $n, $style) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?/do/all(?:/(latest))?/changes(?:/(\d+))?(?:/(colour|fancy))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="546">546</a>
</td>

<td  class="c0" >
 <a href="#548"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#546-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_all_changes($stream, $host, $n||100, $style||"", $filter||""); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="547">547</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/rss$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="548">548</a>
</td>

<td  class="c0" >
 <a href="#550"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_rss($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="549">549</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/blog/rss$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="550">550</a>
</td>

<td  class="c0" >
 <a href="#552"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_blog_rss($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="551">551</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/atom$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="552">552</a>
</td>

<td  class="c0" >
 <a href="#554"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_atom($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="553">553</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/blog/atom$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="554">554</a>
</td>

<td  class="c0" >
 <a href="#556"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_blog_atom($stream, $host); </td>
</tr>

<tr>
<td  class="h" >
<a name="555">555</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/all/atom$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="556">556</a>
</td>

<td  class="c0" >
 <a href="#558"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_all_atom($stream, $host); </td>
</tr>

<tr>
<td  class="h" >
<a name="557">557</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?/robots.txt(?:[#?].*)?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="558">558</a>
</td>

<td  class="c0" >
 <a href="#560"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_raw($stream, $host, undef, "robots"); </td>
</tr>

<tr>
<td  class="h" >
<a name="559">559</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $id, $n, $style) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/history/([^/]*)(?:/(\d+))?(?:/(colour|fancy))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="560">560</a>
</td>

<td  class="c0" >
 <a href="#562"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#560-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_history($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n||10, $style); </td>
</tr>

<tr>
<td  class="h" >
<a name="561">561</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $id, $n, $style) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/diff/([^/]*)(?:/(\d+))?(?:/(colour))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="562">562</a>
</td>

<td  class="c0" >
 <a href="#564"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_diff($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n, $style); </td>
</tr>

<tr>
<td  class="h" >
<a name="563">563</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $id, $n) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/raw/([^/]*)(?:/(\d+))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="564">564</a>
</td>

<td  class="c0" >
 <a href="#566"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_raw($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="565">565</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $id, $n) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/html/([^/]*)(?:/(\d+))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="566">566</a>
</td>

<td  class="c0" >
 <a href="#568"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_html($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="567">567</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $id, $n) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/page/([^/]+)(?:/(\d+))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="568">568</a>
</td>

<td  class="c0" >
 <a href="#570"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_page($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="569">569</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host, $space, $id) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/file/([^/]+)?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="570">570</a>
</td>

<td  class="c0" >
 <a href="#572"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_file($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id))); </td>
</tr>

<tr>
<td  class="h" >
<a name="571">571</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($host) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(/|$)!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="572">572</a>
</td>

<td  class="c0" >
 <a href="#573"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->info("Unknown path for $url\r"); </td>
</tr>

<tr>
<td  class="h" >
<a name="573">573</a>
</td>

<td  class="c0" >
 <a href="#575"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "51", "Path not found for $url"); </td>
</tr>

<tr>
<td  class="h" >
<a name="574">574</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($authority) { </td>
</tr>

<tr>
<td  class="h" >
<a name="575">575</a>
</td>

<td  class="c0" >
 <a href="#576"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->info("Unsupported proxy request for $url"); </td>
</tr>

<tr>
<td  class="h" >
<a name="576">576</a>
</td>

<td  class="c0" >
 <a href="#578"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "53", "Unsupported proxy request for $url"); </td>
</tr>

<tr>
<td  class="h" >
<a name="577">577</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="578">578</a>
</td>

<td  class="c0" >
 <a href="#579"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->info("No handler for $url"); </td>
</tr>

<tr>
<td  class="h" >
<a name="579">579</a>
</td>

<td  class="c0" >
 <a href="#581"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "59", "Don't know how to handle $url"); </td>
</tr>

<tr>
<td  class="h" >
<a name="580">580</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="581">581</a>
</td>

<td  class="c0" >
 <a href="#583"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Done"); </td>
</tr>

<tr>
<td  class="h" >
<a name="582">582</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   }; </td>
</tr>

<tr>
<td  class="h" >
<a name="583">583</a>
</td>

<td  class="c0" >
 <a href="#584"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#583-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->error("Error: $@") if $@; </td>
</tr>

<tr>
<td  class="h" >
<a name="584">584</a>
</td>

<td  class="c0" >
 <a href="#585"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   alarm(0); </td>
</tr>

<tr>
<td  class="h" >
<a name="585">585</a>
</td>

<td  class="c0" >
 <a href="#589"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="586">586</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="587">587</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="588">588</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub run_extensions { </td>
</tr>

<tr>
<td  class="h" >
<a name="589">589</a>
</td>

<td  class="c0" >
 <a href="#590"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#589-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#589-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   foreach my $sub (@extensions) { </td>
</tr>

<tr>
<td  class="h" >
<a name="590">590</a>
</td>

<td  class="c0" >
 <a href="#592"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#590-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return 1 if $sub->(@_); </td>
</tr>

<tr>
<td  class="h" >
<a name="591">591</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="592">592</a>
</td>

<td  class="c0" >
 <a href="#596"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return; </td>
</tr>

<tr>
<td  class="h" >
<a name="593">593</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="594">594</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="595">595</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_main_menu { </td>
</tr>

<tr>
<td  class="h" >
<a name="596">596</a>
</td>

<td  class="c0" >
 <a href="#597"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#596-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#596-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="597">597</a>
</td>

<td  class="c0" >
 <a href="#598"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#597-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift||""; </td>
</tr>

<tr>
<td  class="h" >
<a name="598">598</a>
</td>

<td  class="c0" >
 <a href="#599"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#598-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift||""; </td>
</tr>

<tr>
<td  class="h" >
<a name="599">599</a>
</td>

<td  class="c0" >
 <a href="#600"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving main menu"); </td>
</tr>

<tr>
<td  class="h" >
<a name="600">600</a>
</td>

<td  class="c0" >
 <a href="#601"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="601">601</a>
</td>

<td  class="c0" >
 <a href="#602"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $page = $server->{wiki_main_page}; </td>
</tr>

<tr>
<td  class="h" >
<a name="602">602</a>
</td>

<td  class="c0" >
 <a href="#603"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#602-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($page) { </td>
</tr>

<tr>
<td  class="h" >
<a name="603">603</a>
</td>

<td  class="c0" >
 <a href="#605"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 text($stream, $host, $space, $page) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="604">604</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="605">605</a>
</td>

<td  class="c0" >
 <a href="#606"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("# Welcome to Phoebe!\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="606">606</a>
</td>

<td  class="c0" >
 <a href="#608"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="607">607</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="608">608</a>
</td>

<td  class="c0" >
 <a href="#609"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   blog($stream, $host, $space, 10); </td>
</tr>

<tr>
<td  class="h" >
<a name="609">609</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@{$server->{wiki_page}}) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#610"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="610">610</a>
</td>

<td  class="c0" >
 <a href="#612"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="611">611</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="612">612</a>
</td>

<td  class="c0" >
 <a href="#613"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $line (@main_menu) { </td>
</tr>

<tr>
<td  class="h" >
<a name="613">613</a>
</td>

<td  class="c0" >
 <a href="#615"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 $line . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="614">614</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="615">615</a>
</td>

<td  class="c0" >
 <a href="#616"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Changes", "do/changes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="616">616</a>
</td>

<td  class="c0" >
 <a href="#617"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Search matching page names", "do/match"); </td>
</tr>

<tr>
<td  class="h" >
<a name="617">617</a>
</td>

<td  class="c0" >
 <a href="#618"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Search matching page content", "do/search"); </td>
</tr>

<tr>
<td  class="h" >
<a name="618">618</a>
</td>

<td  class="c0" >
 <a href="#619"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "New page", "do/new"); </td>
</tr>

<tr>
<td  class="h" >
<a name="619">619</a>
</td>

<td  class="c0" >
 <a href="#620"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="620">620</a>
</td>

<td  class="c0" >
 <a href="#621"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Index of all pages", "do/index"); </td>
</tr>

<tr>
<td  class="h" >
<a name="621">621</a>
</td>

<td  class="c0" >
 <a href="#623"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Index of all files", "do/files"); </td>
</tr>

<tr>
<td  class="h" >
<a name="622">622</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, undef, "Index of all spaces", "do/spaces") </td>
</tr>

<tr>
<td  class="h" >
<a name="623">623</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#623-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#623-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if @{$server->{wiki_space}} or keys %{$server->{host}} > 1; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#624"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="624">624</a>
</td>

<td  class="c0" >
 <a href="#626"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Download data", "do/data"); </td>
</tr>

<tr>
<td  class="h" >
<a name="625">625</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # a requirement of the GNU Affero General Public License </td>
</tr>

<tr>
<td  class="h" >
<a name="626">626</a>
</td>

<td  class="c0" >
 <a href="#627"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, undef, "Source code", "do/source"); </td>
</tr>

<tr>
<td  class="h" >
<a name="627">627</a>
</td>

<td  class="c0" >
 <a href="#631"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="628">628</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="629">629</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="630">630</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub handle_request { </td>
</tr>

<tr>
<td  class="h" >
<a name="631">631</a>
</td>

<td  class="c0" >
 <a href="#632"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#631-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#631-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="632">632</a>
</td>

<td  class="c0" >
 <a href="#633"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="633">633</a>
</td>

<td  class="c0" >
 <a href="#634"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#633-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($data->{buffer} =~ /^(.*)\r\n/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="634">634</a>
</td>

<td  class="c0" >
 <a href="#635"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $data->{request} = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="635">635</a>
</td>

<td  class="c0" >
 <a href="#636"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $data->{buffer} =~ s/.*\r\n//; </td>
</tr>

<tr>
<td  class="h" >
<a name="636">636</a>
</td>

<td  class="c0" >
 <a href="#637"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Looking at $data->{request}"); </td>
</tr>

<tr>
<td  class="h" >
<a name="637">637</a>
</td>

<td  class="c0" >
 <a href="#638"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for (my $i = 0; $i < @request_handlers; $i += 2) { </td>
</tr>

<tr>
<td  class="h" >
<a name="638">638</a>
</td>

<td  class="c0" >
 <a href="#639"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $re = $request_handlers[$i]; </td>
</tr>

<tr>
<td  class="h" >
<a name="639">639</a>
</td>

<td  class="c0" >
 <a href="#640"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#639-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($data->{request} =~ m!$re!i) { </td>
</tr>

<tr>
<td  class="h" >
<a name="640">640</a>
</td>

<td  class="c0" >
 <a href="#642"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$data->{handler} = $request_handlers[$i+1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="641">641</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	# and call the handler </td>
</tr>

<tr>
<td  class="h" >
<a name="642">642</a>
</td>

<td  class="c0" >
 <a href="#643"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$data->{handler}->($stream, $data); </td>
</tr>

<tr>
<td  class="h" >
<a name="643">643</a>
</td>

<td  class="c0" >
 <a href="#646"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	return; </td>
</tr>

<tr>
<td  class="h" >
<a name="644">644</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="645">645</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="646">646</a>
</td>

<td  class="c0" >
 <a href="#647"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("No handler found for $data->{request}"); </td>
</tr>

<tr>
<td  class="h" >
<a name="647">647</a>
</td>

<td  class="c0" >
 <a href="#648"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Cannot handle this request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="648">648</a>
</td>

<td  class="c0" >
 <a href="#650"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="649">649</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="650">650</a>
</td>

<td  class="c0" >
 <a href="#656"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Waiting for more bytes..."); </td>
</tr>

<tr>
<td  class="h" >
<a name="651">651</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="652">652</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="653">653</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="654">654</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # special generic URL error handling to satisfy gemini-diagnostics </td>
</tr>

<tr>
<td  class="h" >
<a name="655">655</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub handle_url { </td>
</tr>

<tr>
<td  class="h" >
<a name="656">656</a>
</td>

<td  class="c0" >
 <a href="#657"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#656-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#656-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="657">657</a>
</td>

<td  class="c0" >
 <a href="#658"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="658">658</a>
</td>

<td  class="c0" >
 <a href="#660"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Unhandled proxy request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="659">659</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Discarding " . length($data->{buffer}) . " bytes") </td>
</tr>

<tr>
<td  class="h" >
<a name="660">660</a>
</td>

<td  class="c0" >
 <a href="#661"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#660-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if $data->{buffer}; </td>
</tr>

<tr>
<td  class="h" >
<a name="661">661</a>
</td>

<td  class="c0" >
 <a href="#662"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   result($stream, "53", "No proxying for $data->{request}"); </td>
</tr>

<tr>
<td  class="h" >
<a name="662">662</a>
</td>

<td  class="c0" >
 <a href="#666"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="663">663</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="664">664</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="665">665</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub handle_http_header { </td>
</tr>

<tr>
<td  class="h" >
<a name="666">666</a>
</td>

<td  class="c0" >
 <a href="#667"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#666-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#666-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="667">667</a>
</td>

<td  class="c0" >
 <a href="#668"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="668">668</a>
</td>

<td  class="c0" >
 <a href="#669"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Reading HTTP headers"); </td>
</tr>

<tr>
<td  class="h" >
<a name="669">669</a>
</td>

<td  class="c0" >
 <a href="#670"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @lines = split(/\r\n/, $data->{buffer}, -1); # including the empty line at the end </td>
</tr>

<tr>
<td  class="h" >
<a name="670">670</a>
</td>

<td  class="c0" >
 <a href="#671"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   foreach (@lines) { </td>
</tr>

<tr>
<td  class="h" >
<a name="671">671</a>
</td>

<td  class="c0" >
 <a href="#672"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#671-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (/^(\S+?): (.+?)\s*$/) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="672">672</a>
</td>

<td  class="c0" >
 <a href="#673"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $key = lc($1); </td>
</tr>

<tr>
<td  class="h" >
<a name="673">673</a>
</td>

<td  class="c0" >
 <a href="#674"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $data->{headers}->{$key} = $2; </td>
</tr>

<tr>
<td  class="h" >
<a name="674">674</a>
</td>

<td  class="c0" >
 <a href="#675"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $data->{header_size} += length($_); </td>
</tr>

<tr>
<td  class="h" >
<a name="675">675</a>
</td>

<td  class="c0" >
 <a href="#677"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("Header $key"); </td>
</tr>

<tr>
<td  class="h" >
<a name="676">676</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($_ eq "") { </td>
</tr>

<tr>
<td  class="h" >
<a name="677">677</a>
</td>

<td  class="c0" >
 <a href="#678"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $data->{buffer} =~ s/^.*?\r\n\r\n//s; # possibly HTTP body </td>
</tr>

<tr>
<td  class="h" >
<a name="678">678</a>
</td>

<td  class="c0" >
 <a href="#679"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("Handle HTTP request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="679">679</a>
</td>

<td  class="c0" >
 <a href="#680"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#679-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#679-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $data->{headers}->{host} .= ":" . port($stream) if $data->{headers}->{host} and $data->{headers}->{host} !~ /:\d+$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="680">680</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("HTTP headers: " . join(", ", map { "$_ => '$data->{headers}->{$_}'" } keys %{$data->{headers}})); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#681"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="681">681</a>
</td>

<td  class="c0" >
 <a href="#682"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#681-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $length = $data->{headers}->{'content-length'} || 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="682">682</a>
</td>

<td  class="c0" >
 <a href="#683"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#682-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return http_error($stream, "Content length invalid") if $length !~ /^\d+$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="683">683</a>
</td>

<td  class="c0" >
 <a href="#684"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#683-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return http_error($stream, "Content too long") if $length > $server->{wiki_page_size_limit}; </td>
</tr>

<tr>
<td  class="h" >
<a name="684">684</a>
</td>

<td  class="c0" >
 <a href="#685"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $actual = length($data->{buffer}); </td>
</tr>

<tr>
<td  class="h" >
<a name="685">685</a>
</td>

<td  class="c0" >
 <a href="#686"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#685-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return http_error($stream, "Content longer than what the header says ($actual > $length):\n" . $data->{buffer}) if $actual > $length; </td>
</tr>

<tr>
<td  class="h" >
<a name="686">686</a>
</td>

<td  class="c0" >
 <a href="#688"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#686-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($length == $actual) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="687">687</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	# got the entire body as part of the first part </td>
</tr>

<tr>
<td  class="h" >
<a name="688">688</a>
</td>

<td  class="c0" >
 <a href="#689"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	process_http($stream, $data->{request}, $data->{headers}, $data->{buffer}); </td>
</tr>

<tr>
<td  class="h" >
<a name="689">689</a>
</td>

<td  class="c0" >
 <a href="#690"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="690">690</a>
</td>

<td  class="c0" >
 <a href="#693"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	return; </td>
</tr>

<tr>
<td  class="h" >
<a name="691">691</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } elsif ($length) { </td>
</tr>

<tr>
<td  class="h" >
<a name="692">692</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	# read body if it was sent in multiple parts </td>
</tr>

<tr>
<td  class="h" >
<a name="693">693</a>
</td>

<td  class="c0" >
 <a href="#694"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$data->{handler} = \&handle_http_body; </td>
</tr>

<tr>
<td  class="h" >
<a name="694">694</a>
</td>

<td  class="c0" >
 <a href="#695"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	handle_http_body($stream, $data); </td>
</tr>

<tr>
<td  class="h" >
<a name="695">695</a>
</td>

<td  class="c0" >
 <a href="#699"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	return; </td>
</tr>

<tr>
<td  class="h" >
<a name="696">696</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="697">697</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # otherwise wait for more header bytes </td>
</tr>

<tr>
<td  class="h" >
<a name="698">698</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="699">699</a>
</td>

<td  class="c0" >
 <a href="#700"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#699-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#699-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($data->{header_size} and $data->{header_size} > $server->{wiki_page_size_limit}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="700">700</a>
</td>

<td  class="c0" >
 <a href="#701"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("This wiki does not allow more than $server->{wiki_page_size_limit} bytes of headers"); </td>
</tr>

<tr>
<td  class="h" >
<a name="701">701</a>
</td>

<td  class="c0" >
 <a href="#702"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "400", "Bad request: headers too long"); </td>
</tr>

<tr>
<td  class="h" >
<a name="702">702</a>
</td>

<td  class="c0" >
 <a href="#703"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="703">703</a>
</td>

<td  class="c0" >
 <a href="#707"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return; </td>
</tr>

<tr>
<td  class="h" >
<a name="704">704</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="705">705</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="706">706</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # if we came here, the last line didn't match and needs more bytes </td>
</tr>

<tr>
<td  class="h" >
<a name="707">707</a>
</td>

<td  class="c0" >
 <a href="#708"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $data->{buffer} = $lines[$#lines]; </td>
</tr>

<tr>
<td  class="h" >
<a name="708">708</a>
</td>

<td  class="c0" >
 <a href="#709"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Waiting for more HTTP headers ('$data->{buffer}')"); </td>
</tr>

<tr>
<td  class="h" >
<a name="709">709</a>
</td>

<td  class="c0" >
 <a href="#713"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return; </td>
</tr>

<tr>
<td  class="h" >
<a name="710">710</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="711">711</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="712">712</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub handle_http_body { </td>
</tr>

<tr>
<td  class="h" >
<a name="713">713</a>
</td>

<td  class="c0" >
 <a href="#714"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#713-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#713-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="714">714</a>
</td>

<td  class="c0" >
 <a href="#715"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="715">715</a>
</td>

<td  class="c0" >
 <a href="#716"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Reading HTTP body"); </td>
</tr>

<tr>
<td  class="h" >
<a name="716">716</a>
</td>

<td  class="c0" >
 <a href="#717"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#716-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $length = $data->{headers}->{'content-length'} || 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="717">717</a>
</td>

<td  class="c0" >
 <a href="#718"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $actual = length($data->{buffer}); </td>
</tr>

<tr>
<td  class="h" >
<a name="718">718</a>
</td>

<td  class="c0" >
 <a href="#720"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#718-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($length == $actual) { </td>
</tr>

<tr>
<td  class="h" >
<a name="719">719</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # got the entire body </td>
</tr>

<tr>
<td  class="h" >
<a name="720">720</a>
</td>

<td  class="c0" >
 <a href="#721"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     process_http($stream, $data->{request}, $data->{headers}, $data->{buffer}); </td>
</tr>

<tr>
<td  class="h" >
<a name="721">721</a>
</td>

<td  class="c0" >
 <a href="#722"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="722">722</a>
</td>

<td  class="c0" >
 <a href="#724"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="723">723</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="724">724</a>
</td>

<td  class="c0" >
 <a href="#728"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Received $actual/$length bytes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="725">725</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="726">726</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="727">727</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub http_error { </td>
</tr>

<tr>
<td  class="h" >
<a name="728">728</a>
</td>

<td  class="c0" >
 <a href="#729"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#728-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#728-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="729">729</a>
</td>

<td  class="c0" >
 <a href="#730"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $message = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="730">730</a>
</td>

<td  class="c0" >
 <a href="#731"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 400 Bad Request\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="731">731</a>
</td>

<td  class="c0" >
 <a href="#732"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/plain\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="732">732</a>
</td>

<td  class="c0" >
 <a href="#733"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="733">733</a>
</td>

<td  class="c0" >
 <a href="#734"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("$message\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="734">734</a>
</td>

<td  class="c0" >
 <a href="#735"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="735">735</a>
</td>

<td  class="c0" >
 <a href="#740"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="736">736</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="737">737</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="738">738</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # if you call this yourself, $id must look like "page/foo" </td>
</tr>

<tr>
<td  class="h" >
<a name="739">739</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub to_url { </td>
</tr>

<tr>
<td  class="h" >
<a name="740">740</a>
</td>

<td  class="c0" >
 <a href="#741"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#740-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#740-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="741">741</a>
</td>

<td  class="c0" >
 <a href="#742"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="742">742</a>
</td>

<td  class="c0" >
 <a href="#743"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="743">743</a>
</td>

<td  class="c0" >
 <a href="#744"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="744">744</a>
</td>

<td  class="c0" >
 <a href="#745"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#744-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $scheme = shift || "gemini"; </td>
</tr>

<tr>
<td  class="h" >
<a name="745">745</a>
</td>

<td  class="c0" >
 <a href="#746"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="746">746</a>
</td>

<td  class="c0" >
 <a href="#747"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#746-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($space) { </td>
</tr>

<tr>
<td  class="h" >
<a name="747">747</a>
</td>

<td  class="c0" >
 <a href="#748"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#747-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $space = "" if $space eq $host; </td>
</tr>

<tr>
<td  class="h" >
<a name="748">748</a>
</td>

<td  class="c0" >
 <a href="#749"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $space =~ s/.*\///; </td>
</tr>

<tr>
<td  class="h" >
<a name="749">749</a>
</td>

<td  class="c0" >
 <a href="#754"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $space = uri_escape_utf8($space); </td>
</tr>

<tr>
<td  class="h" >
<a name="750">750</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="751">751</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # don't encode the slash </td>
</tr>

<tr>
<td  class="h" >
<a name="752">752</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "$scheme://$host:$port/" </td>
</tr>

<tr>
<td  class="h" >
<a name="753">753</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . ($space ? "$space/" : "") </td>
</tr>

<tr>
<td  class="h" >
<a name="754">754</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#754-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . join("/", map { uri_escape_utf8($_) } split (/\//, $id)); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#758"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="755">755</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="756">756</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="757">757</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub link_html { </td>
</tr>

<tr>
<td  class="h" >
<a name="758">758</a>
</td>

<td  class="c0" >
 <a href="#759"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#758-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#758-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="759">759</a>
</td>

<td  class="c0" >
 <a href="#760"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="760">760</a>
</td>

<td  class="c0" >
 <a href="#761"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="761">761</a>
</td>

<td  class="c0" >
 <a href="#762"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $title = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="762">762</a>
</td>

<td  class="c0" >
 <a href="#763"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="763">763</a>
</td>

<td  class="c0" >
 <a href="#764"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#763-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $id) { </td>
</tr>

<tr>
<td  class="h" >
<a name="764">764</a>
</td>

<td  class="c0" >
 <a href="#766"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $id = "page/$title"; </td>
</tr>

<tr>
<td  class="h" >
<a name="765">765</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="766">766</a>
</td>

<td  class="c0" >
 <a href="#770"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="767">767</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # don't encode the slash </td>
</tr>

<tr>
<td  class="h" >
<a name="768">768</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "<a href=\"https://$host:$port/" </td>
</tr>

<tr>
<td  class="h" >
<a name="769">769</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . ($space && $space ne $host ? uri_escape_utf8($space) . "/" : "") </td>
</tr>

<tr>
<td  class="h" >
<a name="770">770</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#770-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#770-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . join("/", map { uri_escape_utf8($_) } split (/\//, $id)) </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#777"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="771">771</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . "\">" </td>
</tr>

<tr>
<td  class="h" >
<a name="772">772</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . quote_html($title) </td>
</tr>

<tr>
<td  class="h" >
<a name="773">773</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . "</a>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="774">774</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="775">775</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="776">776</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub gemini_link { </td>
</tr>

<tr>
<td  class="h" >
<a name="777">777</a>
</td>

<td  class="c0" >
 <a href="#778"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#777-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#777-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="778">778</a>
</td>

<td  class="c0" >
 <a href="#779"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="779">779</a>
</td>

<td  class="c0" >
 <a href="#780"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="780">780</a>
</td>

<td  class="c0" >
 <a href="#781"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $title = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="781">781</a>
</td>

<td  class="c0" >
 <a href="#782"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="782">782</a>
</td>

<td  class="c0" >
 <a href="#783"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#782-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $id) { </td>
</tr>

<tr>
<td  class="h" >
<a name="783">783</a>
</td>

<td  class="c0" >
 <a href="#785"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $id = "page/$title"; </td>
</tr>

<tr>
<td  class="h" >
<a name="784">784</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="785">785</a>
</td>

<td  class="c0" >
 <a href="#786"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#785-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "=> $id $title" if $id =~ /^$full_url_regex$/; </td>
</tr>

<tr>
<td  class="h" >
<a name="786">786</a>
</td>

<td  class="c0" >
 <a href="#787"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $url = to_url($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="787">787</a>
</td>

<td  class="c0" >
 <a href="#791"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "=> $url $title"; </td>
</tr>

<tr>
<td  class="h" >
<a name="788">788</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="789">789</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="790">790</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub print_link { </td>
</tr>

<tr>
<td  class="h" >
<a name="791">791</a>
</td>

<td  class="c0" >
 <a href="#792"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#791-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#791-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="792">792</a>
</td>

<td  class="c0" >
 <a href="#793"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="793">793</a>
</td>

<td  class="c0" >
 <a href="#794"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="794">794</a>
</td>

<td  class="c0" >
 <a href="#795"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $title = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="795">795</a>
</td>

<td  class="c0" >
 <a href="#796"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="796">796</a>
</td>

<td  class="c0" >
 <a href="#800"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 gemini_link($stream, $host, $space, $title, $id) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="797">797</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="798">798</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="799">799</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub newest_first { </td>
</tr>

<tr>
<td  class="h" >
<a name="800">800</a>
</td>

<td  class="c0" >
 <a href="#801"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#800-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#800-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my ($date_a, $article_a) = $a =~ /^(\d\d\d\d-\d\d(?:-\d\d)? ?)?(.*)/; </td>
</tr>

<tr>
<td  class="h" >
<a name="801">801</a>
</td>

<td  class="c0" >
 <a href="#802"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($date_b, $article_b) = $b =~ /^(\d\d\d\d-\d\d(?:-\d\d)? ?)?(.*)/; </td>
</tr>

<tr>
<td  class="h" >
<a name="802">802</a>
</td>

<td  class="c0" >
 <a href="#809"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#802-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return (($date_b and $date_a and $date_b cmp $date_a) </td>
</tr>

<tr>
<td  class="h" >
<a name="803">803</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	  || ($article_a cmp $article_b) </td>
</tr>

<tr>
<td  class="h" >
<a name="804">804</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	  # this last one should be unnecessary </td>
</tr>

<tr>
<td  class="h" >
<a name="805">805</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	  || ($a cmp $b)); </td>
</tr>

<tr>
<td  class="h" >
<a name="806">806</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="807">807</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="808">808</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub pages { </td>
</tr>

<tr>
<td  class="h" >
<a name="809">809</a>
</td>

<td  class="c0" >
 <a href="#810"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#809-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#809-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; # used by contributions like oddmuse.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="810">810</a>
</td>

<td  class="c0" >
 <a href="#811"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="811">811</a>
</td>

<td  class="c0" >
 <a href="#812"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="812">812</a>
</td>

<td  class="c0" >
 <a href="#813"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $re = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="813">813</a>
</td>

<td  class="c0" >
 <a href="#814"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="814">814</a>
</td>

<td  class="c0" >
 <a href="#815"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $index = "$dir/index"; </td>
</tr>

<tr>
<td  class="h" >
<a name="815">815</a>
</td>

<td  class="c0" >
 <a href="#816"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#815-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not -f $index) { </td>
</tr>

<tr>
<td  class="h" >
<a name="816">816</a>
</td>

<td  class="c0" >
 <a href="#817"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#816-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return if not -d "$dir/page"; </td>
</tr>

<tr>
<td  class="h" >
<a name="817">817</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my @pages = map { s/\.gmi$//; $_ } read_dir("$dir/page"); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#818"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="818">818</a>
</td>

<td  class="c0" >
 <a href="#819"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     write_text($index, join("\n", @pages, "")); </td>
</tr>

<tr>
<td  class="h" >
<a name="819">819</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return sort { newest_first($stream, $host, $a, $b) } @pages; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#821"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="820">820</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="821">821</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @lines = sort { newest_first($stream, $host, $a, $b) } read_lines $index; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#822"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="822">822</a>
</td>

<td  class="c0" >
 <a href="#823"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#822-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return grep /$re/i, @lines if $re; </td>
</tr>

<tr>
<td  class="h" >
<a name="823">823</a>
</td>

<td  class="c0" >
 <a href="#827"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return @lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="824">824</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="825">825</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="826">826</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub blog_pages { </td>
</tr>

<tr>
<td  class="h" >
<a name="827">827</a>
</td>

<td  class="c0" >
 <a href="#828"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#827-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#827-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; # used by contributions like oddmuse.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="828">828</a>
</td>

<td  class="c0" >
 <a href="#829"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="829">829</a>
</td>

<td  class="c0" >
 <a href="#830"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="830">830</a>
</td>

<td  class="c0" >
 <a href="#831"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; # used by contributions like oddmuse.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="831">831</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return sort { $b cmp $a } pages($stream, $host, $space, '^\d\d\d\d-\d\d-\d\d'); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#835"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="832">832</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="833">833</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="834">834</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub blog { </td>
</tr>

<tr>
<td  class="h" >
<a name="835">835</a>
</td>

<td  class="c0" >
 <a href="#836"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#835-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#835-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="836">836</a>
</td>

<td  class="c0" >
 <a href="#837"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="837">837</a>
</td>

<td  class="c0" >
 <a href="#838"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="838">838</a>
</td>

<td  class="c0" >
 <a href="#839"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#838-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift || 10; </td>
</tr>

<tr>
<td  class="h" >
<a name="839">839</a>
</td>

<td  class="c0" >
 <a href="#840"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @blog = blog_pages($stream, $host, $space, $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="840">840</a>
</td>

<td  class="c0" >
 <a href="#841"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#840-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless @blog; </td>
</tr>

<tr>
<td  class="h" >
<a name="841">841</a>
</td>

<td  class="c0" >
 <a href="#843"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Blog:\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="842">842</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # we should check for pages marked for deletion! </td>
</tr>

<tr>
<td  class="h" >
<a name="843">843</a>
</td>

<td  class="c0" >
 <a href="#844"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@blog[0 .. min($#blog, $n - 1)]) { </td>
</tr>

<tr>
<td  class="h" >
<a name="844">844</a>
</td>

<td  class="c0" >
 <a href="#846"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="845">845</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="846">846</a>
</td>

<td  class="c0" >
 <a href="#847"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#846-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "More...", "do/more/" . ($n * 10)) if @blog > $n; </td>
</tr>

<tr>
<td  class="h" >
<a name="847">847</a>
</td>

<td  class="c0" >
 <a href="#848"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#847-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Atom Feed", "do/blog/atom") if $n == 10; </td>
</tr>

<tr>
<td  class="h" >
<a name="848">848</a>
</td>

<td  class="c0" >
 <a href="#849"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#848-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "RSS Feed", "do/blog/rss") if $n == 10; </td>
</tr>

<tr>
<td  class="h" >
<a name="849">849</a>
</td>

<td  class="c0" >
 <a href="#853"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="850">850</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="851">851</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="852">852</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub blog_html { </td>
</tr>

<tr>
<td  class="h" >
<a name="853">853</a>
</td>

<td  class="c0" >
 <a href="#854"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#853-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#853-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="854">854</a>
</td>

<td  class="c0" >
 <a href="#855"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="855">855</a>
</td>

<td  class="c0" >
 <a href="#856"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="856">856</a>
</td>

<td  class="c0" >
 <a href="#857"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#856-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift || 10; </td>
</tr>

<tr>
<td  class="h" >
<a name="857">857</a>
</td>

<td  class="c0" >
 <a href="#858"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @blog = blog_pages($stream, $host, $space, $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="858">858</a>
</td>

<td  class="c0" >
 <a href="#859"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#858-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless @blog; </td>
</tr>

<tr>
<td  class="h" >
<a name="859">859</a>
</td>

<td  class="c0" >
 <a href="#860"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>Blog:\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="860">860</a>
</td>

<td  class="c0" >
 <a href="#862"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="861">861</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # we should check for pages marked for deletion! </td>
</tr>

<tr>
<td  class="h" >
<a name="862">862</a>
</td>

<td  class="c0" >
 <a href="#863"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@blog[0 .. min($#blog, $n - 1)]) { </td>
</tr>

<tr>
<td  class="h" >
<a name="863">863</a>
</td>

<td  class="c0" >
 <a href="#865"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<li>" . link_html($stream, $host, $space, $id) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="864">864</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="865">865</a>
</td>

<td  class="c0" >
 <a href="#869"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="866">866</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="867">867</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="868">868</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_main_menu_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="869">869</a>
</td>

<td  class="c0" >
 <a href="#870"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#869-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#869-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="870">870</a>
</td>

<td  class="c0" >
 <a href="#871"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="871">871</a>
</td>

<td  class="c0" >
 <a href="#872"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="872">872</a>
</td>

<td  class="c0" >
 <a href="#873"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving main menu via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="873">873</a>
</td>

<td  class="c0" >
 <a href="#874"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $page = $server->{wiki_main_page}; </td>
</tr>

<tr>
<td  class="h" >
<a name="874">874</a>
</td>

<td  class="c0" >
 <a href="#875"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="875">875</a>
</td>

<td  class="c0" >
 <a href="#876"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="876">876</a>
</td>

<td  class="c0" >
 <a href="#877"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="877">877</a>
</td>

<td  class="c0" >
 <a href="#878"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="878">878</a>
</td>

<td  class="c0" >
 <a href="#879"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="879">879</a>
</td>

<td  class="c0" >
 <a href="#880"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="880">880</a>
</td>

<td  class="c0" >
 <a href="#881"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="881">881</a>
</td>

<td  class="c0" >
 <a href="#882"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#881-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($page) { </td>
</tr>

<tr>
<td  class="h" >
<a name="882">882</a>
</td>

<td  class="c0" >
 <a href="#884"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<title>" . quote_html($page) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="883">883</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="884">884</a>
</td>

<td  class="c0" >
 <a href="#886"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<title>Phoebe</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="885">885</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="886">886</a>
</td>

<td  class="c0" >
 <a href="#887"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="887">887</a>
</td>

<td  class="c0" >
 <a href="#888"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="888">888</a>
</td>

<td  class="c0" >
 <a href="#889"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="889">889</a>
</td>

<td  class="c0" >
 <a href="#890"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="890">890</a>
</td>

<td  class="c0" >
 <a href="#891"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#890-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($page) { </td>
</tr>

<tr>
<td  class="h" >
<a name="891">891</a>
</td>

<td  class="c0" >
 <a href="#893"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 to_html(text($stream, $host, $space, $page)) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="892">892</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="893">893</a>
</td>

<td  class="c0" >
 <a href="#895"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<h1>Welcome to Phoebe!</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="894">894</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="895">895</a>
</td>

<td  class="c0" >
 <a href="#896"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   blog_html($stream, $host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="896">896</a>
</td>

<td  class="c0" >
 <a href="#897"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>Important links:\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="897">897</a>
</td>

<td  class="c0" >
 <a href="#898"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="898">898</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @pages = @{$server->{wiki_page}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#899"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="899">899</a>
</td>

<td  class="c0" >
 <a href="#900"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@pages) { </td>
</tr>

<tr>
<td  class="h" >
<a name="900">900</a>
</td>

<td  class="c0" >
 <a href="#902"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<li>" . link_html($stream, $host, $space, $id) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="901">901</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="902">902</a>
</td>

<td  class="c0" >
 <a href="#903"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<li>" . link_html($stream, $host, $space, "Changes", "do/changes") . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="903">903</a>
</td>

<td  class="c0" >
 <a href="#905"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<li>" . link_html($stream, $host, $space, "Index of all pages", "do/index") . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="904">904</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<li>" . link_html($stream, $host, $space, "Index of all files", "do/files") . "\n") </td>
</tr>

<tr>
<td  class="h" >
<a name="905">905</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#905-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if @{$server->{wiki_mime_type}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#907"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="906">906</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<li>" . link_html($stream, $host, undef, "Index of all spaces", "do/spaces") . "\n") </td>
</tr>

<tr>
<td  class="h" >
<a name="907">907</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#907-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#907-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if @{$server->{wiki_space}} or keys %{$server->{host}} > 1; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#909"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="908">908</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # a requirement of the GNU Affero General Public License </td>
</tr>

<tr>
<td  class="h" >
<a name="909">909</a>
</td>

<td  class="c0" >
 <a href="#910"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<li>" . link_html($stream, $host, undef, "Source", "do/source") . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="910">910</a>
</td>

<td  class="c0" >
 <a href="#911"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="911">911</a>
</td>

<td  class="c0" >
 <a href="#912"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="912">912</a>
</td>

<td  class="c0" >
 <a href="#916"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="913">913</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="914">914</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="915">915</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_css_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="916">916</a>
</td>

<td  class="c0" >
 <a href="#917"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#916-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#916-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="917">917</a>
</td>

<td  class="c0" >
 <a href="#918"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving CSS via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="918">918</a>
</td>

<td  class="c0" >
 <a href="#919"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="919">919</a>
</td>

<td  class="c0" >
 <a href="#920"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/css\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="920">920</a>
</td>

<td  class="c0" >
 <a href="#921"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Cache-Control: public, max-age=86400, immutable\r\n"); # 24h </td>
</tr>

<tr>
<td  class="h" >
<a name="921">921</a>
</td>

<td  class="c0" >
 <a href="#922"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="922">922</a>
</td>

<td  class="c0" >
 <a href="#923"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("html { max-width: 70ch; padding: 2ch; margin: auto; color: #111; background: #ffe; }\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="923">923</a>
</td>

<td  class="c0" >
 <a href="#924"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(".del { color: rgb(222,56,43); }\n"); # diff: deleted </td>
</tr>

<tr>
<td  class="h" >
<a name="924">924</a>
</td>

<td  class="c0" >
 <a href="#928"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(".ins { color: rgb(57,181,74); }\n"); # diff: inserted </td>
</tr>

<tr>
<td  class="h" >
<a name="925">925</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="926">926</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="927">927</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub quote_html { </td>
</tr>

<tr>
<td  class="h" >
<a name="928">928</a>
</td>

<td  class="c0" >
 <a href="#929"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#928-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#928-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $html = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="929">929</a>
</td>

<td  class="c0" >
 <a href="#930"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $html =~ s/&/&amp;/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="930">930</a>
</td>

<td  class="c0" >
 <a href="#931"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $html =~ s/</&lt;/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="931">931</a>
</td>

<td  class="c0" >
 <a href="#932"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $html =~ s/>/&gt;/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="932">932</a>
</td>

<td  class="c0" >
 <a href="#933"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $html =~ s/[\x00-\x08\x0b\x0c\x0e-\x1f]/ /g; # legal xml: #x9 | #xA | #xD | [#x20-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF] </td>
</tr>

<tr>
<td  class="h" >
<a name="933">933</a>
</td>

<td  class="c0" >
 <a href="#937"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $html; </td>
</tr>

<tr>
<td  class="h" >
<a name="934">934</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="935">935</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="936">936</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_blog { </td>
</tr>

<tr>
<td  class="h" >
<a name="937">937</a>
</td>

<td  class="c0" >
 <a href="#938"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#937-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#937-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="938">938</a>
</td>

<td  class="c0" >
 <a href="#939"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="939">939</a>
</td>

<td  class="c0" >
 <a href="#940"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="940">940</a>
</td>

<td  class="c0" >
 <a href="#941"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="941">941</a>
</td>

<td  class="c0" >
 <a href="#942"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="942">942</a>
</td>

<td  class="c0" >
 <a href="#943"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving blog"); </td>
</tr>

<tr>
<td  class="h" >
<a name="943">943</a>
</td>

<td  class="c0" >
 <a href="#944"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("# Blog\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="944">944</a>
</td>

<td  class="c0" >
 <a href="#945"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @blog = blog_pages($stream, $host, $space, $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="945">945</a>
</td>

<td  class="c0" >
 <a href="#946"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#945-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not @blog) { </td>
</tr>

<tr>
<td  class="h" >
<a name="946">946</a>
</td>

<td  class="c0" >
 <a href="#947"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("There are no blog pages.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="947">947</a>
</td>

<td  class="c0" >
 <a href="#949"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="948">948</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="949">949</a>
</td>

<td  class="c0" >
 <a href="#950"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Serving up to $n entries.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="950">950</a>
</td>

<td  class="c0" >
 <a href="#951"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@blog[0 .. min($#blog, $n - 1)]) { </td>
</tr>

<tr>
<td  class="h" >
<a name="951">951</a>
</td>

<td  class="c0" >
 <a href="#953"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="952">952</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="953">953</a>
</td>

<td  class="c0" >
 <a href="#957"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#953-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "More...", "do/more/" . ($n * 10)) if @blog > $n; </td>
</tr>

<tr>
<td  class="h" >
<a name="954">954</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="955">955</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="956">956</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_index { </td>
</tr>

<tr>
<td  class="h" >
<a name="957">957</a>
</td>

<td  class="c0" >
 <a href="#958"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#957-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#957-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="958">958</a>
</td>

<td  class="c0" >
 <a href="#959"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="959">959</a>
</td>

<td  class="c0" >
 <a href="#960"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="960">960</a>
</td>

<td  class="c0" >
 <a href="#961"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="961">961</a>
</td>

<td  class="c0" >
 <a href="#962"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving index of all pages"); </td>
</tr>

<tr>
<td  class="h" >
<a name="962">962</a>
</td>

<td  class="c0" >
 <a href="#963"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("# All Pages\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="963">963</a>
</td>

<td  class="c0" >
 <a href="#964"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @pages = pages($stream, $host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="964">964</a>
</td>

<td  class="c0" >
 <a href="#965"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#964-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("There are no pages.\n") unless @pages; </td>
</tr>

<tr>
<td  class="h" >
<a name="965">965</a>
</td>

<td  class="c0" >
 <a href="#966"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@pages) { </td>
</tr>

<tr>
<td  class="h" >
<a name="966">966</a>
</td>

<td  class="c0" >
 <a href="#971"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="967">967</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="968">968</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="969">969</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="970">970</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_index_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="971">971</a>
</td>

<td  class="c0" >
 <a href="#972"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#971-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#971-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="972">972</a>
</td>

<td  class="c0" >
 <a href="#973"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="973">973</a>
</td>

<td  class="c0" >
 <a href="#974"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="974">974</a>
</td>

<td  class="c0" >
 <a href="#975"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving index of all pages via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="975">975</a>
</td>

<td  class="c0" >
 <a href="#976"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="976">976</a>
</td>

<td  class="c0" >
 <a href="#977"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="977">977</a>
</td>

<td  class="c0" >
 <a href="#978"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="978">978</a>
</td>

<td  class="c0" >
 <a href="#979"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="979">979</a>
</td>

<td  class="c0" >
 <a href="#980"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="980">980</a>
</td>

<td  class="c0" >
 <a href="#981"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="981">981</a>
</td>

<td  class="c0" >
 <a href="#982"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="982">982</a>
</td>

<td  class="c0" >
 <a href="#983"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<title>All Pages</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="983">983</a>
</td>

<td  class="c0" >
 <a href="#984"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="984">984</a>
</td>

<td  class="c0" >
 <a href="#985"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="985">985</a>
</td>

<td  class="c0" >
 <a href="#986"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="986">986</a>
</td>

<td  class="c0" >
 <a href="#987"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="987">987</a>
</td>

<td  class="c0" >
 <a href="#988"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<h1>All Pages</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="988">988</a>
</td>

<td  class="c0" >
 <a href="#989"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @pages = pages($stream, $host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="989">989</a>
</td>

<td  class="c0" >
 <a href="#990"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#989-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (@pages) { </td>
</tr>

<tr>
<td  class="h" >
<a name="990">990</a>
</td>

<td  class="c0" >
 <a href="#991"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="991">991</a>
</td>

<td  class="c0" >
 <a href="#992"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for my $id (@pages) { </td>
</tr>

<tr>
<td  class="h" >
<a name="992">992</a>
</td>

<td  class="c0" >
 <a href="#994"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<li>" . link_html($stream, $host, $space, $id) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="993">993</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="994">994</a>
</td>

<td  class="c0" >
 <a href="#996"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("</ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="995">995</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="996">996</a>
</td>

<td  class="c0" >
 <a href="#1001"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<p>The are no pages.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="997">997</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="998">998</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="999">999</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1000">1000</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub files { </td>
</tr>

<tr>
<td  class="h" >
<a name="1001">1001</a>
</td>

<td  class="c0" >
 <a href="#1002"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1001-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1001-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1002">1002</a>
</td>

<td  class="c0" >
 <a href="#1003"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1003">1003</a>
</td>

<td  class="c0" >
 <a href="#1004"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1004">1004</a>
</td>

<td  class="c0" >
 <a href="#1005"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $re = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1005">1005</a>
</td>

<td  class="c0" >
 <a href="#1006"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1006">1006</a>
</td>

<td  class="c0" >
 <a href="#1007"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $dir = "$dir/file"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1007">1007</a>
</td>

<td  class="c0" >
 <a href="#1008"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1007-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return if not -d $dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="1008">1008</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @files = map { decode_utf8($_) } read_dir($dir); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1009"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1009">1009</a>
</td>

<td  class="c0" >
 <a href="#1010"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1009-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return grep /$re/i, @files if $re; </td>
</tr>

<tr>
<td  class="h" >
<a name="1010">1010</a>
</td>

<td  class="c0" >
 <a href="#1014"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return @files; </td>
</tr>

<tr>
<td  class="h" >
<a name="1011">1011</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1012">1012</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1013">1013</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_files { </td>
</tr>

<tr>
<td  class="h" >
<a name="1014">1014</a>
</td>

<td  class="c0" >
 <a href="#1015"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1014-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1014-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1015">1015</a>
</td>

<td  class="c0" >
 <a href="#1016"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1016">1016</a>
</td>

<td  class="c0" >
 <a href="#1017"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1017">1017</a>
</td>

<td  class="c0" >
 <a href="#1018"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1018">1018</a>
</td>

<td  class="c0" >
 <a href="#1019"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving index of all files"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1019">1019</a>
</td>

<td  class="c0" >
 <a href="#1020"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("# All Files\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1020">1020</a>
</td>

<td  class="c0" >
 <a href="#1021"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @files = files($stream, $host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1021">1021</a>
</td>

<td  class="c0" >
 <a href="#1022"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1021-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("The are no files.\n") unless @files; </td>
</tr>

<tr>
<td  class="h" >
<a name="1022">1022</a>
</td>

<td  class="c0" >
 <a href="#1023"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (sort @files) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1023">1023</a>
</td>

<td  class="c0" >
 <a href="#1028"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     print_link($stream, $host, $space, $id, "file/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1024">1024</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1025">1025</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1026">1026</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1027">1027</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_files_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1028">1028</a>
</td>

<td  class="c0" >
 <a href="#1029"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1028-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1028-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1029">1029</a>
</td>

<td  class="c0" >
 <a href="#1030"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1030">1030</a>
</td>

<td  class="c0" >
 <a href="#1031"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1031">1031</a>
</td>

<td  class="c0" >
 <a href="#1032"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving all files via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1032">1032</a>
</td>

<td  class="c0" >
 <a href="#1033"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1033">1033</a>
</td>

<td  class="c0" >
 <a href="#1034"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1034">1034</a>
</td>

<td  class="c0" >
 <a href="#1035"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1035">1035</a>
</td>

<td  class="c0" >
 <a href="#1036"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1036">1036</a>
</td>

<td  class="c0" >
 <a href="#1037"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1037">1037</a>
</td>

<td  class="c0" >
 <a href="#1038"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1038">1038</a>
</td>

<td  class="c0" >
 <a href="#1039"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1039">1039</a>
</td>

<td  class="c0" >
 <a href="#1040"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<title>All Files</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1040">1040</a>
</td>

<td  class="c0" >
 <a href="#1041"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1041">1041</a>
</td>

<td  class="c0" >
 <a href="#1042"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1042">1042</a>
</td>

<td  class="c0" >
 <a href="#1043"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1043">1043</a>
</td>

<td  class="c0" >
 <a href="#1044"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1044">1044</a>
</td>

<td  class="c0" >
 <a href="#1045"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<h1>All Files</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1045">1045</a>
</td>

<td  class="c0" >
 <a href="#1046"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @files = files($stream, $host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1046">1046</a>
</td>

<td  class="c0" >
 <a href="#1047"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1046-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (@files) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1047">1047</a>
</td>

<td  class="c0" >
 <a href="#1048"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1048">1048</a>
</td>

<td  class="c0" >
 <a href="#1049"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for my $id (sort @files) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1049">1049</a>
</td>

<td  class="c0" >
 <a href="#1051"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<li>" . link_html($stream, $host, $space, $id, "file/$id") . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1050">1050</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1051">1051</a>
</td>

<td  class="c0" >
 <a href="#1053"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("</ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1052">1052</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1053">1053</a>
</td>

<td  class="c0" >
 <a href="#1058"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<p>The are no files.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1054">1054</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1055">1055</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1056">1056</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1057">1057</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_spaces { </td>
</tr>

<tr>
<td  class="h" >
<a name="1058">1058</a>
</td>

<td  class="c0" >
 <a href="#1059"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1058-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1058-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1059">1059</a>
</td>

<td  class="c0" >
 <a href="#1060"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1060">1060</a>
</td>

<td  class="c0" >
 <a href="#1061"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1061">1061</a>
</td>

<td  class="c0" >
 <a href="#1062"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1062">1062</a>
</td>

<td  class="c0" >
 <a href="#1063"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving all spaces"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1063">1063</a>
</td>

<td  class="c0" >
 <a href="#1064"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("# Spaces\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1064">1064</a>
</td>

<td  class="c0" >
 <a href="#1065"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $spaces = space_links($stream, "gemini", $host, $port); </td>
</tr>

<tr>
<td  class="h" >
<a name="1065">1065</a>
</td>

<td  class="c0" >
 <a href="#1066"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $url (sort keys %$spaces) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1066">1066</a>
</td>

<td  class="c0" >
 <a href="#1071"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "=> $url $spaces->{$url}\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1067">1067</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1068">1068</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1069">1069</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1070">1070</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_spaces_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1071">1071</a>
</td>

<td  class="c0" >
 <a href="#1072"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1071-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1071-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1072">1072</a>
</td>

<td  class="c0" >
 <a href="#1073"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1073">1073</a>
</td>

<td  class="c0" >
 <a href="#1074"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1074">1074</a>
</td>

<td  class="c0" >
 <a href="#1075"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving all spaces via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1075">1075</a>
</td>

<td  class="c0" >
 <a href="#1076"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1076">1076</a>
</td>

<td  class="c0" >
 <a href="#1077"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1077">1077</a>
</td>

<td  class="c0" >
 <a href="#1078"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1078">1078</a>
</td>

<td  class="c0" >
 <a href="#1079"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1079">1079</a>
</td>

<td  class="c0" >
 <a href="#1080"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1080">1080</a>
</td>

<td  class="c0" >
 <a href="#1081"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1081">1081</a>
</td>

<td  class="c0" >
 <a href="#1082"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1082">1082</a>
</td>

<td  class="c0" >
 <a href="#1083"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<title>All Spaces</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1083">1083</a>
</td>

<td  class="c0" >
 <a href="#1084"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1084">1084</a>
</td>

<td  class="c0" >
 <a href="#1085"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1085">1085</a>
</td>

<td  class="c0" >
 <a href="#1086"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1086">1086</a>
</td>

<td  class="c0" >
 <a href="#1087"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1087">1087</a>
</td>

<td  class="c0" >
 <a href="#1088"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<h1>All Spaces</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1088">1088</a>
</td>

<td  class="c0" >
 <a href="#1089"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1089">1089</a>
</td>

<td  class="c0" >
 <a href="#1090"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $spaces = space_links($stream, "https", $host, $port); </td>
</tr>

<tr>
<td  class="h" >
<a name="1090">1090</a>
</td>

<td  class="c0" >
 <a href="#1091"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $url (sort keys %$spaces) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1091">1091</a>
</td>

<td  class="c0" >
 <a href="#1093"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<li><a href=\"$url\">$spaces->{$url}</a>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1092">1092</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1093">1093</a>
</td>

<td  class="c0" >
 <a href="#1097"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1094">1094</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1095">1095</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1096">1096</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_data { </td>
</tr>

<tr>
<td  class="h" >
<a name="1097">1097</a>
</td>

<td  class="c0" >
 <a href="#1098"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1097-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1097-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1098">1098</a>
</td>

<td  class="c0" >
 <a href="#1099"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1099">1099</a>
</td>

<td  class="c0" >
 <a href="#1101"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1100">1100</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # use /bin/tar instead of Archive::Tar to save memory </td>
</tr>

<tr>
<td  class="h" >
<a name="1101">1101</a>
</td>

<td  class="c0" >
 <a href="#1102"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1102">1102</a>
</td>

<td  class="c0" >
 <a href="#1103"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $file = "$dir/data.tar.gz"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1103">1103</a>
</td>

<td  class="c0" >
 <a href="#1104"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1103-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1103-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $file and time() - modified($file) <= 300) { # data is valid for 5 minutes </td>
</tr>

<tr>
<td  class="h" >
<a name="1104">1104</a>
</td>

<td  class="c0" >
 <a href="#1105"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->info("Serving cached data archive"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1105">1105</a>
</td>

<td  class="c0" >
 <a href="#1106"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     success($stream, "application/tar"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1106">1106</a>
</td>

<td  class="c0" >
 <a href="#1108"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(read_binary($file)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1107">1107</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1108">1108</a>
</td>

<td  class="c0" >
 <a href="#1109"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     write_binary($file, ""); # truncate in order to avoid "file changed as we read it" warning </td>
</tr>

<tr>
<td  class="h" >
<a name="1109">1109</a>
</td>

<td  class="c0" >
 <a href="#1114"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my @command = ('/bin/tar', '--create', '--gzip', </td>
</tr>

<tr>
<td  class="h" >
<a name="1110">1110</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   '--file', $file, </td>
</tr>

<tr>
<td  class="h" >
<a name="1111">1111</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   '--exclude', $file, </td>
</tr>

<tr>
<td  class="h" >
<a name="1112">1112</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   '--directory', "$dir/..", </td>
</tr>

<tr>
<td  class="h" >
<a name="1113">1113</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   ((split(/\//,$dir))[-1])); </td>
</tr>

<tr>
<td  class="h" >
<a name="1114">1114</a>
</td>

<td  class="c0" >
 <a href="#1115"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("@command"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1115">1115</a>
</td>

<td  class="c0" >
 <a href="#1116"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1115-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (system(@command) == 0) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1116">1116</a>
</td>

<td  class="c0" >
 <a href="#1117"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->info("Serving new data archive"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1117">1117</a>
</td>

<td  class="c0" >
 <a href="#1118"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       success($stream, "application/tar"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1118">1118</a>
</td>

<td  class="c0" >
 <a href="#1120"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(read_binary($file)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1119">1119</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1120">1120</a>
</td>

<td  class="c0" >
 <a href="#1121"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->error("Creation of data archive failed"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1121">1121</a>
</td>

<td  class="c0" >
 <a href="#1127"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "59", "Archive creation failed"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1122">1122</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1123">1123</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1124">1124</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1125">1125</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1126">1126</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_match { </td>
</tr>

<tr>
<td  class="h" >
<a name="1127">1127</a>
</td>

<td  class="c0" >
 <a href="#1128"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1127-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1127-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1128">1128</a>
</td>

<td  class="c0" >
 <a href="#1129"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1129">1129</a>
</td>

<td  class="c0" >
 <a href="#1130"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1130">1130</a>
</td>

<td  class="c0" >
 <a href="#1131"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $match = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1131">1131</a>
</td>

<td  class="c0" >
 <a href="#1132"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1131-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $match) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1132">1132</a>
</td>

<td  class="c0" >
 <a href="#1133"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Search term is missing"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1133">1133</a>
</td>

<td  class="c0" >
 <a href="#1135"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1134">1134</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1135">1135</a>
</td>

<td  class="c0" >
 <a href="#1136"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1136">1136</a>
</td>

<td  class="c0" >
 <a href="#1137"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving pages matching $match"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1137">1137</a>
</td>

<td  class="c0" >
 <a href="#1138"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "# Search page titles for $match\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1138">1138</a>
</td>

<td  class="c0" >
 <a href="#1139"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Use a Perl regular expression to match page titles.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1139">1139</a>
</td>

<td  class="c0" >
 <a href="#1140"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @pages = pages($stream, $host, $space, $match); </td>
</tr>

<tr>
<td  class="h" >
<a name="1140">1140</a>
</td>

<td  class="c0" >
 <a href="#1141"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1140-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("No matching page names found.\n") unless @pages; </td>
</tr>

<tr>
<td  class="h" >
<a name="1141">1141</a>
</td>

<td  class="c0" >
 <a href="#1142"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@pages) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1142">1142</a>
</td>

<td  class="c0" >
 <a href="#1147"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="1143">1143</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1144">1144</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1145">1145</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1146">1146</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_search { </td>
</tr>

<tr>
<td  class="h" >
<a name="1147">1147</a>
</td>

<td  class="c0" >
 <a href="#1148"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1147-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1147-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1148">1148</a>
</td>

<td  class="c0" >
 <a href="#1149"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1149">1149</a>
</td>

<td  class="c0" >
 <a href="#1150"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1150">1150</a>
</td>

<td  class="c0" >
 <a href="#1151"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $str = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1151">1151</a>
</td>

<td  class="c0" >
 <a href="#1152"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1151-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $str) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1152">1152</a>
</td>

<td  class="c0" >
 <a href="#1153"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Search term is missing"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1153">1153</a>
</td>

<td  class="c0" >
 <a href="#1155"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1154">1154</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1155">1155</a>
</td>

<td  class="c0" >
 <a href="#1156"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1156">1156</a>
</td>

<td  class="c0" >
 <a href="#1157"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving search result for $str"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1157">1157</a>
</td>

<td  class="c0" >
 <a href="#1158"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "# Search page content for $str\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1158">1158</a>
</td>

<td  class="c0" >
 <a href="#1159"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Use a Perl regular expression to match page titles and page content.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1159">1159</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1159-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1159-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not search($stream, $host, $space, $str, sub { highlight($stream, @_) })) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1160"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1160">1160</a>
</td>

<td  class="c0" >
 <a href="#1165"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("Search term not found.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1161">1161</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1162">1162</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1163">1163</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1164">1164</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub search { </td>
</tr>

<tr>
<td  class="h" >
<a name="1165">1165</a>
</td>

<td  class="c0" >
 <a href="#1166"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1165-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1165-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1166">1166</a>
</td>

<td  class="c0" >
 <a href="#1167"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1167">1167</a>
</td>

<td  class="c0" >
 <a href="#1168"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1168">1168</a>
</td>

<td  class="c0" >
 <a href="#1169"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $str = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1169">1169</a>
</td>

<td  class="c0" >
 <a href="#1170"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $func = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1170">1170</a>
</td>

<td  class="c0" >
 <a href="#1171"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @pages = pages($stream, $host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1171">1171</a>
</td>

<td  class="c0" >
 <a href="#1172"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1171-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless @pages; </td>
</tr>

<tr>
<td  class="h" >
<a name="1172">1172</a>
</td>

<td  class="c0" >
 <a href="#1173"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $found = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1173">1173</a>
</td>

<td  class="c0" >
 <a href="#1174"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@pages) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1174">1174</a>
</td>

<td  class="c0" >
 <a href="#1175"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $text = text($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="1175">1175</a>
</td>

<td  class="c0" >
 <a href="#1176"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1175-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1175-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($id =~ /$str/i or $text =~ /$str/i) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1176">1176</a>
</td>

<td  class="c0" >
 <a href="#1177"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $func->($host, $space, $id, $text, $str); </td>
</tr>

<tr>
<td  class="h" >
<a name="1177">1177</a>
</td>

<td  class="c0" >
 <a href="#1180"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $found++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1178">1178</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1179">1179</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1180">1180</a>
</td>

<td  class="c0" >
 <a href="#1184"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $found; </td>
</tr>

<tr>
<td  class="h" >
<a name="1181">1181</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1182">1182</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1183">1183</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub highlight { </td>
</tr>

<tr>
<td  class="h" >
<a name="1184">1184</a>
</td>

<td  class="c0" >
 <a href="#1185"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1184-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1184-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1185">1185</a>
</td>

<td  class="c0" >
 <a href="#1186"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1186">1186</a>
</td>

<td  class="c0" >
 <a href="#1187"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1187">1187</a>
</td>

<td  class="c0" >
 <a href="#1188"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1188">1188</a>
</td>

<td  class="c0" >
 <a href="#1189"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $text = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1189">1189</a>
</td>

<td  class="c0" >
 <a href="#1190"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $str = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1190">1190</a>
</td>

<td  class="c0" >
 <a href="#1192"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($snippetlen, $maxsnippets) = (100, 4); #  these seem nice. </td>
</tr>

<tr>
<td  class="h" >
<a name="1191">1191</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # show a snippet from the beginning of the document </td>
</tr>

<tr>
<td  class="h" >
<a name="1192">1192</a>
</td>

<td  class="c0" >
 <a href="#1193"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $j = index($text, ' ', $snippetlen); # end on word boundary </td>
</tr>

<tr>
<td  class="h" >
<a name="1193">1193</a>
</td>

<td  class="c0" >
 <a href="#1194"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $t = substr($text, 0, $j); </td>
</tr>

<tr>
<td  class="h" >
<a name="1194">1194</a>
</td>

<td  class="c0" >
 <a href="#1195"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $result = "## $id\n$t … "; </td>
</tr>

<tr>
<td  class="h" >
<a name="1195">1195</a>
</td>

<td  class="c0" >
 <a href="#1196"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $text = substr($text, $j);  # to avoid rematching </td>
</tr>

<tr>
<td  class="h" >
<a name="1196">1196</a>
</td>

<td  class="c0" >
 <a href="#1197"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $jsnippet = 0 ; </td>
</tr>

<tr>
<td  class="h" >
<a name="1197">1197</a>
</td>

<td  class="c0" >
 <a href="#1198"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1197-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   while ($jsnippet < $maxsnippets and $text =~ m/($str)/i) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1198">1198</a>
</td>

<td  class="c0" >
 <a href="#1199"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $jsnippet++; </td>
</tr>

<tr>
<td  class="h" >
<a name="1199">1199</a>
</td>

<td  class="c0" >
 <a href="#1201"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1199-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (($j = index($text, $1)) > -1 ) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1200">1200</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # get substr containing (start of) match, ending on word boundaries </td>
</tr>

<tr>
<td  class="h" >
<a name="1201">1201</a>
</td>

<td  class="c0" >
 <a href="#1202"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $start = index($text, ' ', $j - $snippetlen / 2); </td>
</tr>

<tr>
<td  class="h" >
<a name="1202">1202</a>
</td>

<td  class="c0" >
 <a href="#1203"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1202-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $start = 0 if $start == -1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1203">1203</a>
</td>

<td  class="c0" >
 <a href="#1204"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $end = index($text, ' ', $j + $snippetlen / 2); </td>
</tr>

<tr>
<td  class="h" >
<a name="1204">1204</a>
</td>

<td  class="c0" >
 <a href="#1205"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1204-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $end = length($text) if $end == -1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1205">1205</a>
</td>

<td  class="c0" >
 <a href="#1206"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $t = substr($text, $start, $end - $start); </td>
</tr>

<tr>
<td  class="h" >
<a name="1206">1206</a>
</td>

<td  class="c0" >
 <a href="#1208"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $result .= $t . ' … '; </td>
</tr>

<tr>
<td  class="h" >
<a name="1207">1207</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # truncate text to avoid rematching the same string. </td>
</tr>

<tr>
<td  class="h" >
<a name="1208">1208</a>
</td>

<td  class="c0" >
 <a href="#1211"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $text = substr($text, $end); </td>
</tr>

<tr>
<td  class="h" >
<a name="1209">1209</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1210">1210</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1211">1211</a>
</td>

<td  class="c0" >
 <a href="#1212"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 $result . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1212">1212</a>
</td>

<td  class="c0" >
 <a href="#1216"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="1213">1213</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1214">1214</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1215">1215</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_changes { </td>
</tr>

<tr>
<td  class="h" >
<a name="1216">1216</a>
</td>

<td  class="c0" >
 <a href="#1217"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1216-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1216-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1217">1217</a>
</td>

<td  class="c0" >
 <a href="#1218"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1218">1218</a>
</td>

<td  class="c0" >
 <a href="#1219"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1219">1219</a>
</td>

<td  class="c0" >
 <a href="#1220"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1220">1220</a>
</td>

<td  class="c0" >
 <a href="#1221"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $style = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1221">1221</a>
</td>

<td  class="c0" >
 <a href="#1222"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving $n changes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1222">1222</a>
</td>

<td  class="c0" >
 <a href="#1223"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1223">1223</a>
</td>

<td  class="c0" >
 <a href="#1224"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("# Changes\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1224">1224</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1224-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $style) { print_link($stream, $host, $space, "Colour changes", "do/changes/$n/colour") } </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1225"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1225">1225</a>
</td>

<td  class="c0" >
 <a href="#1226"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   elsif ($style eq "colour") { print_link($stream, $host, $space, "Fancy changes", "do/changes/$n/fancy") } </td>
</tr>

<tr>
<td  class="h" >
<a name="1226">1226</a>
</td>

<td  class="c0" >
 <a href="#1228"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   elsif ($style eq "fancy") { print_link($stream, $host, $space, "Normal changes", "do/changes/$n") } </td>
</tr>

<tr>
<td  class="h" >
<a name="1227">1227</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, undef, "Changes for all spaces", "do/all/changes") </td>
</tr>

<tr>
<td  class="h" >
<a name="1228">1228</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1228-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if @{$server->{wiki_space}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1229"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1229">1229</a>
</td>

<td  class="c0" >
 <a href="#1230"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "Atom Feed", "do/atom"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1230">1230</a>
</td>

<td  class="c0" >
 <a href="#1231"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "RSS Feed", "do/rss"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1231">1231</a>
</td>

<td  class="c0" >
 <a href="#1232"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1232">1232</a>
</td>

<td  class="c0" >
 <a href="#1233"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1233">1233</a>
</td>

<td  class="c0" >
 <a href="#1234"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1233-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not -e $log) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1234">1234</a>
</td>

<td  class="c0" >
 <a href="#1235"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1235">1235</a>
</td>

<td  class="c0" >
 <a href="#1237"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1236">1236</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1237">1237</a>
</td>

<td  class="c0" >
 <a href="#1238"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Showing up to $n changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1238">1238</a>
</td>

<td  class="c0" >
 <a href="#1241"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh = File::ReadBackwards->new($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="1239">1239</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless changes($stream, </td>
</tr>

<tr>
<td  class="h" >
<a name="1240">1240</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $n, </td>
</tr>

<tr>
<td  class="h" >
<a name="1241">1241</a>
</td>

<td  class="c0" >
 <a href="#1242"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1241-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 "## " . shift . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1242">1242</a>
</td>

<td  class="c0" >
 <a href="#1243"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1242-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(shift . " by " . colourize($stream, shift, $style) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1243">1243</a>
</td>

<td  class="c0" >
 <a href="#1244"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1243-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { print_link($stream, @_) }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1244">1244</a>
</td>

<td  class="c0" >
 <a href="#1246"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1244-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 join("\n", @_, "")) }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1245">1245</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="1246">1246</a>
</td>

<td  class="c0" >
 <a href="#1247"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1246-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1246-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1247">1247</a>
</td>

<td  class="c0" >
 <a href="#1248"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1248">1248</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1248-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       split(/\x1f/), $host, $space, 0 }); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1249"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1249">1249</a>
</td>

<td  class="c0" >
 <a href="#1250"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1250">1250</a>
</td>

<td  class="c0" >
 <a href="#1254"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1250-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "More...", "do/changes/" . 10 * $n . ($style ? "/$style" : "")); </td>
</tr>

<tr>
<td  class="h" >
<a name="1251">1251</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1252">1252</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1253">1253</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_changes_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1254">1254</a>
</td>

<td  class="c0" >
 <a href="#1255"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1254-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1254-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1255">1255</a>
</td>

<td  class="c0" >
 <a href="#1256"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1256">1256</a>
</td>

<td  class="c0" >
 <a href="#1257"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1257">1257</a>
</td>

<td  class="c0" >
 <a href="#1258"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1258">1258</a>
</td>

<td  class="c0" >
 <a href="#1259"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving $n changes via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1259">1259</a>
</td>

<td  class="c0" >
 <a href="#1260"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1260">1260</a>
</td>

<td  class="c0" >
 <a href="#1261"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1261">1261</a>
</td>

<td  class="c0" >
 <a href="#1262"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1262">1262</a>
</td>

<td  class="c0" >
 <a href="#1263"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1263">1263</a>
</td>

<td  class="c0" >
 <a href="#1264"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1264">1264</a>
</td>

<td  class="c0" >
 <a href="#1265"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1265">1265</a>
</td>

<td  class="c0" >
 <a href="#1266"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1266">1266</a>
</td>

<td  class="c0" >
 <a href="#1267"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<title>Changes</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1267">1267</a>
</td>

<td  class="c0" >
 <a href="#1268"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1268">1268</a>
</td>

<td  class="c0" >
 <a href="#1269"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1269">1269</a>
</td>

<td  class="c0" >
 <a href="#1270"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1270">1270</a>
</td>

<td  class="c0" >
 <a href="#1271"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1271">1271</a>
</td>

<td  class="c0" >
 <a href="#1272"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<h1>Changes</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1272">1272</a>
</td>

<td  class="c0" >
 <a href="#1274"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1273">1273</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<li>" . link_html($stream, $host, undef, "Changes for all spaces", "do/all/changes") . "\n") </td>
</tr>

<tr>
<td  class="h" >
<a name="1274">1274</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1274-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if @{$server->{wiki_space}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1275"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1275">1275</a>
</td>

<td  class="c0" >
 <a href="#1276"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<li>" . link_html($stream, $host, $space, "Atom feed", "do/atom") . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1276">1276</a>
</td>

<td  class="c0" >
 <a href="#1277"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<li>" . link_html($stream, $host, $space, "RSS feed", "do/rss") . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1277">1277</a>
</td>

<td  class="c0" >
 <a href="#1278"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1278">1278</a>
</td>

<td  class="c0" >
 <a href="#1279"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1279">1279</a>
</td>

<td  class="c0" >
 <a href="#1280"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1280">1280</a>
</td>

<td  class="c0" >
 <a href="#1281"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1280-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not -e $log) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1281">1281</a>
</td>

<td  class="c0" >
 <a href="#1282"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<p>No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1282">1282</a>
</td>

<td  class="c0" >
 <a href="#1284"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1283">1283</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1284">1284</a>
</td>

<td  class="c0" >
 <a href="#1285"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>Showing up to $n changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1285">1285</a>
</td>

<td  class="c0" >
 <a href="#1288"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh = File::ReadBackwards->new($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="1286">1286</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $more = changes($stream, </td>
</tr>

<tr>
<td  class="h" >
<a name="1287">1287</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $n, </td>
</tr>

<tr>
<td  class="h" >
<a name="1288">1288</a>
</td>

<td  class="c0" >
 <a href="#1289"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1288-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 "<h2>" . shift . "</h2>\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1289">1289</a>
</td>

<td  class="c0" >
 <a href="#1291"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1289-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write("<p>" . shift . " by " . colourize_html($stream, shift) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1290">1290</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="1291">1291</a>
</td>

<td  class="c0" >
 <a href="#1292"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1291-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($host, $space, $title, $id) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1292">1292</a>
</td>

<td  class="c0" >
 <a href="#1294"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<br> → " . link_html($stream, $host, $space, $title, $id) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1293">1293</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1294">1294</a>
</td>

<td  class="c0" >
 <a href="#1296"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1294-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 "<br> → $_[0]\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1295">1295</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="1296">1296</a>
</td>

<td  class="c0" >
 <a href="#1297"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1296-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1296-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1297">1297</a>
</td>

<td  class="c0" >
 <a href="#1298"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1298">1298</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       split(/\x1f/), $host, $space, 0 }); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1299"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1299">1299</a>
</td>

<td  class="c0" >
 <a href="#1300"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1299-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless $more; </td>
</tr>

<tr>
<td  class="h" >
<a name="1300">1300</a>
</td>

<td  class="c0" >
 <a href="#1304"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>" . link_html($stream, $host, $space, "More...", "do/changes/" . 10 * $n) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1301">1301</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1302">1302</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1303">1303</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_all_changes { </td>
</tr>

<tr>
<td  class="h" >
<a name="1304">1304</a>
</td>

<td  class="c0" >
 <a href="#1305"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1304-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1304-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1305">1305</a>
</td>

<td  class="c0" >
 <a href="#1306"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1306">1306</a>
</td>

<td  class="c0" >
 <a href="#1307"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1307">1307</a>
</td>

<td  class="c0" >
 <a href="#1308"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $style = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1308">1308</a>
</td>

<td  class="c0" >
 <a href="#1309"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filter = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1309">1309</a>
</td>

<td  class="c0" >
 <a href="#1310"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1309-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info($filter ? "Serving $n all $filter changes" :  "Serving $n all changes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1310">1310</a>
</td>

<td  class="c0" >
 <a href="#1311"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1311">1311</a>
</td>

<td  class="c0" >
 <a href="#1313"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("# Changes for all spaces\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1312">1312</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # merge all logs </td>
</tr>

<tr>
<td  class="h" >
<a name="1313">1313</a>
</td>

<td  class="c0" >
 <a href="#1314"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = all_logs($stream, $host, $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="1314">1314</a>
</td>

<td  class="c0" >
 <a href="#1315"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1314-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not @$log) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1315">1315</a>
</td>

<td  class="c0" >
 <a href="#1316"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1316">1316</a>
</td>

<td  class="c0" >
 <a href="#1318"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1317">1317</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1318">1318</a>
</td>

<td  class="c0" >
 <a href="#1319"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1318-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filter_segment = $filter ? "/$filter" : ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="1319">1319</a>
</td>

<td  class="c0" >
 <a href="#1320"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1319-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $style_segment = $style ? "/$style" : ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="1320">1320</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1320-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $style) { print_link($stream, $host, undef, "Colour changes", "do/all$filter_segment/changes/$n/colour") } </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1321"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1321">1321</a>
</td>

<td  class="c0" >
 <a href="#1322"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   elsif ($style eq "colour") { print_link($stream, $host, undef, "Fancy changes", "do/all$filter_segment/changes/$n/fancy") } </td>
</tr>

<tr>
<td  class="h" >
<a name="1322">1322</a>
</td>

<td  class="c0" >
 <a href="#1323"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   elsif ($style eq "fancy") { print_link($stream, $host, undef, "Normal changes", "do/all$filter_segment/changes/$n") } </td>
</tr>

<tr>
<td  class="h" >
<a name="1323">1323</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1323-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($filter) { print_link($stream, $host, undef, "All changes", "do/all/changes/$n$style_segment") } </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1324"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1324">1324</a>
</td>

<td  class="c0" >
 <a href="#1326"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   else { print_link($stream, $host, undef, "Latest changes", "do/all/latest/changes/$n$style_segment") } </td>
</tr>

<tr>
<td  class="h" >
<a name="1325">1325</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # taking the head of the @$log to get new log entries </td>
</tr>

<tr>
<td  class="h" >
<a name="1326">1326</a>
</td>

<td  class="c0" >
 <a href="#1327"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, undef, "Atom Feed", "do/all/atom"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1327">1327</a>
</td>

<td  class="c0" >
 <a href="#1328"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1327-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filter_description = $filter ? " $filter" : ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="1328">1328</a>
</td>

<td  class="c0" >
 <a href="#1331"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Showing up to $n$filter_description changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1329">1329</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless changes($stream, </td>
</tr>

<tr>
<td  class="h" >
<a name="1330">1330</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $n, </td>
</tr>

<tr>
<td  class="h" >
<a name="1331">1331</a>
</td>

<td  class="c0" >
 <a href="#1332"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1331-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write("## " . shift . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1332">1332</a>
</td>

<td  class="c0" >
 <a href="#1333"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1332-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(shift . " by " . colourize($stream, shift, $style) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1333">1333</a>
</td>

<td  class="c0" >
 <a href="#1334"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1333-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { print_link($stream, @_) }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1334">1334</a>
</td>

<td  class="c0" >
 <a href="#1335"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1334-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 join("\n", @_, "")) }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1335">1335</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1335-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1335-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { @{shift(@$log) }, 1 if @$log }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1337"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1336">1336</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="1337">1337</a>
</td>

<td  class="c0" >
 <a href="#1338"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1337-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $filter); </td>
</tr>

<tr>
<td  class="h" >
<a name="1338">1338</a>
</td>

<td  class="c0" >
 <a href="#1339"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1339">1339</a>
</td>

<td  class="c0" >
 <a href="#1343"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1339-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, undef, "More...", "do/all/changes/" . 10 * $n . ($style ? "/$style" : "")); </td>
</tr>

<tr>
<td  class="h" >
<a name="1340">1340</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1341">1341</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1342">1342</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_all_changes_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1343">1343</a>
</td>

<td  class="c0" >
 <a href="#1344"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1343-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1343-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1344">1344</a>
</td>

<td  class="c0" >
 <a href="#1345"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1345">1345</a>
</td>

<td  class="c0" >
 <a href="#1346"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1346">1346</a>
</td>

<td  class="c0" >
 <a href="#1347"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filter = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1347">1347</a>
</td>

<td  class="c0" >
 <a href="#1348"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1347-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info($filter ? "Serving $n all $filter changes via HTTP" : "Serving $n all changes via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1348">1348</a>
</td>

<td  class="c0" >
 <a href="#1349"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1349">1349</a>
</td>

<td  class="c0" >
 <a href="#1350"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1350">1350</a>
</td>

<td  class="c0" >
 <a href="#1351"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1351">1351</a>
</td>

<td  class="c0" >
 <a href="#1352"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1352">1352</a>
</td>

<td  class="c0" >
 <a href="#1353"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1353">1353</a>
</td>

<td  class="c0" >
 <a href="#1354"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1354">1354</a>
</td>

<td  class="c0" >
 <a href="#1355"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1355">1355</a>
</td>

<td  class="c0" >
 <a href="#1356"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<title>Changes for all spaces</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1356">1356</a>
</td>

<td  class="c0" >
 <a href="#1357"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1357">1357</a>
</td>

<td  class="c0" >
 <a href="#1358"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1358">1358</a>
</td>

<td  class="c0" >
 <a href="#1359"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1359">1359</a>
</td>

<td  class="c0" >
 <a href="#1360"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1360">1360</a>
</td>

<td  class="c0" >
 <a href="#1361"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<h1>Changes for all spaces</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1361">1361</a>
</td>

<td  class="c0" >
 <a href="#1362"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1362">1362</a>
</td>

<td  class="c0" >
 <a href="#1363"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<li>" . link_html($stream, $host, undef, "Atom feed", "do/all/atom") . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1363">1363</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1363-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($filter) { $stream->write("<li>" . link_html($stream, $host, undef, "All changes", "do/all/changes/$n") . "\n") } </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1364"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1364">1364</a>
</td>

<td  class="c0" >
 <a href="#1365"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   else { $stream->write("<li>" . link_html($stream, $host, undef, "Latest changes", "do/all/latest/changes/$n") . "\n") } </td>
</tr>

<tr>
<td  class="h" >
<a name="1365">1365</a>
</td>

<td  class="c0" >
 <a href="#1366"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</ul>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1366">1366</a>
</td>

<td  class="c0" >
 <a href="#1367"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = all_logs($stream, $host, $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="1367">1367</a>
</td>

<td  class="c0" >
 <a href="#1368"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1367-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not @$log) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1368">1368</a>
</td>

<td  class="c0" >
 <a href="#1369"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<p>No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1369">1369</a>
</td>

<td  class="c0" >
 <a href="#1372"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1370">1370</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1371">1371</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # taking the head of the @$log to get new log entries </td>
</tr>

<tr>
<td  class="h" >
<a name="1372">1372</a>
</td>

<td  class="c0" >
 <a href="#1375"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>Showing up to $n $filter changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1373">1373</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $more = changes($stream, </td>
</tr>

<tr>
<td  class="h" >
<a name="1374">1374</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $n, </td>
</tr>

<tr>
<td  class="h" >
<a name="1375">1375</a>
</td>

<td  class="c0" >
 <a href="#1376"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1375-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write("<h2>" . shift . "</h2>\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1376">1376</a>
</td>

<td  class="c0" >
 <a href="#1377"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1376-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write("<p>" . shift . " by " . colourize_html($stream, shift) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1377">1377</a>
</td>

<td  class="c0" >
 <a href="#1378"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1377-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 "<br> → " . link_html($stream, @_) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1378">1378</a>
</td>

<td  class="c0" >
 <a href="#1379"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1378-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 "<br> → $_[0]\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1379">1379</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1379-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1379-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { @{shift(@$log) }, 1 if @$log }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1381"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1380">1380</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     undef, </td>
</tr>

<tr>
<td  class="h" >
<a name="1381">1381</a>
</td>

<td  class="c0" >
 <a href="#1382"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $filter); </td>
</tr>

<tr>
<td  class="h" >
<a name="1382">1382</a>
</td>

<td  class="c0" >
 <a href="#1383"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1382-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless $more; </td>
</tr>

<tr>
<td  class="h" >
<a name="1383">1383</a>
</td>

<td  class="c0" >
 <a href="#1387"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>" . link_html($stream, $host, undef, "More...", "do/all/changes/" . 10 * $n) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1384">1384</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1385">1385</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1386">1386</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub all_logs { </td>
</tr>

<tr>
<td  class="h" >
<a name="1387">1387</a>
</td>

<td  class="c0" >
 <a href="#1388"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1387-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1387-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1388">1388</a>
</td>

<td  class="c0" >
 <a href="#1389"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1389">1389</a>
</td>

<td  class="c0" >
 <a href="#1390"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1390">1390</a>
</td>

<td  class="c0" >
 <a href="#1392"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filter = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1391">1391</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # merge all logs </td>
</tr>

<tr>
<td  class="h" >
<a name="1392">1392</a>
</td>

<td  class="c0" >
 <a href="#1393"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @log; </td>
</tr>

<tr>
<td  class="h" >
<a name="1393">1393</a>
</td>

<td  class="c0" >
 <a href="#1394"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = $server->{wiki_dir}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1394">1394</a>
</td>

<td  class="c0" >
 <a href="#1395"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @spaces = space_dirs($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1395">1395</a>
</td>

<td  class="c0" >
 <a href="#1396"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $space (@spaces) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1396">1396</a>
</td>

<td  class="c0" >
 <a href="#1397"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $changes = $dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="1397">1397</a>
</td>

<td  class="c0" >
 <a href="#1398"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1397-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $changes .= "/$space" if $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="1398">1398</a>
</td>

<td  class="c0" >
 <a href="#1399"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $changes .= "/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1399">1399</a>
</td>

<td  class="c0" >
 <a href="#1400"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1399-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     next unless -f $changes; </td>
</tr>

<tr>
<td  class="h" >
<a name="1400">1400</a>
</td>

<td  class="c0" >
 <a href="#1401"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Reading $changes"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1401">1401</a>
</td>

<td  class="c0" >
 <a href="#1402"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1401-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     next unless my $fh = File::ReadBackwards->new($changes); </td>
</tr>

<tr>
<td  class="h" >
<a name="1402">1402</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1402-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (keys %{$server->{host}} > 1) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1403"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1403">1403</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push(@log, @{read_log($stream, $fh, $n, split(/\//, $space, 2), $filter)}); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1405"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1404">1404</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1405">1405</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push(@log, @{read_log($stream, $fh, $n, $host, $space, $filter)}); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1408"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1406">1406</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1407">1407</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1408">1408</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   @log = sort { $b->[0] <=> $a->[0] } @log; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1409"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1409">1409</a>
</td>

<td  class="c0" >
 <a href="#1413"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return \@log; </td>
</tr>

<tr>
<td  class="h" >
<a name="1410">1410</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">  } </td>
</tr>

<tr>
<td  class="h" >
<a name="1411">1411</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1412">1412</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub read_log { </td>
</tr>

<tr>
<td  class="h" >
<a name="1413">1413</a>
</td>

<td  class="c0" >
 <a href="#1414"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1413-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1413-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1414">1414</a>
</td>

<td  class="c0" >
 <a href="#1415"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh = shift; # File::ReadBackwards </td>
</tr>

<tr>
<td  class="h" >
<a name="1415">1415</a>
</td>

<td  class="c0" >
 <a href="#1416"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1416">1416</a>
</td>

<td  class="c0" >
 <a href="#1417"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1417">1417</a>
</td>

<td  class="c0" >
 <a href="#1418"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1418">1418</a>
</td>

<td  class="c0" >
 <a href="#1419"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filter = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1419">1419</a>
</td>

<td  class="c0" >
 <a href="#1420"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @changes; </td>
</tr>

<tr>
<td  class="h" >
<a name="1420">1420</a>
</td>

<td  class="c0" >
 <a href="#1421"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for (1 .. $n) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1421">1421</a>
</td>

<td  class="c0" >
 <a href="#1423"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1422">1422</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # $_ can be undefined or a newline (which won't split) </td>
</tr>

<tr>
<td  class="h" >
<a name="1423">1423</a>
</td>

<td  class="c0" >
 <a href="#1424"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1423-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1423-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     last unless $_ and $_ ne "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1424">1424</a>
</td>

<td  class="c0" >
 <a href="#1425"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1424-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1424-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     next if $filter and not /$filter/; </td>
</tr>

<tr>
<td  class="h" >
<a name="1425">1425</a>
</td>

<td  class="c0" >
 <a href="#1426"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1426">1426</a>
</td>

<td  class="c0" >
 <a href="#1428"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push(@changes, [split(/\x1f/), $host, $space]); </td>
</tr>

<tr>
<td  class="h" >
<a name="1427">1427</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1428">1428</a>
</td>

<td  class="c0" >
 <a href="#1429"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Read changes: " . @changes); </td>
</tr>

<tr>
<td  class="h" >
<a name="1429">1429</a>
</td>

<td  class="c0" >
 <a href="#1450"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return \@changes; </td>
</tr>

<tr>
<td  class="h" >
<a name="1430">1430</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1431">1431</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1432">1432</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # $n is the number of changes to show. $header is a code reference that prints a </td>
</tr>

<tr>
<td  class="h" >
<a name="1433">1433</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # header for the date (one argument). $change is a code reference that prints </td>
</tr>

<tr>
<td  class="h" >
<a name="1434">1434</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # the time and code of the person making the change (two arguments). $link is a </td>
</tr>

<tr>
<td  class="h" >
<a name="1435">1435</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # code reference that prints a link (four arguments). $nolink is a code reference </td>
</tr>

<tr>
<td  class="h" >
<a name="1436">1436</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # that prints a name that isn't linked (one argument). $next is a code reference </td>
</tr>

<tr>
<td  class="h" >
<a name="1437">1437</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # that returns the list of attributes for the next change, these attributes </td>
</tr>

<tr>
<td  class="h" >
<a name="1438">1438</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # being: the timestamp (as returned by time); the page or file name; the page </td>
</tr>

<tr>
<td  class="h" >
<a name="1439">1439</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # revision or zero if a file; the code to represent the person that made the </td>
</tr>

<tr>
<td  class="h" >
<a name="1440">1440</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # change, represented as a string of octal digits that will be fed to the </td>
</tr>

<tr>
<td  class="h" >
<a name="1441">1441</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # colourize sub; the host, and the spaces, if any; and a boolean if space and </td>
</tr>

<tr>
<td  class="h" >
<a name="1442">1442</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # page or file name should both be shown (up to seven arguments). Finally, the </td>
</tr>

<tr>
<td  class="h" >
<a name="1443">1443</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # optional argument $kept is a code reference to say whether an old revision </td>
</tr>

<tr>
<td  class="h" >
<a name="1444">1444</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # actually exists. If not, there's no point in showing a diff link. The default </td>
</tr>

<tr>
<td  class="h" >
<a name="1445">1445</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # implementation checks for the existence of the keep file. $filter describes </td>
</tr>

<tr>
<td  class="h" >
<a name="1446">1446</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # how changes are to be filtered: 'latest' means that only the latest change </td>
</tr>

<tr>
<td  class="h" >
<a name="1447">1447</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # will be shown, i.e. a link to current revision. The default is to show all </td>
</tr>

<tr>
<td  class="h" >
<a name="1448">1448</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # changes. </td>
</tr>

<tr>
<td  class="h" >
<a name="1449">1449</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub changes { </td>
</tr>

<tr>
<td  class="h" >
<a name="1450">1450</a>
</td>

<td  class="c0" >
 <a href="#1451"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1450-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1450-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1451">1451</a>
</td>

<td  class="c0" >
 <a href="#1452"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1452">1452</a>
</td>

<td  class="c0" >
 <a href="#1453"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $header = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1453">1453</a>
</td>

<td  class="c0" >
 <a href="#1454"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $change = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1454">1454</a>
</td>

<td  class="c0" >
 <a href="#1455"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $link = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1455">1455</a>
</td>

<td  class="c0" >
 <a href="#1456"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $nolink = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1456">1456</a>
</td>

<td  class="c0" >
 <a href="#1458"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $next = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1457">1457</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $kept = shift || sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="1458">1458</a>
</td>

<td  class="c0" >
 <a href="#1459"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1458-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($host, $space, $id, $revision) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1459">1459</a>
</td>

<td  class="c0" >
 <a href="#1460"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     -e wiki_dir($host, $space) . "/keep/$id/$revision.gmi"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1460">1460</a>
</td>

<td  class="c0" >
 <a href="#1461"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1460-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   }; </td>
</tr>

<tr>
<td  class="h" >
<a name="1461">1461</a>
</td>

<td  class="c0" >
 <a href="#1462"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1461-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $filter = shift||''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1462">1462</a>
</td>

<td  class="c0" >
 <a href="#1463"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $last_day = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1463">1463</a>
</td>

<td  class="c0" >
 <a href="#1464"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %seen; </td>
</tr>

<tr>
<td  class="h" >
<a name="1464">1464</a>
</td>

<td  class="c0" >
 <a href="#1465"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for (1 .. $n) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1465">1465</a>
</td>

<td  class="c0" >
 <a href="#1466"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($ts, $id, $revision, $code, $host, $space, $show_space) = $next->(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1466">1466</a>
</td>

<td  class="c0" >
 <a href="#1467"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1466-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1466-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return unless $ts and $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="1467">1467</a>
</td>

<td  class="c0" >
 <a href="#1468"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $name = name($stream, $id, $host, $space, $show_space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1468">1468</a>
</td>

<td  class="c0" >
 <a href="#1469"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1468-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1468-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     next if $filter eq "latest" and $seen{$name}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1469">1469</a>
</td>

<td  class="c0" >
 <a href="#1470"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $day = day($stream, $ts); </td>
</tr>

<tr>
<td  class="h" >
<a name="1470">1470</a>
</td>

<td  class="c0" >
 <a href="#1471"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1470-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($day ne $last_day) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1471">1471</a>
</td>

<td  class="c0" >
 <a href="#1472"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $header->($day); </td>
</tr>

<tr>
<td  class="h" >
<a name="1472">1472</a>
</td>

<td  class="c0" >
 <a href="#1474"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $last_day = $day; </td>
</tr>

<tr>
<td  class="h" >
<a name="1473">1473</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1474">1474</a>
</td>

<td  class="c0" >
 <a href="#1475"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $change->(time_of_day($stream, $ts), $code); </td>
</tr>

<tr>
<td  class="h" >
<a name="1475">1475</a>
</td>

<td  class="c0" >
 <a href="#1477"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1475-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($revision eq "🖹") { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1476">1476</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a deleted page </td>
</tr>

<tr>
<td  class="h" >
<a name="1477">1477</a>
</td>

<td  class="c0" >
 <a href="#1478"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $link->($host, $space, "$name (deleted)", "page/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1478">1478</a>
</td>

<td  class="c0" >
 <a href="#1479"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $link->($host, $space, "History", "history/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1479">1479</a>
</td>

<td  class="c0" >
 <a href="#1482"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $seen{$name} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1480">1480</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($revision eq "🖻") { </td>
</tr>

<tr>
<td  class="h" >
<a name="1481">1481</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a deleted file </td>
</tr>

<tr>
<td  class="h" >
<a name="1482">1482</a>
</td>

<td  class="c0" >
 <a href="#1483"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $nolink->("$name (deleted file)"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1483">1483</a>
</td>

<td  class="c0" >
 <a href="#1486"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $seen{$name . "\x1c"} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1484">1484</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($revision > 0) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1485">1485</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a page </td>
</tr>

<tr>
<td  class="h" >
<a name="1486">1486</a>
</td>

<td  class="c0" >
 <a href="#1487"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1486-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($seen{$name}) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1487">1487</a>
</td>

<td  class="c0" >
 <a href="#1488"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$link->($host, $space, "$name ($revision)", "page/$id/$revision");; </td>
</tr>

<tr>
<td  class="h" >
<a name="1488">1488</a>
</td>

<td  class="c0" >
 <a href="#1490"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1488-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$link->($host, $space, "Differences", "diff/$id/$revision") if $kept->($host, $space, $id, $revision); </td>
</tr>

<tr>
<td  class="h" >
<a name="1489">1489</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } elsif ($filter eq "latest") { </td>
</tr>

<tr>
<td  class="h" >
<a name="1490">1490</a>
</td>

<td  class="c0" >
 <a href="#1491"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$link->($host, $space, "$name", "page/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1491">1491</a>
</td>

<td  class="c0" >
 <a href="#1492"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$link->($host, $space, "History", "history/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1492">1492</a>
</td>

<td  class="c0" >
 <a href="#1494"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$seen{$name} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1493">1493</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1494">1494</a>
</td>

<td  class="c0" >
 <a href="#1495"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$link->($host, $space, "$name (current)", "page/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1495">1495</a>
</td>

<td  class="c0" >
 <a href="#1496"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$link->($host, $space, "History", "history/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1496">1496</a>
</td>

<td  class="c0" >
 <a href="#1500"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$seen{$name} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1497">1497</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="1498">1498</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1499">1499</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a file </td>
</tr>

<tr>
<td  class="h" >
<a name="1500">1500</a>
</td>

<td  class="c0" >
 <a href="#1501"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1500-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($seen{$name . "\x1c"}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1501">1501</a>
</td>

<td  class="c0" >
 <a href="#1503"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$nolink->("$name (file)"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1502">1502</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1503">1503</a>
</td>

<td  class="c0" >
 <a href="#1504"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$link->($host, $space, "$name (file)", "file/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1504">1504</a>
</td>

<td  class="c0" >
 <a href="#1508"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$seen{$name . "\x1c"} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1505">1505</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="1506">1506</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1507">1507</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1508">1508</a>
</td>

<td  class="c0" >
 <a href="#1512"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return () = $next->(); # return something, if there's more </td>
</tr>

<tr>
<td  class="h" >
<a name="1509">1509</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1510">1510</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1511">1511</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub name { </td>
</tr>

<tr>
<td  class="h" >
<a name="1512">1512</a>
</td>

<td  class="c0" >
 <a href="#1513"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1512-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1512-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1513">1513</a>
</td>

<td  class="c0" >
 <a href="#1514"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1514">1514</a>
</td>

<td  class="c0" >
 <a href="#1515"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1515">1515</a>
</td>

<td  class="c0" >
 <a href="#1516"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1516">1516</a>
</td>

<td  class="c0" >
 <a href="#1517"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $show_space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1517">1517</a>
</td>

<td  class="c0" >
 <a href="#1518"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1517-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($show_space) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1518">1518</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1518-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (keys %{$server->{host}} > 1) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1519"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1519">1519</a>
</td>

<td  class="c0" >
 <a href="#1520"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1519-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($space) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1520">1520</a>
</td>

<td  class="c0" >
 <a href="#1522"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	return "[$host/$space] $id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1521">1521</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1522">1522</a>
</td>

<td  class="c0" >
 <a href="#1525"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	return "[$host] $id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1523">1523</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="1524">1524</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($space) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1525">1525</a>
</td>

<td  class="c0" >
 <a href="#1528"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return "[$space] $id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1526">1526</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1527">1527</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1528">1528</a>
</td>

<td  class="c0" >
 <a href="#1532"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="1529">1529</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1530">1530</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1531">1531</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub colourize { </td>
</tr>

<tr>
<td  class="h" >
<a name="1532">1532</a>
</td>

<td  class="c0" >
 <a href="#1533"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1532-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1532-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1533">1533</a>
</td>

<td  class="c0" >
 <a href="#1534"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $code = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1534">1534</a>
</td>

<td  class="c0" >
 <a href="#1535"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $style = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1535">1535</a>
</td>

<td  class="c0" >
 <a href="#1536"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %rgb; </td>
</tr>

<tr>
<td  class="h" >
<a name="1536">1536</a>
</td>

<td  class="c0" >
 <a href="#1537"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1536-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $code unless $style; </td>
</tr>

<tr>
<td  class="h" >
<a name="1537">1537</a>
</td>

<td  class="c0" >
 <a href="#1539"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1537-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($style eq "colour") { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1538">1538</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # 3/4 bit </td>
</tr>

<tr>
<td  class="h" >
<a name="1539">1539</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return join("", map { "\033[1;3${_};4${_}m${_}" } split //, $code) . "\033[0m "; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1542"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1540">1540</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif ($style eq "fancy") { </td>
</tr>

<tr>
<td  class="h" >
<a name="1541">1541</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # 24 bit! </td>
</tr>

<tr>
<td  class="h" >
<a name="1542">1542</a>
</td>

<td  class="c0" >
 <a href="#1551"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     %rgb = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="1543">1543</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     0 => "0;0;0", </td>
</tr>

<tr>
<td  class="h" >
<a name="1544">1544</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     1 => "222;56;43", </td>
</tr>

<tr>
<td  class="h" >
<a name="1545">1545</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     2 => "57;181;74", </td>
</tr>

<tr>
<td  class="h" >
<a name="1546">1546</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     3 => "255;199;6", </td>
</tr>

<tr>
<td  class="h" >
<a name="1547">1547</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     4 => "0;111;184", </td>
</tr>

<tr>
<td  class="h" >
<a name="1548">1548</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     5 => "118;38;113", </td>
</tr>

<tr>
<td  class="h" >
<a name="1549">1549</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     6 => "44;181;233", </td>
</tr>

<tr>
<td  class="h" >
<a name="1550">1550</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     7 => "204;204;204"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1551">1551</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return join("", map { "\033[38;2;$rgb{$_};48;2;$rgb{$_}m$_" } split //, $code) . "\033[0m "; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1553"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1552">1552</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1553">1553</a>
</td>

<td  class="c0" >
 <a href="#1558"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $code; </td>
</tr>

<tr>
<td  class="h" >
<a name="1554">1554</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1555">1555</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1556">1556</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # https://en.wikipedia.org/wiki/ANSI_escape_code#3/4_bit </td>
</tr>

<tr>
<td  class="h" >
<a name="1557">1557</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub colourize_html { </td>
</tr>

<tr>
<td  class="h" >
<a name="1558">1558</a>
</td>

<td  class="c0" >
 <a href="#1559"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1558-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1558-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1559">1559</a>
</td>

<td  class="c0" >
 <a href="#1560"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $code = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1560">1560</a>
</td>

<td  class="c0" >
 <a href="#1570"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %rgb = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="1561">1561</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     0 => "0,0,0", </td>
</tr>

<tr>
<td  class="h" >
<a name="1562">1562</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     1 => "222,56,43", </td>
</tr>

<tr>
<td  class="h" >
<a name="1563">1563</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     2 => "57,181,74", </td>
</tr>

<tr>
<td  class="h" >
<a name="1564">1564</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     3 => "255,199,6", </td>
</tr>

<tr>
<td  class="h" >
<a name="1565">1565</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     4 => "0,111,184", </td>
</tr>

<tr>
<td  class="h" >
<a name="1566">1566</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     5 => "118,38,113", </td>
</tr>

<tr>
<td  class="h" >
<a name="1567">1567</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     6 => "44,181,233", </td>
</tr>

<tr>
<td  class="h" >
<a name="1568">1568</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     7 => "204,204,204"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1569">1569</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $code = join("", map { </td>
</tr>

<tr>
<td  class="h" >
<a name="1570">1570</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     "<span style=\"color: rgb($rgb{$_}); background-color: rgb($rgb{$_})\">$_</span>"; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1572"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1571">1571</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	       } split //, $code); </td>
</tr>

<tr>
<td  class="h" >
<a name="1572">1572</a>
</td>

<td  class="c0" >
 <a href="#1576"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $code; </td>
</tr>

<tr>
<td  class="h" >
<a name="1573">1573</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1574">1574</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1575">1575</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_rss { </td>
</tr>

<tr>
<td  class="h" >
<a name="1576">1576</a>
</td>

<td  class="c0" >
 <a href="#1577"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1576-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1576-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1577">1577</a>
</td>

<td  class="c0" >
 <a href="#1578"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1578">1578</a>
</td>

<td  class="c0" >
 <a href="#1579"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1579">1579</a>
</td>

<td  class="c0" >
 <a href="#1580"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving Gemini RSS"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1580">1580</a>
</td>

<td  class="c0" >
 <a href="#1581"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, "application/rss+xml"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1581">1581</a>
</td>

<td  class="c0" >
 <a href="#1585"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   rss($stream, $host, $space, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1582">1582</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1583">1583</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1584">1584</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_rss_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1585">1585</a>
</td>

<td  class="c0" >
 <a href="#1586"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1585-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1585-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1586">1586</a>
</td>

<td  class="c0" >
 <a href="#1587"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1587">1587</a>
</td>

<td  class="c0" >
 <a href="#1588"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1588">1588</a>
</td>

<td  class="c0" >
 <a href="#1589"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving RSS via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1589">1589</a>
</td>

<td  class="c0" >
 <a href="#1590"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1590">1590</a>
</td>

<td  class="c0" >
 <a href="#1591"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: application/xml\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1591">1591</a>
</td>

<td  class="c0" >
 <a href="#1592"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1592">1592</a>
</td>

<td  class="c0" >
 <a href="#1596"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   rss($stream, $host, $space, 'https'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1593">1593</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1594">1594</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1595">1595</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub rss { </td>
</tr>

<tr>
<td  class="h" >
<a name="1596">1596</a>
</td>

<td  class="c0" >
 <a href="#1597"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1596-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1596-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1597">1597</a>
</td>

<td  class="c0" >
 <a href="#1598"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1598">1598</a>
</td>

<td  class="c0" >
 <a href="#1599"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1599">1599</a>
</td>

<td  class="c0" >
 <a href="#1600"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $scheme = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1600">1600</a>
</td>

<td  class="c0" >
 <a href="#1601"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1600-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $name = $server->{wiki_main_page} || "Phoebe"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1601">1601</a>
</td>

<td  class="c0" >
 <a href="#1602"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1602">1602</a>
</td>

<td  class="c0" >
 <a href="#1603"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<rss version=\"2.0\" xmlns:atom=\"http://www.w3.org/2005/Atom\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1603">1603</a>
</td>

<td  class="c0" >
 <a href="#1604"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<channel>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1604">1604</a>
</td>

<td  class="c0" >
 <a href="#1605"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<title>" . quote_html($name) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1605">1605</a>
</td>

<td  class="c0" >
 <a href="#1606"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<description>Changes on this wiki.</description>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1606">1606</a>
</td>

<td  class="c0" >
 <a href="#1607"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link>$scheme://$host:$port/</link>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1607">1607</a>
</td>

<td  class="c0" >
 <a href="#1608"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<atom:link rel=\"self\" type=\"application/rss+xml\" href=\"$scheme://$host:$port/do/rss\" />\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1608">1608</a>
</td>

<td  class="c0" >
 <a href="#1609"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<generator>Phoebe</generator>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1609">1609</a>
</td>

<td  class="c0" >
 <a href="#1610"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<docs>http://blogs.law.harvard.edu/tech/rss</docs>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1610">1610</a>
</td>

<td  class="c0" >
 <a href="#1611"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1611">1611</a>
</td>

<td  class="c0" >
 <a href="#1612"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1612">1612</a>
</td>

<td  class="c0" >
 <a href="#1613"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1612-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1612-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $log and my $fh = File::ReadBackwards->new($log)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1613">1613</a>
</td>

<td  class="c0" >
 <a href="#1614"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my %seen; </td>
</tr>

<tr>
<td  class="h" >
<a name="1614">1614</a>
</td>

<td  class="c0" >
 <a href="#1615"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for (1 .. 100) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1615">1615</a>
</td>

<td  class="c0" >
 <a href="#1616"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1615-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       last unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1616">1616</a>
</td>

<td  class="c0" >
 <a href="#1617"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1617">1617</a>
</td>

<td  class="c0" >
 <a href="#1618"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($ts, $id, $revision, $code) = split(/\x1f/); </td>
</tr>

<tr>
<td  class="h" >
<a name="1618">1618</a>
</td>

<td  class="c0" >
 <a href="#1619"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1618-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       next if $seen{$id}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1619">1619</a>
</td>

<td  class="c0" >
 <a href="#1620"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $seen{$id} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1620">1620</a>
</td>

<td  class="c0" >
 <a href="#1621"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<item>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1621">1621</a>
</td>

<td  class="c0" >
 <a href="#1622"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1622">1622</a>
</td>

<td  class="c0" >
 <a href="#1623"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $link = to_url($stream, $host, $space, "page/$id", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1623">1623</a>
</td>

<td  class="c0" >
 <a href="#1624"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<link>$link</link>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1624">1624</a>
</td>

<td  class="c0" >
 <a href="#1625"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<guid>$link</guid>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1625">1625</a>
</td>

<td  class="c0" >
 <a href="#1626"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<description>" . quote_html(text($stream, $host, $space, $id)) . "</description>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1626">1626</a>
</td>

<td  class="c0" >
 <a href="#1627"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime($ts); # Sat, 07 Sep 2002 00:00:01 GMT </td>
</tr>

<tr>
<td  class="h" >
<a name="1627">1627</a>
</td>

<td  class="c0" >
 <a href="#1631"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<pubDate>" </td>
</tr>

<tr>
<td  class="h" >
<a name="1628">1628</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		     . sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT", qw(Sun Mon Tue Wed Thu Fri Sat)[$wday], $mday, </td>
</tr>

<tr>
<td  class="h" >
<a name="1629">1629</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			       qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[$mon], $year + 1900, $hour, $min, $sec) </td>
</tr>

<tr>
<td  class="h" >
<a name="1630">1630</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		     . "</pubDate>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1631">1631</a>
</td>

<td  class="c0" >
 <a href="#1634"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("</item>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1632">1632</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1633">1633</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1634">1634</a>
</td>

<td  class="c0" >
 <a href="#1635"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</channel>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1635">1635</a>
</td>

<td  class="c0" >
 <a href="#1639"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</rss>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1636">1636</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1637">1637</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1638">1638</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_blog_rss { </td>
</tr>

<tr>
<td  class="h" >
<a name="1639">1639</a>
</td>

<td  class="c0" >
 <a href="#1640"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1639-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1639-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1640">1640</a>
</td>

<td  class="c0" >
 <a href="#1641"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1641">1641</a>
</td>

<td  class="c0" >
 <a href="#1642"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1642">1642</a>
</td>

<td  class="c0" >
 <a href="#1643"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving Gemini Blog RSS"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1643">1643</a>
</td>

<td  class="c0" >
 <a href="#1644"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, "application/rss+xml"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1644">1644</a>
</td>

<td  class="c0" >
 <a href="#1648"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   blog_rss($stream, $host, $space, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1645">1645</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1646">1646</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1647">1647</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub blog_rss { </td>
</tr>

<tr>
<td  class="h" >
<a name="1648">1648</a>
</td>

<td  class="c0" >
 <a href="#1649"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1648-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1648-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1649">1649</a>
</td>

<td  class="c0" >
 <a href="#1650"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1650">1650</a>
</td>

<td  class="c0" >
 <a href="#1651"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1651">1651</a>
</td>

<td  class="c0" >
 <a href="#1652"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $scheme = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1652">1652</a>
</td>

<td  class="c0" >
 <a href="#1653"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1652-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $name = $server->{wiki_main_page} || "Phoebe"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1653">1653</a>
</td>

<td  class="c0" >
 <a href="#1654"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1654">1654</a>
</td>

<td  class="c0" >
 <a href="#1655"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<rss version=\"2.0\" xmlns:atom=\"http://www.w3.org/2005/Atom\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1655">1655</a>
</td>

<td  class="c0" >
 <a href="#1656"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<channel>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1656">1656</a>
</td>

<td  class="c0" >
 <a href="#1657"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<title>" . quote_html($name) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1657">1657</a>
</td>

<td  class="c0" >
 <a href="#1658"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<description>Blog pages on this wiki.</description>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1658">1658</a>
</td>

<td  class="c0" >
 <a href="#1659"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link>$scheme://$host:$port/</link>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1659">1659</a>
</td>

<td  class="c0" >
 <a href="#1660"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<atom:link rel=\"self\" type=\"application/rss+xml\" href=\"$scheme://$host:$port/do/blog/rss\" />\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1660">1660</a>
</td>

<td  class="c0" >
 <a href="#1661"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<generator>Phoebe</generator>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1661">1661</a>
</td>

<td  class="c0" >
 <a href="#1662"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<docs>http://blogs.law.harvard.edu/tech/rss</docs>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1662">1662</a>
</td>

<td  class="c0" >
 <a href="#1663"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1663">1663</a>
</td>

<td  class="c0" >
 <a href="#1664"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @blog = blog_pages($stream, $host, $space, 10); </td>
</tr>

<tr>
<td  class="h" >
<a name="1664">1664</a>
</td>

<td  class="c0" >
 <a href="#1666"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $ts = changes_for($host, $space, @blog); </td>
</tr>

<tr>
<td  class="h" >
<a name="1665">1665</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # hard coded: 10 pages blog RSS, no pagination </td>
</tr>

<tr>
<td  class="h" >
<a name="1666">1666</a>
</td>

<td  class="c0" >
 <a href="#1667"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@blog[0 .. min($#blog, 9)]) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1667">1667</a>
</td>

<td  class="c0" >
 <a href="#1668"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<item>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1668">1668</a>
</td>

<td  class="c0" >
 <a href="#1669"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1669">1669</a>
</td>

<td  class="c0" >
 <a href="#1670"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $link = to_url($stream, $host, $space, "page/$id", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1670">1670</a>
</td>

<td  class="c0" >
 <a href="#1671"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<link>$link</link>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1671">1671</a>
</td>

<td  class="c0" >
 <a href="#1672"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<guid>$link</guid>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1672">1672</a>
</td>

<td  class="c0" >
 <a href="#1673"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<description>" . quote_html(text($stream, $host, $space, $id)) . "</description>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1673">1673</a>
</td>

<td  class="c0" >
 <a href="#1674"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime($ts->{$id}); # Sat, 07 Sep 2002 00:00:01 GMT </td>
</tr>

<tr>
<td  class="h" >
<a name="1674">1674</a>
</td>

<td  class="c0" >
 <a href="#1678"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<pubDate>" </td>
</tr>

<tr>
<td  class="h" >
<a name="1675">1675</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   . sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT", qw(Sun Mon Tue Wed Thu Fri Sat)[$wday], $mday, </td>
</tr>

<tr>
<td  class="h" >
<a name="1676">1676</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 			     qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[$mon], $year + 1900, $hour, $min, $sec) </td>
</tr>

<tr>
<td  class="h" >
<a name="1677">1677</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 		   . "</pubDate>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1678">1678</a>
</td>

<td  class="c0" >
 <a href="#1680"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("</item>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1679">1679</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1680">1680</a>
</td>

<td  class="c0" >
 <a href="#1681"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</channel>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1681">1681</a>
</td>

<td  class="c0" >
 <a href="#1685"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</rss>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1682">1682</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1683">1683</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1684">1684</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub changes_for { </td>
</tr>

<tr>
<td  class="h" >
<a name="1685">1685</a>
</td>

<td  class="c0" >
 <a href="#1686"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1685-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1685-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1686">1686</a>
</td>

<td  class="c0" >
 <a href="#1687"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1687">1687</a>
</td>

<td  class="c0" >
 <a href="#1688"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @ids = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1688">1688</a>
</td>

<td  class="c0" >
 <a href="#1689"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %result; </td>
</tr>

<tr>
<td  class="h" >
<a name="1689">1689</a>
</td>

<td  class="c0" >
 <a href="#1690"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1690">1690</a>
</td>

<td  class="c0" >
 <a href="#1691"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1691">1691</a>
</td>

<td  class="c0" >
 <a href="#1692"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1691-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1691-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $log and my $fh = File::ReadBackwards->new($log)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1692">1692</a>
</td>

<td  class="c0" >
 <a href="#1693"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     while (@ids) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1693">1693</a>
</td>

<td  class="c0" >
 <a href="#1694"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1693-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       last unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1694">1694</a>
</td>

<td  class="c0" >
 <a href="#1695"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1695">1695</a>
</td>

<td  class="c0" >
 <a href="#1696"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($ts, $id, $revision, $code) = split(/\x1f/); </td>
</tr>

<tr>
<td  class="h" >
<a name="1696">1696</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1696-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1696-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if (any { $_ eq $id } @ids) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1697"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1697">1697</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	@ids = grep { $_ ne $id } @ids; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1698"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1698">1698</a>
</td>

<td  class="c0" >
 <a href="#1702"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$result{$id} = $ts; </td>
</tr>

<tr>
<td  class="h" >
<a name="1699">1699</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="1700">1700</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1701">1701</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1702">1702</a>
</td>

<td  class="c0" >
 <a href="#1706"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return \%result; </td>
</tr>

<tr>
<td  class="h" >
<a name="1703">1703</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1704">1704</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1705">1705</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_atom { </td>
</tr>

<tr>
<td  class="h" >
<a name="1706">1706</a>
</td>

<td  class="c0" >
 <a href="#1707"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1706-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1706-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1707">1707</a>
</td>

<td  class="c0" >
 <a href="#1708"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1708">1708</a>
</td>

<td  class="c0" >
 <a href="#1709"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1709">1709</a>
</td>

<td  class="c0" >
 <a href="#1710"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving Gemini Atom"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1710">1710</a>
</td>

<td  class="c0" >
 <a href="#1711"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, "application/atom+xml"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1711">1711</a>
</td>

<td  class="c0" >
 <a href="#1712"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1712">1712</a>
</td>

<td  class="c0" >
 <a href="#1713"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1713">1713</a>
</td>

<td  class="c0" >
 <a href="#1715"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh = File::ReadBackwards->new($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="1714">1714</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   atom($stream, sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="1715">1715</a>
</td>

<td  class="c0" >
 <a href="#1716"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1715-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1715-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1716">1716</a>
</td>

<td  class="c0" >
 <a href="#1717"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1717">1717</a>
</td>

<td  class="c0" >
 <a href="#1718"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     split(/\x1f/), $host, $space, 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="1718">1718</a>
</td>

<td  class="c0" >
 <a href="#1722"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   }, $host, $space, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1719">1719</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1720">1720</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1721">1721</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_all_atom { </td>
</tr>

<tr>
<td  class="h" >
<a name="1722">1722</a>
</td>

<td  class="c0" >
 <a href="#1723"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1722-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1722-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1723">1723</a>
</td>

<td  class="c0" >
 <a href="#1724"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1724">1724</a>
</td>

<td  class="c0" >
 <a href="#1725"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving Gemini Atom"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1725">1725</a>
</td>

<td  class="c0" >
 <a href="#1726"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, "application/atom+xml"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1726">1726</a>
</td>

<td  class="c0" >
 <a href="#1727"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = all_logs($stream, $host, 30); </td>
</tr>

<tr>
<td  class="h" >
<a name="1727">1727</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1727-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1727-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   atom($stream, sub { @{shift(@$log) }, 1 if @$log }, $host, undef, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1731"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1728">1728</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1729">1729</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1730">1730</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_atom_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1731">1731</a>
</td>

<td  class="c0" >
 <a href="#1732"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1731-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1731-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1732">1732</a>
</td>

<td  class="c0" >
 <a href="#1733"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1733">1733</a>
</td>

<td  class="c0" >
 <a href="#1734"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1734">1734</a>
</td>

<td  class="c0" >
 <a href="#1735"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving Atom via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1735">1735</a>
</td>

<td  class="c0" >
 <a href="#1736"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1736">1736</a>
</td>

<td  class="c0" >
 <a href="#1737"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: application/xml\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1737">1737</a>
</td>

<td  class="c0" >
 <a href="#1738"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1738">1738</a>
</td>

<td  class="c0" >
 <a href="#1739"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1739">1739</a>
</td>

<td  class="c0" >
 <a href="#1740"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1740">1740</a>
</td>

<td  class="c0" >
 <a href="#1742"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh = File::ReadBackwards->new($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="1741">1741</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   atom($stream, sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="1742">1742</a>
</td>

<td  class="c0" >
 <a href="#1743"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1742-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1742-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1743">1743</a>
</td>

<td  class="c0" >
 <a href="#1744"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1744">1744</a>
</td>

<td  class="c0" >
 <a href="#1745"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     split(/\x1f/), $host, $space, 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="1745">1745</a>
</td>

<td  class="c0" >
 <a href="#1749"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   }, $host, $space, 'https'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1746">1746</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1747">1747</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1748">1748</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_all_atom_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1749">1749</a>
</td>

<td  class="c0" >
 <a href="#1750"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1749-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1749-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1750">1750</a>
</td>

<td  class="c0" >
 <a href="#1751"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1751">1751</a>
</td>

<td  class="c0" >
 <a href="#1752"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving Atom via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1752">1752</a>
</td>

<td  class="c0" >
 <a href="#1753"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1753">1753</a>
</td>

<td  class="c0" >
 <a href="#1754"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: application/xml\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1754">1754</a>
</td>

<td  class="c0" >
 <a href="#1755"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1755">1755</a>
</td>

<td  class="c0" >
 <a href="#1756"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = all_logs($stream, $host, 30); </td>
</tr>

<tr>
<td  class="h" >
<a name="1756">1756</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1756-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1756-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   atom($stream, sub { @{shift(@$log) }, 1 if @$log }, $host, undef, 'https'); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1767"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1757">1757</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1758">1758</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1759">1759</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # $next is a code reference that returns the list of attributes for the next </td>
</tr>

<tr>
<td  class="h" >
<a name="1760">1760</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # change, these attributes being: the timestamp (as returned by time); the page </td>
</tr>

<tr>
<td  class="h" >
<a name="1761">1761</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # or file name; the page revision or zero if a file; the code to represent the </td>
</tr>

<tr>
<td  class="h" >
<a name="1762">1762</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # person that made the change, represented as a string of octal digits that will </td>
</tr>

<tr>
<td  class="h" >
<a name="1763">1763</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # be fed to the colourize sub; the host, and the spaces, if any; and a boolean </td>
</tr>

<tr>
<td  class="h" >
<a name="1764">1764</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # if space and page or file name should both be shown (up to seven arguments). </td>
</tr>

<tr>
<td  class="h" >
<a name="1765">1765</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # $scheme is either 'gemini' or 'https'. </td>
</tr>

<tr>
<td  class="h" >
<a name="1766">1766</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub atom { </td>
</tr>

<tr>
<td  class="h" >
<a name="1767">1767</a>
</td>

<td  class="c0" >
 <a href="#1768"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1767-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1767-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1768">1768</a>
</td>

<td  class="c0" >
 <a href="#1769"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $next = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1769">1769</a>
</td>

<td  class="c0" >
 <a href="#1770"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1770">1770</a>
</td>

<td  class="c0" >
 <a href="#1771"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1771">1771</a>
</td>

<td  class="c0" >
 <a href="#1772"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $scheme = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1772">1772</a>
</td>

<td  class="c0" >
 <a href="#1773"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $first_host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1773">1773</a>
</td>

<td  class="c0" >
 <a href="#1774"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1773-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $name = $server->{wiki_main_page} || "Phoebe"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1774">1774</a>
</td>

<td  class="c0" >
 <a href="#1775"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1775">1775</a>
</td>

<td  class="c0" >
 <a href="#1776"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1776">1776</a>
</td>

<td  class="c0" >
 <a href="#1777"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<feed xmlns=\"http://www.w3.org/2005/Atom\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1777">1777</a>
</td>

<td  class="c0" >
 <a href="#1778"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<title>" . quote_html($name) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1778">1778</a>
</td>

<td  class="c0" >
 <a href="#1779"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $link = to_url($stream, $host, $space, "", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1779">1779</a>
</td>

<td  class="c0" >
 <a href="#1780"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link href=\"$link\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1780">1780</a>
</td>

<td  class="c0" >
 <a href="#1781"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $link = to_url($stream, $host, $space, "do/atom", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1781">1781</a>
</td>

<td  class="c0" >
 <a href="#1782"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link rel=\"self\" type=\"application/atom+xml\" href=\"$link\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1782">1782</a>
</td>

<td  class="c0" >
 <a href="#1783"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<id>$link</id>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1783">1783</a>
</td>

<td  class="c0" >
 <a href="#1784"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $feed_ts = "0001-01-01T00:00:00Z"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1784">1784</a>
</td>

<td  class="c0" >
 <a href="#1785"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<generator uri=\"https://alexschroeder.ch/cgit/phoebe/about/\" version=\"1.0\">Phoebe</generator>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1785">1785</a>
</td>

<td  class="c0" >
 <a href="#1786"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %seen; </td>
</tr>

<tr>
<td  class="h" >
<a name="1786">1786</a>
</td>

<td  class="c0" >
 <a href="#1787"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for (1 .. 100) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1787">1787</a>
</td>

<td  class="c0" >
 <a href="#1788"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($ts, $id, $revision, $code, $host, $space, $show_space) = $next->(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1788">1788</a>
</td>

<td  class="c0" >
 <a href="#1789"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1788-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1788-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     last unless $ts and $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="1789">1789</a>
</td>

<td  class="c0" >
 <a href="#1790"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $name = name($stream, $id, $host, $space, $show_space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1790">1790</a>
</td>

<td  class="c0" >
 <a href="#1791"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1790-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($revision eq "🖹") { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1791">1791</a>
</td>

<td  class="c0" >
 <a href="#1793"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1791-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       next if $seen{$name}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1792">1792</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a deleted page </td>
</tr>

<tr>
<td  class="h" >
<a name="1793">1793</a>
</td>

<td  class="c0" >
 <a href="#1794"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1794">1794</a>
</td>

<td  class="c0" >
 <a href="#1795"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<title>" . quote_html($name) . " (deleted)</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1795">1795</a>
</td>

<td  class="c0" >
 <a href="#1798"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $seen{$name} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1796">1796</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($revision eq "🖻") { </td>
</tr>

<tr>
<td  class="h" >
<a name="1797">1797</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a deleted file </td>
</tr>

<tr>
<td  class="h" >
<a name="1798">1798</a>
</td>

<td  class="c0" >
 <a href="#1799"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1798-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       next if $seen{$name . "\x1c"}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1799">1799</a>
</td>

<td  class="c0" >
 <a href="#1800"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1800">1800</a>
</td>

<td  class="c0" >
 <a href="#1801"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<title>" . quote_html($name) . " (deleted file)</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1801">1801</a>
</td>

<td  class="c0" >
 <a href="#1804"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $seen{$name . "\x1c"} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1802">1802</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($revision > 0) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1803">1803</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a page </td>
</tr>

<tr>
<td  class="h" >
<a name="1804">1804</a>
</td>

<td  class="c0" >
 <a href="#1805"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1804-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       next if $seen{$name}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1805">1805</a>
</td>

<td  class="c0" >
 <a href="#1806"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1806">1806</a>
</td>

<td  class="c0" >
 <a href="#1807"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<title>" . quote_html($name) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1807">1807</a>
</td>

<td  class="c0" >
 <a href="#1808"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $link = to_url($stream, $host, $space, "page/$id", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1808">1808</a>
</td>

<td  class="c0" >
 <a href="#1809"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<link href=\"$link\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1809">1809</a>
</td>

<td  class="c0" >
 <a href="#1810"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<id>$link</id>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1810">1810</a>
</td>

<td  class="c0" >
 <a href="#1811"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<content type=\"text\">" . quote_html(text($stream, $host, $space, $id)) . "</content>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1811">1811</a>
</td>

<td  class="c0" >
 <a href="#1814"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $seen{$name} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1812">1812</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1813">1813</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # a file </td>
</tr>

<tr>
<td  class="h" >
<a name="1814">1814</a>
</td>

<td  class="c0" >
 <a href="#1815"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1814-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       next if $seen{$name . "\x1c"}; </td>
</tr>

<tr>
<td  class="h" >
<a name="1815">1815</a>
</td>

<td  class="c0" >
 <a href="#1816"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1816">1816</a>
</td>

<td  class="c0" >
 <a href="#1817"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<title>" . quote_html($name) . " (file)</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1817">1817</a>
</td>

<td  class="c0" >
 <a href="#1818"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $link = to_url($stream, $host, $space, "file/$id", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1818">1818</a>
</td>

<td  class="c0" >
 <a href="#1819"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<link href=\"$link\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1819">1819</a>
</td>

<td  class="c0" >
 <a href="#1820"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("<id>$link</id>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1820">1820</a>
</td>

<td  class="c0" >
 <a href="#1822"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $seen{$name . "\x1c"} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1821">1821</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1822">1822</a>
</td>

<td  class="c0" >
 <a href="#1823"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($sec, $min, $hour, $mday, $mon, $year) = gmtime($ts); # 2003-12-13T18:30:02Z </td>
</tr>

<tr>
<td  class="h" >
<a name="1823">1823</a>
</td>

<td  class="c0" >
 <a href="#1824"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $ts = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $year + 1900, $mon + 1, $mday, $hour, $min, $sec); </td>
</tr>

<tr>
<td  class="h" >
<a name="1824">1824</a>
</td>

<td  class="c0" >
 <a href="#1825"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<updated>$ts</updated>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1825">1825</a>
</td>

<td  class="c0" >
 <a href="#1826"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1825-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $feed_ts = $ts if $ts gt $feed_ts; </td>
</tr>

<tr>
<td  class="h" >
<a name="1826">1826</a>
</td>

<td  class="c0" >
 <a href="#1827"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<author><name>$code</name></author>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1827">1827</a>
</td>

<td  class="c0" >
 <a href="#1829"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("</entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1828">1828</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1829">1829</a>
</td>

<td  class="c0" >
 <a href="#1830"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<updated>$feed_ts</updated>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1830">1830</a>
</td>

<td  class="c0" >
 <a href="#1834"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</feed>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1831">1831</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1832">1832</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1833">1833</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_blog_atom { </td>
</tr>

<tr>
<td  class="h" >
<a name="1834">1834</a>
</td>

<td  class="c0" >
 <a href="#1835"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1834-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1834-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1835">1835</a>
</td>

<td  class="c0" >
 <a href="#1836"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1836">1836</a>
</td>

<td  class="c0" >
 <a href="#1837"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1837">1837</a>
</td>

<td  class="c0" >
 <a href="#1838"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving Gemini Blog Atom"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1838">1838</a>
</td>

<td  class="c0" >
 <a href="#1839"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, "application/atom+xml"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1839">1839</a>
</td>

<td  class="c0" >
 <a href="#1843"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   blog_atom($stream, $host, $space, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1840">1840</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1841">1841</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1842">1842</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub blog_atom { </td>
</tr>

<tr>
<td  class="h" >
<a name="1843">1843</a>
</td>

<td  class="c0" >
 <a href="#1844"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1843-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1843-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1844">1844</a>
</td>

<td  class="c0" >
 <a href="#1845"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1845">1845</a>
</td>

<td  class="c0" >
 <a href="#1846"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1846">1846</a>
</td>

<td  class="c0" >
 <a href="#1847"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $scheme = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1847">1847</a>
</td>

<td  class="c0" >
 <a href="#1848"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1847-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $name = $server->{wiki_main_page} || "Phoebe"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1848">1848</a>
</td>

<td  class="c0" >
 <a href="#1849"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1849">1849</a>
</td>

<td  class="c0" >
 <a href="#1850"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1850">1850</a>
</td>

<td  class="c0" >
 <a href="#1851"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<feed xmlns=\"http://www.w3.org/2005/Atom\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1851">1851</a>
</td>

<td  class="c0" >
 <a href="#1852"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<title>" . quote_html($name) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1852">1852</a>
</td>

<td  class="c0" >
 <a href="#1853"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $link = to_url($stream, $host, $space, "", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1853">1853</a>
</td>

<td  class="c0" >
 <a href="#1854"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link href=\"$link\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1854">1854</a>
</td>

<td  class="c0" >
 <a href="#1855"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $link = to_url($stream, $host, $space, "do/blog/atom", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1855">1855</a>
</td>

<td  class="c0" >
 <a href="#1856"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link rel=\"self\" type=\"application/atom+xml\" href=\"$link\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1856">1856</a>
</td>

<td  class="c0" >
 <a href="#1857"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<id>$link</id>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1857">1857</a>
</td>

<td  class="c0" >
 <a href="#1858"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $feed_ts = "0001-01-01T00:00:00Z"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1858">1858</a>
</td>

<td  class="c0" >
 <a href="#1859"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<generator uri=\"https://alexschroeder.ch/cgit/phoebe/about/\" version=\"1.0\">Phoebe</generator>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1859">1859</a>
</td>

<td  class="c0" >
 <a href="#1860"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="1860">1860</a>
</td>

<td  class="c0" >
 <a href="#1861"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @blog = blog_pages($stream, $host, $space, 10); </td>
</tr>

<tr>
<td  class="h" >
<a name="1861">1861</a>
</td>

<td  class="c0" >
 <a href="#1863"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $changes = changes_for($host, $space, @blog); </td>
</tr>

<tr>
<td  class="h" >
<a name="1862">1862</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # hard coded: 10 pages blog ATOM, no pagination </td>
</tr>

<tr>
<td  class="h" >
<a name="1863">1863</a>
</td>

<td  class="c0" >
 <a href="#1864"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $id (@blog[0 .. min($#blog, 9)]) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1864">1864</a>
</td>

<td  class="c0" >
 <a href="#1865"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1865">1865</a>
</td>

<td  class="c0" >
 <a href="#1866"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1866">1866</a>
</td>

<td  class="c0" >
 <a href="#1867"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $link = to_url($stream, $host, $space, "page/$id", $scheme); </td>
</tr>

<tr>
<td  class="h" >
<a name="1867">1867</a>
</td>

<td  class="c0" >
 <a href="#1868"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<link href=\"$link\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1868">1868</a>
</td>

<td  class="c0" >
 <a href="#1869"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<id>$link</id>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1869">1869</a>
</td>

<td  class="c0" >
 <a href="#1870"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write(encode_utf8 "<content type=\"text\">" . quote_html(text($stream, $host, $space, $id)) . "</content>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1870">1870</a>
</td>

<td  class="c0" >
 <a href="#1871"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($sec, $min, $hour, $mday, $mon, $year) = gmtime($changes->{$id}); # 2003-12-13T18:30:02Z </td>
</tr>

<tr>
<td  class="h" >
<a name="1871">1871</a>
</td>

<td  class="c0" >
 <a href="#1872"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $ts = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $year + 1900, $mon + 1, $mday, $hour, $min, $sec); </td>
</tr>

<tr>
<td  class="h" >
<a name="1872">1872</a>
</td>

<td  class="c0" >
 <a href="#1873"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<updated>$ts</updated>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1873">1873</a>
</td>

<td  class="c0" >
 <a href="#1874"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1873-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $feed_ts = $ts if $ts gt $feed_ts; </td>
</tr>

<tr>
<td  class="h" >
<a name="1874">1874</a>
</td>

<td  class="c0" >
 <a href="#1876"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("</entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1875">1875</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1876">1876</a>
</td>

<td  class="c0" >
 <a href="#1877"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<updated>$feed_ts</updated>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1877">1877</a>
</td>

<td  class="c0" >
 <a href="#1881"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</feed>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1878">1878</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1879">1879</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1880">1880</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_raw { </td>
</tr>

<tr>
<td  class="h" >
<a name="1881">1881</a>
</td>

<td  class="c0" >
 <a href="#1882"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1881-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1881-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1882">1882</a>
</td>

<td  class="c0" >
 <a href="#1883"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1883">1883</a>
</td>

<td  class="c0" >
 <a href="#1884"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1884">1884</a>
</td>

<td  class="c0" >
 <a href="#1885"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1885">1885</a>
</td>

<td  class="c0" >
 <a href="#1886"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1886">1886</a>
</td>

<td  class="c0" >
 <a href="#1887"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving raw $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1887">1887</a>
</td>

<td  class="c0" >
 <a href="#1888"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, 'text/plain; charset=UTF-8'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1888">1888</a>
</td>

<td  class="c0" >
 <a href="#1892"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 text($stream, $host, $space, $id, $revision)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1889">1889</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1890">1890</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1891">1891</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_raw_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1892">1892</a>
</td>

<td  class="c0" >
 <a href="#1893"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1892-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1892-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1893">1893</a>
</td>

<td  class="c0" >
 <a href="#1894"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1894">1894</a>
</td>

<td  class="c0" >
 <a href="#1895"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1895">1895</a>
</td>

<td  class="c0" >
 <a href="#1896"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1896">1896</a>
</td>

<td  class="c0" >
 <a href="#1897"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1897">1897</a>
</td>

<td  class="c0" >
 <a href="#1898"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving raw $id via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1898">1898</a>
</td>

<td  class="c0" >
 <a href="#1899"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1899">1899</a>
</td>

<td  class="c0" >
 <a href="#1900"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/plain; charset=UTF-8\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1900">1900</a>
</td>

<td  class="c0" >
 <a href="#1901"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1901">1901</a>
</td>

<td  class="c0" >
 <a href="#1905"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 text($stream, $host, $space, $id, $revision)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1902">1902</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1903">1903</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1904">1904</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_diff { </td>
</tr>

<tr>
<td  class="h" >
<a name="1905">1905</a>
</td>

<td  class="c0" >
 <a href="#1906"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1905-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1905-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1906">1906</a>
</td>

<td  class="c0" >
 <a href="#1907"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1907">1907</a>
</td>

<td  class="c0" >
 <a href="#1908"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1908">1908</a>
</td>

<td  class="c0" >
 <a href="#1909"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1909">1909</a>
</td>

<td  class="c0" >
 <a href="#1910"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1910">1910</a>
</td>

<td  class="c0" >
 <a href="#1911"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $style = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1911">1911</a>
</td>

<td  class="c0" >
 <a href="#1912"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving the diff of $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1912">1912</a>
</td>

<td  class="c0" >
 <a href="#1913"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="1913">1913</a>
</td>

<td  class="c0" >
 <a href="#1914"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "# Differences for $id\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1914">1914</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1914-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $style) { print_link($stream, $host, $space, "Colour diff", "diff/$id/$revision/colour") } </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1915"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1915">1915</a>
</td>

<td  class="c0" >
 <a href="#1916"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   else { print_link($stream, $host, $space, "Normal diff", "diff/$id/$revision") } </td>
</tr>

<tr>
<td  class="h" >
<a name="1916">1916</a>
</td>

<td  class="c0" >
 <a href="#1917"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Showing the differences between revision $revision and the current revision.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1917">1917</a>
</td>

<td  class="c0" >
 <a href="#1918"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $new = text($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="1918">1918</a>
</td>

<td  class="c0" >
 <a href="#1919"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $old = text($stream, $host, $space, $id, $revision); </td>
</tr>

<tr>
<td  class="h" >
<a name="1919">1919</a>
</td>

<td  class="c0" >
 <a href="#1921"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1919-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $style) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1920">1920</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     diff($old, $new, </td>
</tr>

<tr>
<td  class="h" >
<a name="1921">1921</a>
</td>

<td  class="c0" >
 <a href="#1922"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1921-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { $stream->write(encode_utf8 "$_\n") for @_ }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1922">1922</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1922-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1922-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { $stream->write(encode_utf8 "> $_\n") for map { $_||"⏎" } @_ }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1923"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1923">1923</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1923-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1923-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { $stream->write(encode_utf8 "> $_\n") for map { $_||"⏎" } @_ }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1924"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1924">1924</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1924-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { "｢$_[0]｣" }); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1927"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1925">1925</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1926">1926</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     diff($old, $new, </td>
</tr>

<tr>
<td  class="h" >
<a name="1927">1927</a>
</td>

<td  class="c0" >
 <a href="#1928"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1927-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { $stream->write(encode_utf8 "$_\n") for @_ }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1928">1928</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1928-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1928-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { $stream->write(encode_utf8 "> \033[31m$_\033[0m\n") for map { $_||"⏎" } @_ }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1929"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1929">1929</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1929-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1929-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { $stream->write(encode_utf8 "> \033[32m$_\033[0m\n") for map { $_||"⏎" } @_ }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1930"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1930">1930</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1930-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	 sub { "\033[1m$_[0]\033[22m" }); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1935"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1931">1931</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1932">1932</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1933">1933</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1934">1934</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_diff_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="1935">1935</a>
</td>

<td  class="c0" >
 <a href="#1936"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1935-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1935-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1936">1936</a>
</td>

<td  class="c0" >
 <a href="#1937"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1937">1937</a>
</td>

<td  class="c0" >
 <a href="#1938"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1938">1938</a>
</td>

<td  class="c0" >
 <a href="#1939"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1939">1939</a>
</td>

<td  class="c0" >
 <a href="#1940"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1940">1940</a>
</td>

<td  class="c0" >
 <a href="#1941"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving the diff of $id via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1941">1941</a>
</td>

<td  class="c0" >
 <a href="#1942"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1942">1942</a>
</td>

<td  class="c0" >
 <a href="#1943"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1943">1943</a>
</td>

<td  class="c0" >
 <a href="#1944"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1944">1944</a>
</td>

<td  class="c0" >
 <a href="#1945"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1945">1945</a>
</td>

<td  class="c0" >
 <a href="#1946"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1946">1946</a>
</td>

<td  class="c0" >
 <a href="#1947"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1947">1947</a>
</td>

<td  class="c0" >
 <a href="#1948"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1948">1948</a>
</td>

<td  class="c0" >
 <a href="#1949"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<title>Differences for " . quote_html($id) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1949">1949</a>
</td>

<td  class="c0" >
 <a href="#1950"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1950">1950</a>
</td>

<td  class="c0" >
 <a href="#1951"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1951">1951</a>
</td>

<td  class="c0" >
 <a href="#1952"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1952">1952</a>
</td>

<td  class="c0" >
 <a href="#1953"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1953">1953</a>
</td>

<td  class="c0" >
 <a href="#1954"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<h1>Differences for " . quote_html($id) . "</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1954">1954</a>
</td>

<td  class="c0" >
 <a href="#1955"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>Showing the differences between revision $revision and the current revision.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1955">1955</a>
</td>

<td  class="c0" >
 <a href="#1956"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $new = text($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="1956">1956</a>
</td>

<td  class="c0" >
 <a href="#1958"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $old = text($stream, $host, $space, $id, $revision); </td>
</tr>

<tr>
<td  class="h" >
<a name="1957">1957</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   diff($old, $new, </td>
</tr>

<tr>
<td  class="h" >
<a name="1958">1958</a>
</td>

<td  class="c0" >
 <a href="#1959"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1958-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        sub { $stream->write(encode_utf8 "<p>$_\n") for @_ }, </td>
</tr>

<tr>
<td  class="h" >
<a name="1959">1959</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1959-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1959-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        sub { $stream->write(encode_utf8 "<p class=\"del\">" . join("<br>", map { $_||"⏎" } @_) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1960"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1960">1960</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1960-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1960-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        sub { $stream->write(encode_utf8 "<p class=\"ins\">" . join("<br>", map { $_||"⏎" } @_) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1961"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1961">1961</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1961-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">        sub { "<strong>$_</strong>" }); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#1967"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1962">1962</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1963">1963</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1964">1964</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # old text, new text, code reference to print a paragraph, print deleted text, </td>
</tr>

<tr>
<td  class="h" >
<a name="1965">1965</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # print added text </td>
</tr>

<tr>
<td  class="h" >
<a name="1966">1966</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub diff { </td>
</tr>

<tr>
<td  class="h" >
<a name="1967">1967</a>
</td>

<td  class="c0" >
 <a href="#1968"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1967-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1967-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my @old = split(/\n/, shift); </td>
</tr>

<tr>
<td  class="h" >
<a name="1968">1968</a>
</td>

<td  class="c0" >
 <a href="#1969"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @new = split(/\n/, shift); </td>
</tr>

<tr>
<td  class="h" >
<a name="1969">1969</a>
</td>

<td  class="c0" >
 <a href="#1970"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $paragraph = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1970">1970</a>
</td>

<td  class="c0" >
 <a href="#1971"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $deleted = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1971">1971</a>
</td>

<td  class="c0" >
 <a href="#1972"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $added = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1972">1972</a>
</td>

<td  class="c0" >
 <a href="#1973"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $highlight = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1973">1973</a>
</td>

<td  class="c0" >
 <a href="#1974"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Preparing a diff"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1974">1974</a>
</td>

<td  class="c0" >
 <a href="#1975"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $diff = Algorithm::Diff->new(\@old, \@new); </td>
</tr>

<tr>
<td  class="h" >
<a name="1975">1975</a>
</td>

<td  class="c0" >
 <a href="#1976"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $diff->Base(1); # line numbers, not indices </td>
</tr>

<tr>
<td  class="h" >
<a name="1976">1976</a>
</td>

<td  class="c0" >
 <a href="#1977"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   while($diff->Next()) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1977">1977</a>
</td>

<td  class="c0" >
 <a href="#1978"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1977-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     next if $diff->Same(); </td>
</tr>

<tr>
<td  class="h" >
<a name="1978">1978</a>
</td>

<td  class="c0" >
 <a href="#1979"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $sep = ''; </td>
</tr>

<tr>
<td  class="h" >
<a name="1979">1979</a>
</td>

<td  class="c0" >
 <a href="#1980"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($min1, $max1, $min2, $max2) = $diff->Get(qw(min1 max1 min2 max2)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1980">1980</a>
</td>

<td  class="c0" >
 <a href="#1981"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1980-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($diff->Diff == 3) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1981">1981</a>
</td>

<td  class="c0" >
 <a href="#1982"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($from, $to) = refine([$diff->Items(1)], [$diff->Items(2)], $highlight); </td>
</tr>

<tr>
<td  class="h" >
<a name="1982">1982</a>
</td>

<td  class="c0" >
 <a href="#1983"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1982-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $paragraph->($min1 == $max1 ? "Changed line $min1 from:" : "Changed lines $min1–$max1 from:"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1983">1983</a>
</td>

<td  class="c0" >
 <a href="#1984"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $deleted->(@$from); </td>
</tr>

<tr>
<td  class="h" >
<a name="1984">1984</a>
</td>

<td  class="c0" >
 <a href="#1985"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1984-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $paragraph->($min2 == $max2 ? "to:" : "to lines $min2–$max2:"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1985">1985</a>
</td>

<td  class="c0" >
 <a href="#1987"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $added->(@$to); </td>
</tr>

<tr>
<td  class="h" >
<a name="1986">1986</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($diff->Diff == 2) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1987">1987</a>
</td>

<td  class="c0" >
 <a href="#1988"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1987-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $paragraph->($min2 == $max2 ? "Added line $min2:" : "Added lines $min2–$max2:"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1988">1988</a>
</td>

<td  class="c0" >
 <a href="#1990"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $added->($diff->Items(2)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1989">1989</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($diff->Diff == 1) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1990">1990</a>
</td>

<td  class="c0" >
 <a href="#1991"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1990-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $paragraph->($min1 == $max1 ? "Deleted line $min1:" : "Deleted lines $min1–$max1:"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1991">1991</a>
</td>

<td  class="c0" >
 <a href="#1999"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $deleted->($diff->Items(1)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1992">1992</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1993">1993</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1994">1994</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1995">1995</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1996">1996</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # $from_lines and $to_lines are references to lists of lines. The lines are </td>
</tr>

<tr>
<td  class="h" >
<a name="1997">1997</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # concatenated and split by words. </td>
</tr>

<tr>
<td  class="h" >
<a name="1998">1998</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub refine { </td>
</tr>

<tr>
<td  class="h" >
<a name="1999">1999</a>
</td>

<td  class="c0" >
 <a href="#2000"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1999-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1999-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $from_lines = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2000">2000</a>
</td>

<td  class="c0" >
 <a href="#2001"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $to_lines = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2001">2001</a>
</td>

<td  class="c0" >
 <a href="#2002"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $highlight = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2002">2002</a>
</td>

<td  class="c0" >
 <a href="#2003"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @from_words = split(/\b(?=\w)/, join("\n", @$from_lines)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2003">2003</a>
</td>

<td  class="c0" >
 <a href="#2004"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @to_words = split(/\b(?=\w)/, join("\n", @$to_lines)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2004">2004</a>
</td>

<td  class="c0" >
 <a href="#2005"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $diff = Algorithm::Diff->new(\@from_words, \@to_words); </td>
</tr>

<tr>
<td  class="h" >
<a name="2005">2005</a>
</td>

<td  class="c0" >
 <a href="#2006"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($from, $to); </td>
</tr>

<tr>
<td  class="h" >
<a name="2006">2006</a>
</td>

<td  class="c0" >
 <a href="#2007"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   while($diff->Next()) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2007">2007</a>
</td>

<td  class="c0" >
 <a href="#2008"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2007-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (my @list = $diff->Same()) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2008">2008</a>
</td>

<td  class="c0" >
 <a href="#2009"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $from .= join('', @list); </td>
</tr>

<tr>
<td  class="h" >
<a name="2009">2009</a>
</td>

<td  class="c0" >
 <a href="#2012"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $to .= join('', @list); </td>
</tr>

<tr>
<td  class="h" >
<a name="2010">2010</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2011">2011</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # reassemble the chunks, and highlight them per line, don't strip trailing newlines! </td>
</tr>

<tr>
<td  class="h" >
<a name="2012">2012</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2012-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $from .= join("\n", map { $_ ? $highlight->($_) : $_ } (split(/\n/, join('', $diff->Items(1)), -1))); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2013"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2013">2013</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2013-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $to   .= join("\n", map { $_ ? $highlight->($_) : $_ } (split(/\n/, join('', $diff->Items(2)), -1))); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2017"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2014">2014</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2015">2015</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2016">2016</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # return lines </td>
</tr>

<tr>
<td  class="h" >
<a name="2017">2017</a>
</td>

<td  class="c0" >
 <a href="#2021"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return [split(/\n/, $from)], [split(/\n/, $to)]; </td>
</tr>

<tr>
<td  class="h" >
<a name="2018">2018</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2019">2019</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2020">2020</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_html { </td>
</tr>

<tr>
<td  class="h" >
<a name="2021">2021</a>
</td>

<td  class="c0" >
 <a href="#2022"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2021-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2021-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2022">2022</a>
</td>

<td  class="c0" >
 <a href="#2023"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2023">2023</a>
</td>

<td  class="c0" >
 <a href="#2024"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2024">2024</a>
</td>

<td  class="c0" >
 <a href="#2025"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2025">2025</a>
</td>

<td  class="c0" >
 <a href="#2026"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2026">2026</a>
</td>

<td  class="c0" >
 <a href="#2027"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, 'text/html'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2027">2027</a>
</td>

<td  class="c0" >
 <a href="#2028"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving $id as HTML"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2028">2028</a>
</td>

<td  class="c0" >
 <a href="#2032"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   html_page($stream, $host, $space, $id, $revision); </td>
</tr>

<tr>
<td  class="h" >
<a name="2029">2029</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2030">2030</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2031">2031</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_page_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="2032">2032</a>
</td>

<td  class="c0" >
 <a href="#2033"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2032-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2032-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2033">2033</a>
</td>

<td  class="c0" >
 <a href="#2034"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2034">2034</a>
</td>

<td  class="c0" >
 <a href="#2035"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2035">2035</a>
</td>

<td  class="c0" >
 <a href="#2036"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2036">2036</a>
</td>

<td  class="c0" >
 <a href="#2037"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2037">2037</a>
</td>

<td  class="c0" >
 <a href="#2038"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serving $id as HTML via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2038">2038</a>
</td>

<td  class="c0" >
 <a href="#2039"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2039">2039</a>
</td>

<td  class="c0" >
 <a href="#2040"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2040">2040</a>
</td>

<td  class="c0" >
 <a href="#2041"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2041">2041</a>
</td>

<td  class="c0" >
 <a href="#2045"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   html_page($stream, $host, $space, $id, $revision); </td>
</tr>

<tr>
<td  class="h" >
<a name="2042">2042</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2043">2043</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2044">2044</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub html_page { </td>
</tr>

<tr>
<td  class="h" >
<a name="2045">2045</a>
</td>

<td  class="c0" >
 <a href="#2046"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2045-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2045-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2046">2046</a>
</td>

<td  class="c0" >
 <a href="#2047"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2047">2047</a>
</td>

<td  class="c0" >
 <a href="#2048"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2048">2048</a>
</td>

<td  class="c0" >
 <a href="#2049"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2049">2049</a>
</td>

<td  class="c0" >
 <a href="#2050"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2050">2050</a>
</td>

<td  class="c0" >
 <a href="#2051"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2051">2051</a>
</td>

<td  class="c0" >
 <a href="#2052"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2052">2052</a>
</td>

<td  class="c0" >
 <a href="#2053"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2053">2053</a>
</td>

<td  class="c0" >
 <a href="#2054"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2054">2054</a>
</td>

<td  class="c0" >
 <a href="#2055"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2055">2055</a>
</td>

<td  class="c0" >
 <a href="#2056"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2056">2056</a>
</td>

<td  class="c0" >
 <a href="#2057"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2057">2057</a>
</td>

<td  class="c0" >
 <a href="#2058"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2058">2058</a>
</td>

<td  class="c0" >
 <a href="#2059"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2059">2059</a>
</td>

<td  class="c0" >
 <a href="#2060"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<h1>" . quote_html($id) . "</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2060">2060</a>
</td>

<td  class="c0" >
 <a href="#2061"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 to_html(text($stream, $host, $space, $id, $revision)) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2061">2061</a>
</td>

<td  class="c0" >
 <a href="#2062"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 to_html(html_footer($stream, $host, $space, $id, $revision)) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2062">2062</a>
</td>

<td  class="c0" >
 <a href="#2063"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2063">2063</a>
</td>

<td  class="c0" >
 <a href="#2068"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2064">2064</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2065">2065</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2066">2066</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # returns lines! </td>
</tr>

<tr>
<td  class="h" >
<a name="2067">2067</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub to_html { </td>
</tr>

<tr>
<td  class="h" >
<a name="2068">2068</a>
</td>

<td  class="c0" >
 <a href="#2069"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2068-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2068-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $text = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2069">2069</a>
</td>

<td  class="c0" >
 <a href="#2071"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @lines; </td>
</tr>

<tr>
<td  class="h" >
<a name="2070">2070</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2071">2071</a>
</td>

<td  class="c0" >
 <a href="#2072"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $code; </td>
</tr>

<tr>
<td  class="h" >
<a name="2072">2072</a>
</td>

<td  class="c0" >
 <a href="#2073"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for (split /\n/, quote_html($text)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2073">2073</a>
</td>

<td  class="c0" >
 <a href="#2074"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2073-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (/^```(?:type=([a-z]+))?/) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-4"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-5"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-6"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2074">2074</a>
</td>

<td  class="c0" >
 <a href="#2075"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2074-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $type = $1||"default"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2075">2075</a>
</td>

<td  class="c0" >
 <a href="#2076"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2075-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if ($code) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2076">2076</a>
</td>

<td  class="c0" >
 <a href="#2077"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	push @lines, "</pre>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2077">2077</a>
</td>

<td  class="c0" >
 <a href="#2079"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$code = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2078">2078</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2079">2079</a>
</td>

<td  class="c0" >
 <a href="#2080"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2079-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	push @lines, "</ul>" if $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2080">2080</a>
</td>

<td  class="c0" >
 <a href="#2081"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$list = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2081">2081</a>
</td>

<td  class="c0" >
 <a href="#2082"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	push @lines, "<pre class=\"$type\">"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2082">2082</a>
</td>

<td  class="c0" >
 <a href="#2085"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$code = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2083">2083</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="2084">2084</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($code) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2085">2085</a>
</td>

<td  class="c0" >
 <a href="#2087"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="2086">2086</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (/^\* +(.*)/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2087">2087</a>
</td>

<td  class="c0" >
 <a href="#2088"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2087-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "<ul>" unless $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2088">2088</a>
</td>

<td  class="c0" >
 <a href="#2089"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "<li>$1"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2089">2089</a>
</td>

<td  class="c0" >
 <a href="#2091"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $list = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2090">2090</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (my ($url, $text) = /^=&gt;\s*(\S+)\s*(.*)/) { # quoted HTML! </td>
</tr>

<tr>
<td  class="h" >
<a name="2091">2091</a>
</td>

<td  class="c0" >
 <a href="#2092"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2091-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "<ul>" unless $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2092">2092</a>
</td>

<td  class="c0" >
 <a href="#2093"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2092-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $text ||= $url; </td>
</tr>

<tr>
<td  class="h" >
<a name="2093">2093</a>
</td>

<td  class="c0" >
 <a href="#2094"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "<li><a href=\"$url\">$text</a>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2094">2094</a>
</td>

<td  class="c0" >
 <a href="#2096"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $list = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2095">2095</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (/^(#{1,6})\s*(.*)/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2096">2096</a>
</td>

<td  class="c0" >
 <a href="#2097"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2096-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "</ul>" if $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2097">2097</a>
</td>

<td  class="c0" >
 <a href="#2098"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $list = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2098">2098</a>
</td>

<td  class="c0" >
 <a href="#2099"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $level = length($1); </td>
</tr>

<tr>
<td  class="h" >
<a name="2099">2099</a>
</td>

<td  class="c0" >
 <a href="#2101"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "<h$level>$2</h$level>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2100">2100</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (/^&gt;\s*(.*)/) { # quoted HTML! </td>
</tr>

<tr>
<td  class="h" >
<a name="2101">2101</a>
</td>

<td  class="c0" >
 <a href="#2102"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2101-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "</ul>" if $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2102">2102</a>
</td>

<td  class="c0" >
 <a href="#2103"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $list = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2103">2103</a>
</td>

<td  class="c0" >
 <a href="#2105"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "<blockquote>$1</blockquote>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2104">2104</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2105">2105</a>
</td>

<td  class="c0" >
 <a href="#2106"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2105-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "</ul>" if $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2106">2106</a>
</td>

<td  class="c0" >
 <a href="#2107"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $list = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2107">2107</a>
</td>

<td  class="c0" >
 <a href="#2110"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       push @lines, "<p>$_"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2108">2108</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2109">2109</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2110">2110</a>
</td>

<td  class="c0" >
 <a href="#2111"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2110-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push @lines, "</pre>" if $code; </td>
</tr>

<tr>
<td  class="h" >
<a name="2111">2111</a>
</td>

<td  class="c0" >
 <a href="#2112"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2111-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push @lines, "</ul>" if $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="2112">2112</a>
</td>

<td  class="c0" >
 <a href="#2116"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return join("\n", @lines); </td>
</tr>

<tr>
<td  class="h" >
<a name="2113">2113</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2114">2114</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2115">2115</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub html_footer { </td>
</tr>

<tr>
<td  class="h" >
<a name="2116">2116</a>
</td>

<td  class="c0" >
 <a href="#2117"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2116-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2116-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2117">2117</a>
</td>

<td  class="c0" >
 <a href="#2118"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2118">2118</a>
</td>

<td  class="c0" >
 <a href="#2119"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2119">2119</a>
</td>

<td  class="c0" >
 <a href="#2120"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2120">2120</a>
</td>

<td  class="c0" >
 <a href="#2121"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2120-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift||""; </td>
</tr>

<tr>
<td  class="h" >
<a name="2121">2121</a>
</td>

<td  class="c0" >
 <a href="#2122"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @links; </td>
</tr>

<tr>
<td  class="h" >
<a name="2122">2122</a>
</td>

<td  class="c0" >
 <a href="#2123"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push(@links, $_->($stream, $host, $space, $id, $revision, "html")) for @footer; </td>
</tr>

<tr>
<td  class="h" >
<a name="2123">2123</a>
</td>

<td  class="c0" >
 <a href="#2124"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $html = join("\n", grep /\S/, @links); </td>
</tr>

<tr>
<td  class="h" >
<a name="2124">2124</a>
</td>

<td  class="c0" >
 <a href="#2125"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2124-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "\n\nMore:\n$html" if $html =~ /\S/; </td>
</tr>

<tr>
<td  class="h" >
<a name="2125">2125</a>
</td>

<td  class="c0" >
 <a href="#2129"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return ""; </td>
</tr>

<tr>
<td  class="h" >
<a name="2126">2126</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2127">2127</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2128">2128</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub day { </td>
</tr>

<tr>
<td  class="h" >
<a name="2129">2129</a>
</td>

<td  class="c0" >
 <a href="#2130"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2129-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2129-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2130">2130</a>
</td>

<td  class="c0" >
 <a href="#2131"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($sec, $min, $hour, $mday, $mon, $year) = gmtime(shift); </td>
</tr>

<tr>
<td  class="h" >
<a name="2131">2131</a>
</td>

<td  class="c0" >
 <a href="#2135"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return sprintf('%4d-%02d-%02d', $year + 1900, $mon + 1, $mday); </td>
</tr>

<tr>
<td  class="h" >
<a name="2132">2132</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2133">2133</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2134">2134</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub time_of_day { </td>
</tr>

<tr>
<td  class="h" >
<a name="2135">2135</a>
</td>

<td  class="c0" >
 <a href="#2136"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2135-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2135-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2136">2136</a>
</td>

<td  class="c0" >
 <a href="#2137"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($sec, $min, $hour, $mday, $mon, $year) = gmtime(shift); </td>
</tr>

<tr>
<td  class="h" >
<a name="2137">2137</a>
</td>

<td  class="c0" >
 <a href="#2141"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return sprintf('%02d:%02d UTC', $hour, $min); </td>
</tr>

<tr>
<td  class="h" >
<a name="2138">2138</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2139">2139</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2140">2140</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub modified { </td>
</tr>

<tr>
<td  class="h" >
<a name="2141">2141</a>
</td>

<td  class="c0" >
 <a href="#2142"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2141-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2141-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $ts = (stat(shift))[9]; </td>
</tr>

<tr>
<td  class="h" >
<a name="2142">2142</a>
</td>

<td  class="c0" >
 <a href="#2146"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $ts; </td>
</tr>

<tr>
<td  class="h" >
<a name="2143">2143</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2144">2144</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2145">2145</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_history { </td>
</tr>

<tr>
<td  class="h" >
<a name="2146">2146</a>
</td>

<td  class="c0" >
 <a href="#2147"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2146-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2146-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2147">2147</a>
</td>

<td  class="c0" >
 <a href="#2148"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2148">2148</a>
</td>

<td  class="c0" >
 <a href="#2149"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2149">2149</a>
</td>

<td  class="c0" >
 <a href="#2150"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2150">2150</a>
</td>

<td  class="c0" >
 <a href="#2151"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2151">2151</a>
</td>

<td  class="c0" >
 <a href="#2152"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $style = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2152">2152</a>
</td>

<td  class="c0" >
 <a href="#2153"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="2153">2153</a>
</td>

<td  class="c0" >
 <a href="#2154"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serve history for $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2154">2154</a>
</td>

<td  class="c0" >
 <a href="#2155"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "# Page history for $id\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2155">2155</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2155-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $style) { print_link($stream, $host, $space, "Colour history", "history/$id/$n/colour") } </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2156"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2156">2156</a>
</td>

<td  class="c0" >
 <a href="#2157"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   elsif ($style eq "colour") { print_link($stream, $host, $space, "Fancy history", "history/$id/$n/fancy") } </td>
</tr>

<tr>
<td  class="h" >
<a name="2157">2157</a>
</td>

<td  class="c0" >
 <a href="#2158"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   elsif ($style eq "fancy") { print_link($stream, $host, $space, "Normal history", "history/$id/$n") } </td>
</tr>

<tr>
<td  class="h" >
<a name="2158">2158</a>
</td>

<td  class="c0" >
 <a href="#2159"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="2159">2159</a>
</td>

<td  class="c0" >
 <a href="#2160"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2160">2160</a>
</td>

<td  class="c0" >
 <a href="#2161"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2160-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not -e $log) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2161">2161</a>
</td>

<td  class="c0" >
 <a href="#2162"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2162">2162</a>
</td>

<td  class="c0" >
 <a href="#2164"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2163">2163</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2164">2164</a>
</td>

<td  class="c0" >
 <a href="#2165"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Showing up to $n changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2165">2165</a>
</td>

<td  class="c0" >
 <a href="#2168"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh = File::ReadBackwards->new($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="2166">2166</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless changes($stream, </td>
</tr>

<tr>
<td  class="h" >
<a name="2167">2167</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $n, </td>
</tr>

<tr>
<td  class="h" >
<a name="2168">2168</a>
</td>

<td  class="c0" >
 <a href="#2169"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2168-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write("## " . shift . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2169">2169</a>
</td>

<td  class="c0" >
 <a href="#2170"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2169-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(shift . " by " . colourize($stream, shift, $style) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2170">2170</a>
</td>

<td  class="c0" >
 <a href="#2171"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2170-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { print_link($stream, @_) }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2171">2171</a>
</td>

<td  class="c0" >
 <a href="#2173"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2171-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(join("\n", @_, "")) }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2172">2172</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="2173">2173</a>
</td>

<td  class="c0" >
 <a href="#2175"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2173-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2173-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     READ: </td>
</tr>

<tr>
<td  class="h" >
<a name="2174">2174</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="2175">2175</a>
</td>

<td  class="c0" >
 <a href="#2176"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2176">2176</a>
</td>

<td  class="c0" >
 <a href="#2177"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($ts, $id_log, $revision, $code) = split(/\x1f/); </td>
</tr>

<tr>
<td  class="h" >
<a name="2177">2177</a>
</td>

<td  class="c0" >
 <a href="#2178"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2177-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       goto READ if $id_log ne $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="2178">2178</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2178-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $ts, $id_log, $revision, $code, $host, $space, 0 }); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2179"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2179">2179</a>
</td>

<td  class="c0" >
 <a href="#2180"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2180">2180</a>
</td>

<td  class="c0" >
 <a href="#2184"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2180-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   print_link($stream, $host, $space, "More...", "history/" . uri_escape_utf8($id) . "/" . 10 * $n . ($style ? "/$style" : "")); </td>
</tr>

<tr>
<td  class="h" >
<a name="2181">2181</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2182">2182</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2183">2183</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_history_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="2184">2184</a>
</td>

<td  class="c0" >
 <a href="#2185"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2184-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2184-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2185">2185</a>
</td>

<td  class="c0" >
 <a href="#2186"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2186">2186</a>
</td>

<td  class="c0" >
 <a href="#2187"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2187">2187</a>
</td>

<td  class="c0" >
 <a href="#2188"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2188">2188</a>
</td>

<td  class="c0" >
 <a href="#2189"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $n = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2189">2189</a>
</td>

<td  class="c0" >
 <a href="#2190"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serve history for $id via HTTP"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2190">2190</a>
</td>

<td  class="c0" >
 <a href="#2191"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2191">2191</a>
</td>

<td  class="c0" >
 <a href="#2192"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: text/html\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2192">2192</a>
</td>

<td  class="c0" >
 <a href="#2193"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2193">2193</a>
</td>

<td  class="c0" >
 <a href="#2194"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<!DOCTYPE html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2194">2194</a>
</td>

<td  class="c0" >
 <a href="#2195"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<html>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2195">2195</a>
</td>

<td  class="c0" >
 <a href="#2196"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2196">2196</a>
</td>

<td  class="c0" >
 <a href="#2197"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta charset=\"utf-8\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2197">2197</a>
</td>

<td  class="c0" >
 <a href="#2198"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<title>Page history for " . quote_html($id) . "</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2198">2198</a>
</td>

<td  class="c0" >
 <a href="#2199"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2199">2199</a>
</td>

<td  class="c0" >
 <a href="#2200"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2200">2200</a>
</td>

<td  class="c0" >
 <a href="#2201"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("</head>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2201">2201</a>
</td>

<td  class="c0" >
 <a href="#2202"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<body>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2202">2202</a>
</td>

<td  class="c0" >
 <a href="#2203"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "<h1>Page history for " . quote_html($id) . "</h1>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2203">2203</a>
</td>

<td  class="c0" >
 <a href="#2204"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="2204">2204</a>
</td>

<td  class="c0" >
 <a href="#2205"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $log = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2205">2205</a>
</td>

<td  class="c0" >
 <a href="#2206"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2205-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not -e $log) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2206">2206</a>
</td>

<td  class="c0" >
 <a href="#2207"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("<p>No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2207">2207</a>
</td>

<td  class="c0" >
 <a href="#2209"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2208">2208</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2209">2209</a>
</td>

<td  class="c0" >
 <a href="#2210"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>Showing up to $n changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2210">2210</a>
</td>

<td  class="c0" >
 <a href="#2211"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $fh = File::ReadBackwards->new($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="2211">2211</a>
</td>

<td  class="c0" >
 <a href="#2214"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $first = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2212">2212</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $more = changes($stream, </td>
</tr>

<tr>
<td  class="h" >
<a name="2213">2213</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $n, </td>
</tr>

<tr>
<td  class="h" >
<a name="2214">2214</a>
</td>

<td  class="c0" >
 <a href="#2215"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2214-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 "<h2>" . shift . "</h2>\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2215">2215</a>
</td>

<td  class="c0" >
 <a href="#2217"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2215-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 "<p>" . shift . " by " . colourize_html($stream, shift) . "\n") }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2216">2216</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="2217">2217</a>
</td>

<td  class="c0" >
 <a href="#2218"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2217-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($host, $space, $title, $id) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="2218">2218</a>
</td>

<td  class="c0" >
 <a href="#2220"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 "<br> → " . link_html($stream, $host, $space, $title, $id) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2219">2219</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2220">2220</a>
</td>

<td  class="c0" >
 <a href="#2222"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2220-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { "<br> → $_[0]" }, </td>
</tr>

<tr>
<td  class="h" >
<a name="2221">2221</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="2222">2222</a>
</td>

<td  class="c0" >
 <a href="#2224"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2222-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2222-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     READ: </td>
</tr>

<tr>
<td  class="h" >
<a name="2223">2223</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return unless $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="2224">2224</a>
</td>

<td  class="c0" >
 <a href="#2225"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2225">2225</a>
</td>

<td  class="c0" >
 <a href="#2226"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($ts, $id_log, $revision, $code) = split(/\x1f/); </td>
</tr>

<tr>
<td  class="h" >
<a name="2226">2226</a>
</td>

<td  class="c0" >
 <a href="#2227"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2226-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       goto READ if $id_log ne $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="2227">2227</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $ts, $id_log, $revision, $code, $host, $space, 0 }); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2228"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2228">2228</a>
</td>

<td  class="c0" >
 <a href="#2229"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2228-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless $more; </td>
</tr>

<tr>
<td  class="h" >
<a name="2229">2229</a>
</td>

<td  class="c0" >
 <a href="#2233"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("<p>" . link_html($stream, $host, $space, "More...", "history/" . uri_escape_utf8($id) . "/" . 10 * $n) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2230">2230</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2231">2231</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2232">2232</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub footer { </td>
</tr>

<tr>
<td  class="h" >
<a name="2233">2233</a>
</td>

<td  class="c0" >
 <a href="#2234"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2233-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2233-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2234">2234</a>
</td>

<td  class="c0" >
 <a href="#2235"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2235">2235</a>
</td>

<td  class="c0" >
 <a href="#2236"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2236">2236</a>
</td>

<td  class="c0" >
 <a href="#2237"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2237">2237</a>
</td>

<td  class="c0" >
 <a href="#2238"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2237-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift||""; </td>
</tr>

<tr>
<td  class="h" >
<a name="2238">2238</a>
</td>

<td  class="c0" >
 <a href="#2239"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @links; </td>
</tr>

<tr>
<td  class="h" >
<a name="2239">2239</a>
</td>

<td  class="c0" >
 <a href="#2240"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push(@links, gemini_link($stream, $host, $space, "History", "history/$id")); </td>
</tr>

<tr>
<td  class="h" >
<a name="2240">2240</a>
</td>

<td  class="c0" >
 <a href="#2241"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push(@links, gemini_link($stream, $host, $space, "Raw text", "raw/$id/$revision")); </td>
</tr>

<tr>
<td  class="h" >
<a name="2241">2241</a>
</td>

<td  class="c0" >
 <a href="#2242"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push(@links, gemini_link($stream, $host, $space, "HTML", "html/$id/$revision")); </td>
</tr>

<tr>
<td  class="h" >
<a name="2242">2242</a>
</td>

<td  class="c0" >
 <a href="#2243"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push(@links, $_->($stream, $host, $space, $id, $revision, "gemini")) for @footer; </td>
</tr>

<tr>
<td  class="h" >
<a name="2243">2243</a>
</td>

<td  class="c0" >
 <a href="#2247"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return join("\n", "\n\nMore:", (grep /\S/, @links), ""); # includes a trailing newline </td>
</tr>

<tr>
<td  class="h" >
<a name="2244">2244</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2245">2245</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2246">2246</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_page { </td>
</tr>

<tr>
<td  class="h" >
<a name="2247">2247</a>
</td>

<td  class="c0" >
 <a href="#2248"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2247-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2247-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2248">2248</a>
</td>

<td  class="c0" >
 <a href="#2249"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2249">2249</a>
</td>

<td  class="c0" >
 <a href="#2250"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2250">2250</a>
</td>

<td  class="c0" >
 <a href="#2251"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2251">2251</a>
</td>

<td  class="c0" >
 <a href="#2252"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2252">2252</a>
</td>

<td  class="c0" >
 <a href="#2253"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serve Gemini page $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2253">2253</a>
</td>

<td  class="c0" >
 <a href="#2254"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="2254">2254</a>
</td>

<td  class="c0" >
 <a href="#2255"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 "# $id\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2255">2255</a>
</td>

<td  class="c0" >
 <a href="#2256"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 text($stream, $host, $space, $id, $revision)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2256">2256</a>
</td>

<td  class="c0" >
 <a href="#2260"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(encode_utf8 footer($stream, $host, $space, $id, $revision)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2257">2257</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2258">2258</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2259">2259</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub text { </td>
</tr>

<tr>
<td  class="h" >
<a name="2260">2260</a>
</td>

<td  class="c0" >
 <a href="#2261"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2260-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2260-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; # used by contributions like oddmuse.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="2261">2261</a>
</td>

<td  class="c0" >
 <a href="#2262"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2262">2262</a>
</td>

<td  class="c0" >
 <a href="#2263"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2263">2263</a>
</td>

<td  class="c0" >
 <a href="#2264"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2264">2264</a>
</td>

<td  class="c0" >
 <a href="#2265"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2265">2265</a>
</td>

<td  class="c0" >
 <a href="#2266"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="2266">2266</a>
</td>

<td  class="c0" >
 <a href="#2267"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2266-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2266-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return read_text "$dir/keep/$id/$revision.gmi" if $revision and -f "$dir/keep/$id/$revision.gmi"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2267">2267</a>
</td>

<td  class="c0" >
 <a href="#2268"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2267-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return read_text "$dir/page/$id.gmi" if -f "$dir/page/$id.gmi"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2268">2268</a>
</td>

<td  class="c0" >
 <a href="#2269"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2268-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2268-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return robots() if $id eq "robots" and not $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="2269">2269</a>
</td>

<td  class="c0" >
 <a href="#2270"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2269-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "This this revision is no longer available." if $revision; </td>
</tr>

<tr>
<td  class="h" >
<a name="2270">2270</a>
</td>

<td  class="c0" >
 <a href="#2274"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "This page does not yet exist."; </td>
</tr>

<tr>
<td  class="h" >
<a name="2271">2271</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2272">2272</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2273">2273</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub robots () { </td>
</tr>

<tr>
<td  class="h" >
<a name="2274">2274</a>
</td>

<td  class="c0" >
 <a href="#2296"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2274-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2274-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $ban = << 'EOT'; </td>
</tr>

<tr>
<td  class="h" >
<a name="2275">2275</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> User-agent: * </td>
</tr>

<tr>
<td  class="h" >
<a name="2276">2276</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /raw </td>
</tr>

<tr>
<td  class="h" >
<a name="2277">2277</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /html </td>
</tr>

<tr>
<td  class="h" >
<a name="2278">2278</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /diff </td>
</tr>

<tr>
<td  class="h" >
<a name="2279">2279</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /history </td>
</tr>

<tr>
<td  class="h" >
<a name="2280">2280</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/comment </td>
</tr>

<tr>
<td  class="h" >
<a name="2281">2281</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/changes </td>
</tr>

<tr>
<td  class="h" >
<a name="2282">2282</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/all/changes </td>
</tr>

<tr>
<td  class="h" >
<a name="2283">2283</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/all/latest/changes </td>
</tr>

<tr>
<td  class="h" >
<a name="2284">2284</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/rss </td>
</tr>

<tr>
<td  class="h" >
<a name="2285">2285</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/blog/rss </td>
</tr>

<tr>
<td  class="h" >
<a name="2286">2286</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/atom </td>
</tr>

<tr>
<td  class="h" >
<a name="2287">2287</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/blog/atom </td>
</tr>

<tr>
<td  class="h" >
<a name="2288">2288</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/all/atom </td>
</tr>

<tr>
<td  class="h" >
<a name="2289">2289</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/new </td>
</tr>

<tr>
<td  class="h" >
<a name="2290">2290</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/more </td>
</tr>

<tr>
<td  class="h" >
<a name="2291">2291</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/match </td>
</tr>

<tr>
<td  class="h" >
<a name="2292">2292</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Disallow: /do/search </td>
</tr>

<tr>
<td  class="h" >
<a name="2293">2293</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # allowing do/index! </td>
</tr>

<tr>
<td  class="h" >
<a name="2294">2294</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> Crawl-delay: 10 </td>
</tr>

<tr>
<td  class="h" >
<a name="2295">2295</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> EOT </td>
</tr>

<tr>
<td  class="h" >
<a name="2296">2296</a>
</td>

<td  class="c0" >
 <a href="#2300"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @disallows = $ban =~ /Disallow: (.*)/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="2297">2297</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $ban </td>
</tr>

<tr>
<td  class="h" >
<a name="2298">2298</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       . join("\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="2299">2299</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     map { </td>
</tr>

<tr>
<td  class="h" >
<a name="2300">2300</a>
</td>

<td  class="c0" >
 <a href="#2301"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	       my $space = (split /\//)[-1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="2301">2301</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	       join("\n", "# $space", map { "Disallow: /$space$_" } @disallows) </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2302"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2302">2302</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     } @{$server->{wiki_space}}) . "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2306"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2303">2303</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2304">2304</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2305">2305</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_file { </td>
</tr>

<tr>
<td  class="h" >
<a name="2306">2306</a>
</td>

<td  class="c0" >
 <a href="#2307"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2306-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2306-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2307">2307</a>
</td>

<td  class="c0" >
 <a href="#2308"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2308">2308</a>
</td>

<td  class="c0" >
 <a href="#2309"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2309">2309</a>
</td>

<td  class="c0" >
 <a href="#2310"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2310">2310</a>
</td>

<td  class="c0" >
 <a href="#2311"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2311">2311</a>
</td>

<td  class="c0" >
 <a href="#2312"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serve file $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2312">2312</a>
</td>

<td  class="c0" >
 <a href="#2313"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="2313">2313</a>
</td>

<td  class="c0" >
 <a href="#2314"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $file = "$dir/file/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2314">2314</a>
</td>

<td  class="c0" >
 <a href="#2315"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $meta = "$dir/meta/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2315">2315</a>
</td>

<td  class="c0" >
 <a href="#2316"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2315-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not -f $file) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2316">2316</a>
</td>

<td  class="c0" >
 <a href="#2317"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "40", "File not found"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2317">2317</a>
</td>

<td  class="c0" >
 <a href="#2319"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2318">2318</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif (not -f $meta) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2319">2319</a>
</td>

<td  class="c0" >
 <a href="#2320"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "40", "Metadata not found"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2320">2320</a>
</td>

<td  class="c0" >
 <a href="#2322"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2321">2321</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2322">2322</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %meta = (map { split(/: /, $_, 2) } read_lines($meta)); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2323"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2323">2323</a>
</td>

<td  class="c0" >
 <a href="#2324"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2323-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $meta{'content-type'}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2324">2324</a>
</td>

<td  class="c0" >
 <a href="#2325"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Metadata corrupt"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2325">2325</a>
</td>

<td  class="c0" >
 <a href="#2327"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2326">2326</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2327">2327</a>
</td>

<td  class="c0" >
 <a href="#2328"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream, $meta{'content-type'}); </td>
</tr>

<tr>
<td  class="h" >
<a name="2328">2328</a>
</td>

<td  class="c0" >
 <a href="#2332"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(read_binary($file)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2329">2329</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2330">2330</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2331">2331</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub serve_file_via_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="2332">2332</a>
</td>

<td  class="c0" >
 <a href="#2333"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2332-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2332-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2333">2333</a>
</td>

<td  class="c0" >
 <a href="#2334"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2334">2334</a>
</td>

<td  class="c0" >
 <a href="#2335"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2335">2335</a>
</td>

<td  class="c0" >
 <a href="#2336"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2336">2336</a>
</td>

<td  class="c0" >
 <a href="#2337"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2337">2337</a>
</td>

<td  class="c0" >
 <a href="#2338"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Serve file $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2338">2338</a>
</td>

<td  class="c0" >
 <a href="#2339"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="2339">2339</a>
</td>

<td  class="c0" >
 <a href="#2340"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $file = "$dir/file/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2340">2340</a>
</td>

<td  class="c0" >
 <a href="#2341"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $meta = "$dir/meta/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2341">2341</a>
</td>

<td  class="c0" >
 <a href="#2342"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2341-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not -f $file) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2342">2342</a>
</td>

<td  class="c0" >
 <a href="#2343"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("HTTP/1.1 404 Error\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2343">2343</a>
</td>

<td  class="c0" >
 <a href="#2344"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("Content-Type: text/plain\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2344">2344</a>
</td>

<td  class="c0" >
 <a href="#2345"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2345">2345</a>
</td>

<td  class="c0" >
 <a href="#2346"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("File not found\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2346">2346</a>
</td>

<td  class="c0" >
 <a href="#2348"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2347">2347</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif (not -f $meta) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2348">2348</a>
</td>

<td  class="c0" >
 <a href="#2349"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("HTTP/1.1 500 Error\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2349">2349</a>
</td>

<td  class="c0" >
 <a href="#2350"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("Content-Type: text/plain\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2350">2350</a>
</td>

<td  class="c0" >
 <a href="#2351"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2351">2351</a>
</td>

<td  class="c0" >
 <a href="#2352"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("Metadata not found\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2352">2352</a>
</td>

<td  class="c0" >
 <a href="#2354"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2353">2353</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2354">2354</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %meta = (map { split(/: /, $_, 2) } read_lines($meta)); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2355"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2355">2355</a>
</td>

<td  class="c0" >
 <a href="#2356"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2355-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $meta{'content-type'}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2356">2356</a>
</td>

<td  class="c0" >
 <a href="#2357"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("HTTP/1.1 500 Error\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2357">2357</a>
</td>

<td  class="c0" >
 <a href="#2358"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("Content-Type: text/plain\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2358">2358</a>
</td>

<td  class="c0" >
 <a href="#2359"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2359">2359</a>
</td>

<td  class="c0" >
 <a href="#2360"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->write("Metadata corrupt\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2360">2360</a>
</td>

<td  class="c0" >
 <a href="#2362"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2361">2361</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2362">2362</a>
</td>

<td  class="c0" >
 <a href="#2363"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2363">2363</a>
</td>

<td  class="c0" >
 <a href="#2364"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("Content-Type: " . $meta{'content-type'} ."\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2364">2364</a>
</td>

<td  class="c0" >
 <a href="#2365"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2365">2365</a>
</td>

<td  class="c0" >
 <a href="#2369"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write(read_binary($file)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2366">2366</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2367">2367</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2368">2368</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub bogus_hash { </td>
</tr>

<tr>
<td  class="h" >
<a name="2369">2369</a>
</td>

<td  class="c0" >
 <a href="#2370"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2369-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2369-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $str = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2370">2370</a>
</td>

<td  class="c0" >
 <a href="#2371"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2370-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return "0000" unless $str; </td>
</tr>

<tr>
<td  class="h" >
<a name="2371">2371</a>
</td>

<td  class="c0" >
 <a href="#2372"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $num = unpack("L",B::hash($str)); # 32-bit integer </td>
</tr>

<tr>
<td  class="h" >
<a name="2372">2372</a>
</td>

<td  class="c0" >
 <a href="#2373"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $code = sprintf("%o", $num); # octal is 0-7 </td>
</tr>

<tr>
<td  class="h" >
<a name="2373">2373</a>
</td>

<td  class="c0" >
 <a href="#2377"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return substr($code, 0, 4); # four numbers </td>
</tr>

<tr>
<td  class="h" >
<a name="2374">2374</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2375">2375</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2376">2376</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub write_file { </td>
</tr>

<tr>
<td  class="h" >
<a name="2377">2377</a>
</td>

<td  class="c0" >
 <a href="#2378"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2377-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2377-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2378">2378</a>
</td>

<td  class="c0" >
 <a href="#2379"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2379">2379</a>
</td>

<td  class="c0" >
 <a href="#2380"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2380">2380</a>
</td>

<td  class="c0" >
 <a href="#2381"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2381">2381</a>
</td>

<td  class="c0" >
 <a href="#2382"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $data = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2382">2382</a>
</td>

<td  class="c0" >
 <a href="#2383"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $type = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2383">2383</a>
</td>

<td  class="c0" >
 <a href="#2384"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Writing file $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2384">2384</a>
</td>

<td  class="c0" >
 <a href="#2385"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="2385">2385</a>
</td>

<td  class="c0" >
 <a href="#2386"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $file = "$dir/file/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2386">2386</a>
</td>

<td  class="c0" >
 <a href="#2387"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $meta = "$dir/meta/$id"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2387">2387</a>
</td>

<td  class="c0" >
 <a href="#2388"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2387-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (-e $file) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2388">2388</a>
</td>

<td  class="c0" >
 <a href="#2389"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $old = read_binary($file); </td>
</tr>

<tr>
<td  class="h" >
<a name="2389">2389</a>
</td>

<td  class="c0" >
 <a href="#2390"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2389-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($old eq $data) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2390">2390</a>
</td>

<td  class="c0" >
 <a href="#2391"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->info("$id is unchanged"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2391">2391</a>
</td>

<td  class="c0" >
 <a href="#2392"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "30", to_url($stream, $host, $space, "page/$id")); </td>
</tr>

<tr>
<td  class="h" >
<a name="2392">2392</a>
</td>

<td  class="c0" >
 <a href="#2395"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2393">2393</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2394">2394</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2395">2395</a>
</td>

<td  class="c0" >
 <a href="#2396"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $changes = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2396">2396</a>
</td>

<td  class="c0" >
 <a href="#2397"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2396-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not open(my $fh, ">>:encoding(UTF-8)", $changes)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2397">2397</a>
</td>

<td  class="c0" >
 <a href="#2398"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->error("Cannot log $changes: $!"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2398">2398</a>
</td>

<td  class="c0" >
 <a href="#2399"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Unable to write log"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2399">2399</a>
</td>

<td  class="c0" >
 <a href="#2401"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2400">2400</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2401">2401</a>
</td>

<td  class="c0" >
 <a href="#2402"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $peerhost = $stream->handle->peerhost; </td>
</tr>

<tr>
<td  class="h" >
<a name="2402">2402</a>
</td>

<td  class="c0" >
 <a href="#2403"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     say $fh join("\x1f", scalar(time), $id, 0, bogus_hash($peerhost)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2403">2403</a>
</td>

<td  class="c0" >
 <a href="#2405"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="2404">2404</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2405">2405</a>
</td>

<td  class="c0" >
 <a href="#2406"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2405-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   mkdir "$dir/file" unless -d "$dir/file"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2406">2406</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   eval { write_binary($file, $data) }; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2407"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2407">2407</a>
</td>

<td  class="c0" >
 <a href="#2408"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2407-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($@) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2408">2408</a>
</td>

<td  class="c0" >
 <a href="#2409"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Unable to save $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2409">2409</a>
</td>

<td  class="c0" >
 <a href="#2411"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2410">2410</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2411">2411</a>
</td>

<td  class="c0" >
 <a href="#2412"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2411-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   mkdir "$dir/meta" unless -d "$dir/meta"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2412">2412</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   eval { write_text($meta, "content-type: $type\n") }; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2413"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2413">2413</a>
</td>

<td  class="c0" >
 <a href="#2414"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2413-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($@) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2414">2414</a>
</td>

<td  class="c0" >
 <a href="#2415"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Unable to save metadata for $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2415">2415</a>
</td>

<td  class="c0" >
 <a href="#2417"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2416">2416</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2417">2417</a>
</td>

<td  class="c0" >
 <a href="#2418"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Wrote $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2418">2418</a>
</td>

<td  class="c0" >
 <a href="#2422"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   result($stream, "30", to_url($stream, $host, $space, "file/$id")); </td>
</tr>

<tr>
<td  class="h" >
<a name="2419">2419</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2420">2420</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2421">2421</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub delete_file { </td>
</tr>

<tr>
<td  class="h" >
<a name="2422">2422</a>
</td>

<td  class="c0" >
 <a href="#2423"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2422-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2422-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2423">2423</a>
</td>

<td  class="c0" >
 <a href="#2424"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2424">2424</a>
</td>

<td  class="c0" >
 <a href="#2425"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2425">2425</a>
</td>

<td  class="c0" >
 <a href="#2426"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2426">2426</a>
</td>

<td  class="c0" >
 <a href="#2427"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Deleting file $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2427">2427</a>
</td>

<td  class="c0" >
 <a href="#2428"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="2428">2428</a>
</td>

<td  class="c0" >
 <a href="#2429"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   unlink("$dir/file/$id", "$dir/meta/$id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2429">2429</a>
</td>

<td  class="c0" >
 <a href="#2430"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $changes = "$dir/changes.log"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2430">2430</a>
</td>

<td  class="c0" >
 <a href="#2431"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2430-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not open(my $fh, ">>:encoding(UTF-8)", $changes)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2431">2431</a>
</td>

<td  class="c0" >
 <a href="#2432"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->error("Cannot write log $changes: $!"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2432">2432</a>
</td>

<td  class="c0" >
 <a href="#2433"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Unable to write log"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2433">2433</a>
</td>

<td  class="c0" >
 <a href="#2435"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2434">2434</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2435">2435</a>
</td>

<td  class="c0" >
 <a href="#2436"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $peerhost = $stream->handle->peerhost; </td>
</tr>

<tr>
<td  class="h" >
<a name="2436">2436</a>
</td>

<td  class="c0" >
 <a href="#2437"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     say $fh join("\x1f", scalar(time), $id, "🖻", bogus_hash($peerhost)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2437">2437</a>
</td>

<td  class="c0" >
 <a href="#2439"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="2438">2438</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2439">2439</a>
</td>

<td  class="c0" >
 <a href="#2440"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="2440">2440</a>
</td>

<td  class="c0" >
 <a href="#2441"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("# $id\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2441">2441</a>
</td>

<td  class="c0" >
 <a href="#2445"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("The file was deleted.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2442">2442</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2443">2443</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2444">2444</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub allow_deny_hook { </td>
</tr>

<tr>
<td  class="h" >
<a name="2445">2445</a>
</td>

<td  class="c0" >
 <a href="#2446"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2445-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2445-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2446">2446</a>
</td>

<td  class="c0" >
 <a href="#2448"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $client = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2447">2447</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # consider adding rate limiting? </td>
</tr>

<tr>
<td  class="h" >
<a name="2448">2448</a>
</td>

<td  class="c0" >
 <a href="#2452"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2449">2449</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2450">2450</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2451">2451</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub wiki_dir { </td>
</tr>

<tr>
<td  class="h" >
<a name="2452">2452</a>
</td>

<td  class="c0" >
 <a href="#2453"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2452-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2452-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2453">2453</a>
</td>

<td  class="c0" >
 <a href="#2454"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2454">2454</a>
</td>

<td  class="c0" >
 <a href="#2455"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $dir = $server->{wiki_dir}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2455">2455</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2455-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (keys %{$server->{host}} > 1) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2456"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2456">2456</a>
</td>

<td  class="c0" >
 <a href="#2457"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $dir .= "/$host"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2457">2457</a>
</td>

<td  class="c0" >
 <a href="#2459"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2457-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     mkdir($dir) unless -d $dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="2458">2458</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2459">2459</a>
</td>

<td  class="c0" >
 <a href="#2460"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2459-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $dir .= "/$space" if $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="2460">2460</a>
</td>

<td  class="c0" >
 <a href="#2461"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2460-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   mkdir($dir) unless -d $dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="2461">2461</a>
</td>

<td  class="c0" >
 <a href="#2467"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $dir; </td>
</tr>

<tr>
<td  class="h" >
<a name="2462">2462</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2463">2463</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2464">2464</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # If we are serving multiple hostnames, we need to check whether the space </td>
</tr>

<tr>
<td  class="h" >
<a name="2465">2465</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # supplied in the URL matches a known hostname/space combo. </td>
</tr>

<tr>
<td  class="h" >
<a name="2466">2466</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub space { </td>
</tr>

<tr>
<td  class="h" >
<a name="2467">2467</a>
</td>

<td  class="c0" >
 <a href="#2468"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2467-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2467-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2468">2468</a>
</td>

<td  class="c0" >
 <a href="#2469"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2469">2469</a>
</td>

<td  class="c0" >
 <a href="#2470"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2470">2470</a>
</td>

<td  class="c0" >
 <a href="#2471"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2470-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $space = decode_utf8(uri_unescape($space)) if $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="2471">2471</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2471-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (keys %{$server->{host}} > 1) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2472"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2472">2472</a>
</td>

<td  class="c0" >
 <a href="#2473"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2472-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return undef unless $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="2473">2473</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2473-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return $space if grep { $_ eq "$host/$space" } @{$server->{wiki_space}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2475"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2474">2474</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     # else it's an error and we jump out to the eval {} in handle_url </td>
</tr>

<tr>
<td  class="h" >
<a name="2475">2475</a>
</td>

<td  class="c0" >
 <a href="#2476"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "40", "$host doesn't know about $space"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2476">2476</a>
</td>

<td  class="c0" >
 <a href="#2480"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     die "unknown space: $host/$space\n"; # is caught in the eval </td>
</tr>

<tr>
<td  class="h" >
<a name="2477">2477</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2478">2478</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # Without wildcards, just return the space. We already know that the space </td>
</tr>

<tr>
<td  class="h" >
<a name="2479">2479</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   # matched the regular expression of spaces. </td>
</tr>

<tr>
<td  class="h" >
<a name="2480">2480</a>
</td>

<td  class="c0" >
 <a href="#2484"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="2481">2481</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2482">2482</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2483">2483</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub space_dirs { </td>
</tr>

<tr>
<td  class="h" >
<a name="2484">2484</a>
</td>

<td  class="c0" >
 <a href="#2485"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2484-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2484-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2485">2485</a>
</td>

<td  class="c0" >
 <a href="#2486"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="2486">2486</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2486-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (keys %{$server->{host}} > 1) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2487"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2487">2487</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push @spaces, keys %{$server->{host}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2489"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2488">2488</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2489">2489</a>
</td>

<td  class="c0" >
 <a href="#2491"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     push @spaces, undef; </td>
</tr>

<tr>
<td  class="h" >
<a name="2490">2490</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2491">2491</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push @spaces, @{$server->{wiki_space}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2492"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2492">2492</a>
</td>

<td  class="c0" >
 <a href="#2499"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return @spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="2493">2493</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2494">2494</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2495">2495</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # A list of links to all the spaces we have. The tricky part here is that we </td>
</tr>

<tr>
<td  class="h" >
<a name="2496">2496</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # want to create appropriate links if we're virtual hosting. Keys are URLs, </td>
</tr>

<tr>
<td  class="h" >
<a name="2497">2497</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> # values are names. </td>
</tr>

<tr>
<td  class="h" >
<a name="2498">2498</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub space_links { </td>
</tr>

<tr>
<td  class="h" >
<a name="2499">2499</a>
</td>

<td  class="c0" >
 <a href="#2500"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2499-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2499-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2500">2500</a>
</td>

<td  class="c0" >
 <a href="#2501"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $scheme = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2501">2501</a>
</td>

<td  class="c0" >
 <a href="#2502"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2502">2502</a>
</td>

<td  class="c0" >
 <a href="#2503"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2503">2503</a>
</td>

<td  class="c0" >
 <a href="#2504"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my %spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="2504">2504</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2504-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (keys %{$server->{host}} > 1) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2505"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2505">2505</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for (keys %{$server->{host}}) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2506"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2506">2506</a>
</td>

<td  class="c0" >
 <a href="#2508"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $spaces{"$scheme://$_:$port/"} = $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="2507">2507</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2508">2508</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for my $space (@{$server->{wiki_space}}) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2509"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2509">2509</a>
</td>

<td  class="c0" >
 <a href="#2510"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($ahost, $aspace) = split(/\//m, $space, 2); </td>
</tr>

<tr>
<td  class="h" >
<a name="2510">2510</a>
</td>

<td  class="c0" >
 <a href="#2512"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $spaces{"$scheme://$ahost:$port/$aspace/"} = $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="2511">2511</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2512">2512</a>
</td>

<td  class="c0" >
 <a href="#2513"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif (@{$server->{wiki_space}}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2513">2513</a>
</td>

<td  class="c0" >
 <a href="#2514"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $spaces{"$scheme://$host:$port/"} = "Main space"; </td>
</tr>

<tr>
<td  class="h" >
<a name="2514">2514</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     for (sort @{$server->{wiki_space}}) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2515"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2515">2515</a>
</td>

<td  class="c0" >
 <a href="#2518"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $spaces{"$scheme://$host:$port/$_/"} = $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="2516">2516</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2517">2517</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2518">2518</a>
</td>

<td  class="c0" >
 <a href="#2522"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return \%spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="2519">2519</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2520">2520</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2521">2521</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub process_http { </td>
</tr>

<tr>
<td  class="h" >
<a name="2522">2522</a>
</td>

<td  class="c0" >
 <a href="#2523"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2522-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2522-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2523">2523</a>
</td>

<td  class="c0" >
 <a href="#2524"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $request = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2524">2524</a>
</td>

<td  class="c0" >
 <a href="#2525"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $headers = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2525">2525</a>
</td>

<td  class="c0" >
 <a href="#2526"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $buffer = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2526">2526</a>
</td>

<td  class="c0" >
 <a href="#2528"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   eval { </td>
</tr>

<tr>
<td  class="h" >
<a name="2527">2527</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     local $SIG{'ALRM'} = sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="2528">2528</a>
</td>

<td  class="c0" >
 <a href="#2529"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2528-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->error("Timeout processing $request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2529">2529</a>
</td>

<td  class="c0" >
 <a href="#2530"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     }; </td>
</tr>

<tr>
<td  class="h" >
<a name="2530">2530</a>
</td>

<td  class="c0" >
 <a href="#2531"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     alarm(10); # timeout </td>
</tr>

<tr>
<td  class="h" >
<a name="2531">2531</a>
</td>

<td  class="c0" >
 <a href="#2532"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $hosts = host_regex(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2532">2532</a>
</td>

<td  class="c0" >
 <a href="#2533"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="2533">2533</a>
</td>

<td  class="c0" >
 <a href="#2534"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $spaces = space_regex(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2534">2534</a>
</td>

<td  class="c0" >
 <a href="#2535"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->info("Looking at $request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2535">2535</a>
</td>

<td  class="c0" >
 <a href="#2536"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my ($host, $space, $id, $n, $filter); </td>
</tr>

<tr>
<td  class="h" >
<a name="2536">2536</a>
</td>

<td  class="c0" >
 <a href="#2540"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2536-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2536-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if (run_extensions($stream, $request, $headers, $buffer)) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-3"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-3"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-4"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-4"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-5"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-5"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-6"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-6"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-7"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-7"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-8"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-8"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-9"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-9"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-10"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-10"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-11"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-11"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-12"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-12"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-13"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-13"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-14"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-14"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-15"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-15"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-16"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-16"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-17"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-17"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-18"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2537">2537</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       # config file goes first </td>
</tr>

<tr>
<td  class="h" >
<a name="2538">2538</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($request =~ m!^GET /default.css HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2539">2539</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2540">2540</a>
</td>

<td  class="c0" >
 <a href="#2543"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_css_via_http($stream, $host); </td>
</tr>

<tr>
<td  class="h" >
<a name="2541">2541</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space) = $request =~ m!^GET (?:(?:/($spaces)/?)?|/) HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2542">2542</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2543">2543</a>
</td>

<td  class="c0" >
 <a href="#2546"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_main_menu_via_http($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2544">2544</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/page/([^/]*)(?:/(\d+))? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2545">2545</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2546">2546</a>
</td>

<td  class="c0" >
 <a href="#2549"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_page_via_http($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="2547">2547</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/file/([^/]*)(?:/(\d+))? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2548">2548</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2549">2549</a>
</td>

<td  class="c0" >
 <a href="#2552"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_file_via_http($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="2550">2550</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/history/([^/]*)(?:/(\d+))? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2551">2551</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2552">2552</a>
</td>

<td  class="c0" >
 <a href="#2555"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2552-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_history_via_http($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n||10); </td>
</tr>

<tr>
<td  class="h" >
<a name="2553">2553</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/diff/([^/]*)(?:/(\d+))? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2554">2554</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2555">2555</a>
</td>

<td  class="c0" >
 <a href="#2558"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2555-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_diff_via_http($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n||10); </td>
</tr>

<tr>
<td  class="h" >
<a name="2556">2556</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/raw/([^/]*)(?:/(\d+))? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2557">2557</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2558">2558</a>
</td>

<td  class="c0" >
 <a href="#2561"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_raw_via_http($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id)), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="2559">2559</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($request =~ m!^GET /robots.txt(?:[#?].*)? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2560">2560</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2561">2561</a>
</td>

<td  class="c0" >
 <a href="#2564"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_raw_via_http($stream, $host, undef, 'robots'); </td>
</tr>

<tr>
<td  class="h" >
<a name="2562">2562</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/do/changes(?:/(\d+))? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2563">2563</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2564">2564</a>
</td>

<td  class="c0" >
 <a href="#2567"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2564-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_changes_via_http($stream, $host, space($stream, $host, $space), $n||100); </td>
</tr>

<tr>
<td  class="h" >
<a name="2565">2565</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($filter, $n) = $request =~ m!^GET /do/all(?:/(latest))?/changes(?:/(\d+))? HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2566">2566</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2567">2567</a>
</td>

<td  class="c0" >
 <a href="#2570"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2567-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_all_changes_via_http($stream, $host, $n||100, $filter||""); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2568">2568</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/do/index HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2569">2569</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2570">2570</a>
</td>

<td  class="c0" >
 <a href="#2573"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_index_via_http($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2571">2571</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/do/files HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2572">2572</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2573">2573</a>
</td>

<td  class="c0" >
 <a href="#2576"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_files_via_http($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2574">2574</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/do/spaces HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2575">2575</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2576">2576</a>
</td>

<td  class="c0" >
 <a href="#2579"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_spaces_via_http($stream, $host, $port); </td>
</tr>

<tr>
<td  class="h" >
<a name="2577">2577</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/do/rss HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2578">2578</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2579">2579</a>
</td>

<td  class="c0" >
 <a href="#2582"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_rss_via_http($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2580">2580</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $id, $n) = $request =~ m!^GET (?:/($spaces))?/do/atom HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2581">2581</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2582">2582</a>
</td>

<td  class="c0" >
 <a href="#2585"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_atom_via_http($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="2583">2583</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif (($space, $n) = $request =~ m!^GET /do/all/atom HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2584">2584</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2585">2585</a>
</td>

<td  class="c0" >
 <a href="#2588"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       serve_all_atom_via_http($stream, $host); </td>
</tr>

<tr>
<td  class="h" >
<a name="2586">2586</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } elsif ($request =~ m!^GET (?:/($spaces))?/do/source HTTP/1\.[01]$! </td>
</tr>

<tr>
<td  class="h" >
<a name="2587">2587</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	     and ($host) = $headers->{host} =~ m!^($hosts)(?::$port)$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2588">2588</a>
</td>

<td  class="c0" >
 <a href="#2589"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("HTTP/1.1 200 OK\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2589">2589</a>
</td>

<td  class="c0" >
 <a href="#2590"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("Content-Type: text/plain; charset=UTF-8\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2590">2590</a>
</td>

<td  class="c0" >
 <a href="#2591"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write("\r\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2591">2591</a>
</td>

<td  class="c0" >
 <a href="#2592"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       seek DATA, 0, 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2592">2592</a>
</td>

<td  class="c0" >
 <a href="#2593"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       local $/ = undef; # slurp </td>
</tr>

<tr>
<td  class="h" >
<a name="2593">2593</a>
</td>

<td  class="c0" >
 <a href="#2595"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->write(encode_utf8 <DATA>); </td>
</tr>

<tr>
<td  class="h" >
<a name="2594">2594</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2595">2595</a>
</td>

<td  class="c0" >
 <a href="#2596"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("No http handler for $request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2596">2596</a>
</td>

<td  class="c0" >
 <a href="#2598"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       http_error($stream, "Don't know how to handle $request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2597">2597</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2598">2598</a>
</td>

<td  class="c0" >
 <a href="#2600"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Done"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2599">2599</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   }; </td>
</tr>

<tr>
<td  class="h" >
<a name="2600">2600</a>
</td>

<td  class="c0" >
 <a href="#2601"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2600-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->error("Error: $@") if $@; </td>
</tr>

<tr>
<td  class="h" >
<a name="2601">2601</a>
</td>

<td  class="c0" >
 <a href="#2602"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   alarm(0); </td>
</tr>

<tr>
<td  class="h" >
<a name="2602">2602</a>
</td>

<td  class="c0" >
 <a href="#2606"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2603">2603</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2604">2604</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2605">2605</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub is_upload { </td>
</tr>

<tr>
<td  class="h" >
<a name="2606">2606</a>
</td>

<td  class="c0" >
 <a href="#2607"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2606-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2606-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2607">2607</a>
</td>

<td  class="c0" >
 <a href="#2608"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $request = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2608">2608</a>
</td>

<td  class="c0" >
 <a href="#2609"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->info("Looking at $request"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2609">2609</a>
</td>

<td  class="c0" >
 <a href="#2610"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $hosts = host_regex(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2610">2610</a>
</td>

<td  class="c0" >
 <a href="#2611"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $spaces_regex = space_regex(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2611">2611</a>
</td>

<td  class="c0" >
 <a href="#2612"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $port = port($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="2612">2612</a>
</td>

<td  class="c0" >
 <a href="#2613"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2612-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($request =~ m!^titan://($hosts)(?::$port)?!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2613">2613</a>
</td>

<td  class="c0" >
 <a href="#2614"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my $host = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2614">2614</a>
</td>

<td  class="c0" >
 <a href="#2616"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     my($scheme, $authority, $path, $query, $fragment) = </td>
</tr>

<tr>
<td  class="h" >
<a name="2615">2615</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	$request =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|; </td>
</tr>

<tr>
<td  class="h" >
<a name="2616">2616</a>
</td>

<td  class="c0" >
 <a href="#2617"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2616-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     if ($path =~ m!^(?:/($spaces_regex))?(?:/raw)?/([^/;=&]+(?:;\w+=[^;=&]+)+)!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2617">2617</a>
</td>

<td  class="c0" >
 <a href="#2618"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $space = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2618">2618</a>
</td>

<td  class="c0" >
 <a href="#2619"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my ($id, @params) = split(/[;=&]/, $2); </td>
</tr>

<tr>
<td  class="h" >
<a name="2619">2619</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       my $params = { map {decode_utf8(uri_unescape($_))} @params }; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2620"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2620">2620</a>
</td>

<td  class="c0" >
 <a href="#2622"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2620-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if (valid_params($stream, $host, $space, $id, $params)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2621">2621</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	return { </td>
</tr>

<tr>
<td  class="h" >
<a name="2622">2622</a>
</td>

<td  class="c0" >
 <a href="#2629"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	  host => $host, </td>
</tr>

<tr>
<td  class="h" >
<a name="2623">2623</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	  space => space($stream, $host, $space), </td>
</tr>

<tr>
<td  class="h" >
<a name="2624">2624</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	  id => decode_utf8(uri_unescape($id)), </td>
</tr>

<tr>
<td  class="h" >
<a name="2625">2625</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	  params => $params, </td>
</tr>

<tr>
<td  class="h" >
<a name="2626">2626</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	} </td>
</tr>

<tr>
<td  class="h" >
<a name="2627">2627</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       } </td>
</tr>

<tr>
<td  class="h" >
<a name="2628">2628</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="2629">2629</a>
</td>

<td  class="c0" >
 <a href="#2630"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $log->debug("The path $path is malformed"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2630">2630</a>
</td>

<td  class="c0" >
 <a href="#2631"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       result($stream, "59", "The path $path is malformed"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2631">2631</a>
</td>

<td  class="c0" >
 <a href="#2634"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2632">2632</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="2633">2633</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2634">2634</a>
</td>

<td  class="c0" >
 <a href="#2638"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="2635">2635</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2636">2636</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2637">2637</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub valid_params { </td>
</tr>

<tr>
<td  class="h" >
<a name="2638">2638</a>
</td>

<td  class="c0" >
 <a href="#2639"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2638-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2638-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2639">2639</a>
</td>

<td  class="c0" >
 <a href="#2640"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2640">2640</a>
</td>

<td  class="c0" >
 <a href="#2641"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2641">2641</a>
</td>

<td  class="c0" >
 <a href="#2642"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2642">2642</a>
</td>

<td  class="c0" >
 <a href="#2643"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $params = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2643">2643</a>
</td>

<td  class="c0" >
 <a href="#2644"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2643-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless valid_id($stream, $host, $space, $id, $params); </td>
</tr>

<tr>
<td  class="h" >
<a name="2644">2644</a>
</td>

<td  class="c0" >
 <a href="#2645"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2644-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless valid_token($stream, $host, $space, $id, $params); </td>
</tr>

<tr>
<td  class="h" >
<a name="2645">2645</a>
</td>

<td  class="c0" >
 <a href="#2646"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2645-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless valid_mime_type($stream, $host, $space, $id, $params); </td>
</tr>

<tr>
<td  class="h" >
<a name="2646">2646</a>
</td>

<td  class="c0" >
 <a href="#2647"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2646-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return unless valid_size($stream, $host, $space, $id, $params); </td>
</tr>

<tr>
<td  class="h" >
<a name="2647">2647</a>
</td>

<td  class="c0" >
 <a href="#2651"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2648">2648</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2649">2649</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2650">2650</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub valid_id { </td>
</tr>

<tr>
<td  class="h" >
<a name="2651">2651</a>
</td>

<td  class="c0" >
 <a href="#2652"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2651-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2651-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2652">2652</a>
</td>

<td  class="c0" >
 <a href="#2653"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2653">2653</a>
</td>

<td  class="c0" >
 <a href="#2654"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2654">2654</a>
</td>

<td  class="c0" >
 <a href="#2655"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2655">2655</a>
</td>

<td  class="c0" >
 <a href="#2656"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2655-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $id) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2656">2656</a>
</td>

<td  class="c0" >
 <a href="#2657"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("The URL lacks a page name"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2657">2657</a>
</td>

<td  class="c0" >
 <a href="#2658"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "The URL lacks a page name"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2658">2658</a>
</td>

<td  class="c0" >
 <a href="#2659"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2659">2659</a>
</td>

<td  class="c0" >
 <a href="#2661"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2660">2660</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif ($id =~ /[[:cntrl:]]/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2661">2661</a>
</td>

<td  class="c0" >
 <a href="#2662"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Page names must not contain any control characters"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2662">2662</a>
</td>

<td  class="c0" >
 <a href="#2663"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Page names must not contain any control characters"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2663">2663</a>
</td>

<td  class="c0" >
 <a href="#2664"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2664">2664</a>
</td>

<td  class="c0" >
 <a href="#2666"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2665">2665</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2666">2666</a>
</td>

<td  class="c0" >
 <a href="#2670"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2667">2667</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2668">2668</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2669">2669</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub valid_token { </td>
</tr>

<tr>
<td  class="h" >
<a name="2670">2670</a>
</td>

<td  class="c0" >
 <a href="#2671"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2670-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2670-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2671">2671</a>
</td>

<td  class="c0" >
 <a href="#2672"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2672">2672</a>
</td>

<td  class="c0" >
 <a href="#2673"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2673">2673</a>
</td>

<td  class="c0" >
 <a href="#2674"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2674">2674</a>
</td>

<td  class="c0" >
 <a href="#2675"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $params = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2675">2675</a>
</td>

<td  class="c0" >
 <a href="#2676"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2675-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $token = quotemeta($params->{token}||""); </td>
</tr>

<tr>
<td  class="h" >
<a name="2676">2676</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @tokens = @{$server->{wiki_token}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2677"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2677">2677</a>
</td>

<td  class="c0" >
 <a href="#2678"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   push(@tokens, @{$server->{wiki_space_token}->{$space}}) </td>
</tr>

<tr>
<td  class="h" >
<a name="2678">2678</a>
</td>

<td  class="c0" >
 <a href="#2679"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2678-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2678-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">       if $space and $server->{wiki_space_token}->{$space}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2679">2679</a>
</td>

<td  class="c0" >
 <a href="#2680"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Valid tokens: @tokens"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2680">2680</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $log->debug("Spaces: " . join(", ", keys %{$server->{wiki_space_token}})); </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2681"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2681">2681</a>
</td>

<td  class="c0" >
 <a href="#2682"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2681-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2681-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $token and @tokens) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2682">2682</a>
</td>

<td  class="c0" >
 <a href="#2683"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Uploads require a token"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2683">2683</a>
</td>

<td  class="c0" >
 <a href="#2684"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Uploads require a token"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2684">2684</a>
</td>

<td  class="c0" >
 <a href="#2685"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2685">2685</a>
</td>

<td  class="c0" >
 <a href="#2687"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2686">2686</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif (not grep(/^$token$/, @tokens)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2687">2687</a>
</td>

<td  class="c0" >
 <a href="#2688"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Your token is the wrong token"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2688">2688</a>
</td>

<td  class="c0" >
 <a href="#2689"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Your token is the wrong token"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2689">2689</a>
</td>

<td  class="c0" >
 <a href="#2690"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2690">2690</a>
</td>

<td  class="c0" >
 <a href="#2692"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2691">2691</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2692">2692</a>
</td>

<td  class="c0" >
 <a href="#2696"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2693">2693</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2694">2694</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2695">2695</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub valid_mime_type { </td>
</tr>

<tr>
<td  class="h" >
<a name="2696">2696</a>
</td>

<td  class="c0" >
 <a href="#2697"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2696-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2696-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2697">2697</a>
</td>

<td  class="c0" >
 <a href="#2698"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2698">2698</a>
</td>

<td  class="c0" >
 <a href="#2699"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2699">2699</a>
</td>

<td  class="c0" >
 <a href="#2700"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2700">2700</a>
</td>

<td  class="c0" >
 <a href="#2701"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $params = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2701">2701</a>
</td>

<td  class="c0" >
 <a href="#2702"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $type = $params->{mime}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2702">2702</a>
</td>

<td  class="c0" >
 <a href="#2703"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my ($main_type) = split(/\//, $type, 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="2703">2703</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my @types = @{$server->{wiki_mime_type}}; </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td  class="c0" >
 <a href="#2704"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2704">2704</a>
</td>

<td  class="c0" >
 <a href="#2705"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2704-1"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2704-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if (not $type) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2705">2705</a>
</td>

<td  class="c0" >
 <a href="#2706"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("Uploads require a MIME type"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2706">2706</a>
</td>

<td  class="c0" >
 <a href="#2707"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "Uploads require a MIME type"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2707">2707</a>
</td>

<td  class="c0" >
 <a href="#2708"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2708">2708</a>
</td>

<td  class="c0" >
 <a href="#2710"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2709">2709</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif ($type ne "text/plain" and not grep(/^$type$/, @types) and not grep(/^$main_type$/, @types)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2710">2710</a>
</td>

<td  class="c0" >
 <a href="#2711"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("This wiki does not allow $type"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2711">2711</a>
</td>

<td  class="c0" >
 <a href="#2712"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "This wiki does not allow $type"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2712">2712</a>
</td>

<td  class="c0" >
 <a href="#2713"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2713">2713</a>
</td>

<td  class="c0" >
 <a href="#2715"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2714">2714</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2715">2715</a>
</td>

<td  class="c0" >
 <a href="#2719"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2716">2716</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2717">2717</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2718">2718</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> sub valid_size { </td>
</tr>

<tr>
<td  class="h" >
<a name="2719">2719</a>
</td>

<td  class="c0" >
 <a href="#2720"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2719-1"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#2719-1"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2720">2720</a>
</td>

<td  class="c0" >
 <a href="#2721"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2721">2721</a>
</td>

<td  class="c0" >
 <a href="#2722"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2722">2722</a>
</td>

<td  class="c0" >
 <a href="#2723"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2723">2723</a>
</td>

<td  class="c0" >
 <a href="#2724"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $params = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="2724">2724</a>
</td>

<td  class="c0" >
 <a href="#2725"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $size = $params->{size}; </td>
</tr>

<tr>
<td  class="h" >
<a name="2725">2725</a>
</td>

<td  class="c0" >
 <a href="#2726"> 
0
 </a> 
</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2725-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   if ($size !~ /^\d+$/) { </td>
</tr>

<tr>
<td  class="h" >
<a >&nbsp;</a>
</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#-2"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2726">2726</a>
</td>

<td  class="c0" >
 <a href="#2727"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("You need to send along the number of bytes, not '$size'"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2727">2727</a>
</td>

<td  class="c0" >
 <a href="#2728"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "You need to send along the number of bytes, not '$size'"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2728">2728</a>
</td>

<td  class="c0" >
 <a href="#2729"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2729">2729</a>
</td>

<td  class="c0" >
 <a href="#2731"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2730">2730</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } elsif ($size > $server->{wiki_page_size_limit}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2731">2731</a>
</td>

<td  class="c0" >
 <a href="#2732"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("This wiki does not allow more than $server->{wiki_page_size_limit} bytes per page"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2732">2732</a>
</td>

<td  class="c0" >
 <a href="#2733"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     result($stream, "59", "This wiki does not allow more than $server->{wiki_page_size_limit} bytes per page"); </td>
</tr>

<tr>
<td  class="h" >
<a name="2733">2733</a>
</td>

<td  class="c0" >
 <a href="#2734"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2734">2734</a>
</td>

<td  class="c0" >
 <a href="#2736"> 
0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2735">2735</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="2736">2736</a>
</td>

<td  class="c0" >

0

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2737">2737</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="2738">2738</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2739">2739</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2740">2740</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="2741">2741</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> __DATA__ </td>
</tr>

</table>

</body>
</html>