code for inserting data inside linked-list

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@916 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

1 files changed, 10 insertions, 1 deletions

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;
 	    }