From 3fb9e64c9fc04eb949b7319012a8d92c9af13573 Mon Sep 17 00:00:00 2001
From: bbs <bbs@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Fri, 23 May 2003 14:52:44 +0000
Subject: build short

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@893 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 blog/builddb.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'blog')

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'} );
-- 
cgit v1.2.3