From 736e655db85cdda4198aa8459280a69056e98312 Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Sat, 31 May 2003 13:39:18 +0000
Subject: code for inserting data inside linked-list

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

(limited to 'blog')

diff --git a/blog/builddb.pl b/blog/builddb.pl
index 74bd5d99..b5262017 100755
--- a/blog/builddb.pl
+++ b/blog/builddb.pl
@@ -146,7 +146,16 @@ sub builddata($$$$$$)
 		    $dat{last} = $currid;
 		}
 		else{ # inside ? @_@;;;
-		    debugmsg("not implement yet");
+		    my($p, $c);
+		    for( $p = $dat{last} ; $p>$currid ; $p = $dat{"$p.prev"} ){
+			;
+		    }
+		    $c = $dat{"$p.next"};
+		    
+		    $dat{"$currid.next"} = $c;
+		    $dat{"$currid.prev"} = $p;
+		    $dat{"$p.next"} = $currid;
+		    $dat{"$c.prev"} = $currid;
 		}
 		$dat{$currid} = 1;
 	    }
-- 
cgit v1.2.3