▒ 테크노트카페제공 로긴폼 ▒

#!/usr/bin/perl -U # [0] ★ 수정항목 - 펄경로 # 대부분 #!/usr/bin/perl 또는 #!/usr/local/bin/perl 로 되어 있음 open(LIST,"./board/register/member/idlist.cgi"); while(){ $HowManyList ++; } close(LIST); require './config.cgi'; # [1] ★ 수정항목 - config.cgi 의 경로지정 # iboard.cgi 와 config.cgi 가 다른 디렉토리에 들어 있다면 # 반드시 수정해야 함 # iboard.cgi 를 기준으로한 상대경로(예, require './board/technote/config.cgi';) # 서버내의 절대경로로 지정 (예, require '/usr/home/myhome/technote/config.cgi';) $icon_dir_url="$img_dir_url/iboardicon"; # [2] iboard.cgi 출력용 아이콘 디렉토리 URL (http://www.abcdefg.com/technote/image/iboardicon) # [3] ★ 수정항목 - 현재 이 파일(iboard.cgi)의 이름을 변경해서 사용하려면 변경된 이름 대입 # 각각 다른 이름으로 여러개 사용 가능 $This_CGI_Name = 'loginform.cgi'; # [4] ★ 수정항목 - 테크노트로 회원등록관리를 하는 경우, 회원등록-로그인 하도록 설정한 '보드이름'을 대입 $MemberDataBoard = 'register'; # [5] get QUERY & COOKIE &parse; &get_cookie; $cookiename = '1homestone'; sub HTML_PRINT{ print < ▒ 테크노트카페제공 로긴폼 ▒

$Message_Print

END_LINE exit; } #------------ [ 테크노트 카페 보드 table 끝 ]----------------------- # [17] ▨▨▨ [변수생성 예제10]- 회원로그인 변수 이용하기 ▨▨▨ # 예전에 로그인을 했었고, 현재는 로그인하지 않은 상태라면 아래 변수에는 # 예전의 로그인 정보가 저장되어 있다. # 아이디: $cook_id # 이름: $cook_name # 메일: $cook_mail # 홈페이지: $cook_home # 우편번호: $cook_post # 주소: $cook_address # 전화번호: $cook_tel # 현재 로그인을 한 상태라면 아래 변수에는 # 현재 로그인한 정보가 저장되어 있다. # 아이디: $visitor_line[0] # 이름: $visitor_line[2] # 메일: $visitor_line[3] # 홈페이지:$visitor_line[4] # 우편번호:$visitor_line[7] # 주소: $visitor_line[8] # 전화번호:$visitor_line[9] # 회원등급:$visitor_line[19] # [관리설정]-[9-10]: $visitor_line[10] # [관리설정]-[9-11]: $visitor_line[11] # [관리설정]-[9-12]: $visitor_line[12] # [관리설정]-[9-13]: $visitor_line[13] # [관리설정]-[9-14]: $visitor_line[14] # [관리설정]-[9-15]: $visitor_line[15] # [관리설정]-[9-16]: $visitor_line[16] # [관리설정]-[9-17]: $visitor_line[17] # [관리설정]-[9-18]: $visitor_line[18] # 위의 변수를 htm 출력 부분에 삽입하여 원하는 회원정보를 출력할수 있다. # 2001 버전에서는 우편번호, 주소, 전화번호 적용되지 않음 #---------------------------------------------------------------------- # [18] ▨▨▨ [변수생성 예제 11]- 회원로그인 여부에 따른 '조건 변수' 생성하기 ▨▨▨ # 회원로그인된 상태라면 $LoginMember 변수에 1이 대입되어 있고, # 회원로그인 하지 않은 상태라면 $LoginMember 에 아무것도 대입되어 있지 않음 # ★ 표시있는 부분은 수정해야 함 # 추가 내용에 느낌표(!)가 들어 갈때는 반드시 \! 와 같이 앞에 \을 붙여 넣을것 # 기타사항은 별도 첨부된 도움말 참조 # 조건 변수 생성 # 만약 로그인 된 상태라면 => '..님 로그인되었습니다' 라는 문장과 '로그아웃' 버튼 링크를 $Message_Print 변수에 저장함 if($LoginMember){ $Message_Print = qq! <\!---------- ★ 로그아웃 화면 html code 시작 [ 로그아웃.htm 에서 수정후 소스붙이세요] ★ ------------>

$visitor_line[2][$visitor_line[0]]님
방문을 환영합니다.
전체회원수 : $HowManyList명

<\!---------- ★ 로그아웃 화면 html code 끝 [ 로그아웃.htm 에서 수정후 소스붙이세요] ★ ------------> !; } # 로그인하지 않은 상태라면 => 아이디, 비밀번호 입력폼 태그를 $Message_Print 변수에 저장함 else{ $Message_Print = qq! <\!-- ★action='./main.cgi' 에는 main.cgi 의 전체url(http://.....technote/main.cgi)을 대입 -->

<\!-- ★value='$MemberDataBoard' 에는 회원등록/로그인 지정한 '보드명'을 대입 --> <\!-- ★value='' 에는.. 회원 로그인후 출력될 페이지를 별도 지정하려면 출력될 페이지의 url 을 대입한다, ([관리설정]-[9-5 , 9-6] 에서 지정보다 우선함) --> <\!---------- ★ 로그인 화면 html code 시작 [ 로그인.htm 에서 수정후 소스붙이세요] ★ ------------> <\!---------- ★ 로그인 화면 html code 끝 [ 로그인.htm 에서 수정후 소스붙이세요] ★ ------------>

