이 페이지는 'infor.cgi' 파일에 의해서 출력되었습니다.
$UnWriteMemo
■ 메모장 활용하기
END_LINE
# 메모글 리스트 출력함
&GusetMemoPrint;
print "
\n\n
";
# 메모글 관리도구 링크 부분(admin)
&MemoAdminForm;
print <
END_LINE
exit;
#####################
#####################
#####################
#####################
# 관리자의 메모글 수정 도구 출력
sub MemoAdminForm{
if($FORM{'ADMpass'}){
if(&ch_pass("$FORM{'ADMpass'}") ne &ReadMpass){
delete $FORM{'ADMpass'};
print "비밀번호를 재 확인 하십시오 ";
}
}
if($FORM{'ADMpass'}){
@mprint = @memo;
foreach $key (@mprint) {
$key =~ s/\r//g;
$key =~ s/\n+//;
$memobody .= "$key\n";
}
$textbody =~ s/\ \;/\&\;nbsp\;/g;
print <
메모글을 수정합니다 admin]
END_LINE
}
}
# ------memo print------------------------#
sub GusetMemoPrint{
chop(@memo);
$Size = @memo;
$ManyPage = ($Size/$MemoPrint) + 1;
$ManyPage += 1 if(($ManyPage*$MemoPrint) < $size);
$StartLine = $FORM{'memonum'} ? $FORM{'memonum'} : '0' ;
$j = $StartLine+($MemoPrint-1) ;
for($StartLine..$j){
next if(!$memo[$_]);
@Memoarr = split(/\|/,$memo[$_]);
$txtnum = $Size - $_;
print "";
# 순서를 바꾸거나 추가삽입 혹은 테이블 자체를 변형해도 됨.
# 이름
print " $Memoarr[1] $Memoarr[0] $txtnum ";
print " \n";
print "[$_] \n";
}
else{
print "[$_] \n";
}
}
$GsWrName = $FORM{'name'} if($FORM{'name'});
$GsWrName = 'Name' if(!$GsWrName);
print ";
close(TODAY);
chop(@todayRT);
if($todayRT[0] eq $cc){
$zz = "$todayRT[1] /";
}else{
$zz = '';
}
open(BOARD,"$board_dir_path/$key/$indexfile");
@temparr = ;
close(BOARD);
$MANY{$key} = '['.$zz.(@temparr + 0).']' ;
undef @temparr ;
undef @todayRT ;
}
}
sub WriteExplian{
if($FORM{'comment'} && $FORM{'pass'} && $FORM{'where'}){
if(&ReadMpass eq &ch_pass("$FORM{'pass'}")){
open(Write,">$config_dir_path/infortext/$FORM{'where'}");
print Write $FORM{'comment'};
close(Write);
&permission("$config_dir_path/infortext/$FORM{'where'}");
}
else{
$ErrorMsg = ' " ERROR - Wrong password ! " ;
$readpass =~ s/\n//g;
$readpass =~ s/\r//g;
close(PASS);
$readpass = &ch_pass('technote') if(!$readpass);
return ($readpass);
}
sub ExplianOpenWindows{
$OpenWin1 = "target=\"aa\" onClick=\"NewWindows('1')\"";
$OpenWin2 = "target=\"bb\" onClick=\"NewWindows('2')\"";
}
sub ReadMemoText{
$cooname = $scripimport.'GssMo';
&lock;
open(READ,"$config_dir_path/infortext/guestmemo.txt");
@memo = ;
close(READ);
$FORM{'memo'} =~ s/\s+/ /g;
$FORM{'name'} =~ s/\s+//g;
$CooDay = $timeday[3].$timeday[2];
&GetCooKie;
if($FORM{'memo'} && $FORM{'name'} && ($FORM{'memo'} ne 'Comments') && ($FORM{'name'} ne 'Name')){
unless($Wnum < $Writecut){
&unlock;
$UnWriteMemo = '연속쓰기 허용횟수 초과 ! ';
return;
}
if(((length($FORM{'memo'})) < 80) && ((length($FORM{'name'})) < 15)){
$mon = $timeday[4]+1 ;
@week = ('일','월','화','수','목','금','토','일');
$timeday[2] = '0'.$timeday[2] if($timeday[2] < 10);
$timeday[1] = '0'.$timeday[1] if($timeday[1] < 10);
$readdate = "$mon/$timeday[3]\[$week[$timeday[6]]\] $timeday[2]:$timeday[1]";
foreach $key (@del_x_word) {
$FORM{'memo'} =~ s/$key/xx/g;
$FORM{'name'} =~ s/$key/xx/g;
}
if($HtmlMemo eq 'Y'){
$FORM{'memo'} =~ s/script//gi;
$FORM{'name'}=~ s/script//gi;
}
else{
$FORM{'memo'} =~ s/$config_dir_path/infortext/guestmemo.txt");
print PRINT @memo2;
close(PRINT);
chmod(0777,"$config_dir_path/infortext/guestmemo.txt");
}
print "Set-Cookie: $cooname=$FORM{'name'}|$Wnum|$CooDay \n";
}
}
&unlock;
}
sub GetCooKie{
@cookies = split(/; /, $ENV{'HTTP_COOKIE'});
foreach $key (@cookies) {$key =~ /([^=]*)=(.*)/; $COOKIE{$1} = $2;}
# foreach (@cookies) {
# ($m_name, $m_value) = split(/=/, $_);
# $COOKIE{$m_name} = $m_value;
# }
($GsWrName,$Wnum,$NotWr) = split(/\|/,"$COOKIE{$cooname}");
if($CooDay == $NotWr){
$Wnum += '1';
}else{
$Wnum = '0';
}
}
sub lock{
$Nowtime = time+20;
while (-e "$config_dir_path/infortext/lock" && (time < $Nowtime)) {
sleep(1);
}
open(LOCK, ">$config_dir_path/infortext/lock");
close(LOCK);
}
sub unlock{
unlink("$config_dir_path/infortext/lock");
}
1;
";
# [2] 홈 버튼의 링크 url
$homeiconlink = 'http://www.technote.co.kr';
# [3] 메모글 전체 저장 라인수(파일)
$MemoSave = '200' ;
# [4] 메모글 페이지당 출력 라인수(화면)
$MemoPrint = '15';
# [5] 메모글에 html 태그 허용여부 'Y' or 'N'
$HtmlMemo = 'N';
# [6] 메모글 연속쓰기 제한()
$Writecut = '10';
# [7] 보드별 게시물수를 읽어들일 것인가를 지정.
# 각 BOARD의 등록된 게시물의 갯수를 표시 할 필요가 없을때는
# 아래에 'N' 를 지정하여 불필요한 동작을 않게 할것
$CountMany = 'Y';
&parse;
&ReadBoardIndex;
&WriteExplian;
&ExplianOpenWindows;
&ReadMemoText;
print "Content-type: text/html\n\n";
print <![\"$Memoarr[3]\"]($img_dir_url/subjecticon/5/polg1.gif)
$Memoarr[2]