WEB邮件程序

开发平台：

PHP

form.inc：源码内容

							<?php
$form_title = 'Please login';
if ( $form_mode == 'PROMETHEUS_LOGIN_MODE_INVALID' && 
   $user_obj->user_name != '' ) {
   $form_title .= ' - INVALID USERNAME OR PASSWORD';
}
include( './templates/form/form_top.inc' );
$value      = $session_id;
$name       = 'session_id';
include( './templates/form/form_hidden_elem.inc' );
$value      = 'PROMETHEUS_LOGIN_MODE';
$name       = 'form_mode';
include( './templates/form/form_hidden_elem.inc' );
$value      = $user;
$desc_text  = 'Username';
$desc       = 'This is your username, also known as your account name';
$size       = 50;
$name       = 'user';
include( './templates/form/form_text_elem.inc' ); 
$value      = $password;
$desc_text  = 'Password';
$desc       = 'This is user domain that you belong to.';
$size       = 50;
$name       = 'password';
include( './templates/form/form_password_elem.inc' );
/* Virtual Domain Support */
$desc_text = 'Domain';
$name      = 'domain_id';
/* This icky hack makes it so that the virtual domains
show up before the default prometheus domain */
$value     = -1;
$possible         = Array();
$possible_vals    = Array();
$ret_vals = $user_domain_db->ListAll();
if ( $ret_vals[ 0 ] == 1 ) {
   $cnt = $ret_vals[ 1 ];
   $arr = $ret_vals[ 2 ];
   for( $xxx = 0; $xxx < count( $arr ); $xxx++ ) {
      $t_obj = $arr[ $xxx ];
      $possible[]          = $t_obj->domain_name;
      $possible_vals[]     = $t_obj->domain_id;
   }
}
$possible[]       = 'default';
$possible_vals[]  = 0;
include( './templates/form/form_multiselect_elem.inc' );
$submit_text   = 'Login';
$reset_text    = 'Clear Form';
include( './templates/form/form_bottom.inc' );
?>

						