시작페이지로 즐겨찾기추가
로그인
회원가입 l 출석체크 l 마이페이지 l CGIMALL
자료실 사이트등록 랭킹100 프로그램리뷰 관리자추천자료 초보가이드
커뮤니티
전체 펼쳐보기
퀵메뉴링크 jquery , CSS , PHP , Javascript , 무료폰트 , ASP
상세검색
홈 > 커뮤니티 > 질문과답변 상세보기
커뮤니티 구인구직
공지사항
언론보도
FAQ
질문과답변
웹호스팅
해피칼럼
얼리 하드웨어
의견게시판
골드팁
윈도우배경화면
교육정보안내
최근 댓글 리스트
광고문의
제휴문의
가입인사
자유게시판
사이트등록
클라우드태그
Javascript
PHP
ASP
CSS
html
mysql
jquery
image
Mobile
API
slide
게시판
메뉴
현재접속자 명 새로고침
게시판타이틀 질문과답변 / 상세보기
트위터로 보내기
추천수 55 | 조회수 614 | 등록일 2001-01-09 22:43:44

닉네임

 Anonymous

이메일

제목

 폼메일관련질문을...
내용
안녕하세요?

다름이 아니오라 헤메고 헤메다 못해 여기에 글을올립니다.

질문내용은 폼메일에 관련된 내용인데

소스는 같이 첨부했구요..

아래내용은 소스파일중에 formmail.cgi의 내용입니다.


#!/usr/bin/perl
##############################################################
# Formmail with attachment Beta Version
# Written by C.G.Kim on 98.06.01
#
# This is available only on the Unix/Linux platform
# & on the place Perl 5.xx version is installed.
##############################################################
$form_file = "./formmail.html";
require
cgi-lib.pl
;
use MIME::Lite;

# Call Subroutines
&ReadParse(*FORM);
&check_error;
&check_attach if ($FORM{
bin_File
});
$isSendFlag= &send_message;
&send_html($isSendFlag);
# End of Main

####### SubRoutines ##########################################
sub check_error {

&error(
Low Perl Version
,
펄 버전이 낮아서 실행할 수 없습니다.
)
if ($] < 5);
&error(
Field Empty
,
수신자 Email주소란이 비어 있습니다
)
unless ($FORM{
rcv_email
});
&error(
Field Empty
,
내용란이 비어 있습니다
)
unless ($FORM{
content
});
&error(
Field Empty
,
제목란이 비어 있습니다
)
unless ($FORM{
subject
});
&error(
Wrong Email Address
,
수신자 Email 주소가 잘못되었습니다
)
if ($FORM{
rcv_email
} !~ /@/);
&error(
Wrong Email Address
,
송신자 Email 주소가 잘못되었습니다
)
if ($FORM{
sender_email
} !~ /@/);
}

sub check_attach {

if ($filename =~ /(.*)(.*)$/ || $filename =~ /(.*)/(.*)$/
|| $filename =~ /(.*):(.*)$/) {
$filename = $2;
}
}

sub send_message {

# ($to_email, $cc_email) = split(/,/, $FORM{
rcv_email
}, 2);
my $msg = new MIME::Lite
From => $FORM{
sender_email
},
To => $FORM{
rcv_email
},
# To => $to_email,
Reply-To => $FORM{
sender_email
},
Subject => $FORM{
subject
},
Type => $FORM{
type
},
Data => "$FORM{
content
}
$FORM{
text_file
}";

# $msg->add("Cc" => [$cc_email]) if ($cc_email);
# Attach a part:
if ($FORM{
bin_File
}) {
attach $msg
Type =>
application/octet-stream
,
Encoding =>
base64
,
Data => $FORM{
bin_File
},
Filename => $filename;
}
my $isSendOK = $msg->send;
return($isSendOK);
}

sub send_html {
my $flag = shift;

# webify for HTML output
$FORM{
content
} =~ s/ $FORM{
content
} =~ s/
/

/g;
$FORM{
text_file
} =~ s/ $FORM{
text_file
} =~ s/
/

/g;

my $void_ment = "없음";
$FORM{
sender_email
} = $void_ment unless ($FORM{
sender_email
});
$filename = $void_ment unless ($FORM{
bin_File
});
$FORM{
text_file
} = $void_ment unless ($FORM{
text_file
});

if ($flag) {
print "Content-type: text/html

";
print <





Sending Succeeded!


작성하신 메일이 성공적으로 전송되었습니다.

전송된 내용은 다음과 같습니다.


























#ffb037
width=100> 굴림
color=
black
>
발신자 Email		 $FORM{
sender_email
}
굴림
color=
black
>
수신자 Email		 $FORM{
rcv_email
}
#ffb037
width=100> 굴림
color=
black
>
제 목		 $FORM{
subject
}
#ffb037
> 굴림
color=
black
>
내 용		 $FORM{
content
}
#ffb037
> 굴림
color=
black
>
Text덧붙이기		 $FORM{
text_file
}
#ffb037
> 굴림
color=
black
>
파일첨부		 $filename





Written by C.G.Kim

END_OF_SUCCEED

} else {
&error(
Mail 송신 실패
, "작성하신 메일을 보내는 것이 실패했습니다");
}
}

