ROS MailForm

#!/usr/bin/perl
####################################################
#ソフト名:ROS MailForm
#作者:ORBIT
#著作権:
#ORBIT SPACEに帰属します。
#改造/変更/再配布に関して一切の制限はいたしません。
#自由にお使いください。
####################################################

#-------------------各種設定------------------------
#送信先メールアドレス
$mailto = 'orbit@hogehoge.co.jp';
#サブジェクト(英語)
$subject = "OP MailFrom";
#sendmailまでのパス
$sendmail = '/usr/lib/sendmail';
#---------------------------------------------------

#モジュール使用宣言
use Jcode;


$url = $ENV{"HTTP_REFERER"};
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
my @buf = split(/&/, $buf);
foreach (@buf) {
	my ($key, $val) = split(/=/);
	$key =~ tr/+/ /;
	$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
	$val =~ tr/+/ /;
	$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
        Jcode::convert($key, "jis");
        Jcode::convert($val, "jis");
	push(@key,$key);
	push(@val,$val);
        $in{$key} = $val;
}

foreach my $i (0 .. $#key) {
     if ($key[$i] eq "mode") { next; }
     if ($val[$i] eq "") {&end;}
     $mailbody .= "$key[$i]:"."n$val[$i]n";
}

Jcode::convert($mailbody,"jis");
open(MAIL,"| $sendmail -t -i");
print MAIL "To: $mailton";
print MAIL "From: $mailton";
print MAIL "Subject: $subjectn";
print MAIL "MIME-Version: 1.0n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JPn";
print MAIL "Content-Transfer-Encoding: 7bitnn";
print MAIL "$mailbodyn";
close(MAIL);
&end;

sub end{
print "Content-type: text/htmln";
print "Location: $urlnn";
exit;
}
  1. DFDFAFAAFDAFDASF

    こんな簡単なスクリプトを自慢げに載せてるところがアホっぽいよね

  2. 確かにそうですね^^
    自分の知識の乏しさには毎日呆れるところです。
    しかし、昨日作れなかったプログラムを今日作れるようになれたというような喜びなどは、私がこのブログを運営している一つの要素でもあります。
    そして、「馬鹿だろ?」と思われるプログラムでも、このサイトを見てくれている人の役に立てればと思いこのサイトを通して公開しています。
    至らないところもまだまだあると思いますが、これからも日々努力していきたいと思っています。
    お気づきの点などございましたら、ご指摘のほどよろしくお願いします。

Leave a Comment


NOTE - You can use these HTML tags and attributes:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

(Spamcheck Enabled)

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)