massmail.php
来自「GForge 3.0 协作开发平台 支持CVS, mailing lists, 」· PHP 代码 · 共 148 行
PHP
148 行
<?php/** * * Site Admin page for setting up massmailings. * * This is frontend of SF massmail facility, which allows to prepare * messages for delivery to target categories of site users. very * delivery is performed via cronjob. * * SourceForge: Breaking Down the Barriers to Open Source Development * Copyright 1999-2001 (c) VA Linux Systems * http://sourceforge.net * * @version $Id: massmail.php,v 1.29 2001/04/10 16:14:34 pfalcon Exp $ * */require_once('pre.php');require_once('www/admin/admin_utils.php');session_require(array('group'=>'1','admin_flags'=>'A'));if ($submit) { if (!$mail_type) { exit_error( $Language->getText('admin_massmail','missing_parameter_select_target') ); } if (!trim($mail_message)) { exit_error( $Language->getText('admin_massmail','missing_parameter_empty_message') ); } if (trim($mail_subject) == '['.$GLOBALS['sys_name'].']') { exit_error( $Language->getText('admin_massmail','missing_parameter_proper_subject') ); } $res = db_query(" INSERT INTO massmail_queue(type,subject,message,queued_date) VALUES ('$mail_type','$mail_subject','$mail_message',".time().") "); if (!$res || db_affected_rows($res)<1) { exit_error( $Language->getText('admin_massmail','error_scheduling_mailing') .db_error() ); } site_admin_header(array('title'=>$Language->getText('admin_massmail','title'))); print "<p>" .$Language->getText('admin_massmail','mailing_successfully_scheduled'). "</p>"; site_admin_footer(array()); exit();}site_admin_header(array('title'=>$Language->getText('admin_massmail','title')));print '<h4>'.$Language->getText('admin_massmail','mail_engine_for',array($GLOBALS['sys_name'])) .'</h4>';print '<p><a href="#active">' .$Language->getText('admin_massmail','active_deliveries').'</a></p><p>' .$Language->getText('admin_massmail','be_verry_carefull').'</p>';print '<form action="'.$PHP_SELF.'" method="post">'.'<strong>Target Audience:</strong>'.utils_requiredField().'<br />'.html_build_select_box_from_arrays( array(0,'SITE','COMMUNTY','DVLPR','ADMIN','ALL','SFDVLPR'), array( $Language->getText('admin_massmail','select'), $Language->getText('admin_massmail','subscribers_to_site_updates'), $Language->getText('admin_massmail','subscribers_to_additional_community'), $Language->getText('admin_massmail','all_project_developers'), $Language->getText('admin_massmail','all_project_admins'), $Language->getText('admin_massmail','all_users'), $GLOBALS['sys_name']. $Language->getText('admin_massmail','developers_test') ), 'mail_type',false,false).'<br />';print '<p><strong>' .$Language->getText('admin_massmail','subject').':</strong>'.utils_requiredField().'<br /><input type="text" name="mail_subject" size="50" value="['.$GLOBALS['sys_name'].'] " /></p><p><strong>'.$Language->getText('admin_massmail','text_of_message'). ':</strong>'.utils_requiredField(). $Language->getText('admin_massmail','will_be_append').'</p><pre><textarea name="mail_message" cols="70" rows="20"></textarea></pre><p><input type="submit" name="submit" value="' .$Language->getText('admin_massmail','schedule_for_mailing').'" /></p></form>';$res = db_query(" SELECT * FROM massmail_queue WHERE finished_date=0");$title=array();$title[]=' ';$title[]=$Language->getText('admin_massmail','id');$title[]=$Language->getText('admin_massmail','type');$title[]=$Language->getText('admin_massmail','subject');$title[]=$Language->getText('admin_massmail','date');$title[]=$Language->getText('admin_massmail','last_user_id_mailed');print '<a name="active">'.$Language->getText('admin_massmail','active_deliveries').':</a>';echo $GLOBALS['HTML']->listTableTop($title);while ($row = db_fetch_array($res)) { echo ' <tr '.$GLOBALS['HTML']->boxGetAltRowStyle($i++).'> <td> <a href="massmail-del.php?id='.$row['id'].'"></a></td> <td>'.$row['id'].'</td> <td>'.$row['type'].'</td> <td>'.$row['subject'].'</td> <td>'.date($sys_datefmt, $row['queued_date']).'</td> <td> '.$row['last_userid'].'</td> </tr> ';}echo $GLOBALS['HTML']->listTableBottom();site_admin_footer(array());?>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?