| | | | | | | 書き込みを追加する場合はページ下部のフォームに入力してください。
| | [戻る]
#
# PostMail v2.31 (2004/02/16)
# Copyright (c) KentWeb
# webmaster@kent-web.com
# http://www.kent-web.com/
#
$ver = 'PostMail v2.31';
#
# []
# 1. XNvgt[\tgBXNvggp
# QメCB
# 2. BlatJCXg[ソT|[gO
# B
# 3. MtH[HTMLy[WAHTML@浴e
# AT|[gOB
# 4. OuソT|[gfヲ
# B[ソB
#
#
# [ MtH[ (HTML) Lq ]
#
# E^OLq (1)
#
# tH[uRcYvMA
# uname = RcYv`ョM
#
# E^OLq (2)
# DF
# WI{bNX`FbNMA
# ucolor = v`ョM
#
# E^OLq (3)
# E-mail
# nameluemailvg[AhX
# FッAAhXョ`FbN
# () abc@xxx.co.jp
# (~) abc.xxx.co.jp G[
#
# E^OLq (4)
# E-mail
# nameluA_[o[ vtAl
# uK{vB
# LAu[AhXK{vB
#
# E^OLq (5)
# [TKv
# [T CC MメMB
# Aname="email" tB[hK{B
#
# EnameluSpvgp\iuEU
# \Auppvg
# j
# ()
# LWI{bNX`FbNMA
# uN = 20vョB
#
# Emimew.plgpAnamelunamevuMメvFッ
# M[AhXuMメ <[AhX>v
# tH[}bgゥB
# (tH[Lq)
# (MAhX) Y
#
# ER}h^O (1)
# K{wipXy[Xwj
# WI{^A`FbN{bNX
# nameluneedvAvalueluK{1 + pXy[X +K{2 + pXy[X ...v
# ()
#
# [ `FbN ]
# http://``/postmail.cgi?mode=check
#
# [ u ]
#
# public_html / index.html (gbvy[Wj
# |
# +-- postmail / postmail.cgi [705]
# jcode.pl [604]
# mimew.pl [604] ... C
# postmail.html
#-------------------------------------------------
# {
#-------------------------------------------------
# R[hCu
$jcode = './jcode.pl';
# MIMEGR[hCugij
# [wb_SpBASE64@\
# mimew.plw
$mimew = './mimew.pl';
# [\tgpX
# sendmail F/usr/lib/sendmail
# BlatJ Fc:\blatj\blatj.exe
$mailprog = '/usr/sbin/sendmail';
# M[AhX
$mailto = 'info@shiroari-net-saitama.com,yrgysbc89h47t6ze3knb@docomo.ne.jp';
# MOmF
# 0 : no
# 1 : yes
$preview = 1;
# [^Cg
$subject = 'VAnetz|y[W';
# XNvgURL
$script = './postmail.cgi';
# M`
# 0 : bZ[Wo.
# 1 : ($back) ゥWv.
$reload = 0;
# M
# http://Lq
$back = 'http://www.shiroari-net-saitama.com/index.html';
# M method=POST (0=no 1=yes)
# ZLeB
$postonly = 1;
# body^O
$body = '';
# vr[gF
$tbl_col1 = "#003399";
# vr[nF
$tbl_col2 = "#FFFFFF";
# vr[nF
$tbl_col3 = "#EBECF5";
# A[F
$alm_col = "#DD0000";
# zXg@
# 0 : gethostbyaddrg
# 1 : gethostbyaddrg
$gethostbyaddr = 0;
#-------------------------------------------------
#
#-------------------------------------------------
# tH[fR[h
require $jcode;
$ret = &decode;
# {
if (!$ret) { &error("s"); }
elsif ($in{'mode'} eq "check") { ✓ }
# POST`FbN
if ($postonly && !$postflag) { &error("sANZX"); }
# [vO`FbN
if ($mailprog =~ /blat/i) { $pgType = 2; } else { $pgType = 1; }
# K{`FbN
if ($in{'need'}) {
local(@tmp,@uniq,%seen);
@tmp = split(/\s+/, $in{'need'});
push(@need,@tmp);
# dvfr
%seen=();
foreach (@need) {
push(@uniq,$_) unless $seen{$_}++;
}
# `FbN
foreach (@uniq) {
if (!defined($in{$_})) {
$check++;
push(@key,$_);
}
}
}
# `FbNmF
if ($check) { &err_check; }
# E-Mailョ`FbN
if ($in{'cc'} && !$in{'email'}) {
&error("ハKv[AhXK{");
}
if ($in{'email'} =~ /\,/) {
&error("[AhXR} ( , ) ");
}
if ($in{'email'} && $in{'email'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
&error("[AhXョs");
}
# vr[
if ($preview && $in{'mode'} ne "send") {
&header;
print <
|
|
|
|