제목 없음

#!/usr/bin/perl ################################## SETTINGS ###################################### # UNIX PATH TO THE MAIL PROCCESSING PROGRAM ################################################ $mailprog= "/usr/sbin/sendmail" ; # E-MAIL ADDRESS TO WHERE THE MAIL WILL BE SENT ############################################################################# $recipient= "service\@four3.net" ; $font1 = "color=navy face=굴림체"; $font2 = "size=2 face=굴림체"; ############################################################################# %in= &getcgivars ; open(MAIL, "|$mailprog $recipient") || &HTMLdie("Couldn't send the mail (couldn't run $mailprog).") ; $ENV{'HTTP_REFERER'} || ($ENV{'HTTP_REFERER'}= "your Web site") ; print MAIL "Subject: Sample_Order\n\n", "폼메일 작성 위치: $ENV{'HTTP_REFERER'}:\n\n" ; $maxlength= 0 ; foreach (keys %in) { $maxlength= length if length > $maxlength ; } $maxlength++ ; foreach (sort keys %in) { if ($in{$_}=~ /\n/) { $in{$_}= "\n" . $in{$_} ; $in{$_}=~ s/\n/\n /g ; $in{$_}.= "\n" ; } $in{$_}=~ s/\0/, /g ; printf MAIL "%-${maxlength}s %s\n", "$_:", $in{$_} ; } close(MAIL) ; print < 제목 없음

tj성공 OK

EOF exit ; sub getcgivars { local($in, %in) ; local($name, $value) ; if ($ENV{'REQUEST_METHOD'} eq 'GET') { $in= $ENV{'QUERY_STRING'} ; } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { if ($ENV{'CONTENT_TYPE'}=~ m#^application/x-www-form-urlencoded$#i) { $ENV{'CONTENT_LENGTH'} || &HTMLdie("No Content-Length sent with the POST request.") ; read(STDIN, $in, $ENV{'CONTENT_LENGTH'}) ; } else { &HTMLdie("지원되지 않는 Content-Type: $ENV{'CONTENT_TYPE'}") ; } } else { &HTMLdie("지원하지 않는 방법( REQUEST_METHOD )으로 호출됐습니다.") ; } foreach (split('&', $in)) { s/\+/ /g ; ($name, $value)= split('=', $_, 2) ; $name=~ s/%(..)/chr(hex($1))/ge ; $value=~ s/%(..)/chr(hex($1))/ge ; $in{$name}.= "\0" if defined($in{$name}) ; $in{$name}.= $value ; } return %in ; } sub HTMLdie { local($msg,$title)= @_ ; $title || ($title= "CGI Error") ; print < $title <$font1>$title

<$font2>$msg

EOF exit ; }