#!/usr/bin/perl BEGIN { require "fatlib.pl"; } use utf8; use strict; #------------ use CGI; use Nana::Mail; use Nana::YukiWikiDB; use Encode; use Digest::MD5 qw(md5_hex); require "common.pl"; my $allow=0; if(open(R,".htallowadmin")) { foreach() { chomp; $allow=1 if($ENV{REMOTE_ADDR} eq $_); } close(R); } if($allow eq 0) { print <param("subject")); my $body=force_decode($query->param("body")); if($subject eq '' && $body eq '') { &gzip_compress("Content-type: text/html; charset=utf-8\nCache-Control: max-age=0\nExpires: Mon, 26, Jul 1997 05:00:00 GMT"); print < でんき予報速報サイト一斉メール送信
タイトル:
本文：
 
EOM close(STDOUT); exit; } my $tmpsubject=$subject; my $tmpbody=$body; $body=~s/\x0D\x0A|\x0D|\x0A/\x0A/g; &mailallsend($subject,$body); $tmpbody=~s/\n/
\n/g; &gzip_compress("Content-type: text/html; charset=utf-8\nCache-Control: max-age=0\nExpires: Mon, 26, Jul 1997 05:00:00 GMT"); print < でんき予報速報サイト一斉メール送信 メールを送信しました。
タイトル:$tmpsubject
本文：$tmpbody
EOM close(STDOUT); exit;