방명록

#!/usr/local/bin/perl ##################################################################### # # # 막써봐 방명록 ver 1.0 # # # # 이 방명록의 저작권은 제작자(박정희)에게 있음을 알려드립니다. # # 개인적인 사용이나 배포는 허락하나 상업적인 목적으로 사용할수 # # 없습니다. 아직 정식버전이 아니므로 사용중 일어날수 있는 피해에 # # 대한 책임은 사용자 에게 있습니다. # # # # 사용중 문의사항이나 건의사항이 있으신 분은 연락주세요.. # # homepage : kitel.co.kr/~hemee # # email : hemee@hamail.net hitel id : hemee # # # ##################################################################### require 'cgi-lib.pl'; &ReadParse(*in); # 방명록 스크립트가 있는 URL주소 $book_file="http://dcslab.snu.ac.kr/~saturn/guestbook/guest/guestbook.cgi"; # data디렉토리가 있는 절대경로 $data_directory="/home/saturn/public_html/guestbook/guest/data"; # 데이타가 저장되는 화일 $data_file="$data_directory/data.txt"; # 관리자 패스워드 # 글쓰기에서 패스워드가 입력되지 않았을때 사용됨. # 자신이 원하는 패스워드로 변경 $admin_pass="qlfwnrdj"; # 화면위치경정 $position = "center"; $logo =0; $logo_text = "방명록"; #그림대신 들어갈 글씨 $logo_color = "#0080C0"; #현재 하늘색으로 설정 $logo_size = "6"; #글씨 크기를 나타냄 # 방명록이름 이미지파일을 변경하는 변수 $head_image = "guest.jpg"; print &PrintHeader; if($in{'j'} eq "show") { &show_book($in{'n'}); } elsif($in{'j'} eq "write_form") { &write_form; } elsif($in{'j'} eq "write") { &write; } elsif($in{'j'} eq "delete_form") { &delete_form; } elsif($in{'j'} eq "delete") { &delete; } else { &initbook; } # 총 게시물수와 페이지수를 구하는 함수 sub all_number { local(@data, $i, $k, $h); open(file, "$data_file"); @data = ; $i=$#data; $i++; close(file); $k=$i%10; if($k == 0) { $h=(($i-$k)/10); } else { $h=(($i-$k)/10)+1; } return($i, $h); } # 방명록초기화면입니다. 입력되어있는 데이타를 10개씩 보여줍니다. sub initbook { local($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job); local($back, $this, $next, $page, $all_num, $show_num, $i, $data, $show_num, $show_num1, $s); ($all_num, $page)=&all_number; &head; $back = 0; $this = 1; $next = 2; &make_tool($all_num, $page, $back, $this, $next, 1); $show_num = ($this * 10)-9; $show_num1 = $this * 10; open(file, "$data_file"); for($i=1 ; $i < $show_num ; $i++) { $data = ; } for($s = $show_num ; $s <= $show_num1 ; $s++) { $data = ; if($data) { @dataArray = split(/\|/,$data); ($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job) = @dataArray; &table($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job, $this); } else { last; } } close(file); &make_tool($all_num, $page, $back, $this, $next, 0); &tail; } # 초기화면의 헤드부분입니다. sub head{ print <<__END_OF_FORM__; 방명록

__END_OF_FORM__ if($logo) { print " $\"막써봐$ "; } else { print "$logo_text"; } print <<__END_OF_FORM__;

__END_OF_FORM__ } sub tail { print <<__END_OF__;

__END_OF__ } # 기능부분의 만드는 함수 sub make_tool { local($all_num1, $page1, $back1, $this1, $next1, $end)=@_; local($go_page0, $go_page1, $go_page2, $go_page3, $go_page4, $go_page5, $go_next, $a, $this2); print <<__END_OF__;

__END_OF__ if($back1 < 1) { print <<__END_OF__; __END_OF__ } else { print <<__END_OF__; __END_OF__ } print <<__END_OF__; __END_OF__ if($next1 > $page1) { print <<__END_OF__; __END_OF__ } else { print <<__END_OF__; __END_OF__ } print <<__END_OF__;