sub error {
my ($title, $detail) = @_;
print "Content-type: text/html

";
print <






$title


$detail


formmail.html로 시도해 보시거나,
아래의
돌아가기
글단추를 눌러 다시 시도해 보십시오.







END_OF_ERROR
exit;
}


여기를 제가 약간 수정해서 운영자에게 메일을 보내는 프로그램을

만들고 싶거든요...

그래서 수정했는데...

자꾸 91번째 라인 에서 에러가 납니다..

바로요 부분!!

if ($flag) {
print "Content-type: text/html

";
print <

아! 그리고 아래 제가 수정한 내용의 소스를

같이 붙여넣을테니.. 좀 귀찮더라도..(정말죄송)좀 뭐가 틀린지

봐주세요 ㅠ.ㅠ (제가 이거땜에 반달이상을 머리털 뜯음. ㅠ.ㅠ)


#!/usr/bin/perl
##############################################################
# Formmail with attachment Beta Version
# Written by C.G.Kim on 98.06.01
#
# This is available only on the Unix/Linux platform
# & on the place Perl 5.xx version is installed.
##############################################################
$form_file = "./formmail.html";
require
cgi-lib.pl
;
use MIME::Lite;

# Call Subroutines
&ReadParse(*FORM);
&check_error;

$isSendFlag= &send_message;
&send_html($isSendFlag);
# End of Main

####### SubRoutines ##########################################
sub check_error {

&error(
Low Perl Version
,
펄 버전이 낮아서 실행할 수 없습니다.
)
if ($] < 5);
&error(
Field Empty
,
고객 Email 주소란이 비어 있습니다
)
unless ($FORM{
sender_email
});
&error(
Field Empty
,
성명란이 비어 있습니다
)
unless ($FORM{
content
});
&error(
Field Empty
,
전화번호란이 비어 있습니다
)
unless ($FORM{
content1
});
&error(
Field Empty
,
우편번호란이 비어 있습니다
)
unless ($FORM{
content2
});
&error(
Field Empty
,
주소란이 비어 있습니다
)
unless ($FORM{
content3
});
&error(
Field Empty
,
제목란이 비어 있습니다
)
unless ($FORM{
subject
});
&error(
Wrong Email Address
,
송신자 Email 주소가 잘못되었습니다
)
if ($FORM{
sender_email
} !~ /@/);
}


sub send_message {

# ($to_email, $cc_email) = split(/,/, champyc@hanmail.net, 2);
my $msg = new MIME::Lite
From => $FORM{
sender_email
},
To =>
champyc@hanmail.net
,
# To => $to_email,
Reply-To => $FORM{
sender_email
},
Subject => $FORM{
subject
},
Type => $FORM{
type
},
Data => "$FORM{
content
}
$FORM{
content1
}
$FORM{
content2
}
$FORM{
content3
}";

# $msg->add("Cc" => [$cc_email]) if ($cc_email);
# Attach a part:
if ($FORM{
bin_File
}) {
attach $msg
Type =>
application/octet-stream
,
Encoding =>
base64
,
Data => $FORM{
bin_File
},
Filename => $filename;
}
my $isSendOK = $msg->send;
return($isSendOK);
}

sub send_html {
my $flag = shift;

# webify for HTML output
$FORM{
content
} =~ s/ $FORM{
content
} =~ s/
/

/g;
$FORM{
text_file
} =~ s/ $FORM{
text_file
} =~ s/
/

/g;

my $void_ment = "없음";
$FORM{
sender_email
} = $void_ment unless ($FORM{
sender_email
});
$filename = $void_ment unless ($FORM{
bin_File
});
$FORM{
text_file
} = $void_ment unless ($FORM{
text_file
});

if ($flag) {
print "Content-type: text/html

";
print <





Sending Succeeded!


작성하신 신청서가 성공적으로 전송되었습니다.

전송된 내용은 다음과 같습니다.


























#ffb037
width=100> 굴림
color=
black
>
고객 Email		 $FORM{
sender_email
}
굴림
color=
black
>
신청 담당자 Email		 champyc@hanmail.net
#ffb037
width=100> 굴림
color=
black
>
제 목		 $FORM{
subject
}
#ffb037
> 굴림
color=
black
>
내 용		 $FORM{
content
}
#ffb037
> 굴림
color=
black
>
Text덧붙이기		 $FORM{
text_file
}
#ffb037
> 굴림
color=
black
>
파일첨부		 $filename





문의사항은 champyc@hanmail.net 이곳으로 연락주십시오

END_OF_SUCCEED

} else {
&error(
신청오류
, "작성하신 신청서를 보내는데 실패했습니다.");
}
}

sub error {
my ($title, $detail) = @_;
print "Content-type: text/html

";
print <






$title


$detail


champyc@hanmail.net로 이 신청서 양식대로 적어서 보내시거나,
아래의
돌아가기
글단추를 눌러 다시 시도해 보십시오.







END_OF_ERROR
exit;
}


끝까지 봐주셔서 감사.. 정말 고맙습니다..

좋은하루 되시구요 그럼 안녕히...
첨부 파일목록
파일명 용량 다운수 등록시간
6518-formmail_rev2.tar 83 KB 24 회 2001-01-09 22:43:44
추천스크랩소스보기 목록
이전게시글 403 forbidden error 2001-01-09 17:18:15
다음게시글 perl에대하여... 2001-01-10 02:56:14