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