#!/usr/bin/perl
# 이 파일은 테크노트-쇼핑커트에서
# 구매자가 주문서 작성시 '결제방식->신용카드 결제' 를 선택할 경우,
# 출력되는 '신용카드결제 양식' 파일입니다.
# 구매자가 상품 주문서를 작성완료하고(결제방법은 카드결제 선택) 전송 버튼을 클릭하면
# 주문내역이 [메일로 전송] + [보드에 기록]된 후, 최종 이 결제폼으로 연결됩니다.
# 신용카드 결제는 테크노트 프로그램에서 자체 처리되는것이 아니라,
# 신용카드결제 서비스를 제공하는 결제서비스 업체의 서버로 연결되어 처리됩니다.
# 따라서 신용카드결제시스템을 사용하기 위해서는 카드결제 서비스업체에 미리
# 정식 사용자가입이 되어 있어야 하며, 해당 업체에서 제공하는 '카드결제 입력양식'을 복사하여
# 아래의 html 코드에 대체시켜 줘야 합니다.
# 결제입력양식 작성방법은 각 결제서비스 업체의 설명을 따르십시오.
# 다음은 '주문서' 작성완료후 넘어온 변수값과 회원등록시 입력한 값이 들어 있는 변수이름입니다.
# 아래 htm 문서의 신용카드 결제양식 편집시, 필요한 값이 들어있는 변수를
# 각 입력필드의 value값으로 사용하면 됩니다.
# 예를 들어 이름 입력 필드에 와 같이
# 해주면 $FORM{'name'} 변수에 들어 있는 이름이 자동 입력되어 출력되게 됩니다.
# 필요없는 변수는 무시하십시오,
############## 각 변수에 대한 설명 시작 #########################
#########################################################
# $FORM{'unique'} 주문번호(주문서마다 고유의 주문번호가 생성됨)
# $GOODname 상품명
# $GOODcode 상품코드
# $FORM{'totalprice'} 전체가격
## 가격에 콤마(,)들어가 있으면 제거함
$FORM{'totalprice'} =~ s/\,//g;
# $FORM{'Goodmany'} 주문수량
# $FORM{'id'} 아이디
# $FORM{'name'} 이름
# $FORM{'tel'} 전화번호1
# 전화번호입력 길이 체크(14자릿수 까지만 전송 : 너무 길면 에러나므로)
$FORM{'tel'} = substr($FORM{'tel'},0,14) if(length($FORM{'tel'}) > 14);
# $FORM{'tel2'} 전화번호2
# $FORM{'mail'} 메일주소
# $FORM{'socialnum'} 주민등록번호
# $FORM{'myhome'} 홈페이지
# $FORM{'postnum'} 우편번호
# $FORM{'address'} 배달주소
# 주소입력 길이 체크(너무 길면 에러나므로 일정 길이로 커트시킴)
$FORM{'address'} = substr($FORM{'address'},0,38) if(length($FORM{'address'}) > 38);
# 입금예정일 (년 월 일)
# $FORM{'pyear'}
# $FORM{'pmon'}
# $FORM{'pday'}
# 배달희망일 (년 월 일)
# $FORM{'syear'}
# $FORM{'smon'}
# $FORM{'sday'}
# 배달희망 년, 윌, 일 입력값이 모두 있다면 날자를 두 자릿수로 맞춤
if($FORM{'syear'} && $FORM{'smon'} && $FORM{'sday'}){
$FORM{'smon'} =~ s/^(\d)$/0\1/;
$FORM{'sday'} =~ s/^(\d)$/0\1/;
}
# 배달희망 년, 윌, 일 입력값중 어느 하나라도 없다면 모두 초기화 시킴
else{
delete $FORM{'syear'};
delete $FORM{'smon'};
delete $FORM{'sday'};
}
# $Wr_comment 참고사항
# 참고사항 입력길이 체크
$Wr_comment = substr($Wr_comment,0,90) ;
# $SoConfig[22] [관리설정]-[12-15]에서 지정한 '입력추가항목1' 에 해당하는 Subject
# $FORM{'ADD_22'} 위 항목에 해당하는 주문자 입력 Value
# $SoConfig[23] [관리설정]-[12-16]에서 지정한 '입력추가항목2'에 해당하는 Subject
# $FORM{'ADD_23'} 위 항목에 해당하는 주문자 입력 Value
# $SoConfig[24] [관리설정]-[12-17]에서 지정한 '입력추가항목3'에 해당하는 Subject
# $FORM{'ADD_24'} 위 항목에 해당하는 주문자 입력 Value
# $SoConfig[25] [관리설정]-[12-18]에서 지정한 '입력추가항목4'에 해당하는 Subject
# $FORM{'ADD_25'} 위 항목에 해당하는 주문자 입력 Value
# $SoConfig[26] [관리설정]-[12-19]에서 지정한 '입력추가항목5'에 해당하는 Subject
# $FORM{'ADD_26'} 위 항목에 해당하는 주문자 입력 Value
# $SenderDat 주문서 작성시 입력한 전체정보가 저장된 변수(
..
형태)
# $SOrderList 상품선택한 정보가 저장된 변수(
..
형태)
# $visitor_line[10] [관리설정]-[9-10] 에 해당되는 회원등록정보
# $visitor_line[11] [관리설정]-[9-11] 에 해당되는 회원등록정보
# $visitor_line[12] [관리설정]-[9-12] 에 해당되는 회원등록정보
# $visitor_line[13] [관리설정]-[9-13] 에 해당되는 회원등록정보
# $visitor_line[14] [관리설정]-[9-14] 에 해당되는 회원등록정보
# $visitor_line[15] [관리설정]-[9-15] 에 해당되는 회원등록정보
# $visitor_line[16] [관리설정]-[9-16] 에 해당되는 회원등록정보
# $visitor_line[17] [관리설정]-[9-17] 에 해당되는 회원등록정보
# $visitor_line[18] [관리설정]-[9-18] 에 해당되는 회원등록정보
# $visitor_line[19] 회원등급
############## 각 변수에 대한 설명 끝 #########################
#######################################################
# 아래에 있는 결제 입력양식은 'LG CNS (http://smartpay.lgcns.com)' 사 에서 사용되는 양식입니다.
# 실제 'LG CNS(http://smartpay.lgcns.com)' 의 결제서비스에 가입되어 있다면 아래 htm 태그에서
# ★ 별표 표시된 항목만 바꾸어 주면 다른것 수정없이 바로 사용할수 있습니다.
# 자세한 설명은 LG CNS 의 매뉴얼을 참조 하십시오.
# htm 코드내에 '@' 문자를 넣을때는 반드시 앞에 '\'를 붙여야 합니다.(예, abcd\@abcdef.net)
$FORM{'name'} .= $FORM{'id'} ; # 이름과 아이디를 붙임
$FORM{'name'} =~ s/(.*)(\S{19})$/\2/; # [이름+ 아이디] 를 20자리 이하로 줄임(뒷자리부터)
$FORM{'unique'} =~ s/(.*)(\S{11})$/\2/; # 주문번호를 12 자리 아하로 줄임(뒷자리부터)
print "Content-type: text/html\n\n";
print <LG-EDS전자지불
END_LINE
exit;
1;