Added article section + SQLite threading article + minor ncdc FAQ fixes

This commit is contained in:
Yorhel 2011-11-26 21:02:11 +01:00
parent 291c0ea142
commit f1f08a5fe0
3 changed files with 693 additions and 4 deletions

View file

@ -23,6 +23,8 @@ TUWF::register(
qr{tuwf} => \&tuwf,
qr{tuwf/man(?:/(db|misc|request|response|xml))?}
=> \&tuwfmanual,
qr{doc} => \&docindex,
qr{doc/sqlaccess} => \&docsqlaccess,
qr{dump} => \&dump,
qr{demo} => \&dumpdemo,
qr{dump/awshrink} => \&dumpawshrink,
@ -54,6 +56,7 @@ sub home {
E;
end;
h2 'Updates';
b '2011-11-26'; txt ' Added article section and the article on SQLite.'; br;
b '2011-11-03'; txt ' ncdc 1.5 and ncdu 1.8 released!'; br;
b '2011-10-26'; txt ' ncdc 1.4 released!'; br;
b '2011-10-19'; txt ' PGP-signed all releases of ncdu, ncdc and TUWF.'; br;
@ -474,6 +477,50 @@ sub tuwfmanual {
# D O C S T U F F
sub docindex {
my $s = shift;
$s->htmlHeader(title => 'Articles', page => 'doc');
p 'When programming stuff, I sometimes come across a situation where I am not
happy with the documentation or articles available online, and feel the urge
to do something about this situation. Most of the time I resist this urge
because I otherwise won\'t get any programming done, but sometimes this
urge is just too hard to resist.';
p 'I don\'t really have a blog - at least not one that I take seriously - so
I\'ll just use this site to publish my articles. Since I\'ve just started
writing these, this page is still quite empty. I\'ll add more as soon as my
urge to write an article surprasses my urge to get some programming done
again.';
br;
p;
txt '2011-11-26 - '; b 'Multi-threaded Access to an SQLite3 Database';
txt ' ['; a href => '/doc/sqlaccess', 'HTML'; txt ' - '; a href => '/dat/sqlaccess', rel => 'nofollow', 'POD'; txt ']';
end;
$s->htmlFooter;
}
sub docsqlaccess {
my $s = shift;
$s->htmlHeader(title => 'Multi-threaded Access to an SQLite3 Database', page => 'doc', tab => 'sqlaccess');
p;
lit <<' E;';
Written on <b>2011-11-26</b>. Also available in <a
href="/dat/sqlaccess">POD format</a>.
<br />Feedback, questions, comments, additions? Forward those to <a
href="mailto:projects@yorhel.nl">projects@yorhel.nl</a>.
E;
end;
br;br;
$s->htmlPOD("$ROOT/dat/sqlaccess");
$s->htmlFooter;
}
# C O D E D U M P
@ -860,6 +907,7 @@ sub htmlHeader {
a href => '/ncdu', $o{page} eq 'ncdu' ? (class => 'sel') : (), 'ncdu'; txt ' ';
a href => '/ncdc', $o{page} eq 'ncdc' ? (class => 'sel') : (), 'ncdc'; txt ' ';
a href => '/tuwf', $o{page} eq 'tuwf' ? (class => 'sel') : (), 'tuwf'; txt ' ';
a href => '/doc', $o{page} eq 'doc' ? (class => 'sel') : (), 'articles'; txt ' ';
a href => '/dump', $o{page} eq 'dump' ? (class => 'sel') : (), 'code dump';
end;
if($o{page} eq 'ncdu') {
@ -886,6 +934,12 @@ sub htmlHeader {
a href => '/tuwf/man', $o{tab} eq 'man' ? (class => 'sel') : (), 'manual'; txt ' ';
end;
}
if($o{page} eq 'doc' && $o{tab}) {
use utf8;
div id => 'mtabs', style => 'margin-right: 620px';
a href => '/doc', '« article index';
end;
}
if($o{page} eq 'dump') {
div id => 'mtabs';
a href => '/dump', !$o{tab} ? (class => 'sel') : (), 'misc'; txt ' ';