# # /* =head1 NAME CGIToolBox.inc -- CGI汎用ライブラリ =head1 HISTORY 2003.08.28 v0.1 2003.09.11 v0.2 + mk_form() 自動フォーム作成関連追加 + 日付関連追加 2003.09.11 v0.2.1 + get_param() stripslashes追加 2003.09.24 v0.2.2 + mk_pager にb_text,n_textオプション追加 2003.12.04 v0.2.3 2004.01.06 v0.2.6 + read_db() 削除 + date_calendar() =head1 SYNOPSIS # HTML作成 $str = mk_option($ary = array(), $select = '', $spliter = "\n"); $str = mk_radio($name, $ary = array(), $select = '', $num_flag = 0, $spliter = "\n"); $hash = mk_pager($count, $page, $pos, $opt = array()); $tmpl = template($file, $tmpl_var = array()); # HTML作成(フォーム $conf = mk_form_config($path, $name); # フォーム設定読み $ary = mk_form($conf, $val = array()); # フォームHTML作成 $param = get_param($conf, $_REQUEST); # 作成フォームからの値をハッシュにする $err = param_check($conf, $param); # 入力チェック # ファイル $scalar = $nextval($path); $ary = read_db($path); $hash = file_select($path); $ary = file_read_hash($path, $reg = array(), $mode = 1) $hash = file_write($path, $hash); $hash = file_read_config($path); # 日付 $ary = date_split('20030101'); $utc = date2utc('20030101'); $bool = date_valid('20030101'); $num = date_wday('20030101'); $day = date_lastday('20030101'); $cal = date_calendar('2004', '01'); # 変換 $str = pricef($num); $str = escape_tab($str); $str = unescape_tab($str); $str = escape_tag($str); $str = unescape_tag($str); $str = str2sjis($str, $from = 'SJIS,EUC-JP,JIS'); $str = str2euc($str, $from = 'SJIS,EUC-JP,JIS'); $str = str2jis($str, $from = 'SJIS,EUC-JP,JIS'); # メール送信 $bool = sendmail( array( SmtpServer => 'mail.k-digix.co.jp', From => 'nerikeshi@mac.com', To => array( '関川' => 'nerikeshi@mac.com'), Cc => array( 'ネリケシ' => 'nerikeshi@mac.com'), Subject => '表題', Body => '内容', KanjiKode => 'EUC-JP' ) ); =head1 DESCRIPTION # フォームファイルの形式 form.conf ----------------------------------------------------------------- [Param] id ID NotNull size:10 KEY name 名称 NotNull size:50 flag フラグ NotNull LIST(0:不可,1:可) TYPE:radio DEFAULT:0 select1 選択 NotNull LIST(1,2,3,4) select2 選択(外部リスト) NotNull script -------------------------------------------------------------------- ### フォーム書き $conf = mk_form_config('form.conf', 'Param'); $ary = mk_form($conf); # フォームHTML作成 foreach($ary as $a){ print $a['name'] . ':' . $a['element'] . '
' } ### 作成フォームからの値をハッシュにする $conf = mk_form_config('form.conf', 'Param'); $param = get_param($conf, $_REQUEST); $err = param_check($conf, $param);# 入力チェック if(count($err)) error($err) =cut */ $DumperDep = 0; $DumperType = array(); # ソート _______________________________________________________________________ // -- ハッシュソート昇順(小さい順 function sort_hash($a, $b, $dep = 0){ global $SortKeys; $key = $SortKeys[$dep]; if($key == '') return 0; if ($a[$key] == $b[$key]) return sort_hash($a, $b, $dep + 1); return ($a[$key] > $b[$key]) ? 1 : -1; } // -- ハッシュソート降順(大きい順 function rsort_hash($a, $b, $dep = 0){ global $SortKeys; $key = $SortKeys[$dep]; if($key == '') return 0; if ($a[$key] == $b[$key]) return rsort_hash($a, $b, $dep + 1); return ($a[$key] > $b[$key]) ? -1 : 1; } # HTML作成 _____________________________________________________________________ // -- HTML出力 function template($file, $tmpl_var = array(), $opt = array()){ include_once('template.php'); if(! file_exists($file)){ header('Content-Type: text/plain;'); print "TemplateFile [$file] does not exist."; exit; } $tmpl_opt = array( filename => $file, die_on_bad_params => 0, search_path_on_include => 0 ); #dumper(array_merge($tmpl_opt, $opt)); $tmpl =& new Template(array_merge($tmpl_opt, $opt)); $tmpl->AddParam($tmpl_var); return $tmpl; } // -- オプション作成 function mk_option($ary = array(), $select = '', $num_flag = 0, $spliter = "\n"){ $re = array(); foreach($ary as $a){ if(! is_array($a)){ $a = $num_flag ? array(count($re) + 1, $a) : array($a, $a); } $selected = $a[0] == $select ? ' SELECTED ' : ''; array_push($re, "$a[1]"); } return join($spliter, $re); } // -- ラジオボタン作成 function mk_radio($name, $ary = array(), $select = '', $num_flag = 0, $spliter = "\n"){ $re = array(); foreach($ary as $a){ if(! is_array($a)){ $a = $num_flag ? array(count($re) + 1, $a) : array($a, $a); } $checked = $a[0] == $select ? ' CHECKED ' : ''; array_push($re, "$a[1]"); } return join($spliter, $re); } // -- チェックボックス作成 function mk_checkbox($name, $ary = array(), $select = array(), $num_flag = 0, $spliter = "\n"){ $re = array(); foreach($ary as $a){ if(! is_array($a)) $a = $num_flag ? array(count($re) + 1, $a) : array($a, $a); $checked = ''; foreach($select as $v){ if($v == $a[0]) $checked = ' CHECKED '; } array_push($re, "$a[1]"); $rnum ++; } return join($spliter, $re); } // -- ページ計算 function mk_pager($count, $page, $pos, $opt = array()){ $action = $opt['action'] ? $opt['action'] : getenv('SCRIPT_NAME'); $name = $opt['name'] ? $opt['name'] : '-pos'; $b_text = $opt['b_text'] ? $opt['b_text'] : '<<'; $n_text = $opt['n_text'] ? $opt['n_text'] : '>>'; $param = ''; if(is_array($opt['param'])){ foreach($opt['param'] as $k => $v){ $param .= '&' . $k .'='. urlencode($v); } } $pager = array(); $pager_loop = array(); $pages = ceil($count / $page); $pages = $pages ? $pages : 1; $width = array(); for($i = 1; $i <= $pages; $i++){ array_push($width, $i); } foreach($width as $n){ if($pos == $n){ array_push($pager, "[$n]"); }else{ array_push($pager, "[$n]"); } array_push( $pager_loop, array( 'href' => $action . "?-pos=$n$param", 'n' => $n, 'selected' => $n == $pos ? 1 : 0 ) ); } $back = $pos > 1 ? $action ."?$name=". ($pos-1) . $param : ''; $next = $pos < $pages ? $action ."?$name=". ($pos+1) . $param : ''; return array( 'pages' => $pages ? $pages : 0, 'pager' => join(' ', $pager), 'pager_back' => $back ? "$b_text" : '', 'pager_next' => $next ? "$n_text" : '', 'param' => $param, 'count' => $count, 'count.offset' => $count ? $page * ($pos - 1) + 1 : $count, 'count.limit' => $page * $pos > $count ? $count : $page * $pos, 'pos' => $pos, 'page' => $page ? $page : 0, 'pager_loop' => $pager_loop, 'a.back' => $back ? $back : '', 'a.next' => $next ? $next : '', 'a.back_limit' => $back_limit, 'a.next_limit' => $next_limit ); } // -- フォーム作成 function mk_form($conf, $val = array()){ $form = array(); foreach($conf as $c){ $name = $c['name']; $value = $val[$name] ? $val[$name] : $c['DEFAULT']; if($c['TYPE'] == 'date'){ # 日付 $m_ary = array(); foreach(range(1, 12) as $n){ array_push($m_ary, sprintf('%02d', $n)); } $d_ary = array(); foreach(range(1, 31) as $n){ array_push($d_ary, sprintf('%02d', $n)); } list($y, $m, $d) = array(date('Y'), date('m'), date('d')); if($value) list($y, $m, $d) = preg_split('/\D/', $value); $null = $c['NOTNULL'] ? '' : ''; $e = "$null".mk_option(range(2000, 2010), $y).''; $e .= "$null".mk_option($m_ary, $m).''; $e .= "$null".mk_option($d_ary, $d).''; }else if(is_array($c['LIST'])){ if($c['TYPE'] == 'radio'){ # RADIO $e = mk_radio($name, $c['LIST'], $value, 1); }else if($c['TYPE'] == 'checkbox'){ # CHECKBOX $e = mk_checkbox($name, $c['LIST'], preg_split("/\D/", $value), '', '
'); }else{ # SELECT $null = $c['NOTNULL'] ? '' : ''; $e = "$null".mk_option($c['LIST'], $value, 1).''; } }else if($c['TYPE'] == 'textarea'){ # TEXTAREA $cols = $c['COLS'] ? $c['COLS'] : 50; $rows = $c['ROWS'] ? $c['ROWS'] : 5; $value_esc = escape_tag($value); $e = "$value_esc"; }else if($c['SEQ']){ # 自動採番 $value_esc = escape_tag($value); $e = ""; $e .= $value_esc != '' ? $value_esc : '新規自動採番'; }else{ # TEXT $size = $c['SIZE'] ? $c['SIZE'] : 30; $value_esc = escape_tag($value); $e = ""; } array_push($form, array('name' => $c['hname'], 'element' => $e)); } return $form; } // -- フォーム作成設定読み function mk_form_config($path, $name){ $conf = file_read_config($path, 1); #var_dump($conf); $pconf = array(); foreach($conf[$name] as $c){ $elem = array( 'name' => array_shift($c), 'hname' => array_shift($c) ); if($conf['@' . $elem['name']]){ $list = array(); foreach($conf['@' . $elem['name']] as $l){ $list[] = array(array_shift($l), join(' ', $l)); } $elem['LIST'] = $list; } foreach($c as $opt){ if(preg_match('/list\((.+)\)$/i', $opt, $match)){ $k = 'list'; $v = array(); foreach(split(',', $match[1]) as $op){ $op = split(':', $op); if(count($op) == 1) $op = $op[0]; array_push($v, $op); } }else{ list($k, $v) = split(':', $opt, 2); } $elem[strtoupper($k)] = $v != '' ? $v : 1; } array_push($pconf, $elem); } return $pconf; } // -- フォームのパラメータをハッシュに function get_param($conf, $param, $esc_flag = 1){ $hash = array(); foreach($conf as $c){ $name = $c['name']; $val = ''; if($c['TYPE'] == 'date'){ $val = $p[$name] = $param[$name .'_y'] .'.'. $param[$name .'_m'] .'.'. $param[$name .'_d']; }else if($c['TYPE'] == 'checkbox'){ if(is_array($param[$name])){ $ary = array(); foreach($param[$name] as $a){ array_push($ary, $a); } $val = join(',', $ary); }else{ $val = $param[$name]; } }else{ $val = $param[$name]; } if($esc_flag){ $hash[$name] = escape_tab(stripslashes($val)); }else{ $hash[$name] = stripslashes($val); } } return $hash; } // -- 表示フォーマット function param_disp_format($conf, $param){ foreach($conf as $c){ $name = $c['name']; $param[$name] = $param[$name] != '' ? $param[$name] : $c['DEFAULT']; if(is_array($c['LIST'])){ if($c['TYPE'] == 'checkbox'){ $str = array(); foreach(split(',', $param[$name]) as $p){ foreach($c['LIST'] as $l){ if($l[0] == $p) array_push($str, $l[1]); } } $param[$name . '.str'] = join(',', $str); }else{ $n = 1; foreach($c['LIST'] as $l){ if(is_array($l)){ if($l[0] == $param[$name] ) $param[$name . '.str'] = $l[1]; }else{ if($n == $param[$name] ) $param[$name . '.str'] = $l; } $n++; } } } if($c['TYPE'] == 'textarea'){ $param[$name] = preg_replace('/\r\n|\n|\r/', '
', $param[$name]); } } return $param; } // -- 入力チェック function param_check($conf, $param){ $err = array(); foreach($conf as $c){ $name = $c['name']; $val = $param[$name]; if($c['NOTNULL'] && $val == ''){ array_push($err, $c['hname'] . ' が未記入です'); }else if($c['MAXLEN'] && strlen($val) > $c['MAXLEN']){ array_push($err, $c['hname'] . ' が長すぎます'); }else if($c['MINLEN'] && strlen($val) < $c['MINLEN']){ array_push($err, $c['hname'] . ' が短すぎます'); }else if($c['LEN'] && strlen($val) != $c['LEN']){ array_push($err, $c['hname'] . ' は半角' . $c['LEN'] .'文字以内で記入して下さい。'); }else if($c['TYPE'] == 'date' && ! date_valid($val)){ array_push($err, $c['hname'] . ' をご確認下さい'); }else if($c['MATCH'] && $val != $param[$c['MATCH']]){ array_push($err, $c['hname'] . ' が一致しません'); }else if($c['ISNW'] && preg_match("/[^\d\w]/", $val)){ array_push($err, $c['hname'] . ' に利用できない文字が含まれています'); }else if($c['ISNUM'] && preg_match("/[^\d]/", $val)){ array_push($err, $c['hname'] . ' は半角数字のみで記入して下さい'); }else if($c['ISN-'] && preg_match("/[^\d-]/", $val)){ array_push($err, $c['hname'] . ' は半角数字と-(ハイホン)で記入して下さい'); }else if($c['ISMAIL'] && ! preg_match('/^[^@]+@[^@]+\.\w+$/', $val)){ array_push($err, $c['hname'] . ' をご確認下さい'); } } return $err; } # 日付 _________________________________________________________________________ // -- 日付フォーマット function dateformat($format, $utc = 0){ if(! $utc) $utc = time(); list($s, $mi, $h, $d, $m, $y, $w, $yd, $z) = split('-', date('s-i-G-j-n-Y-w-z-Z', $utc)); $f = array( 'A' => date('l', $utc), 'B' => date('F', $utc), 'a' => date('D', $utc), # 省略曜日 'b' => date('M', $utc), # 省略月 'c' => date("D M j G:i:s Y", $utc), # 日付と時刻 'd' => sprintf('%02d', $d), 'H' => sprintf('%02d', $h), 'I' => sprintf('%02d', $h > 12 ? $h - 12 : $h), 'j' => $yd, 'M' => sprintf('%02d', $mi), 'm' => sprintf('%02d', $m), 'p' => ($h < 12 ? 'AM' : 'PM'), 'S' => sprintf('%02d', $s), 'w' => $w, 'X' => date('G:i:s', $utc), # 時刻 'x' => date('d/m/Y', $utc), # 日付 'Y' => $y, 'y' => sprintf('%02d', $y - 2000), 'Z' => $z, # タイムゾーン '%' => '%' ); $search = array(); $replace = array(); foreach($f as $k => $v){ $search[] = '/%' . $k . '/'; $replace[] = $f[$k]; } $format = preg_replace ($search, $replace, $format); return $format; } // -- 日付文字のsplit function date_split($date){ if(preg_match('/^(\d{4})(\d{2})(\d{2})/', $date, $m)){ return array($m[1], $m[2], $m[3]); }else if(preg_match('/^(\d{4})(\d{2})/', $date, $m)){ return array($m[1], $m[2], '01'); }else{ return preg_split('/\D+/', $date); } return $date; } // -- 日付をUTC変換 function date2utc(){ $arg = func_get_args(); list($y, $m, $d, $h, $mi, $s) = $arg; if(! $m) list($y, $m, $d, $h, $mi, $s) = date_split($arg[0]); return mktime($h, $m, $s, $m, $d, $y); } // -- 存在する日か調べる function date_valid(){ list($y, $m, $d) = func_get_args(); if($m == '' && $d == '') list($y, $m, $d) = date_split($y); return checkdate( $m, $d, $y); } // -- 日付の曜日を求める; function date_wday(){ list($y, $m, $d) = func_get_args(); return date('w', date2utc($y, $m, $d)); } // -- 月の最終日を求める function date_lastday(){ list($y, $m) = func_get_args(); if(! $m) list($y, $m) = date_split($y); $ary = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); return $ary[$m - 1] + ($m == 2 and $y % 4 == 0 and ($y % 400 == 0 or $y % 100 != 0)); } // -- カレンダー function date_calendar(){ list($y, $m) = func_get_args(); $wday = date_wday($y, $m, 1); $cal = array(); $week = array(); while(count($week) != $wday) $week[] = ''; foreach(range(1, date_lastday($y, $m)) as $d){ $week[] = $d; if(count($week) == 7){ $cal[] = $week; $week = array(); } } if(count($week)){ while(count($week) < 7) $week[] = ''; $cal[] = $week; } return $cal; } # ファイル _____________________________________________________________________ // -- シーケンスインクリメント function nextval($path){ $count = 0; if(file_exists($path)){ $fp = fopen($path, "r+") or die("Can't open $path"); $count = fgets($fp, 4096); }else{ $fp = fopen($path, "w+") or die("Can't open $path"); } flock($fp, 2); rewind($fp);#ポインタ最初に戻す $count ++; fwrite($fp, $count); flock($fp, 3); fclose ($fp); return $count; } // -- key:val\n 形式のファイル読み function file_select($path){ $data = file($path); $hash; foreach($data as $row){ list($k, $v) = split(':', $row, 2); $hash[$k] = urldecode(trim($v)); } return $hash; } // -- key:val\tkey:val....\n 形式のファイル読み function file_read_hash($path, $reg = array(), $mode = 1){ $list = array(); if(file_exists($path)){ $dat = file($path); foreach($dat as $row){ $row = rtrim($row); $ary = split("\t", $row); $hash = array(); foreach($ary as $a){ list($k, $v) = split(':', $a, 2); $hash[$k] = unescape_tab($v); } if(is_array($reg)){ $hit = 0; #if($mode == 2) var_dump($reg); foreach($reg as $k => $v){ if($mode == 1 || $mode == 2){ if(is_array($v)){ foreach($v as $vv){ if($hash[$k] == $vv ) $hit ++; } }else{ if($hash[$k] == $v ) $hit ++; } }else if($mode == 3 || $mode == 4){ if(preg_match('/\E'.$v.'\Q/', $hash[$k])) $hit ++; } } if($mode%2 == 1 && $hit == count($reg)){ array_push($list, $hash); }else if($mode%2 == 0 && ($hit == count($reg) || $hit)){ array_push($list, $hash); } }else{ array_push($list, $hash); } } } return $list; } // -- key:val\n 形式のファイル書き function file_write($path, $hash){ $fp = fopen($path, "w"); flock($fp, 2); foreach($hash as $k => $v){ $v = urlencode($v); fwrite($fp, "$k:$v\n"); } flock($fp, 3); fclose($fp); return $hash; } // -- 設定ファイル読み function file_read_config($path, $mode = 1){ $dat = file($path); $conf = array(); $blockname = ''; foreach ($dat as $row){ $row = rtrim($row); $row = preg_replace('/^\s+/', '', $row); if($row != ''){ $row_ary = array(); #$row_ary = preg_split('/\s+/', $row); if(preg_match_all('/("(?:[^"]|"")*"|[^\s]*)\s*/', $row, $m)){ array_pop($m[1]); foreach($m[1] as $a){ $a = preg_match('/^"(.*)"$/', $a, $mm) ? preg_replace('/""/','"', $mm[1]) : $a; $row_ary[] = $a; } #var_dump($ary); } if(count($row_ary) == 1 && preg_match('/^\[([^]]+)\]$/', $row_ary[0], $match)){ $blockname = $match[1]; }else if($blockname){ if(! is_array($conf[$blockname])) $conf[$blockname] = array(); array_push($conf[$blockname], $row_ary); } } } return $conf; } # 変換 _________________________________________________________________________ // -- 価格フォーマット function pricef($num){ return preg_replace('/\G((?:^[-+])?\d{1,3})(?=(?:\d\d\d)+(?!\d))/', "\\1,", $num); } // -- TAB文字エスケープ function escape_tab($str){ return preg_replace_callback('/([\s%])/', 'escape_tab_func', $str); } function escape_tab_func($str){ return sprintf("%%%02X", ord($str[0])); #return urlencode($str[0]); } // -- TAB文字アンエスケープ function unescape_tab($str){ return preg_replace_callback('/%([0-9a-fA-F]{2})/', 'unescape_tab_func', $str); } function unescape_tab_func($str){ return urldecode($str[0]); } // -- HTML TAG エスケープ function escape_tag($str){ return htmlspecialchars($str);; } // -- HTML TAG アンエスケープ function unescape_tag($str){ if($str == '') return $str; $search = array('/"/', '/>/', '/</', '/&/'); $replace = array('"', '>', '<', '&'); return preg_replace ($search, $replace, $str); } // -- 漢字コード変換 function str2sjis($str, $from = 'SJIS,EUC-JP,JIS'){ return mb_convert_encoding($str, "SJIS", $from); } function str2euc($str, $from = 'SJIS,EUC-JP,JIS'){ return mb_convert_encoding($str, "EUC-JP", $from); } function str2jis($str, $from = 'SJIS,EUC-JP,JIS'){ return mb_convert_encoding($str, "JIS", $from); } // -- ダンプ function dumper(){ header("Content-type: text/plain;\n\n"); print "Dumper\n"; print DATADumper(func_get_args()); exit; } function DATADumper(){ global $DumperDep; $tab = str_repeat(" ", $DumperDep); foreach(func_get_args() as $a){ if(is_array($a)){ $d = ''; $rnum = 0; $DumperDep ++; foreach($a as $k => $v){ if($DumperDep == 1){ $d .= '$VAR' . "$rnum = " . DATADumper($v) . ";\n"; }else{ if($rnum) $d .= ','; $d .= "\n"; $d .= "$tab $k => " . DATADumper($v); } $rnum ++; } $DumperDep --; if($DumperDep == 0){ return $d . "\n"; }else{ return "array(" . $d . "\n$tab)"; } }else{ return "'$a'"; } } return $d; } # メール送信 ___________________________________________________________________ /* $stats = sendmail( array( SmtpServer => 'mail.k-digix.co.jp', From => 'nerikeshi@mac.com', To => array( '関川' => 'nerikeshi@mac.com'), Cc => array( 'ネリケシ' => 'nerikeshi@mac.com'), Subject => '表題', Body => '内容', KanjiKode => 'EUC-JP' ) ); */ // -- メール送信 function sendmail($p){ if(! $p['SmtpServer'] || ! $p['To'] || ! $p['From']) return; $kcode = $p['KanjiKode'] ? $p['KanjiKode'] : 'EUC-JP,SJIS,JIS'; $rcpt = array(); $rcpt = array_merge($rcpt, $p['To']); $rcpt = array_merge($rcpt, $p['Cc']); $rcpt = array_merge($rcpt, $p['Bcc']); $header = array(); array_push($header, 'From: ' . mail_address_format($p['From'], $kcode)); array_push($header, 'To: ' . mail_address_format($p['To'], $kcode)); if($p['Subject']) array_push($header, 'Subject: ' . mail_encode_b64($p['Subject'], $kcode)); if($p['Cc']) array_push($header, 'Cc: ' . mail_address_format($p['Cc'], $kcode)); if($p['Bcc']) array_push($header, 'Bcc: ' . mail_address_format($p['Bcc'], $kcode)); array_push($header, 'Content-Type: text/plain;charset="iso-2022-jp"'); array_push($header, 'Content-Disposition: inline'); array_push($header, 'Content-Transfer-Encoding: 7bit'); array_push($header, 'Mime-Version: 1.0'); $p['Body'] = preg_replace('/\r\n|\r/', "\n", $p['Body']); $p['Body'] = preg_replace('/\n/', "\r\n", $p['Body']); if($p['SmtpServer']){ # SMTP送信 #var_dump($p['SmtpServer'], # $p['From'], # $rcpt, # join("\r\n", $header), # str2jis($p['Body'], $kcode)); return smtp_submit( $p['SmtpServer'], $p['From'], $rcpt, join("\r\n", $header), str2jis($p['Body'], $kcode) ); }else if($p['SendmailPath']){ # sendmail送信 return sendmail_submit( $p['SendmailPath'], join("\n", $header), str2jis($p['Body'], $kcode) ); } } // -- Base64変換 function mail_encode_b64($str, $kcode){ if($str){ $str = base64_encode(str2jis($str, $kcode)); $str = "=?iso-2022-jp?B?$str?="; } return $str; } // -- アドレスフォーマット function mail_address_format($add, $kcode){ $str = array(); if(is_array($add)){ foreach($add as $k => $v){ array_push($str, mail_encode_b64($k, $kcode) . " <$v>"); } return join(',', $str); } return $add; } // -- アドレスを配列変換 function mail_address2ary($add){ $str = array(); if(is_array($add)){ foreach($add as $k => $v){ array_push($str, $v); } return $str; } return array($add); } // -- sendmail送信 function sendmail_submit($sendmail, $header, $body){ if (!($fp = @popen($sendmail.' -t -i', "w"))) return 0; fputs($fp, $header); fputs($fp, "\n"); fputs($fp, $body); pclose($fp); return 1; } // -- SMTP送信 function smtp_submit($smtp_server, $from, $rcpt, $header, $body){ $sock = @fsockopen($smtp_server, 25, $errno, $errstr, 5); if(! $sock) return smtp_error('Sock'); if(! smtp_ok($sock)) return smtp_error('Connect'); if(! smtp_cmd($sock, 'HELO', $smtp_server)) return smtp_error('HELO'); if(! smtp_cmd($sock, 'MAIL', "FROM:<$from>")) return smtp_error('MAIL FROM'); if(is_array($rcpt)){ foreach($rcpt as $add){ if(! smtp_cmd($sock, "RCPT", "TO:<$add>")) return smtp_error('RCPT TO'); } }else{ if(! smtp_cmd($sock, "RCPT", "TO:<$rcpt>")) return smtp_error('RCPT TO'); } if(! smtp_cmd($sock, "DATA")) return smtp_error('DATA'); if(! smtp_cmd($sock, $header . "\r\n" . $body . "\r\n.\r\n")) return smtp_error('MESSAGE'); #if(! smtp_cmd($sock, 'QUIT')) return smtp_error('QUIT'); @smtp_cmd($sock, 'QUIT'); return 1; } // -- エラー function smtp_error($msg){ return "SMTPERROR($msg) $php_errormsg\n"; } // -- SMTPチェック function smtp_ok($sock){ $res = fgets($sock, 512); $stats = substr($res, 0, 1); if($stats != '2' && $stats != '3'){ smtp_cmd($sock, "QUIT\r\n"); return 0; } return 1; } // -- SMTPコマンド実行 function smtp_cmd($sock, $cmd, $arg = ''){ if ($arg != "") $cmd = $cmd . ' ' . $arg; fputs($sock, $cmd."\r\n"); return smtp_ok($sock); } ?>