MY Guestbook

#!/usr/bin/perl ##################################### # # guestbook_list.cgi # # 작성자 : 김무용 # E-mail : mooyong@cre.co.kr # ##################################### require "guestbook_lib.pl"; require "cgi-lib.pl"; &ReadParse(*form_data); open (DATAFILE, "$guestbook_list_file"); @Data = ; close DATAFILE; $total_list_num = @Data; #print "Content-type: text/html\n\n"; # 첫페이지 지정 if(($form_data{'page'} eq "") || ($form_data{'page'} eq 0)){ $page=1; } else { $page = $form_data{'page'}; } # 페이지 변수 지정 $total_page= int($total_list_num/$guestbook_list_display); # 첫페이지 값이 0이면 1페이지로 지정 if($total_page < ($total_list_num/$guestbook_list_display)) { $total_page = $total_page+1; } print "MY Guestbook\n"; print ""; &guestbook_header; print "

"; # 아이콘 테이블 print "

"; print "

"; # 1페이지가 정해진 리스트 개수가 안 될 경우 페이지 버튼 활성화시키지 않음 if($total_page <= 1) { print "

\n"; print "

"; print "

\n"; } # 페이지가 정해진 리스트를 넘었을 경우 페이지를 넘김 지정 else { $next_page = $page+1; $previous_page = $page-1; # 2페이지 이후 '이전페이지' 링크 if ($page <= 1) { print "

\n"; } else { print "

\n"; } print "

"; # 2페이지 이후 '다음페이지' 링크 if ($next_page <= $total_page) { print "

\n"; } else { print "

\n"; } } #### else 끝남 print "

"; # 리스트 타이틀 부분 print qq!

!; $count=$total_list_num-1; if ($previous_page <= 0) { $start_count = 1; } else { $start_count = ($previous_page*$guestbook_list_display+1); } $dis_count = ($page*$guestbook_list_display); for ($j=0;$j<=$count;$j++) { if(($j+1< $start_count) || ($j+1> $dis_count)) { next; } $List = $Data[$j]; @LineData = split (/\|/, $List); # E-mail이 기록되지 않았을 경우 링크시키지 않음 if ($LineData[2] eq "") { print qq! !; } # E-mail이 기록되었을 경우 링크시킴 else { print qq! !; } open (DATA, "$guestbook_contents_dir/$LineData[0].txt"); @data = ; close (DATA); chop @Content; print qq! !; } ###for end print "

$LineData[0]. $LineData[1] ($LineData[2]) : $LineData[3]

E-mail : $LineData[4]
Homepage : $LineData[5]
올린날짜 : $LineData[6]

@data

\n"; print "

\n"; print "\n";