#!/usr/bin/perl # 이 파일은 테크노트-쇼핑커트에서 # 구매자가 주문서 작성시 '결제방식->신용카드 결제' 를 선택할 경우, # 출력되는 '신용카드결제 양식' 파일입니다. # 구매자가 상품 주문서를 작성완료하고(결제방법은 카드결제 선택) 전송 버튼을 클릭하면 # 주문내역이 [메일로 전송] + [보드에 기록]된 후, 최종 이 결제폼으로 연결됩니다. # 신용카드 결제는 테크노트 프로그램에서 자체 처리되는것이 아니라, # 신용카드결제 서비스를 제공하는 결제서비스 업체의 서버로 연결되어 처리됩니다. # 따라서 신용카드결제시스템을 사용하기 위해서는 카드결제 서비스업체에 미리 # 정식 사용자가입이 되어 있어야 하며, 해당 업체에서 제공하는 '카드결제 입력양식'을 복사하여 # 아래의 html 코드에 대체시켜 줘야 합니다. # 결제입력양식 작성방법은 각 결제서비스 업체의 설명을 따르십시오. # 아래에 있는 결제 입력양식은 '페이게이트(http://paygate.net)' 사 에서 사용되는 양식입니다. # 실제 '페이게이트(http://paygate.net)' 의 결제서비스에 가입되어 있다면 아래 htm 태그에서 # '페이게이트' 서비스 등록한 '아이디' 만 바꿔주면 다른것 수정없이 바로 사용할수 있습니다. # 자세한 설명은 페이게이트(http://paygate.net) 의 '신규가입절차'와 # 사용법에 관한 설명을 참조 하십시오. # '페이게이트(http://paygate.net)' 의 지불서버 사용시 유의해야 할것은 # '페이게이트'사 지불시스템에 '사용등록한 도메인' 과, technote/config.cgi 소스의 수정항목[5]번은 # 동일한 형식의 도메인을 지정해야합니다. ('www' 있고 없음에도 다르게 인식되어 오류발생함) # 다음은 '주문서' 작성완료후 넘어온 변수값과 회원등록시 입력한 값이 들어 있는 변수이름입니다. # 아래 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] 회원등급 ############## 각 변수에 대한 설명 끝 ######################### ####################################################### # 이하는 htm 본문 출력부분입니다.(기본: http://paygate.net 의 결제 양식임) # 위에서 설명한 변수를 참고해서 카드결제 양식을 만들어 넣으면 됩니다. # htm 코드내에 '@' 문자를 넣을때는 반드시 앞에 '\'를 붙이십시오,(예, abcd\@abcdef.net) print "Content-type: text/html\n\n"; print < 신용카드 지불 결제 $On_Load_URL

  * 입력하신 카드번호는 결제시 한차례 사용되며 따로 저장되지 않습니다.
  * 결제요청 금액을 반드시 확인하시기 바랍니다.

  [CGI설치 도움말] 이 결제 페이지는 ...technote/library/pay.cgi 파일에서 출력됩니다.
  카드결제를 정상적으로 사용하려면 pay.cgi 파일 소스에서 수정사항을 확인 하십시오.
  체크표시 있는 항목은 반드시 입력해야 합니다.
상품명
상품가격(원) (지불할 금액)
신용카드 번호 ('-' 없이 입력)
구매자 이름/ID
신용카드 종류
인증거래 입력항목
외환,국민 카드일때만
필수 입력항목입니다 		← 주민등록 뒷번호 7 자리 숫자 입력
← 카드비밀번호 앞 2 자리 숫자 입력
카드유효 만기일 년   월
할부구입
상품코드
$SoConfig[22]
$SoConfig[23]
$SoConfig[24]
$SoConfig[25]
$SoConfig[26]
주소
우편번호
전화번호
메일주소
주민등록번호
기타사항






주문서 전송 완료 !!
  이전 페이지에서 작성한 주문서는 아래 보이는 내용대로 전송완료 되었습니다.
$SenderDat   $SOrderList  


END_LINE exit; 1;