File Coverage

blib/lib/App/Phoebe.pm

Criterion	Covered	Total	%
statement	36	1403	2.5
branch	0	502	0.0
condition	0	124	0.0
subroutine	12	132	9.0
pod	0	85	0.0
total	48	2246	2.1

#!/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::Web; </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">     use App::Phoebe qw(@footer); </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">     push(@footer, sub { '=> mailto:[e-mail] Mail' }); </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"> &nbsp; </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"> This prints a very simply footer instead of the usual footer for Gemini, as the </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"> C<footer> function is redefined. At the same time, the C<@footer> array is still </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"> used for the web: </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"> &nbsp; </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">     # tested by t/example-footer2.t </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">     package App::Phoebe; </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">     use App::Phoebe::Web; </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">     use Modern::Perl; </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">     our (@footer); # HTML 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">     push(@footer, sub { '=> https://alexschroeder.ch/wiki/Contact Contact' }); </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">     # footer sub is Gemini only </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">     no warnings qw(redefine); </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">     sub footer { </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">       return "\n" . '—' x 10 . "\n" . '=> mailto:[e-mail] Mail'; </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">     } </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"> &nbsp; </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"> This example also shows how to redefine existing code in your config file </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"> without the warning "Subroutine … redefined". </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"> &nbsp; </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"> 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="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"> for it, for Gemini only: </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"> &nbsp; </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">     # tested by t/example-new-action.t </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">     package App::Phoebe; </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">     use Modern::Perl; </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">     our (@extensions, @main_menu); </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">     push(@main_menu, "=> gemini://localhost/do/test 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">     push(@extensions, \&serve_test); </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">     sub serve_test { </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 $stream = 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 $url = shift; </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 $headers = shift; </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">       my $host = host_regex(); </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">       my $port = port($stream); </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">       if ($url =~ m!^gemini://($host)(?::$port)?/do/test$!) { </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"> 	result($stream, "20", "text/plain"); </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"> 	$stream->write("Test\n"); </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 1; </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">       return; </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">     } </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">     1; </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"> &nbsp; </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"> =cut </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"> &nbsp; </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"> package App::Phoebe; </td>
</tr>

<tr>
<td  class="h" >
<a name="113">113</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#113-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

1197

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

11417

</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="114">114</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#114-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

756

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

16351

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

74

</td>

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

<tr>
<td  class="h" >
<a name="115">115</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#115-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

7

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

43

</td>

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

<tr>
<td  class="h" >
<a name="116">116</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#116-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

542

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

115725

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

74

</td>

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

<tr>
<td  class="h" >
<a name="117">117</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#117-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

590

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

3855

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

324

</td>

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

<tr>
<td  class="h" >
<a name="118">118</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#118-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 >

127

</td>

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

<tr>
<td  class="h" >
<a name="119">119</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#119-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

496

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

1064

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

35

</td>

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

<tr>
<td  class="h" >
<a name="120">120</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#120-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

648

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

5289

</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="121">121</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#121-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

501

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

1444

</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="122">122</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#122-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

544

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

330673

</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="123">123</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#123-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

544

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

12472

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

11

</td>

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

<tr>
<td  class="h" >
<a name="124">124</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#124-1"> 
1
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

40

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

3

</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="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"> &nbsp; </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"> our $VERSION = 4.00; </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"> &nbsp; </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"> require Exporter; </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"> our @ISA = qw(Exporter); </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"> our @EXPORT_OK = qw(@extensions @main_menu @footer $log $server $full_url_regex </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"> 		    space port host_regex space_regex reserved_regex success </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"> 		    result get_ip_numbers run_extensions pages blog blog_pages </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"> 		    text save_page serve_index serve_page serve_raw serve_html </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"> 		    serve_history serve_diff html_page to_html @request_handlers </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"> 		    handle_request process_titan process_gemini valid_id </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"> 		    valid_mime_type valid_size valid_token print_link all_logs </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"> 		    gemini_link colourize modified changes diff bogus_hash </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"> 		    quote_html write_page @known_fingerprints with_lock wiki_dir </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"> 		    to_url handle_titan footer atom rss files space_links); </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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="141">141</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="142">142</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="143">143</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="144">144</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="145">145</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="146">146</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="147">147</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="148">148</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="149">149</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="150">150</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="151">151</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="152">152</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="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"> # Conventions: </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"> # - a regular exression on the first line of the request </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"> # - a handle_foo sub to do wait until you're ready (take $stream and $data, </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"> #   where $data->{buffer} keeps growing with bytes) </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"> # - a process_foo sub to finish the job and write stuff back to the $stream </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"> &nbsp; </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"> our @request_handlers = ( </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">   '^titan://' => \&handle_titan, </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">   '^gemini://' => \&handle_gemini, </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">   '^[^:/?#]+://([^/?#]*)([^?#]*)(?:\?([^#]*))?(?:#(.*))?$' => \&handle_url, </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"> ); </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"> &nbsp; </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"> # Phoebe subroutines you might want to call in your extensions </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"> &nbsp; </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"> sub port { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#169-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="170">170</a>
</td>

<td  class="c0" >
 <a href="#174"> 
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="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"> } </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"> &nbsp; </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"> sub get_ip_numbers { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#176"> 
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="176">176</a>
</td>

<td  class="c0" >
 <a href="#177"> 
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="177">177</a>
</td>

<td  class="c0" >
 <a href="#178"> 
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="178">178</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#178-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="179">179</a>
</td>

<td  class="c0" >
 <a href="#180"> 
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="180">180</a>
</td>

<td  class="c0" >
 <a href="#181"> 
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="181">181</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#181-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="182">182</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#182-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="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">   } </td>
</tr>

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

<td  class="c0" >
 <a href="#190"> 
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="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"> } </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"> # The hostnames we know we want to serve because they were specified via --host </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"> # options. </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"> sub host_regex { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="191">191</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="#200"> 
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="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"> # A regular expression matching wiki spaces in URLs. The tricky part is that we </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"> # must strip the hostnames, as these aren't repeated: for a URL like </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"> # gemini://localhost:1965/alex/ the regular expression must just match 'alex' </td>
</tr>

<tr>
<td  class="h" >
<a name="197">197</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="198">198</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="199">199</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="200">200</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#201-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="#202"> 
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="202">202</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="#203"> 
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="203">203</a>
</td>

<td  class="c0" >
 <a href="#204"> 
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="204">204</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">       push(@spaces, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="205">205</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="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">   } elsif (@{$server->{wiki_space}}) { </td>
</tr>

<tr>
<td  class="h" >
<a name="207">207</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="#209"> 
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="208">208</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="209">209</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="#218"> 
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="210">210</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="211">211</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="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"> # A regular expression matching parts of reserved paths in URLs. When looking at </td>
</tr>

<tr>
<td  class="h" >
<a name="213">213</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="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"> # using a client that has an "up" command, you'd end up at </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"> # gemini://localhost:1965/page – but what should happen in this case? We should </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"> # redirect these requests to gemini://localhost:1965/, I think. </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"> sub reserved_regex { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#218-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="219">219</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="220">220</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="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"> &nbsp; </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"> sub success { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#224-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="225">225</a>
</td>

<td  class="c0" >
 <a href="#226"> 
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="226">226</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#226-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="227">227</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">     result($stream, "20", "$type; lang=$lang"); </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">   } else { </td>
</tr>

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

<td  class="c0" >
 <a href="#234"> 
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="230">230</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="231">231</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="232">232</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="233">233</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="234">234</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $code = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#237"> 
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="237">237</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#237-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="238">238</a>
</td>

