<?
// guard against corrupt folder data
define("TOOBIG",102400);

function load_folders()
{
	$f = fopen("/usr/lib64/mw/folders.bb", "r");

	$folders = array();
	while (!feof($f) && $fol=fread($f,64)) {
	  $data = unpack("Cstatus/A11name/A31topic/Cspare/Lfirst/Llast", $fol);
	  cleanup($data['name']);
	  cleanup($data['topic']);
	  if ($data['status'] & 0x01 && !($data['status']&0x20)) $folders[$data['name']] = $data;
	}
	fclose($f);
	return $folders;
}

function cleanup(&$foo)
{
	$i=0;
	$new = "";
	while ($i < strlen($foo)) {
		if ( ord($foo[$i]) == 0) break;
		if (ctype_print($foo[$i]))
			$new .= $foo[$i];
		$i++;
	}
//	$foo = htmlentities($new);
	$foo = $new;
}


function load_index($folname, $getbody=FALSE)
{
	$index = array();
	$f = @fopen("/usr/lib64/mw/$folname.i", "r");
	$body = @fopen("/usr/lib64/mw/$folname.t", "r");
	if ($f === FALSE || $body === FALSE) return array();


	while (!feof($f) && $fol=fread($f,128)) {
	  $data = unpack("Lref/Ldate/A17from/A41to/A41subject/c1spare/Ldatafield/Lsize/Cstatus/a3spare/Lreplyto/C4spare", $fol);
	  cleanup($data['subject']);
	  cleanup($data['to']);
	  cleanup($data['from']);
	  // not deleted, has data, and want it, so load the body
	  if (!( $data['status'] & 0x02)) {
		  if ($getbody && $data['size']>0 && $data['size'] < TOOBIG) {
			  fseek($body, $data['datafield']);
			  //$data['body'] = htmlentities(fread($body, $data['size']));
			  $data['body'] = fread($body, $data['size']);
		  }
		  $index[ $data['ref'] ] = $data;
	  }
	}

	fclose($f);
	return $index;
}

// Count how many articles are replies to this one
function count_sub(&$haystack, $ref)
{
	$count = 0;
	foreach($haystack as $k => $v)
	{
		if ($v['replyto'] == $ref) {
			$count++;
			$count += count_sub($haystack, $v['ref']);
		}
	}
	return $count;
}

function fetch_sub(&$all, $ref)
{
	$sub = array();
	foreach($all as $k => $v) {
		if ($v['replyto'] == $ref) {
			$sub[$k] = $v;
			$sub = array_merge($sub, fetch_sub($all, $v['ref']));
		}
	}
	return $sub;
}

function post_article($folder, $user, $replyto)
{
	$folder = escapeshellarg($folder);
	$f = popen("/usr/bin/mw -f $folder $user $replyto","w");
	$to  = strip_tags($_POST['to']);
	$subject = strip_tags($_POST['subject']);
	$body = strip_tags( $_POST['body']);

	$to = ereg_replace('[^[:alnum:][:punct:][:space:]]*','',trim($to));
	$subject = ereg_replace('[^[:alnum:][:punct:][:space:]]*','',trim($subject));
	$body = ereg_replace("\n\\.\n","\n .\n",$body);

	$deb = fopen("/tmp/mwdebug.txt","w");
	fwrite($deb, "folder: '$folder'\n");
	fwrite($deb, "user: '$user'\n");
	fwrite($deb, "replyto: '$replyto'\n");
	fwrite($deb, "to: '$to'\n"); // Send to
	fwrite($deb, "sub: '$subject'\n"); // subject
	fwrite($deb,"body:\n$body\n.\n"); // end post

	if ($replyto == 0) {
		fwrite($f, "$to\n"); // Send to
		fwrite($f, "$subject\n"); // subject
		fwrite($f,"$body\n.\n"); // end post
	} else {
		fwrite($f, "$subject\n"); // subject
		fwrite($f, "$to\n"); // send to
		fwrite($f,"$body\n.\n"); // end post
	}
	$ret = pclose($f);
	fwrite($deb, "Exit = ".($ret/256)."\n");
	fclose($deb);
}


if (!$session->loggedin) {
	$smarty->assign("title", "Milliways");
	$smarty->assign("body", "Sorry, you must be logged in for this feature");
	return;
}

$folders = load_folders();
$smarty->assign_by_ref("folders", $folders);
$smarty->assign("extra_styles", array("/css/forum/SUCS.css"));

unset($mode);
$last = end($pathlist);
if ($last == "new" || $last == "reply") {
	$mode = $last;
	array_pop($pathlist);
	$path = implode("/",$pathlist);
/*	$smarty->assign("extra_scripts", array(
		'<script language="javascript" type="text/javascript" src="/js/tinymce/jscripts/tiny_mce/tiny_mce.js"></script>',
		'<script language="javascript" type="text/javascript" src="/js/tiny_mce.js"></script>'
		));
		*/
}
if ($last == "post") {
	$mode = $last;
	array_pop($pathlist);
	$path = implode("/",$pathlist);
}
$smarty->assign("mode",$mode);

$shortpathlist = $pathlist;
array_pop($shortpathlist);
$shortpath = implode("/",$shortpathlist);
$smarty->assign("shortpath",$shortpath);

if (isset($pathlist[3])) {
	$name = $pathlist[3];
	if (isset($folders[$name])) {
		$smarty->assign("folder", $folders[$name]['name']);
		$all = load_index($name, TRUE);

		// One specific article was mentioned
		if (isset($pathlist[4])) {
			$artno = (int)$pathlist[4];
			if (isset($all[$artno])) {
				if ($mode == "post") {
					post_article($name, $session->username, $artno);
					$all = load_index($name, TRUE);
				}

				$smarty->assign("title", "Milliways");
				$smarty->assign_by_ref("message", $all[$artno]);

				$sub = fetch_sub($all, $all[$artno]['ref']);
				$smarty->assign_by_ref("articles", $sub);
				$smarty->assign("howmany",count($sub));
				$output = $smarty->fetch($base."templates/mw-article.tpl");

			}
		} else {
			if ($mode == "post") {
				post_article($name, $session->username, 0);
				$all = load_index($name, TRUE);
			}
			// list all the articles in this folder
			$top = array();
			foreach ($all as $k => $v) {
				if ($v['replyto'] == 0 ) {
					$v['suball'] = fetch_sub($all,$v['ref']);
					$v['sub'] = count($v['suball']);
					$l = end($v['suball']);
					$v['lastpost'] = $l['date'];
					$v['lastfrom'] = $l['from'];
					$top[$k]=$v;
				}
			}
			$top = array_reverse($top);

			$smarty->assign("title", htmlentities("Milliways - Folder $name"));
			$smarty->assign_by_ref("articles", $top);
			$output = $smarty->fetch($base."templates/mw-list.tpl");
		}
	} else {
		$output = "Error, no such folder $name";
	}
	$smarty->assign("body", $output);

} else {
	// List all the folders
	foreach($folders as $k => $v) {
		$list = load_index($v['name']);
		$topics = 0;
		foreach ($list as $art) if ($art['replyto'] == 0) $topics++;
		$folders[$k]['topics'] = $topics;
		$lastone = end($list);
		$folders[$k]['lastpost'] = $lastone['date'];
	}
	$smarty->assign("title", "Milliways - Topic List");
	$output = $smarty->fetch($base."templates/mw-folders.tpl");
	$smarty->assign("body", $output);
}

?>