뒤로

　

　

앞으로

__END_OF__ if($end) { print <<__END_OF__;

[총 방문자수 : $all_num1]

__END_OF__ $this2 = $this1; $a = $this1%5; if($a == 0) { $go_page0 = $this1 - 5; $go_page1 = $this1 - 4; $go_page2 = $this1 - 3; $go_page3 = $this1 - 2; $go_page4 = $this1 - 1; $go_page5 = $this1; $go_next = $this1 + 1; } else { $this1++; while(1) { if(($this1%5) == 0 ) { $go_page0 = $this1 - 5; $go_page1 = $this1 - 4; $go_page2 = $this1 - 3; $go_page3 = $this1 - 2; $go_page4 = $this1 - 1; $go_page5 = $this1; $go_next = $this1 + 1; last; } $this1++; } } if($go_page1 >5) {print "[이전]...";} if($go_page1 <= $page1) { if($go_page1 == $this2){print "[$go_page1] ";} else{print "[$go_page1] ";} } if($go_page2 <= $page1) { if($go_page2 == $this2){print "[$go_page2] ";} else{print "[$go_page2] ";} } if($go_page3 <= $page1) { if($go_page3 == $this2){print "[$go_page3] ";} else{print "[$go_page3] ";} } if($go_page4 <= $page1) { if($go_page4 == $this2){print "[$go_page4] ";} else{print "[$go_page4] ";} } if($go_page5 <= $page1) { if($go_page5 == $this2){print "[$go_page5] ";} else{print "[$go_page5] ";} } if($go_next <= $page1) {print "...[다음]";} else {print "[끝]";} print <<__END_OF__; [총페이지 : $page1]

__END_OF__ } } sub table { local($num1, $id1, $password1, $email1, $url1, $sex1, $contact1, $ip1, $browser1, $os1, $mailing1, $time1, $job1, $this2)=@_; local($text); print <<__END_OF__;

__END_OF__ if($email1) { print <<__END_OF__;

__END_OF__ if($this2 == 0) { print <<__END_OF__; __END_OF__ } else { print <<__END_OF__; __END_OF__ } # if($email1) { print <<__END_OF__; __END_OF__ } else { print <<__END_OF__; __END_OF__ } if($url1) { print <<__END_OF__; __END_OF__ } else { print <<__END_OF__; __END_OF__ } print <<__END_OF__;

NO : $num1

글 쓴 이

$id1 __END_OF__ } else { print "

$id1"; } print <<__END_OF__;

__END_OF__ open(file1, "$data_directory/$num1.txt"); $text=; while($text) { print " $text
"; $text=; } close(file1); print <<__END_OF__;

글쓴시간 : $time1

__END_OF__ } # 방명록 페이지가 변경되었을때 sub show_book { local($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job); local($back, $this, $next, $page, $all_num, $show_num, $i, $data, $show_num, $show_num1, $s); local($this)=@_; ($all_num, $page)=&all_number; &head; $back = $this - 1; $next = $this + 1; &make_tool($all_num, $page, $back, $this, $next, 1); $show_num = ($this * 10)-9; $show_num1 = $this * 10; open(file, "$data_file"); for($i=1 ; $i < $show_num ; $i++) { $data = ; } for($s = $show_num ; $s <= $show_num1 ; $s++) { $data = ; if($data) { @dataArray = split(/\|/,$data); ($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job) = @dataArray; &table($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job, $this); } else { last; } } close(file); &make_tool($all_num, $page, $back, $this, $next, 0); &tail; } sub time_get { # 현재 시간을 계산하는 서브루틴 local($time1); ($Second, $Minute, $Hour, $DayOfMonth, $Month, $Year, $WeekDay, $DayOfYear, $IsDST)=localtime(time); $RealMonth = $Month + 1; @dayname=('일','월','화','수','목','금','토'); if($RealMonth<10){$RealMonth="0$RealMonth";} if($DayOfMonth<10){$DayOfMonth="0$DayOfMonth";} if($Minute<10){$Minute="0$Minute";} if($Second<10){$Second="0$Second";} if($Hour<12){$ampm="AM";} if($Hour>=12){ $Hour=$Hour-12; $ampm="PM";} $time1 = "$Year/$RealMonth/$DayOfMonth ($dayname[$WeekDay]) $ampm $Hour:$Minute:$Second"; return($time1); } sub write_form { local($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job); local($id_size, $pass_size, $hoem_size, $email_size, $cols_size); $browser = $ENV{'HTTP_USER_AGENT'}; if(($browser =~/MSIE/i) || ($browser =~/Mozilla/i)) { $id_size = 26; $pass_size = 26; $home_size = 52; $email_size = 26; $cols_size = 51; } else { $id_size = 20; $pass_size = 20; $home_size = 36; $email_size = 20; $cols_size = 35; } $ip= $ENV{'REMOTE_ADDR'}; &head; print <<__END_OF__; __END_OF__ } sub write { local($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job); local($num1, $id1, $password1, $email1, $url1, $sex1, $contact1, $ip1, $browser1, $os1, $mailing1, $time1, $job1); local($s, $data, $text); $id = $in{'name'}; $password = $in{'password'}; $email = $in{'email'}; if($in{'url'} eq "http://") { $url=""; } else { $url = $in{'url'}; } $sex = $in{'sex'}; $contact = $in{'contact'}; $ip = $in{'ip'}; $browser = $in{'browser'}; $os = "win 95"; $mailing = $in{'mailing'}; $time = &time_get; $job = $in{'job'}; $text = $in{'text'}; if(!$text) { print <<__END_OF_FORM__; 열린게시판 __END_OF_FORM__ } else { if(!$password){$password=$admin_pass;} if(!$id){$id = "손 님";} if(-z "$data_file") { $num = 1; } else { open(file, "<$data_file");# or die "Can't open file"; $data = ; @dataArray = split(/\|/,$data); ($num1, $id1, $password1, $email1, $url1, $sex1, $contact1, $ip1, $browser1, $os1, $mailing1, $time1, $job1) = @dataArray; $num1++; $num=$num1; close(file); } open(file1, "<$data_file"); # or die "Can't open file"; @data1=; close(file1); open(file2, ">$data_file") or die "Can't open file"; print file2 "$num\|$id\|$password\|$email\|$url\|$sex\|$contact\|$ip\|$browser\|$os\|$mailing\|$time\|$job\|\n"; print file2 @data1; close(file2); open(file3, ">$data_directory/$num.txt"); # or die "Can't open file"; print file3 "$text"; close(file3); &initbook; } } sub delete_form { local($del_num, $re_num, $browser2, $pass_size); &head; $del_num = $in{'m'}; $re_num = $in{'r'}; $browser2 = $ENV{'HTTP_USER_AGENT'}; if($browser =~/MSIE/i) { $pass_size = 15; } else { $pass_size = 10; } print <<__END_LINE__ __END_LINE__ } sub delete { local($del_in, $re_in, $pass_in, $data, $i); local($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job); $del_in = $in{'m'}; $re_in = $in{'r'}; $pass_in = $in{'d_pass'}; $i = 0; open(file, "$data_file"); $data = ; while(1) { $i++; @dataArray = split(/\|/,$data); ($num, $id, $password, $email, $url, $sex, $contact, $ip, $browser, $os, $mailing, $time, $job) = @dataArray; if($del_in == $num) { last; } else { $data=; } } close(file); $i--; if(($pass_in eq $password) || ($pass_in eq $admin_pass)) { open(file1, "$data_file") or die ; @data =; close(file1); splice(@data, $i, 1, ()); open(file2, ">$data_file") or die; print file2 @data; close(file2); unlink("$data_directory/$num.txt"); &show_book($re_in); } else { print <<__END_OF_FORM__; 열린게시판 __END_OF_FORM__ } }