#!/usr/local/bin/perl

unshift(@INC,"/usr/local/lib/perl5");

package mine;

require CGI;
require "ctime.pl";

my %idchange = ();
open(IN,"planks") || die("cant open planks");
while (<IN>)
{
	chop($_);
	($id,$brief,$long,$author) = split(/\|/,$_);
print "writing plank $id\n";
	mkdir("plankdirs/$id",0777) ||
	die("plankdirs/$id failed");
	open(OUT,">plankdirs/$id/brief");
	print OUT "$brief\n";
	close(OUT);
	open(OUT,">plankdirs/$id/long");
	print OUT "$long\n";
	close(OUT);
	open(OUT,">plankdirs/$id/author");
	print OUT "$author\n";
	close(OUT);

	sleep(1);
}
close(IN);

open(IN,"comments");
while (<IN>)
{
	chop;
	($id,$comment) = split(/\|/,$_);
	open(OUT,">>plankdirs/$id/comments");
	print OUT $comment."\n<br><hr><br>\n";
	close(OUT);
}