<td  class="c0" >
 <a href="#242"> 
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="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"> sub handle_titan { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#245"> 
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="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">   # extra processing of the request if we didn't do that, yet </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#245-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="246">246</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">   my $size = $data->{upload}->{params}->{size}; </td>
</tr>

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

<td  class="c0" >
 <a href="#248"> 
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="248">248</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#248-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="249">249</a>
</td>

<td  class="c0" >
 <a href="#250"> 
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="250">250</a>
</td>

<td  class="c0" >
 <a href="#252"> 
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="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">     # do not close in case we're waiting for the lock </td>
</tr>

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

<td  class="c0" >
 <a href="#254"> 
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="253">253</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="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">     $log->debug("Received more than the promised $size bytes"); </td>
</tr>

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

<td  class="c0" >
 <a href="#256"> 
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="256">256</a>
</td>

<td  class="c0" >
 <a href="#257"> 
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="257">257</a>
</td>

<td  class="c0" >
 <a href="#259"> 
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="258">258</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="259">259</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">   $log->debug("Waiting for " . ($size - $actual) . " more bytes"); </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 process_titan { </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, $request, $upload, $buffer, $size) = @_; </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">   eval { </td>
</tr>

<tr>
<td  class="h" >
<a name="265">265</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#265-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="#266"> 
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="266">266</a>
</td>

<td  class="c0" >
 <a href="#268"> 
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="267">267</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="268">268</a>
</td>

<td  class="c0" >
 <a href="#269"> 
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="269">269</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">     alarm(0); </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">   }; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#271-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="272">272</a>
</td>

<td  class="c0" >
 <a href="#273"> 
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="273">273</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">   $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="274">274</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="275">275</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="276">276</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="277">277</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#280"> 
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="280">280</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">   my $id = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#282"> 
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="282">282</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">   my $data = shift; </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">   my $length = shift; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#284-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="285">285</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#285-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="286">286</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#286-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="#288"> 
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="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">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="288">288</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#288-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="#291"> 
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="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">   } elsif ($length == 0) { </td>
</tr>

<tr>
<td  class="h" >
<a name="291">291</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#291-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="#293"> 
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="292">292</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="293">293</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#293-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="#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="294">294</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="295">295</a>
</td>

<td  class="c0" >
 <a href="#296"> 
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="296">296</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">     result($stream, "59", "The text is invalid UTF-8"); </td>
</tr>

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

<td  class="c0" >
 <a href="#304"> 
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="298">298</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="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 >

&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="301">301</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="302">302</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="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"> sub with_lock { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="305">305</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">   my $host = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = 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 $code = 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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#308-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="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 $dir = wiki_dir($host, $space); </td>
</tr>

<tr>
<td  class="h" >
<a name="310">310</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 $lock = "$dir/locked"; </td>
</tr>

<tr>
<td  class="h" >
<a name="311">311</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="312">312</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#312-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="313">313</a>
</td>

<td  class="c0" >
 <a href="#314"> 
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="314">314</a>
</td>

<td  class="c0" >
 <a href="#315"> 
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="315">315</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#315-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="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">   } </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#317-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="318">318</a>
</td>

<td  class="c0" >
 <a href="#319"> 
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="319">319</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="#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="320">320</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#320-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="321">321</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">       $log->error("Unable to run code with locked $lock: $@"); </td>
</tr>

<tr>
<td  class="h" >
<a name="322">322</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">       result($stream, "40", "An error occured, unfortunately"); </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">     } </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">     rmdir($lock); </td>
</tr>

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

<td  class="c0" >
 <a href="#327"> 
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="326">326</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="327">327</a>
</td>

<td  class="c0" >
 <a href="#328"> 
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="328">328</a>
</td>

<td  class="c0" >
 <a href="#329"> 
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="329">329</a>
</td>

<td  class="c0" >
 <a href="#331"> 
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="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">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="331">331</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">     $log->debug("Waiting $count..."); </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">     Mojo::IOLoop->timer(0.2 => sub { </td>
</tr>

<tr>
<td  class="h" >
<a name="333">333</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#333-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="#339"> 
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="334">334</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="335">335</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="336">336</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="337">337</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="338">338</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="339">339</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="340">340</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 $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#342"> 
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="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 $id = shift; </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">   my $text = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#345"> 
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="345">345</a>
</td>

<td  class="c0" >
 <a href="#346"> 
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="346">346</a>
</td>

<td  class="c0" >
 <a href="#347"> 
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="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">   my $revision = 0; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#348-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="349">349</a>
</td>

<td  class="c0" >
 <a href="#350"> 
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="350">350</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#350-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="351">351</a>
</td>

<td  class="c0" >
 <a href="#352"> 
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="352">352</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, "30", to_url($stream, $host, $space, "page/$id")); </td>
</tr>

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

<td  class="c0" >
 <a href="#355"> 
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="354">354</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="355">355</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#355-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="356">356</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#356-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="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">       foreach (read_dir("$dir/keep/$id")) { </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#358-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="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">       } </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">       $revision++; </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">     } else { </td>
</tr>

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

<td  class="c0" >
 <a href="#363"> 
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="363">363</a>
</td>

<td  class="c0" >
 <a href="#365"> 
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="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  class="c0" >
 <a href="#367"> 
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="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">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="367">367</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">     my $index = "$dir/index"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#368-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="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">       $log->error("Cannot write index $index: $!"); </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">       result($stream, "59", "Unable to write index"); </td>
</tr>

<tr>
<td  class="h" >
<a name="371">371</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">       return; </td>
</tr>

<tr>
<td  class="h" >
<a name="372">372</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="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">       say $fh $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="374">374</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">       close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="375">375</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="376">376</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="377">377</a>
</td>

<td  class="c0" >
 <a href="#378"> 
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="378">378</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#378-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="379">379</a>
</td>

<td  class="c0" >
 <a href="#380"> 
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="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">     result($stream, "59", "Unable to write log"); </td>
</tr>

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

<td  class="c0" >
 <a href="#383"> 
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="382">382</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="383">383</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">     my $peerhost = $stream->handle->peerhost; </td>
</tr>

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

<td  class="c0" >
 <a href="#385"> 
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="385">385</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">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="386">386</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="387">387</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#387-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="388">388</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="#389"> 
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="389">389</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#389-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="390">390</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">     $log->error("Unable to save $id: $@"); </td>
</tr>

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

<td  class="c0" >
 <a href="#393"> 
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="392">392</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="393">393</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">     $log->info("Wrote $id"); </td>
</tr>

<tr>
<td  class="h" >
<a name="394">394</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">     result($stream, "30", to_url($stream, $host, $space, "page/$id")); </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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="396">396</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="397">397</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="398">398</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="399">399</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#401"> 
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="401">401</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">   my $space = shift; </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">   my $id = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#404"> 
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="404">404</a>
</td>

<td  class="c0" >
 <a href="#405"> 
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="405">405</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">   my $file = "$dir/page/$id.gmi"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#406-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="407">407</a>
</td>

<td  class="c0" >
 <a href="#408"> 
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="408">408</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#408-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="409">409</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#409-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="410">410</a>
</td>

<td  class="c0" >
 <a href="#411"> 
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="411">411</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#411-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="412">412</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="413">413</a>
</td>

<td  class="c0" >
 <a href="#415"> 
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="414">414</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="415">415</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">       mkdir "$dir/keep/$id"; </td>
</tr>

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

<td  class="c0" >
 <a href="#419"> 
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="417">417</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="418">418</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="419">419</a>
</td>

<td  class="c0" >
 <a href="#421"> 
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="420">420</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="421">421</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">   my $index = "$dir/index"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#422-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="423">423</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="424">424</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="#425"> 
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="425">425</a>
</td>

<td  class="c0" >
 <a href="#427"> 
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="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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="427">427</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">   my $changes = "$dir/changes.log"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#428-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="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">     $log->error("Cannot write log $changes: $!"); </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">     result($stream, "59", "Unable to write log"); </td>
</tr>

<tr>
<td  class="h" >
<a name="431">431</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="432">432</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="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 $peerhost = $stream->handle->peerhost; </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">     say $fh join("\x1f", scalar(time), $id, "🖹", bogus_hash($peerhost)); </td>
</tr>

<tr>
<td  class="h" >
<a name="435">435</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">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="436">436</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="437">437</a>
</td>

<td  class="c0" >
 <a href="#438"> 
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="438">438</a>
</td>

<td  class="c0" >
 <a href="#442"> 
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="439">439</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="440">440</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="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"> sub handle_gemini { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="443">443</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">   my $data = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#446"> 
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="445">445</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="446">446</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#446-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="447">447</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">   process_gemini($stream, $data->{request}); </td>
</tr>

<tr>
<td  class="h" >
<a name="448">448</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="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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="450">450</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="451">451</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my ($stream, $url) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="452">452</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">   eval { </td>
</tr>

<tr>
<td  class="h" >
<a name="453">453</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="454">454</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#454-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="455">455</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">     }; </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">     alarm(10); # timeout </td>
</tr>

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

<td  class="c0" >
 <a href="#458"> 
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="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">     my $port = port($stream); </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">     my $spaces = space_regex(); </td>
</tr>

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

<td  class="c0" >
 <a href="#461"> 
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="461">461</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">     $log->debug("Serving ($hosts)(?::$port)?"); </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">     $log->debug("Spaces $spaces"); </td>
</tr>

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

<td  class="c0" >
 <a href="#465"> 
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="464">464</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="465">465</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">     $log->info("Looking at $url"); </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">     my ($host, $space, $id, $n, $style, $filter); </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#467-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 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">       # config file goes first </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">     } elsif (not $url) { </td>
</tr>

<tr>
<td  class="h" >
<a name="470">470</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">       $log->debug("The URL is empty"); </td>
</tr>

<tr>
<td  class="h" >
<a name="471">471</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">       result($stream, "59", "URL expected"); </td>
</tr>

<tr>
<td  class="h" >
<a name="472">472</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="473">473</a>
</td>

<td  class="c0" >
 <a href="#474"> 
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="474">474</a>
</td>

<td  class="c0" >
 <a href="#478"> 
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="475">475</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="476">476</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="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">       # redirect gemini://localhost:2020/space/do to gemini://localhost:2020/space </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#478-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="479">479</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#479-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="480">480</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="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">       serve_main_menu($stream, $host, space($stream, $host, $space)); </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">     } elsif (($host, $space, $n) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/more(?:/(\d+))?$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="483">483</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">       serve_blog($stream, $host, space($stream, $host, $space), $n); </td>
</tr>

<tr>
<td  class="h" >
<a name="484">484</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="485">485</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">       serve_index($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="486">486</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="487">487</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">       serve_files($stream, $host, space($stream, $host, $space)); </td>
</tr>

<tr>
<td  class="h" >
<a name="488">488</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="489">489</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">       serve_spaces($stream, $host, $port); </td>
</tr>

<tr>
<td  class="h" >
<a name="490">490</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="491">491</a>
</td>

<td  class="c0" >
 <a href="#493"> 
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="492">492</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="493">493</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">       result($stream, "10", "Find page by name (Perl regex)"); </td>
</tr>

<tr>
<td  class="h" >
<a name="494">494</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="495">495</a>
</td>

<td  class="c0" >
 <a href="#497"> 
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="496">496</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="497">497</a>
</td>

<td  class="c0" >
 <a href="#499"> 
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="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 ($query and ($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/search\?!) { </td>
</tr>

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

<td  class="c0" >
 <a href="#501"> 
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="500">500</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="501">501</a>
</td>

<td  class="c0" >
 <a href="#504"> 
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="502">502</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="503">503</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="504">504</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#504-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="505">505</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, "30", "gemini://$host:$port/$space/raw/$query"); </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">       } else { </td>
</tr>

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

<td  class="c0" >
 <a href="#510"> 
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="508">508</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="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, $n, $style) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/changes(?:/(\d+))?(?:/(colour|fancy))?$!) { </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#510-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="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, $filter, $n, $style) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?/do/all(?:/(latest))?/changes(?:/(\d+))?(?:/(colour|fancy))?$!) { </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#512-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="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/rss$!) { </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_rss($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/blog/rss$!) { </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_blog_rss($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, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/atom$!) { </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_atom($stream, $host, space($stream, $host, $space)); </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/blog/atom$!) { </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_blog_atom($stream, $host); </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 (($host, $space) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(?:/($spaces))?/do/all/atom$!) { </td>
</tr>

<tr>
<td  class="h" >
<a name="522">522</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">       serve_all_atom($stream, $host); </td>
</tr>

<tr>
<td  class="h" >
<a name="523">523</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="524">524</a>
</td>

<td  class="c0" >
 <a href="#526"> 
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="525">525</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="526">526</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#526-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="527">527</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="528">528</a>
</td>

<td  class="c0" >
 <a href="#530"> 
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="529">529</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="530">530</a>
</td>

<td  class="c0" >
 <a href="#532"> 
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="531">531</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="532">532</a>
</td>

<td  class="c0" >
 <a href="#534"> 
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="533">533</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="534">534</a>
</td>

<td  class="c0" >
 <a href="#536"> 
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="535">535</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="536">536</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">       serve_file($stream, $host, space($stream, $host, $space), decode_utf8(uri_unescape($id))); </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 (($host) = $url =~ m!^(?:gemini:)?//($hosts)(?::$port)?(/|$)!) { </td>
</tr>

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

<td  class="c0" >
 <a href="#539"> 
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="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, "51", "Path not found for $url"); </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">     } elsif ($authority) { </td>
</tr>

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

<td  class="c0" >
 <a href="#542"> 
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="542">542</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, "53", "Unsupported proxy request for $url"); </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">     } else { </td>
</tr>

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

<td  class="c0" >
 <a href="#545"> 
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="545">545</a>
</td>

<td  class="c0" >
 <a href="#547"> 
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="546">546</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="547">547</a>
</td>

<td  class="c0" >
 <a href="#549"> 
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="548">548</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="549">549</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#549-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="550">550</a>
</td>

<td  class="c0" >
 <a href="#551"> 
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="551">551</a>
</td>

<td  class="c0" >
 <a href="#555"> 
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="552">552</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="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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="554">554</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="555">555</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   foreach my $sub (@extensions) { </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#556-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="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">   } </td>
</tr>

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

<td  class="c0" >
 <a href="#562"> 
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="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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="560">560</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="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"> sub serve_main_menu { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#563-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="564">564</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#564-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="565">565</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">   $log->info("Serving main menu"); </td>
</tr>

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

<td  class="c0" >
 <a href="#567"> 
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="567">567</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">   my $page = $server->{wiki_main_page}; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#568-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="569">569</a>
</td>

<td  class="c0" >
 <a href="#571"> 
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="570">570</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="571">571</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">     $stream->write("# Welcome to Phoebe!\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#574"> 
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="573">573</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="574">574</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">   blog($stream, $host, $space, 10); </td>
</tr>

<tr>
<td  class="h" >
<a name="575">575</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="#576"> 
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="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">     print_link($stream, $host, $space, $id); </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">   } </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">   for my $line (@main_menu) { </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">     $stream->write(encode_utf8 $line . "\n"); </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="#582"> 
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="582">582</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">   print_link($stream, $host, $space, "Search matching page names", "do/match"); </td>
</tr>

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

<td  class="c0" >
 <a href="#584"> 
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="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">   print_link($stream, $host, $space, "New page", "do/new"); </td>
</tr>

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

<td  class="c0" >
 <a href="#586"> 
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="586">586</a>
</td>

<td  class="c0" >
 <a href="#587"> 
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="587">587</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">   print_link($stream, $host, $space, "Index of all files", "do/files"); </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">   print_link($stream, $host, undef, "Index of all spaces", "do/spaces") </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#589-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="#590"> 
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="590">590</a>
</td>

<td  class="c0" >
 <a href="#592"> 
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="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">   # a requirement of the GNU Affero General Public License </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $stream->write("=> https://metacpan.org/pod/App::phoebe Source code\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#597"> 
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="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"> } </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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="596">596</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="597">597</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = 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 >

&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="599">599</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#599-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="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">     $data->{request} = $1; </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">     $data->{buffer} =~ s/.*\r\n//; </td>
</tr>

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

<td  class="c0" >
 <a href="#603"> 
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="603">603</a>
</td>

<td  class="c0" >
 <a href="#604"> 
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="604">604</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">       my $re = $request_handlers[$i]; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#605-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="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"> 	$data->{handler} = $request_handlers[$i+1]; </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"> 	# and call the handler </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"> 	$data->{handler}->($stream, $data); </td>
</tr>

<tr>
<td  class="h" >
<a name="609">609</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"> 	return; </td>
</tr>

<tr>
<td  class="h" >
<a name="610">610</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="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">     $log->debug("No handler found for $data->{request}"); </td>
</tr>

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

<td  class="c0" >
 <a href="#614"> 
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="614">614</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">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="615">615</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="616">616</a>
</td>

<td  class="c0" >
 <a href="#622"> 
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="617">617</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="618">618</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="619">619</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="620">620</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="621">621</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="622">622</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="623">623</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">   my $data = shift; </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">   $log->debug("Unhandled proxy request"); </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">   $log->debug("Discarding " . length($data->{buffer}) . " bytes") </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#626-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="627">627</a>
</td>

<td  class="c0" >
 <a href="#628"> 
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="628">628</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">   $stream->close_gracefully(); </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"> } </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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="631">631</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="632">632</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="633">633</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </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">   my $space = shift; </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">   my $id = shift; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#637-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="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 $port = port($stream); </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 ($space) { </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#640-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="641">641</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">     $space =~ s/.*\///; </td>
</tr>

<tr>
<td  class="h" >
<a name="642">642</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">     $space = uri_escape_utf8($space); </td>
</tr>

<tr>
<td  class="h" >
<a name="643">643</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="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">   # don't encode the slash </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">   return "$scheme://$host:$port/" </td>
</tr>

<tr>
<td  class="h" >
<a name="646">646</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="647">647</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#647-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="#651"> 
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="648">648</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="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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="650">650</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="651">651</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#653"> 
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="653">653</a>
</td>

<td  class="c0" >
 <a href="#654"> 
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="654">654</a>
</td>

<td  class="c0" >
 <a href="#655"> 
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="655">655</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">   my $id = shift; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#656-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="657">657</a>
</td>

<td  class="c0" >
 <a href="#659"> 
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="658">658</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="659">659</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#659-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="660">660</a>
</td>

<td  class="c0" >
 <a href="#661"> 
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="661">661</a>
</td>

<td  class="c0" >
 <a href="#665"> 
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="662">662</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="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"> &nbsp; </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"> sub print_link { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $host = 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 $space = 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">   my $title = shift; </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 $id = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="670">670</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">   $stream->write(encode_utf8 gemini_link($stream, $host, $space, $title, $id) . "\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="671">671</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="672">672</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="673">673</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="674">674</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#674-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="675">675</a>
</td>

<td  class="c0" >
 <a href="#676"> 
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="676">676</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#676-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="677">677</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="678">678</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="679">679</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="680">680</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="681">681</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="682">682</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="683">683</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#683-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="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 $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#686"> 
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="686">686</a>
</td>

<td  class="c0" >
 <a href="#687"> 
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="687">687</a>
</td>

<td  class="c0" >
 <a href="#688"> 
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="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">   my $index = "$dir/index"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#689-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="690">690</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#690-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="691">691</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="#692"> 
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="692">692</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">     write_text($index, join("\n", @pages, "")); </td>
</tr>

<tr>
<td  class="h" >
<a name="693">693</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="#695"> 
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="694">694</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="695">695</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="#696"> 
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="696">696</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#696-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="697">697</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">   return @lines; </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 >

&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="700">700</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="701">701</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#701-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="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">   my $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#704"> 
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="704">704</a>
</td>

<td  class="c0" >
 <a href="#705"> 
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="705">705</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="#709"> 
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="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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="707">707</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="708">708</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="709">709</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#711"> 
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="711">711</a>
</td>

<td  class="c0" >
 <a href="#712"> 
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="712">712</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#712-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="713">713</a>
</td>

<td  class="c0" >
 <a href="#714"> 
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="714">714</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#714-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="715">715</a>
</td>

<td  class="c0" >
 <a href="#717"> 
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="716">716</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="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">   for my $id (@blog[0 .. min($#blog, $n - 1)]) { </td>
</tr>

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

<td  class="c0" >
 <a href="#720"> 
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="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">   } </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#720-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="721">721</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#721-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="722">722</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#722-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="723">723</a>
</td>

<td  class="c0" >
 <a href="#727"> 
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="724">724</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="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"> &nbsp; </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"> sub quote_html { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $html = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   $html =~ s/&/&amp;/g; </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">   $html =~ s/</&lt;/g; </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">   $html =~ s/>/&gt;/g; </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">   $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="732">732</a>
</td>

<td  class="c0" >
 <a href="#736"> 
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="733">733</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="734">734</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="735">735</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="736">736</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#738"> 
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="738">738</a>
</td>

<td  class="c0" >
 <a href="#739"> 
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="739">739</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">   my $n = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </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">   $log->info("Serving blog"); </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">   $stream->write("# Blog\n"); </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 @blog = blog_pages($stream, $host, $space, $n); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#744-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="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">     $stream->write("There are no blog pages.\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#748"> 
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="747">747</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="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">   $stream->write("Serving up to $n entries.\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#750"> 
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="750">750</a>
</td>

<td  class="c0" >
 <a href="#752"> 
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="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">   } </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#752-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="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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="754">754</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="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"> sub serve_index { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="757">757</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">   my $host = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = 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">   success($stream); </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">   $log->info("Serving index of all pages"); </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">   $stream->write("# All Pages\n"); </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 @pages = pages($stream, $host, $space); </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">   $stream->write("There are no pages.\n") unless @pages; </td>
</tr>

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

<td  class="c0" >
 <a href="#765"> 
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="765">765</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">     print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="766">766</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="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"> } </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"> &nbsp; </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"> sub files { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#772"> 
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="772">772</a>
</td>

<td  class="c0" >
 <a href="#773"> 
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="773">773</a>
</td>

<td  class="c0" >
 <a href="#774"> 
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="774">774</a>
</td>

<td  class="c0" >
 <a href="#775"> 
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="775">775</a>
</td>

<td  class="c0" >
 <a href="#776"> 
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="776">776</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#776-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="777">777</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="#778"> 
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="778">778</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#778-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="779">779</a>
</td>

<td  class="c0" >
 <a href="#783"> 
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="780">780</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="781">781</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="782">782</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="783">783</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="784">784</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">   my $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#786"> 
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="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">   success($stream); </td>
</tr>

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

<td  class="c0" >
 <a href="#788"> 
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="788">788</a>
</td>

<td  class="c0" >
 <a href="#789"> 
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="789">789</a>
</td>

<td  class="c0" >
 <a href="#790"> 
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="790">790</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#790-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="791">791</a>
</td>

<td  class="c0" >
 <a href="#792"> 
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="792">792</a>
</td>

<td  class="c0" >
 <a href="#797"> 
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="793">793</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="794">794</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="795">795</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="796">796</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="797">797</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#799"> 
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="799">799</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">   my $port = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   success($stream); </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">   $log->info("Serving all spaces"); </td>
</tr>

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

<td  class="c0" >
 <a href="#803"> 
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="803">803</a>
</td>

<td  class="c0" >
 <a href="#804"> 
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="804">804</a>
</td>

<td  class="c0" >
 <a href="#805"> 
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="805">805</a>
</td>

<td  class="c0" >
 <a href="#810"> 
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="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"> } </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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="809">809</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="810">810</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = 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 $host = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="812">812</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 $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="813">813</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="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 $dir = wiki_dir($host, $space); </td>
</tr>

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

<td  class="c0" >
 <a href="#816"> 
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="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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#816-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="817">817</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">     $log->info("Serving cached data archive"); </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">     success($stream, "application/tar"); </td>
</tr>

<tr>
<td  class="h" >
<a name="819">819</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">     $stream->write(read_binary($file)); </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">   } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="821">821</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">     write_binary($file, ""); # truncate in order to avoid "file changed as we read it" warning </td>
</tr>

<tr>
<td  class="h" >
<a name="822">822</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">     my @command = ('/bin/tar', '--create', '--gzip', </td>
</tr>

<tr>
<td  class="h" >
<a name="823">823</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="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"> 		   '--exclude', $file, </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"> 		   '--directory', "$dir/..", </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"> 		   ((split(/\//,$dir))[-1])); </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     $log->debug("@command"); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#828-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="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">       $log->info("Serving new data archive"); </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">       success($stream, "application/tar"); </td>
</tr>

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

<td  class="c0" >
 <a href="#833"> 
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="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">     } else { </td>
</tr>

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

<td  class="c0" >
 <a href="#834"> 
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="834">834</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">       result($stream, "59", "Archive creation failed"); </td>
</tr>

<tr>
<td  class="h" >
<a name="835">835</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="836">836</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="837">837</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="838">838</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="839">839</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="840">840</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#842"> 
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="842">842</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">   my $space = shift; </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">   my $match = shift; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#844-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="845">845</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">     result($stream, "59", "Search term is missing"); </td>
</tr>

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

<td  class="c0" >
 <a href="#848"> 
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="847">847</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="848">848</a>
</td>

<td  class="c0" >
 <a href="#849"> 
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="849">849</a>
</td>

<td  class="c0" >
 <a href="#850"> 
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="850">850</a>
</td>

<td  class="c0" >
 <a href="#851"> 
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="851">851</a>
</td>

<td  class="c0" >
 <a href="#852"> 
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="852">852</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">   my @pages = pages($stream, $host, $space, $match); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#853-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="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">   for my $id (@pages) { </td>
</tr>

<tr>
<td  class="h" >
<a name="855">855</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">     print_link($stream, $host, $space, $id); </td>
</tr>

<tr>
<td  class="h" >
<a name="856">856</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="857">857</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="858">858</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="859">859</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="860">860</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="861">861</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">   my $host = shift; </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">   my $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#864"> 
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="864">864</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#864-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="865">865</a>
</td>

<td  class="c0" >
 <a href="#866"> 
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="866">866</a>
</td>

<td  class="c0" >
 <a href="#868"> 
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="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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="868">868</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">   success($stream); </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 >

&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="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">   $stream->write(encode_utf8 "# Search page content for $str\n"); </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">   $stream->write("Use a Perl regular expression to match page titles and page content.\n"); </td>
</tr>

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

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#872-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="#873"> 
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="873">873</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("Search term not found.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="874">874</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="875">875</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="876">876</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="877">877</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="878">878</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </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">   my $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#882"> 
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="882">882</a>
</td>

<td  class="c0" >
 <a href="#883"> 
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="883">883</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">   my @pages = pages($stream, $host, $space); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#884-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="885">885</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">   my $found = 0; </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">   for my $id (@pages) { </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">     my $text = text($stream, $host, $space, $id); </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#888-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="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">       $func->($host, $space, $id, $text, $str); </td>
</tr>

<tr>
<td  class="h" >
<a name="890">890</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">       $found++; </td>
</tr>

<tr>
<td  class="h" >
<a name="891">891</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="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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="893">893</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">   return $found; </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 >

&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="896">896</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="897">897</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="898">898</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">   my $host = shift; </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">   my $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#901"> 
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="901">901</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">   my $text = shift; </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">   my $str = shift; </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">   my ($snippetlen, $maxsnippets) = (100, 4); #  these seem nice. </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">   # show a snippet from the beginning of the document </td>
</tr>

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

<td  class="c0" >
 <a href="#906"> 
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="906">906</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">   my $t = substr($text, 0, $j); </td>
</tr>

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

<td  class="c0" >
 <a href="#908"> 
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="908">908</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">   $text = substr($text, $j);  # to avoid rematching </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">   my $jsnippet = 0 ; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#910-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="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">     $jsnippet++; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#912-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="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">       # get substr containing (start of) match, ending on word boundaries </td>
</tr>

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

<td  class="c0" >
 <a href="#915"> 
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="915">915</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#915-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="916">916</a>
</td>

<td  class="c0" >
 <a href="#917"> 
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="917">917</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#917-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="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">       $t = substr($text, $start, $end - $start); </td>
</tr>

<tr>
<td  class="h" >
<a name="919">919</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">       $result .= $t . ' … '; </td>
</tr>

<tr>
<td  class="h" >
<a name="920">920</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="921">921</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">       $text = substr($text, $end); </td>
</tr>

<tr>
<td  class="h" >
<a name="922">922</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="923">923</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="924">924</a>
</td>

<td  class="c0" >
 <a href="#925"> 
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="925">925</a>
</td>

<td  class="c0" >
 <a href="#929"> 
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="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"> } </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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="928">928</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="929">929</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </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">   my $space = shift; </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">   my $n = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#934"> 
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="934">934</a>
</td>

<td  class="c0" >
 <a href="#935"> 
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="935">935</a>
</td>

<td  class="c0" >
 <a href="#936"> 
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="936">936</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">   $stream->write("# Changes\n"); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#937-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="#938"> 
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="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">   elsif ($style eq "colour") { print_link($stream, $host, $space, "Fancy changes", "do/changes/$n/fancy") } </td>
</tr>

<tr>
<td  class="h" >
<a name="939">939</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">   elsif ($style eq "fancy") { print_link($stream, $host, $space, "Normal changes", "do/changes/$n") } </td>
</tr>

<tr>
<td  class="h" >
<a name="940">940</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="941">941</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#941-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="#942"> 
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="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">   print_link($stream, $host, $space, "Atom Feed", "do/atom"); </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">   print_link($stream, $host, $space, "RSS Feed", "do/rss"); </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 $dir = wiki_dir($host, $space); </td>
</tr>

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

<td  class="c0" >
 <a href="#946"> 
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="946">946</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#946-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="947">947</a>
</td>

<td  class="c0" >
 <a href="#948"> 
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="948">948</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="949">949</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="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">   $stream->write("Showing up to $n changes.\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#954"> 
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="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">   return unless changes($stream, </td>
</tr>

<tr>
<td  class="h" >
<a name="953">953</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="954">954</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#954-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="955">955</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#955-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="956">956</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#956-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="957">957</a>
</td>

<td  class="c0" >
 <a href="#959"> 
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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     sub { $stream->write(encode_utf8 join("\n", @_, "")) }, </td>
</tr>

<tr>
<td  class="h" >
<a name="958">958</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="959">959</a>
</td>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#959-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="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">       chomp; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#961-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="#962"> 
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="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("\n"); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#963-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="964">964</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="965">965</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="966">966</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="967">967</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#969"> 
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="969">969</a>
</td>

<td  class="c0" >
 <a href="#970"> 
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="970">970</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">   my $style = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#972-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="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">   success($stream); </td>
</tr>

<tr>
<td  class="h" >
<a name="974">974</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("# Changes for all spaces\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="975">975</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="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">   my $log = all_logs($stream, $host, $n); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#977-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="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("No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="979">979</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="980">980</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="981">981</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#981-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="982">982</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#982-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="983">983</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#983-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="#984"> 
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="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">   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="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">   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="986">986</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#986-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="#987"> 
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="987">987</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">   else { print_link($stream, $host, undef, "Latest changes", "do/all/latest/changes/$n$style_segment") } </td>
</tr>

<tr>
<td  class="h" >
<a name="988">988</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="989">989</a>
</td>

<td  class="c0" >
 <a href="#990"> 
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="990">990</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#990-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="991">991</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("Showing up to $n$filter_description changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="992">992</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="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">     $n, </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#994-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="995">995</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#995-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="996">996</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#996-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="997">997</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#997-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="998">998</a>
</td>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#998-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="#1000"> 
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="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">     undef, </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1000-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="1001">1001</a>
</td>

<td  class="c0" >
 <a href="#1002"> 
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="1002">1002</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1002-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="1003">1003</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="1004">1004</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="1005">1005</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="1006">1006</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1008"> 
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="1008">1008</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">   my $n = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1011"> 
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="1010">1010</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="1011">1011</a>
</td>

<td  class="c0" >
 <a href="#1012"> 
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="1012">1012</a>
</td>

<td  class="c0" >
 <a href="#1013"> 
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="1013">1013</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">   my @spaces = space_dirs($stream); </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   for my $space (@spaces) { </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 $changes = $dir; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1016-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="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">     $changes .= "/changes.log"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1018-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="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">     $log->debug("Reading $changes"); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1020-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="1021">1021</a>
</td>

<td  class="c0" >
 <a href="#&nbsp;"> 
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">     if (keys %{$server->{host}} > 1) { </td>
</tr>

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

<td  class="c0" >
 <a href="#1022"> 
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="1022">1022</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="#1024"> 
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="1023">1023</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="1024">1024</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="#1027"> 
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="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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1027">1027</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="#1028"> 
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="1028">1028</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">   return \@log; </td>
</tr>

<tr>
<td  class="h" >
<a name="1029">1029</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="1030">1030</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="1031">1031</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="1032">1032</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $fh = shift; # File::ReadBackwards </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">   my $n = shift; </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">   my $host = shift; </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">   my $space = shift; </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">   my $filter = shift; </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">   my @changes; </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">   for (1 .. $n) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1040">1040</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">     $_ = decode_utf8($fh->readline); </td>
</tr>

<tr>
<td  class="h" >
<a name="1041">1041</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="1042">1042</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1042-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="1043">1043</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1043-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="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">     chomp; </td>
</tr>

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

<td  class="c0" >
 <a href="#1047"> 
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="1046">1046</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="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">   $log->debug("Read changes: " . @changes); </td>
</tr>

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

<td  class="c0" >
 <a href="#1069"> 
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="1049">1049</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="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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1051">1051</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="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"> # header for the date (one argument). $change is a code reference that prints </td>
</tr>

<tr>
<td  class="h" >
<a name="1053">1053</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="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"> # code reference that prints a link (four arguments). $nolink is a code reference </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"> # that prints a name that isn't linked (one argument). $next is a code reference </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"> # that returns the list of attributes for the next change, these attributes </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"> # being: the timestamp (as returned by time); the page or file name; the page </td>
</tr>

<tr>
<td  class="h" >
<a name="1058">1058</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="1059">1059</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="1060">1060</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="1061">1061</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="1062">1062</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="1063">1063</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="1064">1064</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="1065">1065</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="1066">1066</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="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"> # changes. </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"> sub changes { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="1070">1070</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">   my $n = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $header = 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 $change = 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 $link = 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">   my $nolink = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1075">1075</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">   my $next = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1076">1076</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="1077">1077</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1077-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="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">     -e wiki_dir($host, $space) . "/keep/$id/$revision.gmi"; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1079-1"> 
  0
 </a> 
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   }; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1080-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="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">   my $last_day = ''; </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">   my %seen; </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">   for (1 .. $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">     my ($ts, $id, $revision, $code, $host, $space, $show_space) = $next->(); </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1085-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="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">     my $name = name($stream, $id, $host, $space, $show_space); </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1087-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="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">     my $day = day($stream, $ts); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1089-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="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">       $header->($day); </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">       $last_day = $day; </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="#1094"> 
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="1094">1094</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1094-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="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">       # a deleted page </td>
</tr>

<tr>
<td  class="h" >
<a name="1096">1096</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">       $link->($host, $space, "$name (deleted)", "page/$id"); </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 >

&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="1098">1098</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">       $seen{$name} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1099">1099</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="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">       # a deleted file </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">       $nolink->("$name (deleted file)"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1102">1102</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">       $seen{$name . "\x1c"} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1103">1103</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="1104">1104</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="1105">1105</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1105-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="1106">1106</a>
</td>

<td  class="c0" >
 <a href="#1107"> 
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="1107">1107</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1107-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="1108">1108</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="1109">1109</a>
</td>

<td  class="c0" >
 <a href="#1110"> 
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="1110">1110</a>
</td>

<td  class="c0" >
 <a href="#1111"> 
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="1111">1111</a>
</td>

<td  class="c0" >
 <a href="#1113"> 
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="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">       } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1113">1113</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"> 	$link->($host, $space, "$name (current)", "page/$id"); </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"> 	$link->($host, $space, "History", "history/$id"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1119"> 
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="1116">1116</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="1117">1117</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="1118">1118</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="1119">1119</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1119-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="1120">1120</a>
</td>

<td  class="c0" >
 <a href="#1122"> 
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="1121">1121</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="1122">1122</a>
</td>

<td  class="c0" >
 <a href="#1123"> 
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="1123">1123</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"> 	$seen{$name . "\x1c"} = 1; </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">     } </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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1127">1127</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">   return () = $next->(); # return something, if there's more </td>
</tr>

<tr>
<td  class="h" >
<a name="1128">1128</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="1129">1129</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="1130">1130</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="1131">1131</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $id = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1134"> 
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="1134">1134</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">   my $space = shift; </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">   my $show_space = shift; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1136-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="1137">1137</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1137-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="#1138"> 
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="1138">1138</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1138-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="1139">1139</a>
</td>

<td  class="c0" >
 <a href="#1141"> 
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="1140">1140</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="1141">1141</a>
</td>

<td  class="c0" >
 <a href="#1144"> 
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="1142">1142</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="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">     } elsif ($space) { </td>
</tr>

<tr>
<td  class="h" >
<a name="1144">1144</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">       return "[$space] $id"; </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">     } </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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1147">1147</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">   return $id; </td>
</tr>

<tr>
<td  class="h" >
<a name="1148">1148</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="1149">1149</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="1150">1150</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="1151">1151</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $code = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1154"> 
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="1154">1154</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">   my %rgb; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1155-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="1156">1156</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1156-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="1157">1157</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="1158">1158</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="#1161"> 
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="1159">1159</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="1160">1160</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="1161">1161</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">     %rgb = ( </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">     0 => "0;0;0", </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">     1 => "222;56;43", </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">     2 => "57;181;74", </td>
</tr>

<tr>
<td  class="h" >
<a name="1165">1165</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="1166">1166</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="1167">1167</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="1168">1168</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="1169">1169</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="1170">1170</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="#1172"> 
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="1171">1171</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="1172">1172</a>
</td>

<td  class="c0" >
 <a href="#1176"> 
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="1173">1173</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="1174">1174</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="1175">1175</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="1176">1176</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1178"> 
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="1178">1178</a>
</td>

<td  class="c0" >
 <a href="#1179"> 
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="1179">1179</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">   $log->info("Serving Gemini RSS"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1181"> 
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="1181">1181</a>
</td>

<td  class="c0" >
 <a href="#1185"> 
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="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"> } </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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1184">1184</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="1185">1185</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = 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 $host = 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 $space = 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 $scheme = 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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1189-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="1190">1190</a>
</td>

<td  class="c0" >
 <a href="#1191"> 
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="1191">1191</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">   $stream->write("<rss version=\"2.0\" xmlns:atom=\"http://www.w3.org/2005/Atom\">\n"); </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">   $stream->write("<channel>\n"); </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">   $stream->write(encode_utf8 "<title>" . quote_html($name) . "</title>\n"); </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">   $stream->write("<description>Changes on this wiki.</description>\n"); </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">   $stream->write("<link>$scheme://$host:$port/</link>\n"); </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">   $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="1197">1197</a>
</td>

<td  class="c0" >
 <a href="#1198"> 
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="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">   $stream->write("<docs>http://blogs.law.harvard.edu/tech/rss</docs>\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1200"> 
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="1200">1200</a>
</td>

<td  class="c0" >
 <a href="#1201"> 
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="1201">1201</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1201-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="1202">1202</a>
</td>

<td  class="c0" >
 <a href="#1203"> 
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="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">     for (1 .. 100) { </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">       last unless $_ = decode_utf8($fh->readline); </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">       chomp; </td>
</tr>

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

<td  class="c0" >
 <a href="#1207"> 
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="1207">1207</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1207-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="1208">1208</a>
</td>

<td  class="c0" >
 <a href="#1209"> 
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="1209">1209</a>
</td>

<td  class="c0" >
 <a href="#1210"> 
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="1210">1210</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">       $stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n"); </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">       my $link = to_url($stream, $host, $space, "page/$id", $scheme); </td>
</tr>

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

<td  class="c0" >
 <a href="#1213"> 
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="1213">1213</a>
</td>

<td  class="c0" >
 <a href="#1214"> 
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="1214">1214</a>
</td>

<td  class="c0" >
 <a href="#1215"> 
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="1215">1215</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">       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="1216">1216</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">       $stream->write("<pubDate>" </td>
</tr>

<tr>
<td  class="h" >
<a name="1217">1217</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="1218">1218</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="1219">1219</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="1220">1220</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">       $stream->write("</item>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1221">1221</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="1222">1222</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="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("</channel>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1224">1224</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">   $stream->write("</rss>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1225">1225</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="1226">1226</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="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"> sub serve_blog_rss { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </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">   my $space = shift; </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">   $log->info("Serving Gemini Blog RSS"); </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">   success($stream, "application/rss+xml"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1233">1233</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">   blog_rss($stream, $host, $space, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1234">1234</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="1235">1235</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="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"> sub blog_rss { </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1237-1"> 
0
 </a> 
</td>

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1239"> 
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="1239">1239</a>
</td>

<td  class="c0" >
 <a href="#1240"> 
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="1240">1240</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 $scheme = shift; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1241-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="1242">1242</a>
</td>

<td  class="c0" >
 <a href="#1243"> 
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="1243">1243</a>
</td>

<td  class="c0" >
 <a href="#1244"> 
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="1244">1244</a>
</td>

<td  class="c0" >
 <a href="#1245"> 
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="1245">1245</a>
</td>

<td  class="c0" >
 <a href="#1246"> 
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="1246">1246</a>
</td>

<td  class="c0" >
 <a href="#1247"> 
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="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">   $stream->write("<link>$scheme://$host:$port/</link>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1248">1248</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">   $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="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("<generator>Phoebe</generator>\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1251"> 
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="1251">1251</a>
</td>

<td  class="c0" >
 <a href="#1252"> 
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="1252">1252</a>
</td>

<td  class="c0" >
 <a href="#1253"> 
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="1253">1253</a>
</td>

<td  class="c0" >
 <a href="#1255"> 
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="1254">1254</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="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">   for my $id (@blog[0 .. min($#blog, 9)]) { </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">     $stream->write("<item>\n"); </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">     $stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n"); </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">     my $link = to_url($stream, $host, $space, "page/$id", $scheme); </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("<link>$link</link>\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("<guid>$link</guid>\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(encode_utf8 "<description>" . quote_html(text($stream, $host, $space, $id)) . "</description>\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">     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="1263">1263</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("<pubDate>" </td>
</tr>

<tr>
<td  class="h" >
<a name="1264">1264</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="1265">1265</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="1266">1266</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="1267">1267</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("</item>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1268">1268</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="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("</channel>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1270">1270</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("</rss>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1271">1271</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="1272">1272</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="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"> sub changes_for { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </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">   my $space = shift; </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">   my @ids = @_; </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">   my %result; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1280-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="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">     while (@ids) { </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1282-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="1283">1283</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">       chomp; </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">       my ($ts, $id, $revision, $code) = split(/\x1f/); </td>
</tr>

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

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1285-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="#1286"> 
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="1286">1286</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="#1287"> 
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="1287">1287</a>
</td>

<td  class="c0" >
 <a href="#1291"> 
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="1288">1288</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="1289">1289</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="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">   } </td>
</tr>

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

<td  class="c0" >
 <a href="#1295"> 
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="1292">1292</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="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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1294">1294</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="1295">1295</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#1295-1"> 
0
 </a> 
</td>

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1297"> 
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="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">   my $space = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1298">1298</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">   $log->info("Serving Gemini Atom"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1300"> 
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="1300">1300</a>
</td>

<td  class="c0" >
 <a href="#1301"> 
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="1301">1301</a>
</td>

<td  class="c0" >
 <a href="#1302"> 
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="1302">1302</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">   my $fh = File::ReadBackwards->new($log); </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">   atom($stream, sub { </td>
</tr>

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

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1304-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="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">     chomp; </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">     split(/\x1f/), $host, $space, 0 </td>
</tr>

<tr>
<td  class="h" >
<a name="1307">1307</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">   }, $host, $space, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1308">1308</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="1309">1309</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="1310">1310</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="1311">1311</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="1312">1312</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">   my $host = shift; </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">   $log->info("Serving Gemini Atom"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1315"> 
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="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">   my $log = all_logs($stream, $host, 30); </td>
</tr>

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

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1316-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="#1327"> 
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="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 >

&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="1319">1319</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="1320">1320</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="1321">1321</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="1322">1322</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="1323">1323</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="1324">1324</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="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"> # $scheme is either 'gemini' or 'https'. </td>
</tr>

<tr>
<td  class="h" >
<a name="1326">1326</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="1327">1327</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1329"> 
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="1329">1329</a>
</td>

<td  class="c0" >
 <a href="#1330"> 
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="1330">1330</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">   my $space = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $scheme = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $first_host = shift; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1333-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="1334">1334</a>
</td>

<td  class="c0" >
 <a href="#1335"> 
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="1335">1335</a>
</td>

<td  class="c0" >
 <a href="#1336"> 
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="1336">1336</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">   $stream->write("<feed xmlns=\"http://www.w3.org/2005/Atom\">\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1338"> 
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="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">   my $link = to_url($stream, $host, $space, "", $scheme); </td>
</tr>

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

<td  class="c0" >
 <a href="#1340"> 
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="1340">1340</a>
</td>

<td  class="c0" >
 <a href="#1341"> 
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="1341">1341</a>
</td>

<td  class="c0" >
 <a href="#1342"> 
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="1342">1342</a>
</td>

<td  class="c0" >
 <a href="#1343"> 
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="1343">1343</a>
</td>

<td  class="c0" >
 <a href="#1344"> 
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="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">   $stream->write("<generator uri=\"https://alexschroeder.ch/cgit/phoebe/about/\" version=\"1.0\">Phoebe</generator>\n"); </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 %seen; </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">   for (1 .. 100) { </td>
</tr>

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

<td  class="c0" >
 <a href="#1348"> 
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="1348">1348</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1348-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="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">     my $name = name($stream, $id, $host, $space, $show_space); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1350-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="1351">1351</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1351-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="1352">1352</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="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("<entry>\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(encode_utf8 "<title>" . quote_html($name) . " (deleted)</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1355">1355</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">       $seen{$name} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1356">1356</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="1357">1357</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="1358">1358</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1358-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="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("<entry>\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(encode_utf8 "<title>" . quote_html($name) . " (deleted file)</title>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1361">1361</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">       $seen{$name . "\x1c"} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1362">1362</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="1363">1363</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="1364">1364</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1364-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="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("<entry>\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">       $stream->write(encode_utf8 "<title>" . quote_html($name) . "</title>\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1368"> 
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="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("<link href=\"$link\"/>\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1370"> 
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="1370">1370</a>
</td>

<td  class="c0" >
 <a href="#1371"> 
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="1371">1371</a>
</td>

<td  class="c0" >
 <a href="#1374"> 
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="1372">1372</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="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">       # a file </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1374-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="1375">1375</a>
</td>

<td  class="c0" >
 <a href="#1376"> 
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="1376">1376</a>
</td>

<td  class="c0" >
 <a href="#1377"> 
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="1377">1377</a>
</td>

<td  class="c0" >
 <a href="#1378"> 
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="1378">1378</a>
</td>

<td  class="c0" >
 <a href="#1379"> 
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="1379">1379</a>
</td>

<td  class="c0" >
 <a href="#1380"> 
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="1380">1380</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">       $seen{$name . "\x1c"} = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1381">1381</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="1382">1382</a>
</td>

<td  class="c0" >
 <a href="#1383"> 
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="1383">1383</a>
</td>

<td  class="c0" >
 <a href="#1384"> 
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="1384">1384</a>
</td>

<td  class="c0" >
 <a href="#1385"> 
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="1385">1385</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1385-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="1386">1386</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("<author><name>$code</name></author>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1387">1387</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">     $stream->write("</entry>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1388">1388</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="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">   $stream->write("<updated>$feed_ts</updated>\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1390">1390</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">   $stream->write("</feed>\n"); </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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1392">1392</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="1393">1393</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="1394">1394</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </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 $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1398"> 
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="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">   success($stream, "application/atom+xml"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1399">1399</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">   blog_atom($stream, $host, $space, 'gemini'); </td>
</tr>

<tr>
<td  class="h" >
<a name="1400">1400</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="1401">1401</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="1402">1402</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="1403">1403</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="1404">1404</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">   my $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1406"> 
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="1406">1406</a>
</td>

<td  class="c0" >
 <a href="#1407"> 
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="1407">1407</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1407-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="1408">1408</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">   my $port = port($stream); </td>
</tr>

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

<td  class="c0" >
 <a href="#1410"> 
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="1410">1410</a>
</td>

<td  class="c0" >
 <a href="#1411"> 
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="1411">1411</a>
</td>

<td  class="c0" >
 <a href="#1412"> 
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="1412">1412</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">   my $link = to_url($stream, $host, $space, "", $scheme); </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 >

&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="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">   $link = to_url($stream, $host, $space, "do/blog/atom", $scheme); </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">   $stream->write("<link rel=\"self\" type=\"application/atom+xml\" href=\"$link\"/>\n"); </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">   $stream->write("<id>$link</id>\n"); </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 $feed_ts = "0001-01-01T00:00:00Z"; </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">   $stream->write("<generator uri=\"https://alexschroeder.ch/cgit/phoebe/about/\" version=\"1.0\">Phoebe</generator>\n"); </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 $dir = wiki_dir($host, $space); </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">   my @blog = blog_pages($stream, $host, $space, 10); </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">   my $changes = changes_for($host, $space, @blog); </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">   # hard coded: 10 pages blog ATOM, no pagination </td>
</tr>

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

<td  class="c0" >
 <a href="#1424"> 
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="1424">1424</a>
</td>

<td  class="c0" >
 <a href="#1425"> 
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="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">     $stream->write(encode_utf8 "<title>" . quote_html($id) . "</title>\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1427"> 
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="1427">1427</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">     $stream->write("<link href=\"$link\"/>\n"); </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">     $stream->write("<id>$link</id>\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1430"> 
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="1430">1430</a>
</td>

<td  class="c0" >
 <a href="#1431"> 
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="1431">1431</a>
</td>

<td  class="c0" >
 <a href="#1432"> 
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="1432">1432</a>
</td>

<td  class="c0" >
 <a href="#1433"> 
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="1433">1433</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1433-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="1434">1434</a>
</td>

<td  class="c0" >
 <a href="#1436"> 
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="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">   } </td>
</tr>

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

<td  class="c0" >
 <a href="#1437"> 
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="1437">1437</a>
</td>

<td  class="c0" >
 <a href="#1441"> 
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="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"> } </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"> &nbsp; </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"> sub serve_raw { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1443"> 
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="1443">1443</a>
</td>

<td  class="c0" >
 <a href="#1444"> 
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="1444">1444</a>
</td>

<td  class="c0" >
 <a href="#1445"> 
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="1445">1445</a>
</td>

<td  class="c0" >
 <a href="#1446"> 
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="1446">1446</a>
</td>

<td  class="c0" >
 <a href="#1447"> 
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="1447">1447</a>
</td>

<td  class="c0" >
 <a href="#1448"> 
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="1448">1448</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">   $stream->write(encode_utf8 text($stream, $host, $space, $id, $revision)); </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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1450">1450</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="1451">1451</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="1452">1452</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = 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 $host = 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 $space = 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 $id = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1457"> 
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="1457">1457</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 $style = shift; </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 >

&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="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">   success($stream); </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 >

&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="1461">1461</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1461-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="#1462"> 
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="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">   else { print_link($stream, $host, $space, "Normal diff", "diff/$id/$revision") } </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">   $stream->write("Showing the differences between revision $revision and the current revision.\n"); </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">   my $new = text($stream, $host, $space, $id); </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 $old = text($stream, $host, $space, $id, $revision); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1466-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="1467">1467</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="1468">1468</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1468-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="1469">1469</a>
</td>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1469-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="#1470"> 
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="1470">1470</a>
</td>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1470-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="#1471"> 
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="1471">1471</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#1471-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="#1474"> 
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="1472">1472</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="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">     diff($old, $new, </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1474-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="1475">1475</a>
</td>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1475-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="#1476"> 
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="1476">1476</a>
</td>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1476-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="#1477"> 
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="1477">1477</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#1477-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="#1484"> 
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="1478">1478</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="1479">1479</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="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"> &nbsp; </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"> # old text, new text, code reference to print a paragraph, print deleted text, </td>
</tr>

<tr>
<td  class="h" >
<a name="1482">1482</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="1483">1483</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="1484">1484</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my @old = split(/\n/, shift); </td>
</tr>

<tr>
<td  class="h" >
<a name="1485">1485</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">   my @new = split(/\n/, shift); </td>
</tr>

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

<td  class="c0" >
 <a href="#1487"> 
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="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">   my $deleted = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1489"> 
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="1489">1489</a>
</td>

<td  class="c0" >
 <a href="#1490"> 
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="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">   $log->debug("Preparing a diff"); </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">   my $diff = Algorithm::Diff->new(\@old, \@new); </td>
</tr>

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

<td  class="c0" >
 <a href="#1493"> 
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="1493">1493</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">   while($diff->Next()) { </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1494-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="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">     my $sep = ''; </td>
</tr>

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

<td  class="c0" >
 <a href="#1497"> 
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="1497">1497</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1497-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="1498">1498</a>
</td>

<td  class="c0" >
 <a href="#1499"> 
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="1499">1499</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1499-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="1500">1500</a>
</td>

<td  class="c0" >
 <a href="#1501"> 
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="1501">1501</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1501-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="1502">1502</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">       $added->(@$to); </td>
</tr>

<tr>
<td  class="h" >
<a name="1503">1503</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="1504">1504</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1504-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="1505">1505</a>
</td>

<td  class="c0" >
 <a href="#1507"> 
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="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">     } elsif ($diff->Diff == 1) { </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1507-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="1508">1508</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">       $deleted->($diff->Items(1)); </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">   } </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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1512">1512</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="1513">1513</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="1514">1514</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="1515">1515</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="1516">1516</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1518"> 
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="1518">1518</a>
</td>

<td  class="c0" >
 <a href="#1519"> 
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="1519">1519</a>
</td>

<td  class="c0" >
 <a href="#1520"> 
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="1520">1520</a>
</td>

<td  class="c0" >
 <a href="#1521"> 
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="1521">1521</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">   my $diff = Algorithm::Diff->new(\@from_words, \@to_words); </td>
</tr>

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

<td  class="c0" >
 <a href="#1523"> 
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="1523">1523</a>
</td>

<td  class="c0" >
 <a href="#1524"> 
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="1524">1524</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1524-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="1525">1525</a>
</td>

<td  class="c0" >
 <a href="#1526"> 
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="1526">1526</a>
</td>

<td  class="c0" >
 <a href="#1529"> 
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="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">     } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="1528">1528</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="1529">1529</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1529-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="#1530"> 
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="1530">1530</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1530-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="#1534"> 
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="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">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1532">1532</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="1533">1533</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="1534">1534</a>
</td>

<td  class="c0" >
 <a href="#1538"> 
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="1535">1535</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="1536">1536</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="1537">1537</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="1538">1538</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1540"> 
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="1540">1540</a>
</td>

<td  class="c0" >
 <a href="#1541"> 
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="1541">1541</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">   my $id = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1543"> 
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="1543">1543</a>
</td>

<td  class="c0" >
 <a href="#1544"> 
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="1544">1544</a>
</td>

<td  class="c0" >
 <a href="#1545"> 
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="1545">1545</a>
</td>

<td  class="c0" >
 <a href="#1549"> 
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="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"> } </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"> &nbsp; </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"> sub html_page { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="1550">1550</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">   my $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1552"> 
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="1552">1552</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">   my $id = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1554"> 
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="1554">1554</a>
</td>

<td  class="c0" >
 <a href="#1555"> 
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="1555">1555</a>
</td>

<td  class="c0" >
 <a href="#1556"> 
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="1556">1556</a>
</td>

<td  class="c0" >
 <a href="#1557"> 
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="1557">1557</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">   $stream->write("<meta charset=\"utf-8\">\n"); </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 >

&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="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">   $stream->write("<link type=\"text/css\" rel=\"stylesheet\" href=\"/default.css\"/>\n"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1561"> 
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="1561">1561</a>
</td>

<td  class="c0" >
 <a href="#1562"> 
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="1562">1562</a>
</td>

<td  class="c0" >
 <a href="#1563"> 
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="1563">1563</a>
</td>

<td  class="c0" >
 <a href="#1564"> 
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="1564">1564</a>
</td>

<td  class="c0" >
 <a href="#1565"> 
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="1565">1565</a>
</td>

<td  class="c0" >
 <a href="#1566"> 
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="1566">1566</a>
</td>

<td  class="c0" >
 <a href="#1567"> 
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="1567">1567</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">   $stream->write("</html>\n"); </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"> } </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"> &nbsp; </td>
</tr>

<tr>
<td  class="h" >
<a name="1570">1570</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="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"> sub to_html { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1575"> 
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="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">   my $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="1575">1575</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">   my $code; </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 >

&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="1577">1577</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1577-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="1578">1578</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1578-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="1579">1579</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1579-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="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"> 	push @lines, "</pre>"; </td>
</tr>

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

<td  class="c0" >
 <a href="#1583"> 
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="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">       } else { </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1583-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="1584">1584</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"> 	$list = 0; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 	push @lines, "<pre class=\"$type\">"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1586">1586</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"> 	$code = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1587">1587</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="1588">1588</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="1589">1589</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">       push @lines, $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="1590">1590</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="1591">1591</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1591-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="1592">1592</a>
</td>

<td  class="c0" >
 <a href="#1593"> 
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="1593">1593</a>
</td>

<td  class="c0" >
 <a href="#1595"> 
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="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">     } elsif (my ($url, $text) = /^=&gt;\s*(\S+)\s*(.*)/) { # quoted HTML! </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1595-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="1596">1596</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1596-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="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">       push @lines, "<li><a href=\"$url\">$text</a>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1598">1598</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">       $list = 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1599">1599</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="1600">1600</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1600-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="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">       $list = 0; </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">       my $level = length($1); </td>
</tr>

<tr>
<td  class="h" >
<a name="1603">1603</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">       push @lines, "<h$level>$2</h$level>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1604">1604</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="1605">1605</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1605-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="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">       $list = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1607">1607</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">       push @lines, "<blockquote>$1</blockquote>"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1608">1608</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="1609">1609</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1609-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="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">       $list = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1611">1611</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">       push @lines, "<p>$_"; </td>
</tr>

<tr>
<td  class="h" >
<a name="1612">1612</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="1613">1613</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="1614">1614</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1614-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="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">   push @lines, "</ul>" if $list; </td>
</tr>

<tr>
<td  class="h" >
<a name="1616">1616</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">   return join("\n", @lines); </td>
</tr>

<tr>
<td  class="h" >
<a name="1617">1617</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="1618">1618</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="1619">1619</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="1620">1620</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </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 $space = shift; </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">   my $id = shift; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1624-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="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">   my @links; </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">   push(@links, $_->($stream, $host, $space, $id, $revision, "html")) for @footer; </td>
</tr>

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

<td  class="c0" >
 <a href="#1628"> 
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="1628">1628</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1628-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="1629">1629</a>
</td>

<td  class="c0" >
 <a href="#1633"> 
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="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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1631">1631</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="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"> sub day { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my ($sec, $min, $hour, $mday, $mon, $year) = gmtime(shift); </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">   return sprintf('%4d-%02d-%02d', $year + 1900, $mon + 1, $mday); </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 time_of_day { </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 ($sec, $min, $hour, $mday, $mon, $year) = gmtime(shift); </td>
</tr>

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

<td  class="c0" >
 <a href="#1645"> 
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="1642">1642</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="1643">1643</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="1644">1644</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="1645">1645</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $ts = (stat(shift))[9]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1646">1646</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">   return $ts; </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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1648">1648</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="1649">1649</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="1650">1650</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = 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 $host = 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 >

&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="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 $id = shift; </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">   my $n = shift; </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">   my $style = shift; </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">   success($stream); </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">   $log->info("Serve history for $id"); </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(encode_utf8 "# Page history for $id\n"); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1659-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="#1660"> 
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="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">   elsif ($style eq "colour") { print_link($stream, $host, $space, "Fancy history", "history/$id/$n/fancy") } </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">   elsif ($style eq "fancy") { print_link($stream, $host, $space, "Normal history", "history/$id/$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 $log = "$dir/changes.log"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1664-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="1665">1665</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">     $stream->write("No changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1666">1666</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1667">1667</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="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("Showing up to $n changes.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1669">1669</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">   my $fh = File::ReadBackwards->new($log); </td>
</tr>

<tr>
<td  class="h" >
<a name="1670">1670</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="1671">1671</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="1672">1672</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1672-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="1673">1673</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1673-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="1674">1674</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1674-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="1675">1675</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1675-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="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">     sub { </td>
</tr>

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

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

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

<td >

&nbsp;

</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">     READ: </td>
</tr>

<tr>
<td  class="h" >
<a name="1678">1678</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="1679">1679</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">       chomp; </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">       my ($ts, $id_log, $revision, $code) = split(/\x1f/); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1681-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="1682">1682</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1682-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="#1683"> 
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="1683">1683</a>
</td>

<td  class="c0" >
 <a href="#1684"> 
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="1684">1684</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1684-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="1685">1685</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="1686">1686</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="1687">1687</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="1688">1688</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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 $host = shift; </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 $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1692"> 
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="1692">1692</a>
</td>

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1692-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="1693">1693</a>
</td>

<td  class="c0" >
 <a href="#1694"> 
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="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">   push(@links, gemini_link($stream, $host, $space, "History", "history/$id")); </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">   push(@links, gemini_link($stream, $host, $space, "Raw text", "raw/$id/$revision")); </td>
</tr>

<tr>
<td  class="h" >
<a name="1696">1696</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">   push(@links, gemini_link($stream, $host, $space, "HTML", "html/$id/$revision")); </td>
</tr>

<tr>
<td  class="h" >
<a name="1697">1697</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">   push(@links, $_->($stream, $host, $space, $id, $revision, "gemini")) for @footer; </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">   return join("\n", "\n\nMore:", (grep /\S/, @links), ""); # includes a trailing newline </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"> &nbsp; </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"> sub serve_page { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1704"> 
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="1704">1704</a>
</td>

<td  class="c0" >
 <a href="#1705"> 
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="1705">1705</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">   my $id = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $revision = 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">   $log->info("Serve Gemini page $id"); </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">   success($stream); </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">   $stream->write(encode_utf8 "# $id\n"); </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">   $stream->write(encode_utf8 text($stream, $host, $space, $id, $revision)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1711">1711</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">   $stream->write(encode_utf8 footer($stream, $host, $space, $id, $revision)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1712">1712</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="1713">1713</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="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"> sub text { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1715-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="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">   my $host = shift; </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">   my $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1719"> 
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="1719">1719</a>
</td>

<td  class="c0" >
 <a href="#1720"> 
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="1720">1720</a>
</td>

<td  class="c0" >
 <a href="#1721"> 
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="1721">1721</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1721-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="1722">1722</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1722-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="1723">1723</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#1723-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="1724">1724</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1724-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="1725">1725</a>
</td>

<td  class="c0" >
 <a href="#1729"> 
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="1726">1726</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="1727">1727</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="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"> sub robots () { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $ban = << 'EOT'; </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"> User-agent: * </td>
</tr>

<tr>
<td  class="h" >
<a name="1731">1731</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="1732">1732</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="1733">1733</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="1734">1734</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="1735">1735</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="1736">1736</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="1737">1737</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="1738">1738</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="1739">1739</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="1740">1740</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="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"> Disallow: /do/atom </td>
</tr>

<tr>
<td  class="h" >
<a name="1742">1742</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="1743">1743</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="1744">1744</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="1745">1745</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="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"> Disallow: /do/match </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"> Disallow: /do/search </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"> # allowing do/index! </td>
</tr>

<tr>
<td  class="h" >
<a name="1749">1749</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="1750">1750</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="1751">1751</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">   my @disallows = $ban =~ /Disallow: (.*)/g; </td>
</tr>

<tr>
<td  class="h" >
<a name="1752">1752</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="1753">1753</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="1754">1754</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="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 $space = (split /\//)[-1]; </td>
</tr>

<tr>
<td  class="h" >
<a name="1756">1756</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="#1757"> 
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  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="#1761"> 
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="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"> } </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"> &nbsp; </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"> sub serve_file { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1763"> 
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="1763">1763</a>
</td>

<td  class="c0" >
 <a href="#1764"> 
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="1764">1764</a>
</td>

<td  class="c0" >
 <a href="#1765"> 
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="1765">1765</a>
</td>

<td  class="c0" >
 <a href="#1766"> 
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="1766">1766</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">   $log->info("Serve file $id"); </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 >

&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="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 $file = "$dir/file/$id"; </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 $meta = "$dir/meta/$id"; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1770-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="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">     result($stream, "40", "File not found"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1774"> 
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="1773">1773</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="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">     result($stream, "40", "Metadata not found"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1775">1775</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1776">1776</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="1777">1777</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="#1778"> 
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="1778">1778</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1778-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="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">     result($stream, "59", "Metadata corrupt"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1780">1780</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1781">1781</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="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">   success($stream, $meta{'content-type'}); </td>
</tr>

<tr>
<td  class="h" >
<a name="1783">1783</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">   $stream->write(read_binary($file)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1784">1784</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="1785">1785</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="1786">1786</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="1787">1787</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $str = shift; </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 >

&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="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 $num = unpack("L",B::hash($str)); # 32-bit integer </td>
</tr>

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

<td  class="c0" >
 <a href="#1791"> 
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="1791">1791</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">   return substr($code, 0, 4); # four numbers </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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1793">1793</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="1794">1794</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="1795">1795</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1797"> 
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="1797">1797</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">   my $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1799"> 
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="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">   my $data = shift; </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">   my $type = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1802"> 
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="1802">1802</a>
</td>

<td  class="c0" >
 <a href="#1803"> 
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="1803">1803</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">   my $file = "$dir/file/$id"; </td>
</tr>

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

<td  class="c0" >
 <a href="#1805"> 
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="1805">1805</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1805-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="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">     my $old = read_binary($file); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1807-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="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">       $log->info("$id is unchanged"); </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">       result($stream, "30", to_url($stream, $host, $space, "page/$id")); </td>
</tr>

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

<td  class="c0" >
 <a href="#1813"> 
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="1811">1811</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="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">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="1813">1813</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">   my $changes = "$dir/changes.log"; </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">   if (not open(my $fh, ">>:encoding(UTF-8)", $changes)) { </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">     $log->error("Cannot log $changes: $!"); </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">     result($stream, "59", "Unable to write log"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1817">1817</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1818">1818</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="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">     my $peerhost = $stream->handle->peerhost; </td>
</tr>

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

<td  class="c0" >
 <a href="#1821"> 
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="1821">1821</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">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="1822">1822</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="1823">1823</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1823-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="1824">1824</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="#1825"> 
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="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">   if ($@) { </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">     result($stream, "59", "Unable to save $id"); </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">     return; </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1829-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="1830">1830</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="#1831"> 
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="1831">1831</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1831-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="1832">1832</a>
</td>

<td  class="c0" >
 <a href="#1833"> 
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="1833">1833</a>
</td>

<td  class="c0" >
 <a href="#1835"> 
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="1834">1834</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="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">   $log->info("Wrote $id"); </td>
</tr>

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

<td  class="c0" >
 <a href="#1840"> 
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="1837">1837</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="1838">1838</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="1839">1839</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="1840">1840</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1842"> 
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="1842">1842</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">   my $space = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $id = 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">   $log->info("Deleting file $id"); </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 $dir = wiki_dir($host, $space); </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">   unlink("$dir/file/$id", "$dir/meta/$id"); </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 >

&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="1848">1848</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1848-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="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">     $log->error("Cannot write log $changes: $!"); </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">     result($stream, "59", "Unable to write log"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1851">1851</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="1852">1852</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="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">     my $peerhost = $stream->handle->peerhost; </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">     say $fh join("\x1f", scalar(time), $id, "🖻", bogus_hash($peerhost)); </td>
</tr>

<tr>
<td  class="h" >
<a name="1855">1855</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">     close($fh); </td>
</tr>

<tr>
<td  class="h" >
<a name="1856">1856</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="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">   success($stream); </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("# $id\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1859">1859</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">   $stream->write("The file was deleted.\n"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1860">1860</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="1861">1861</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="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"> sub allow_deny_hook { </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  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--subroutine.html#1863-1"> 
0
 </a> 
</td>

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="1864">1864</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">   my $client = shift; </td>
</tr>

<tr>
<td  class="h" >
<a name="1865">1865</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="1866">1866</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">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1867">1867</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="1868">1868</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="1869">1869</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="1870">1870</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $host = shift; </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 $space = shift; </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">   my $dir = $server->{wiki_dir}; </td>
</tr>

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

<td  class="c0" >
 <a href="#&nbsp;"> 
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">   if (keys %{$server->{host}} > 1) { </td>
</tr>

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

<td  class="c0" >
 <a href="#1874"> 
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="1874">1874</a>
</td>

<td  class="c0" >
 <a href="#1875"> 
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="1875">1875</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1875-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="1876">1876</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="1877">1877</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1877-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="1878">1878</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1878-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="1879">1879</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">   return $dir; </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"> } </td>
</tr>

<tr>
<td  class="h" >
<a name="1881">1881</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="1882">1882</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="1883">1883</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="1884">1884</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="1885">1885</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = 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">   my $host = shift; </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">   my $space = shift; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1888-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="1889">1889</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1889-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="#1890"> 
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="1890">1890</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1890-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="1891">1891</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1891-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="#1893"> 
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="1892">1892</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="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">     result($stream, "40", "$host doesn't know about $space"); </td>
</tr>

<tr>
<td  class="h" >
<a name="1894">1894</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">     die "unknown space: $host/$space\n"; # is caught in the eval </td>
</tr>

<tr>
<td  class="h" >
<a name="1895">1895</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="1896">1896</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="1897">1897</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="1898">1898</a>
</td>

<td  class="c0" >
 <a href="#1902"> 
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="1899">1899</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="1900">1900</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="1901">1901</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="1902">1902</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

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

<td  class="c0" >
 <a href="#1904"> 
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="1904">1904</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1904-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="#1905"> 
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="1905">1905</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="#1907"> 
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="1906">1906</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="1907">1907</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">     push @spaces, undef; </td>
</tr>

<tr>
<td  class="h" >
<a name="1908">1908</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="1909">1909</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="#1910"> 
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="1910">1910</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">   return @spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="1911">1911</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="1912">1912</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="1913">1913</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="1914">1914</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="1915">1915</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="1916">1916</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="1917">1917</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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 $scheme = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1920"> 
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="1920">1920</a>
</td>

<td  class="c0" >
 <a href="#1921"> 
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="1921">1921</a>
</td>

<td  class="c0" >
 <a href="#1922"> 
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="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 >

&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="#1923"> 
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="1923">1923</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="#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="#1926"> 
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="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">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1926">1926</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="#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="1927">1927</a>
</td>

<td  class="c0" >
 <a href="#1928"> 
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="1928">1928</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">       $spaces{"$scheme://$ahost:$port/$aspace/"} = $space; </td>
</tr>

<tr>
<td  class="h" >
<a name="1929">1929</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="1930">1930</a>
</td>

<td  class="c0" >
 <a href="#1931"> 
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="1931">1931</a>
</td>

<td  class="c0" >
 <a href="#1932"> 
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="1932">1932</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="#1933"> 
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="1933">1933</a>
</td>

<td  class="c0" >
 <a href="#1936"> 
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="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">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1935">1935</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="1936">1936</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">   return \%spaces; </td>
</tr>

<tr>
<td  class="h" >
<a name="1937">1937</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="1938">1938</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="1939">1939</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="1940">1940</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $request = shift; </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">   $log->info("Looking at $request"); </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">   my $hosts = host_regex(); </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">   my $spaces_regex = space_regex(); </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">   my $port = port($stream); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1946-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="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">     my $host = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="1948">1948</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">     my($scheme, $authority, $path, $query, $fragment) = </td>
</tr>

<tr>
<td  class="h" >
<a name="1949">1949</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="1950">1950</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1950-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="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">       my $space = $1; </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">       my ($id, @params) = split(/[;=&]/, $2); </td>
</tr>

<tr>
<td  class="h" >
<a name="1953">1953</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="#1954"> 
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="1954">1954</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1954-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="1955">1955</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="1956">1956</a>
</td>

<td  class="c0" >
 <a href="#1963"> 
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="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"> 	  space => space($stream, $host, $space), </td>
</tr>

<tr>
<td  class="h" >
<a name="1958">1958</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="1959">1959</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="1960">1960</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="1961">1961</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="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">     } else { </td>
</tr>

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

<td  class="c0" >
 <a href="#1964"> 
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="1964">1964</a>
</td>

<td  class="c0" >
 <a href="#1965"> 
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="1965">1965</a>
</td>

<td  class="c0" >
 <a href="#1968"> 
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="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">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="1967">1967</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="1968">1968</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">   return 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="1969">1969</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="1970">1970</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="1971">1971</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="1972">1972</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = 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">   my $host = shift; </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 $space = shift; </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">   my $id = shift; </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">   my $params = shift; </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">   return unless valid_id($stream, $host, $space, $id, $params); </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1978-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="1979">1979</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1979-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="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">   return unless valid_size($stream, $host, $space, $id, $params); </td>
</tr>

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

<td  class="c0" >
 <a href="#1985"> 
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="1982">1982</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="1983">1983</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="1984">1984</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="1985">1985</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="1986">1986</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">   my $host = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#1988"> 
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="1988">1988</a>
</td>

<td  class="c0" >
 <a href="#1989"> 
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="1989">1989</a>
</td>

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#1989-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="1990">1990</a>
</td>

<td  class="c0" >
 <a href="#1991"> 
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="1991">1991</a>
</td>

<td  class="c0" >
 <a href="#1992"> 
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="1992">1992</a>
</td>

<td  class="c0" >
 <a href="#1993"> 
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="1993">1993</a>
</td>

<td  class="c0" >
 <a href="#1995"> 
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="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">   } elsif ($id =~ /[[:cntrl:]]/) { </td>
</tr>

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

<td  class="c0" >
 <a href="#1996"> 
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="1996">1996</a>
</td>

<td  class="c0" >
 <a href="#1997"> 
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="1997">1997</a>
</td>

<td  class="c0" >
 <a href="#1998"> 
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="1998">1998</a>
</td>

<td  class="c0" >
 <a href="#2000"> 
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="1999">1999</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="2000">2000</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">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2001">2001</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="2002">2002</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="2003">2003</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="2004">2004</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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 $host = shift; </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">   my $space = shift; </td>
</tr>

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

<td  class="c0" >
 <a href="#2008"> 
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="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">   my $params = shift; </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2009-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="2010">2010</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="#2011"> 
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="2011">2011</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">   push(@tokens, @{$server->{wiki_space_token}->{$space}}) </td>
</tr>

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

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2012-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="2013">2013</a>
</td>

<td  class="c0" >
 <a href="#2014"> 
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="2014">2014</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="#2015"> 
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="2015">2015</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2015-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="2016">2016</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">     $log->debug("Uploads require a token"); </td>
</tr>

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

<td  class="c0" >
 <a href="#2018"> 
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="2018">2018</a>
</td>

<td  class="c0" >
 <a href="#2019"> 
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="2019">2019</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; </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">   } elsif (not grep(/^$token$/, @tokens)) { </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 >

&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="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">     result($stream, "59", "Your token is the wrong token"); </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">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2024">2024</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2025">2025</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="2026">2026</a>
</td>

<td  class="c0" >
 <a href="#2030"> 
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="2027">2027</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="2028">2028</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="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"> sub valid_mime_type { </td>
</tr>

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

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

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

<tr>
<td  class="h" >
<a name="2031">2031</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">   my $host = shift; </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 >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">   my $space = 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 $id = 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 $params = 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 $type = $params->{mime}; </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 ($main_type) = split(/\//, $type, 1); </td>
</tr>

<tr>
<td  class="h" >
<a name="2037">2037</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="#2038"> 
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="2038">2038</a>
</td>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--condition.html#2038-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="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">     $log->debug("Uploads require a MIME type"); </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">     result($stream, "59", "Uploads require a MIME type"); </td>
</tr>

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

<td  class="c0" >
 <a href="#2042"> 
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="2042">2042</a>
</td>

<td  class="c0" >
 <a href="#2044"> 
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="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">   } elsif ($type ne "text/plain" and not grep(/^$type$/, @types) and not grep(/^$main_type$/, @types)) { </td>
</tr>

<tr>
<td  class="h" >
<a name="2044">2044</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">     $log->debug("This wiki does not allow $type"); </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 >

&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="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">     $stream->close_gracefully(); </td>
</tr>

<tr>
<td  class="h" >
<a name="2047">2047</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">     return; </td>
</tr>

<tr>
<td  class="h" >
<a name="2048">2048</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="2049">2049</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">   return 1; </td>
</tr>

<tr>
<td  class="h" >
<a name="2050">2050</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="2051">2051</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="2052">2052</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="2053">2053</a>
</td>

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

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

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

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

<td >

&nbsp;

</td>

<td class="s">   my $stream = shift; </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">   my $host = shift; </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">   my $space = shift; </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">   my $id = shift; </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">   my $params = shift; </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">   my $size = $params->{size}; </td>
</tr>

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

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

<td  class="c0" >
 <a href="blib-lib-App-Phoebe-pm--branch.html#2059-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="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">     $log->debug("You need to send along the number of bytes, not '$size'"); </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">     result($stream, "59", "You need to send along the number of bytes, not '$size'"); </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->close_gracefully(); </td>
</tr>

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

<td  class="c0" >
 <a href="#2065"> 
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="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">   } elsif ($size > $server->{wiki_page_size_limit}) { </td>
</tr>

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

<td  class="c0" >
 <a href="#2066"> 
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="2066">2066</a>
</td>

<td  class="c0" >
 <a href="#2067"> 
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="2067">2067</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->close_gracefully(); </td>
</tr>

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

<td  class="c0" >
 <a href="#2070"> 
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="2069">2069</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="2070">2070</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="2071">2071</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="2072">2072</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="2073">2073</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="2074">2074</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="2075">2075</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>