summaryrefslogtreecommitdiffstats
path: root/blog/builddb.pl
diff options
context:
space:
mode:
Diffstat (limited to 'blog/builddb.pl')
-rwxr-xr-xblog/builddb.pl8
1 files changed, 7 insertions, 1 deletions
diff --git a/blog/builddb.pl b/blog/builddb.pl
index 18660e48..66b3ad3b 100755
--- a/blog/builddb.pl
+++ b/blog/builddb.pl
@@ -96,8 +96,14 @@ sub builddata($$$)
else{
$dat{ sprintf('%04d%02d', $y, $m) } = 1;
$dat{"$currid.title"} = $t;
- $dat{"$currid.content"} = $rbh->{"$_.content"};
$dat{"$currid.author"} = $rbh->{"$_.owner"};
+ # $dat{"$currid.content"} = $rbh->{"$_.content"};
+ # ugly code for making short
+ my @c = split("\n",
+ $dat{"$currid.content"} = $rbh->{"$_.content"});
+ $dat{"$currid.short"} = ("$c[0]\n$c[1]\n$c[2]\n".
+ $c[3] ? '....' : '');
+
$dat{"$currid.prev"} = $dat{'last'};
$dat{"$dat{last}.next"} = $currid
if( $dat{'last'} );