자동로긴

회원가입 / 비밀번호찾기

!; } # 위와 같이 조건 적용으로 생성된 '$Message_Print' 변수에는 로그인 여부에 따라 다른 내용이 # 저장되므로 html 출력 부분에 $Message_Print 변수를 넣으면 역시 로그인 여부에 따라 # 그 위치에 로그인폼이나 로그아웃 버튼이 출력됩니다. # 작성 내용에 느낌표(!)가 들어 갈때는 반드시 \! 와 같이 앞에 \을 붙여 넣으십시오. # 위와 같이 # if($LoginMember){$변수명= "로그인된 경우에 출력될 내용";} # else{$변수명="로그인되지 않은 경우에 출력될 내용";} # 형태로 다른 변수를 생성해서 사용해도 됩니다. # 위의 [변수생성 예제10,11] 에 설명한 로그인 관련 변수를 사용하기 위해서는....... # 이 iboard.cgi 가 테크노트의 main.cgi 가 있는 디렉토리에 위치하거나 그 하위의 경로에 있어야 합니다. # 만약 테크노트의 main.cgi 보다 상위 경로에 iboard.cgi 를 위치시켰다면 # 위 [변수생성 예제 10 , 11] 에서 설명한 로그인 변수는 적용되지 않습니다. # 이때는 technote/config.cgi 소스내의 수정항목 31 번에 '/' 를 대입해 주면 됩니다 #------------------------------------------------------------------------ # [19] ▨▨▨ [기타참고]- iboard.cgi 의 설정옵션을 이용한것이 아닌, # '실제 게시판' 을 HTM 코드내에 삽입하려면 # 아래 예와 같이 'object' 태그나 'iframe' 태그를 사용하면 됩니다. # 일반 htm 파일에서도 동일합니다. # #

# -------------------- 수고 많이 하셨습니다. ---------------------------------------# # [20] ★★★★★★★★★★★ 변수조합 코드 부분 ★★★★★★★★★★★★★★ # 이하 사용자 수정항목은 없습니다. # 필요하다면 수정해도 상관 없습니다. # 코드내에 주석문을 넣었으니 해당 코드의 용도를 확실히 파악하신후 수정하십시오, # 페이지 출력의 직접적인 구성은 위에서 다 하도록 되어 있으니 # 이곳은 가급적 수정하지 않으시는게 좋습니다. # cgi 파일 실행에 직접 영향을 주는 부분이므로 조금만 잘못 수정해도 에러가 날수 있습니다. # HTML PRINT print "Content-type: text/html\n\n"; &HTML_PRINT; # 게시판 출력 옵션 조합 sub open_table{ local($const)=@_; local($boardname,$tabletag,$indexsize,$indexsizetm,$nextpg,$prevpg,$Nextibutton,$Opentarget_1,$Opentarget_2,$Boldface1,$Boldface2,$textline_2body,$textline_3body,$imgsrc,$imgsrc2,$img_width,$img_height,$IMGsty,$wi_cross,$Trtagchk,$Ud_num,@DIVpart,@index,@today,@visitor,@CellConst,@textline_body); undef(%TABLE); @DIVpart = split(/;/,$const); foreach $key (@DIVpart) { $key =~ s/^\s+//; $key =~ s/\s+$//; # $key =~ /(.*)=(.*)/; $key =~ /([^=]*)=(.*)/; $TABLE{$1} = $2; } while(($STname,$STvalue)=each(%ST_TBL)){ $TABLE{$STname} = $STvalue unless($TABLE{$STname}); } @CellConst = split(/\//,$TABLE{'cell_column'}); foreach $key (@CellConst) { if($key == 11){ if($TABLE{'append_img'} =~ s/\s*style.*//i){$IMGsty = $&;} if($TABLE{'append_img'} =~ /^(\d+)x(\d+)/){ $img_width = " width=$1 "; $img_height = " height=$2 "; } elsif($TABLE{'append_img'} =~ /x(\d+)$/){ $img_height = " height=$1 "; } elsif($TABLE{'append_img'} =~ /^(\d+)x/){ $img_width = " width=$1 "; } elsif($TABLE{'append_img'} =~ /^(\d+)$/){ $img_height = " height=$1 "; } elsif($TABLE{'append_img'} =~ /^x$/){ ''; } elsif($TABLE{'append_img'} !~ /\//){ $TABLE{'append_img'} = "$icon_dir_url/i_imgfile.gif"; } else{'';} next; } $key += 28 if($key > 8); $key += 14 if($key > 4 && $key < 9); } if(!$TABLE{'append_img_underview'}){'';} elsif($TABLE{'append_img_underview'}==2){$Ud_num = 2;} elsif($TABLE{'append_img_underview'}==3){$Ud_num = 3;} elsif($TABLE{'append_img_underview'}==4){$Ud_num = 23;} elsif($TABLE{'append_img_underview'}==5){$Ud_num = 19;} elsif($TABLE{'append_img_underview'}==6){$Ud_num = 20;} elsif($TABLE{'append_img_underview'}==7){$Ud_num = 21;} elsif($TABLE{'append_img_underview'}==8){$Ud_num = 22;} elsif($TABLE{'append_img_underview'}==9){$Ud_num = 37;} elsif($TABLE{'append_img_underview'}==10){$Ud_num = 38;} else{'';} # 본문 출력 타겟 지정 -- (타겟을 별도 지정하려면 여기서 코드를 수정할것) # 만약, 메인htm 파일내에