I made slight modifications that seemed to work. Most of the delimiter splits made use of the "|" pipe to seperate the fields instead of "||".
<FONT COLOR="Orange">What I did:</FONT c>
<FONT COLOR="Red">Look for:
(@threads) = split(/|/,$_);</FONT c>
change to:
(@threads) = split(/|^|/,$_);
<FONT COLOR="Red">Look for:
$ordered = "$threads[10]|$threads[4]|$threads[2]|$threads[8]|$forum|$threads[7]|$threads[14]|$month-$day-$year|$hour:$min|$forum";</FONT c>
change to:
$ordered = "$threads[5]||$threads[2]||$threads[1]||$threads[4]||$forum||$threads[7]||$month-$day-$year||$hour:$min||$forum";
<FONT COLOR="Red">Look for:
(@threadheader) = split(/|/,$contents[0]);</FONT c>
Change to:
(@threadheader) = split(/||/,$contents[0]);
Finally,
<FONT COLOR="Red">
Replace all $threaddata[2] with $threaddata[1]
Replace all $threaddata[4] with $threaddata[2]
Replace all $threaddata[8] with $threaddata[4]</FONT c>
Remember to back up!
Alvin.
alvin@dinotoons.com
<FONT COLOR="#6699cc" SIZE="1" FACE="Verdana, Arial">This message has been edited by Alvin Koh on January 24, 2001 at 10:15 AM</font>