등록일 2005-03-29 11:38:33 조회수 163
작성자 dlgustjd 도메인 www.leehyunsung.com/mail/psmail.htm
제목 메일관련문의입니다.
안녕하세요.
우뜨넷입니다.

저희 서버에서 perl로 된 CGI는 지원합니다.
단 문법상 문제가 있어 보입니다.
현재 저희가 소스를 검토중입니다.

감사합니다.

> --------------------- :: dlgustjd wrote :: ----------------------- <
bash언어로 된것은 지원이 안된다고 하셔서 다른걸로 구해봤는데 여전히 Internal Server Error 라고 나오면서 되지않습니다. 주소는 www.leehyunsung.com/mail/psmail.htm입니다. 확인부탁드립니다.
코드는 제가보기에 아무문제없어보이는데...혹시 우뚜넷에서 지원하지 않는것이 쓰였다면 알려주시면 감사하겠습니다.


#!/usr/bin/perl

$MailDir = "/usr/sbin/sendmail";

$value[2] = "mail\@leehyunsung.com";

$formmail = "http://www.leehyunsung.com/sms/psmail.htm";

$settitle = "<center>Pansool's Formmail Ver 1.0</center>";



if($ENV{'REQUEST_METHOD'} eq "GET") {
$buffer = $ENV{'QUERY_STRING'};
}
else {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
@pairs = split(/&/,$buffer);
foreach $pair( @pairs ) {
($name,$value)=split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$INPUT{$name} = $value;
}
if($INPUT{'action'} eq "") { &read; }
if($INPUT{'action'} eq "") { &read; }
elsif($INPUT{'action'} eq "read") { &read; }
elsif($INPUT{'action'} eq "save") { &save; }

sub save {
if ($INPUT{'from'} =~ /.+\@.*\..*/) {
$from = "$INPUT{'from'}";
}
else {
$errorcode = "E-mail주소를 입력하지 않으셨던지 잘못된방식이예염.\n";
&error;
exit;
}
if ($INPUT{'toemail'} =~ /.+\@.*\..*/) {
$toemail = "$INPUT{'toemail'}";}
else {
$errorcode = "받는사람의 E-mail주소를 입력하지 않으셨던지 잘못된방식이네여.\n";
&error;
exit;
}
if ($INPUT{'title'}) {
$title = "$INPUT{'title'}";
$title =~ s/\r\n\r\n/<p>/g;
$title =~ s/\r\n/<br>/g;
}
else {
$errorcode = "제목은 쓰셔야졍~ ㅜ.ㅜ.\n";
&error;
exit;
}
if ($INPUT{'detail'}) {
$detail = "$INPUT{'detail'}";
}
else {
$errorcode = "내용없이 E-mail을 보내시려구영? ㅡ.ㅜ;.\n";
&error;
exit;
}
open(MAIL,"|$MailDir -t $toemail");
print MAIL "To: $toemail\n";
print MAIL "From: $from\n";
print MAIL "Subject: $title\n";
print MAIL "Content-type:text/html\n\n";
$command =~ s/\r\n\r\n/<p>/g;
$command =~ s/\r\n/<br>/g;
print MAIL "<div align=center><table border=0 cellspacing=3 cellpadding=3 width=100%>\n";
print MAIL "<tr>\n";
print MAIL "<td><font style=font-돋움;font-size:12pt>$detail</font></td>\n";
print MAIL "</tr>\n";
print MAIL "</table></div>\n";
close(MAIL);
&sethtml;
print "<body>\n";
print "<center>\n";
print "<td align=center><br><br><span style=font-size:14pt;color:#E2FAFA;Filter:glow(color=#0000ff,strength:1);width:80%;height:20;>메일을 보냈습니다..^-^*.</span><td>\n";
print "\n";
print "<td align=center><br><br><font size=2><a href=$formmail><b>E-mail쓰기</b></a></font><br><br><INPUT TYPE=BUTTON VALUE='창 닫기' onClick='parent.window.close()'>\n";
print "</center>\n";
print "\n";
print "</body>\n";
print "</html>\n";
}


sub sethtml {
print "Content-Type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>Pansool's Formmail Ver1.0</title>\n";
print "<style type=text/css>\n";
print "A:link {text-decoration:none}\n";
print "A:visited {text-decoration:none}\n";
print "td,form,select,input,textarea {font-family:돋움;font-size:9pt}\n";
print "</style>\n";
print "</head>\n";
}


sub error {
&sethtml;
print "<body text=$setfontcolor>\n";
print "<div align=center><table bgcolor=e7fafa border=0 cellspacing=0 cellpadding=0 width=100% height=60%>\n";
print "<tr>\n";
print "<td align=center><font style=font-size:20pt;font-weight:bold;color:#990033>어쩌나.. ㅠ.ㅠ</font><br><br><font style=font-size:10pt;color:#305eaa>$errorcode</font><br><br><br><a href='javascript:history.back()'><font size=2><b><-돌아가기^^></b></a></td>\n";
print "</tr>\n";
print "</table></div>\n";
print "</body>\n";
print "</html>\n";
}