mail_utils.php

来自「GForge 3.0 协作开发平台 支持CVS, mailing lists, 」· PHP 代码 · 共 46 行

<?php
/**
  *
  * SourceForge Mailing Lists Facility
  *
  * SourceForge: Breaking Down the Barriers to Open Source Development
  * Copyright 1999-2001 (c) VA Linux Systems
  * http://sourceforge.net
  *
  * @version   $Id: mail_utils.php,v 1.12 2001/05/22 18:52:31 pfalcon Exp $
  *
  */


function mail_header($params) {
	global $group_id;

	if ($group_id) {
		//required for site_project_header
		$params['group']=$group_id;
		$params['toptab']='mail';

		$project =& group_get_object($group_id);

		if ($project && is_object($project)) {
			if (!$project->usesMail()) {
				exit_error('Error','This Project Has Turned Off Mailing Lists');
			}
		}


		site_project_header($params);
		echo '
		<p><strong><a href="/mail/admin/?group_id='.$group_id.'">Admin</a></strong></p>';
	} else {
		$params['toptab']='mail';
		site_project_header($params);
	}
}

function mail_footer($params) {
	site_project_footer($params);
}

?>