|
picbbs아시죠?
밑은 post.cgi입니다.
이건 picbbs(오에카키?라쿠카키?)에서 그림을 저장하면 처리해주는
파일인데요..
파일이름을 사용자 임의로 지정할수 있도록 도와주세요.
부탁드립니다.
#!/usr/bin/perl
# 설치할 서버의 펄 경로.
#-DON
T REMOVE>>-----------------------------------------------------
# Picuture BBS - Read PNG File Program ($Revision: 1.1 $)
# Copyright (C) Yasuo OHNO , 2000
# All rights reserved.
# 상세한 사용 조건·사용 방법등은 아래의 사이트를 참조하십시오．
# - SCENERY AND FISH - http://www16.cds.ne.jp/~ohno/
# - 픽삐비에쑤 - http://picbbs.com (한글판 배포사이트)
#-----------------------------------------------------<< DON
T REMOVE -
#----------------------------------------------------------------------
# 정수
#----------------------------------------------------------------------
# 에러 코드
$ERR_FATAL =
000
;
$ERR_LOCK =
001
;
$ERR_BUSY =
002
;
$ERR_PNGSIZE =
003
;
$ERR_MSGSIZE =
004
;
$ERR_PASSWORD =
005
;
$ERR_PERM =
006
;
#----------------------------------------------------------------------
# 초기화
#----------------------------------------------------------------------
$maketemp = 0;
#----------------------------------------------------------------------
# main
#----------------------------------------------------------------------
# 설정 파일의 읽기
require
config.cgi
;
binmode(STDIN);
_putappheader();
# POST 하여 오는 호스트의 확인
if (! _checkhost()) {
nack($ERR_PERM);
}
$content_length = $ENV{
CONTENT_LENGTH
};
if ($content_length < 8) {
nack($ERR_FATAL);
}
if (read(STDIN, $ext, 3) != 3) {
nack($ERR_FATAL);
}
$content_length -= 3;
if (read(STDIN, $pngsize, 8) != 8) {
nack($ERR_FATAL);
}
$content_length -= 8;
$pngsize = int($pngsize);
if ($pngsize > $g_pngmax) {
nack($ERR_PNGSIZE);
}
if (($content_length - $pngsize) > $g_msgmax) {
nack($ERR_MSGSIZE);
}
if ($pngsize > $content_length) {
nack($ERR_FATAL);
}
if (! _lock()) {
nack($ERR_LOCK);
}
$pngtemp = _gettemporarily();
_unlock();
if (! receive_png_file($pngtemp, $pngsize)) {
nack($ERR_FATAL);
}
$content_length -= $pngsize;
binmode(STDIN);
if (! _parseform($content_length)) {
nack($ERR_FATAL);
}
# 입력치의 확인
if ($FORM{
PASSWORD
} eq
) {
nack($ERR_PASSWORD);
}
if (! _lock()) {
nack($ERR_LOCK);
}
# 읽기 측 오픈
if (! open(LOGIN, $g_logfile)) {
nack($ERR_FATAL);
}
# 쓰기 측 오픈
if (! open(LOGOUT,
>
. $g_logtemp)) {
nack($ERR_FATAL);
}
# 헤더 읽기
$in = ;
chomp($in);
($nextbase, $nextpng) = split(/ /, $in);
if ($nextbase == 0 || $nextpng == 0) {
nack($ERR_FATAL);
}
# 헤더 쓰기
$basenum = $nextbase++;
$pngfile = sprintf("%d." . $ext, $nextpng++);
$password= _crypt($FORM{
PASSWORD
});
$timestr = _gettimestr(_time());
$remote = _getremoteaddress();
print LOGOUT $nextbase . " " . $nextpng . "
";
# picture 행의 기입
print LOGOUT "${basenum} 0 ${pngfile} 0 ${password} ${remote} ${timestr}
";
# 읽기 쓰기 루프
$count = 1;
READWRITE_LOOP: while () {
($current) = split(/ /, $_);
if ($basenum != $current) {
$basenum = $current;
$count++;
if ($count > $g_logmax) {
last READWRITE_LOOP;
}
}
print LOGOUT $_;
}
close(LOGOUT);
# PNG 파일 소거 루프
if ($count > $g_logmax) {
do {
($basenum, $mode, $removefile) = split(/ /, $_);
if ($basenum != 0 && $mode == 0) {
unlink "$g_pngwdir/$removefile";
}
} while ();
}
close(LOGIN);
if (! rename($g_logtemp, $g_logfile)) {
sleep(1);
if (! rename($g_logtemp, $g_logfile)) {
# 여기에서 실패하면 오래된 그림을 지운다. 로그는 남음.
nack($ERR_FATAL);
}
}
if (! rename($pngtemp, $g_pngwdir .
/
. $pngfile)) {
sleep(1);
if (! rename($pngtemp, $g_pngwdir .
/
. $pngfile)) {
# 여기에서 실패한다면 그림은 할수 없고 그림의 기사만 할수 있음.
nack($ERR_FATAL);
}
}
_unlock();
print "ACK
";
exit 0;
#----------------------------------------------------------------------
# 에러 종료
#----------------------------------------------------------------------
# argument:
# 0 - 에러 코드
sub nack {
remove_tempfile();
_unlock();
print "NACK $_[0]
";
exit 0;
}
#----------------------------------------------------------------------
# PNG 파일의 수신
#----------------------------------------------------------------------
# argument:
# 0:$filename - 파일 이름
# 1:$size - 파일 사이즈
sub receive_png_file {
# my $filename = $_[0];
my $filename = $_[0];
my $size = $_[1];
my $buffer;
if (! open(TEMPOUT, ">$filename")) {
return 0;
}
binmode(TEMPOUT);
$maketemp = 1;
$tempfile = $filename;
while ($size > 0) {
# 읽기 사이즈의 결정
if ($size > 4096) {
$readsize = 4096;
}
else {
$readsize = $size;
}
# 읽기
if (read(STDIN, $buffer, $readsize) != $readsize) {
close(TEMPOUT);
return 0;
}
$size -= $readsize;
# 쓰기
if (! print TEMPOUT $buffer) {
close(TEMPOUT);
return 0;
}
}
close(TEMPOUT);
return 1;
}
#----------------------------------------------------------------------
# 임시 파일의 후 처리
#----------------------------------------------------------------------
# memo:
# 임시 파일이 작성되고 있다면 삭제합니다．
sub remove_tempfile {
if ($maketemp) {
unlink $tempfile;
$maketemp = 0;
}
}
#----------------------------------------------------------------------
# 종료 루틴
#----------------------------------------------------------------------
END {
remove_tempfile();
}
혹시 필요할까봐 config.cgi도 넣습니다.
#-DON
T REMOVE>>-----------------------------------------------------
# Picuture BBS - Read PNG File Program ($Revision: 1.1 $)
# Copyright (C) Yasuo OHNO , 2000
# All rights reserved.
# 상세한 사용 조건·사용 방법등은 아래의 사이트를 참조하십시오．
# - SCENERY AND FISH - http://www16.cds.ne.jp/~ohno/
# - 픽삐비에쑤 - http://picbbs.com (한글판 배포사이트)
#-----------------------------------------------------<< DON
T REMOVE -
#----------------------------------------------------------------------
# 필수 설정 항목
#----------------------------------------------------------------------
# memo:
# 이 아래의 설정은 반드시 설치한 환경에 맞춰 설정해 찾아 오고 찢고．
# 홈으로 버튼을 눌렀을 때의 URL
$g_returnurl =
../../index.htm
;
#----------------------------------------------------------------------
# 환경 설정(이부분이 많이 달라졌습니당~^^)
#----------------------------------------------------------------------
# memo:
# 설정 항목중 환경 관계의 설정 값입니다．
# 기호에 맞춰 설정하십시오．
# 게시판의 타이틀
$g_title = "";
# 게시판 타이틀의 그래픽
# 필요가 없는 경우는 ，
으로 그냥 두세요^^.
$g_titlegraphic =
; # 타이틀 그림의 URL
$g_titlegwidth =
; # 타이틀 그림의 가로폭(예:300픽셀=300으로 표기)
$g_titlegheight =
; # 타이틀 그림의 세로폭
# 게시판의 상단에 들어갈 문구
# 보통의 경우.
$g_topmessage = <<_EOS;
그릴거야? <(-_-)/ 그리고 돌아오면 F5를 꾸욱! 눌러서 갱신을!
--------------------------------------------------------------------------------
_EOS
# 게시판의 색
$g_bgcolor = "white"; # 배경 색
$g_titlebg = "white"; # 작가 코멘트의 타이틀의 배경 색
$g_titlefg = "#aaaaaa"; # 작가 코멘트의 타이틀의 문자 색
$g_commentbg = "white"; # 코멘트의 타이틀의 배경 색
$g_commentfg = "#aaaaaa"; # 코멘트의 타이틀의 문자 색
$g_textcolor = "#aaaaaa"; # 코멘트의 문자 색
$g_linkcolor = "#cccccc"; # 링크의 색
$g_vlinkcolor= "#cccccc"; # 링크의 색
$g_alinkcolor= "#cccccc"; # 링크의 색
$g_headercolor="#cccccc"; # 그림의 헤더의 색
# 게시판의 배경 이미지의 URL
# 필요가 없는 경우는 ，
으로 두세요^^
$g_bggraphic1 =
; # 게시판 열람 화면
$g_bggraphic2 =
; # 코멘트 기입 화면
$g_bggraphic3 =
; # 그리기 화면
# 애플릿의 색
# 그림을 그리는 애플릿의 윈도우의 색이라든가 배경색을 지정합니다．
$g_appcolor = "white"; # 작업 지역의 색
$g_captioncolor = "#aaaaaa"; # 프레임의 바의 색
$g_windowcolor = "#efefef"; # 윈도우의 색
# 애플릿의 사이즈
# 너무 크게 한다면 리소스를 지나치게 쓰고 동작이 불안정하게 되거나 합니다
# 설정을 변경한 경우는 신중히．
$g_appwidth = 600; # 가로 나비
$g_appheight= 400; # 종폭
# IP address의 표시
# 0 - IP address를 일체 표시하지 않다(로그에는 기록됩니다)
# 1 - IP address를 코멘트에서 HTML에 넣다(
소스보기
하면 보입니다)
# 2 - IP address를 표시합니다
$g_viewaddress = 1;
# １ 페이지에 표시한 그림의 매수
# 그다지(너무) 큰 수치를 지정한다면 표시가 늦어지기때문에 가능한 한 적게 잡아 주세요．
$g_pagemax = 8;
# 그림의 사이즈로서 허용한 사이즈
# 선두의 값이 디폴트로 설정된 사이즈입니다．
@g_picwidth = (
300
,
100
,
200
,
300
,
400
);
@g_picheight = (
300
,
100
,
200
,
300
,
400
);
#----------------------------------------------------------------------
# 기본 설정
#----------------------------------------------------------------------
# memo:
# 기본적인 설정 항목입니다．적당히 변경하십시오．
# jcode.pl 의 경로
$g_jcode =
./jcode.pl
;
# 최대 로그 수
# 최대로 몇 건의 로그를 남겨 두는지를 지정합니다．
# 이것에는 기입에 대한 코멘트는 포함되지 않습니다．
# 이것을 넘어간 부분은 그림·코멘트 동시에 삭제됩니다．
$g_logmax = 40;
# 최대 메시지 사이즈
# 너무 긴 코멘트를 접수하고 싶지 않는 경우는 이것을 조절하십시오．
$g_msgmax = 4096;
# 최대 화상 투고 사이즈
# 투고시에 접수한 화상 파일(PNG)의 최대 사이즈입니다．
$g_pngmax = 270057;
# 디폴트로 JPEG 스위치를 ON으로 함
# 이 값을 true 로부터 false 로 변경한다면 디폴트로 JPEG 스위치가
# OFF가 되어，반드시 PNG 형식으로 세이브됩니다．
$g_usejpeg =
true
;
# 코멘트를 붙일때 타이틀 입력란 감추기(그냥 이름과 의견만 출력...)
# 이 값을 0 으로 하면 ，코멘트를 붙일 때에 타이틀 입력난이 출력되지 않게 됩니다.
$g_usecommenttitle = 1;
# 코멘트의 타이틀을 필수입력하게 하기
# 이 값을 1로 하면 ，코멘트를 붙일 때에 타이틀이 필수항목이 됩니다．
$g_needcommenttitle = 0;
# lock 의 방법
# 0 ... symlink/unlink
# 1 ... mkdir/rmdir
# 2 ... flock(추천)
# flock 이(가) 사용할 수 있는 서버로는 2 을(를) 지정
# symlink 이(가) 사용할 수 없는 서버로는 1 을(를) 지정．
# 주의：설치후에 이 값을 변경한 경우는 ，data 디렉토리속의
# lock 이라는 파일을 삭제하고 나서 변경한 것！
$g_lockmethod = 2;
# lock 을(를) 시도해 보는 회수
$g_trylock = 3;
# JavaARchive 을(를) 두는 디렉토리
$g_codebase = "./";
# JavaARchive 의 이름
$g_jarfile = "PicApp.jar";
# 화상 투고후에 이동할 때의 타겟
$g_movetarget = "_self";
# 그림이나 로그 데이터를 두는 디렉토리
# 통상 전부 동일하게 해 주십시오．
$g_datadir =
data
; # log.cgi lock 을(를) 기입한 장소
$g_pngrdir =
data
; # IMG 태그로 지정하는 png의 디렉토리
$g_pngwdir =
data
; # post.cgi 가 기입하는 png의 디렉토리
# 록 파일
$g_lockfile = "${g_datadir}/lock";
# png 파일의 temp파일 이름
$g_pngtempform = "${g_pngwdir}/png%d.tmp";
# log 파일과 templog파일
$g_logfile = "${g_datadir}/log.cgi";
$g_logtemp = "${g_datadir}/logtmp.cgi";
# 관리자 패스 워드 파일
$g_passfile = "admpwd.cgi";
# 쿠키를 디폴트로 사용하도록 합니다．
$g_cookiedefaultuse = 1;
# CGI 파일의 패스
# 복수의 게시판을 설치하고 있고 cookie를 공용하고 싶은 경우에 설정을 변경하십시오．
# 통상，_basepath() 로 자동적으로 설정됩니다．
# ex)
# $g_cookiepath =
/~myid/cgi-bin/picbbs
;
$g_cookiepath = _basepath();
# 쿠키의 이름
$g_cookiename =
bykal_com_PicBBS
;
# 쿠키로 기억한 폼의 명칭
@g_cookies = (
NAME
,
URL
,
MAIL
,
PASSWORD
,
USECOOKIE
);
# 쿠키의 유효 기간
# 일수에 지정합니다．10 이라면 10일간 유효
$g_cookieexpires = 10;
# 해외 서버로 localtime에 일본과 오차가 있는 서버의 경우에 설정하다
# -9시 사이라면 9 * 60 * 60 = 32400
$g_tz = 0;
# 신규 작성된 파일의 허가 MASK
# 작성된 파일이 nobody:nobody 되다 0000
# 작성된 파일이 nobody: 되다 0002
# 작성된 파일이 : 되다 0022
# 위의 ３ 종류의 설정의 어느 것이라도 운용은 가능합니다．
# 보안을 조금이라도 향상시키고 싶은 경우 0022 서쪽과 주세요．
# 단, 그 경우 게시판을 삭제한 때에 문제로 될 가능성이 있습니다．
$g_umask = 0000;
# 매뉴얼의 URL
$g_manurl =
http://ezgraphics.net/manual.htm
;
# 동작 환경의 URL
$g_infourl =
http://ezgraphics.net/info.htm
;
#----------------------------------------------------------------------
# 상황
#----------------------------------------------------------------------
# 헤더 출력 끝나고 플래그
$g_header = 0;
# 록 끝나고 플래그
$g_locked = 0;
#----------------------------------------------------------------------
# 초기화
#----------------------------------------------------------------------
require $g_jcode;
umask $g_umask;
return 1;
#----------------------------------------------------------------------
# 공통 서브루틴
#----------------------------------------------------------------------
# 리모트 호스트의 확인
#----------------------------------------------------------------------
# return:
# 1 이면 투고 가능．0 이면 투고 불가능．
# memo:
# 어떤 이유로 그림투고를 막고 싶은 경우에 사용합니다．
# 게시판을 엉망으로 한다거나 로그이상의 게시판 보존시에...
sub _checkhost {
## 지정한 URL 이외에서의 투고의 금지
# if ($ENV{
HTTP_REFERER
} ne
http://www.server.com/~me/picbbs/write.html
) {
# return 0;
# }
## 지정한 호스트로부터의 투고의 금지
# my $ip = _getremoteaddress();
# if ($ip =~ /^192.168.1./) {
# return 0;
# }
# if ($ip =~ /provider.ne.jp$/) {
# return 0;
# }
return 1;
}
#----------------------------------------------------------------------
# 관리 모드 리모트 호스트의 확인
#----------------------------------------------------------------------
# return:
# 1 이면 관리 모드 사용 가능．0 이면 관리 모드 사용 불가능．
# memo:
# 관리 모드하는 호스트의 체크를 합니다．
# 보안상 관리모드를 할 수 있는 호스트를 제한합니다．
# 가능하면 관리자가 액세스할 가능성이 있는 호스트만 허가하세요.
sub _admcheckhost {
## 지정한 URL 이외에서의 관리 모드 사용의 금지
# if ($ENV{
HTTP_REFERER
} ne
http://www.server.com/~me/picbbs/write.html
) {
# return 0;
# }
## 지정한 호스트로부터의 관리 모드 사용의 금지
# my $ip = _getremoteaddress();
# if ($ip =~ /^192.168.1./) {
# return 0;
# }
# if ($ip =~ /provider.ne.jp$/) {
# return 0;
# }
return 1;
}
#----------------------------------------------------------------------
# 리모트 호스트의 취득
#----------------------------------------------------------------------
# return:
# 액세스된 호스트의 취득
# memo:
# 기록된 address의 취득
sub _getremoteaddress {
my $result;
# REMOTE_HOST 의 기록
if ($ENV{
REMOTE_HOST
} eq
) {
$result = $ENV{
REMOTE_ADDR
};
} else {
$result = $ENV{
REMOTE_HOST
};
}
# gethostbyaddress 을 사용하고 호스트 이름을 구하고 그것을 기록
if ($result eq $ENV{
REMOTE_ADDR
}) {
$result = gethostbyaddr(pack(
C4
,split(/./,$result)),2) || $ENV{
REMOTE_ADDR
};
}
# PROXY 의 최종 전송처를 추가
if ($ENV{
HTTP_X_FORWARDED_FOR
} ne
) {
$result .=
-
. $ENV{
HTTP_X_FORWARDED_FOR
};
}
return $result;
}
#----------------------------------------------------------------------
# remote address 의 출력
#----------------------------------------------------------------------
# argument:
# 0:$remote - remote address
sub _putremoteaddress {
my $remote = $_[0];
if ($g_viewaddress == 1) {
_printsjis("");
} elsif ($g_viewaddress == 2) {
_printsjis("${remote}");
}
}
#----------------------------------------------------------------------
# HTML 헤더의 출력
#----------------------------------------------------------------------
# memo:
# HTML 의 헤더를 출력합니다．
sub _puthtmlheader {
if (! $g_header) {
print "Content-type: text/html; charset=euc-kr
";
$g_header = 1;
}
}
#----------------------------------------------------------------------
# text/plain 헤더의 출력
#----------------------------------------------------------------------
# memo:
# 텍스트 타입의 헤더를 출력합니다．
sub _puttextheader {
if (! $g_header) {
print "Content-type: text/plain
";
$g_header = 1;
}
}
#----------------------------------------------------------------------
# application/octet-stream 헤더의 출력
#----------------------------------------------------------------------
# memo:
# 텍스트 타입의 헤더를 출력합니다．
sub _putappheader {
if (! $g_header) {
print "Content-type: application/octet-stream
";
$g_header = 1;
}
}
#----------------------------------------------------------------------
# 다른 페이지로 갑니다.
#----------------------------------------------------------------------
# argument:
# 0:$url - 로케이션
sub _location {
my $url = $_[0];
if (! $g_header) {
print "Location: $url
";
} else {
_printsjis("이곳으로이동해 주세요
");
}
}
#----------------------------------------------------------------------
# 에러 종료
#----------------------------------------------------------------------
# argument:
# 0:$errtitle - 에러 표시의 타이틀
# 1:$errmessage - 에러 표시
# memo:
# 에러 출력후에 exit 합니다．
sub _errorend {
my ($errtitle, $errmessage) = @_;
_unlock();
_puthtmlheader();
_printsjis("
");
_printsjis("
$errtitle
");
_printsjis($errmessage);
_printsjis("
");
exit 0;
}
#----------------------------------------------------------------------
# 시각의 취득
#----------------------------------------------------------------------
# return:
# GMT 로부터의 경과 초수
# memo:
# $g_tz 에 의하여 시차를 보정합니다．
sub _time {
return time() - $g_tz;
}
#----------------------------------------------------------------------
# 표시용의 시각 문자열의 취득
#----------------------------------------------------------------------
# argument:
# 0 - GMT로부터의 경과 초수
# return:
# 시각의 문자 열
sub _gettimestr {
my (@weekday) = (
일
,
월
,
화
,
수
,
목
,
금
,
토
);
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($_[0]);
return sprintf("%02d/%02d(%s)%02d:%02d:", $mon +1, $mday, $weekday[$wday], $hour, $min,);
}
#----------------------------------------------------------------------
# CGI의 베이스 패스의 취득
#----------------------------------------------------------------------
# return:
# 이 CGI의 베이스 패스
sub _basepath {
my ($result);
$result = $ENV{
SCRIPT_NAME
};
$result =~ s/[^/]*$//;
return $result;
}
#----------------------------------------------------------------------
# HTML 문자열의 처리
#----------------------------------------------------------------------
# argument:
# 0 - 대상 문자 열
# return:
# 특수한 문자를 대치하거나 삭제하거나 합니다．
sub _escapehtml {
my ($result) = $_[0];
$result =~ s/&/&/g;
$result =~ s/"/"/g; # ";
$result =~ s/ $result =~ s/>/>/g;
$result =~ s/
//g;
$result =~ s/
/
/g;
$result =~ s/ //g;
return $result;
}
#----------------------------------------------------------------------
# 폼의 전개
#----------------------------------------------------------------------
# argument:
# 0:$len - 투고된 문자 수
# global reference:
# FORM - FORM
# memo:
# 지정된 바이트 수 STDIN 로부터 읽어내고 FORM에 전개합니다．
sub _parseform {
my ($buffer, @pairs, $name, $value, $len);
$len = $_[0];
if ($len != 0) {
if (read(STDIN, $buffer, $len) != $len) {
return 0;
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = jcode::euc($value);
}
}
return 1;
}
#----------------------------------------------------------------------
# QUERY 문자열의 전개
#----------------------------------------------------------------------
# global reference:
# FORM - FORM
# memo:
# QUERY 문자열을 FORM에 전개합니다．
sub _parsequery {
my (@pairs, $name, $value);
@pairs = split(/&/, $ENV{
QUERY_STRING
});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = jcode::euc($value);
}
return 1;
}
#----------------------------------------------------------------------
# 쿠키의 전개
#----------------------------------------------------------------------
# global reference:
# $g_cookiename - 쿠키의 이름
# COOKIE - 쿠키
# memo:
# 쿠키를 취득하고 COOKIE에 전개합니다．
sub _parsecookie {
my ($line, $name, $value, $pair);
foreach $line (split(/; /, $ENV{
HTTP_COOKIE
})) {
($name, $value) = split(/=/, $line, 2);
if ($name eq $g_cookiename) {
foreach $pair (split(/,/, $value)) {
($name, $value) = split(/:/, $pair, 2);
$COOKIE{$name} = _unescapecookie($value);
}
last;
}
}
}
sub _unescapecookie
{
my ($result) = $_[0];
$result=~ s/#3/;/g;
$result=~ s/#2/:/g;
$result=~ s/#1/,/g;
$result=~ s/# /#/g;
$result = jcode::euc($result);
return $result;
}
#----------------------------------------------------------------------
# Set-Cookie 헤더의 송신
#----------------------------------------------------------------------
# global reference:
# $g_cookiename - 쿠키의 이름
# $g_cookiepath - 쿠키를 송신한 패스
# $g_cookieexpires - 쿠키의 유효 기간 일수
# COOKIE - 쿠키
# FORM - 폼
sub _setcookie {
if ($FORM{
USECOOKIE
} eq
remove
) {
print "Set-Cookie: ${g_cookiename}=; path=${g_cookiepath}
";
}
if ($FORM{
USECOOKIE
} eq
use
) {
foreach my $c (@g_cookies) {
if (defined($FORM{$c})) {
$COOKIE{$c} = $FORM{$c};
}
}
print "Set-Cookie: " . _makecookie() . "
";
}
}
sub _makecookie {
my ($result, $value, @keyval, $len, $key, $val);
@keyval = %COOKIE;
$len = @keyval;
if ($len < 2) {
return;
}
$val = pop(@keyval);
$key = pop(@keyval);
$value = $key .
:
. _escapecookie($val);
my ($i);
for ($i = 2; $i < $len; $i += 2) {
$val = pop(@keyval);
$key = pop(@keyval);
$value .=
,
. $key .
:
. _escapecookie($val);
}
my $expires;
$expires = time() + $g_cookieexpires * 24 * 60 * 60;
$result = $g_cookiename .
=
. $value .
; expires=
. makeRFC1123($expires) .
; path=
. $g_cookiepath;
return $result;
}
sub _escapecookie
{
my ($result) = jcode::sjis($_[0]);
$result =~ s/#/# /g;
$result =~ s/,/#1/g;
$result =~ s/:/#2/g;
$result =~ s/;/#3/g;
return $result;
}
#----------------------------------------------------------------------
# 일자 문자열의 취득
#----------------------------------------------------------------------
# argument:
# 0 - GMT 로부터의 경과 초수
# return:
# RFC 822(RFC 1123로 갱신) 로 정의된 시각 문자열을 돌려 준다．
sub makeRFC1123 {
my (@exp) = gmtime($_[0]);
$exp[6] = (
Sun
,
Mon
,
Tue
,
Wed
,
Thu
,
Fri
,
Sat
)[$exp[6]];
$exp[4] = (
Jan
,
Feb
,
Mar
,
Apr
,
May
,
Jun
,
Jul
,
Aug
,
Sep
,
Oct
,
Nov
,
Dec
)[$exp[4]];
$exp[5] += 1900;
return sprintf("%s, %02d %s %4d %02d:%02d:%02d GMT",
$exp[6], $exp[3], $exp[4], $exp[5],
$exp[2], $exp[1], $exp[0]);
}
#----------------------------------------------------------------------
# 암호화 루틴
#----------------------------------------------------------------------
# argument:
# 0 - 암호 변하고 있지 않는 패스 워드
# return:
# 암호 화제의 패스 워드
# memo:
# salt 를 랜덤하게 선택하고 패스 워드를 암호화 합니다．
sub _crypt {
my (@saltchar) = (
a
..
z
,
A
..
Z
,
0
..
9
,
.
,
/
);
my $salt = ($$ * time() + int(rand(4096))) % 4096;
$salt = $saltchar[int($salt / 64)] . $saltchar[$salt % 64];
return crypt($_[0], $salt);
}
#----------------------------------------------------------------------
# 패스 워드의 확인
#----------------------------------------------------------------------
# argument:
# 0:$plain - 암호 화전의 패스 워드
# 1:$pass - 암호 화제의 패스 워드
# return:
# 패스 워드가 일치하면 1, 불일치라면 0
sub _auth {
my ($plain, $pass) = @_;
my $salt;
if ($pass =~ /^$1$/) {
$salt = substr($pass, 3, 2);
}
else {
$salt = substr($pass, 0, 2);
}
return (crypt($plain, $salt) eq $pass);
}
#----------------------------------------------------------------------
# 관리인 패스 워드의 취득
#----------------------------------------------------------------------
# global reference:
# $g_adminpass - 관리인 패스 워드
# $g_passfile - 관리인 패스 워드 파일
# return:
# 취득된 관리인 패스 워드
# memo:
# 아직 읽히고 있지 않다
sub _adminpass {
if (! defined($g_adminpass)) {
if (open(_IN, $g_passfile)) {
$g_adminpass = <_IN>;
chomp($g_adminpass);
close(_IN);
}
}
return $g_adminpass;
}
#----------------------------------------------------------------------
# 한때 파일 이름의 작성
#----------------------------------------------------------------------
# global reference:
# $g_pngtempform - PNG 한때 파일의 포맷
# return:
# 작성된 임시 파일 이름．lock 중에 불러내는 것으로 단일파일
# 이름인 것이 보증됩니다．
sub _gettemporarily {
my $num = int(rand(100));
my $result;
for (my $i = 0; $i < 10; $i++) {
$num = ($num + 63) % 100;
$result = sprintf($g_pngtempform, $num);
if (! -e $result) {
last;
}
}
if (-e $result) {
$result = undef;
}
return $result;
}
#----------------------------------------------------------------------
# lock의 취득
#----------------------------------------------------------------------
# global reference:
# $g_locked <-> lock 상태
# $g_lockmethod -> lock의 방법
# $g_trylock -> lock을 시도해 보는 회수
# $g_lockfile -> lock 파일
# return:
# lock에 성공하면 1, 실패하면 0
sub _lock {
if (! $g_locked) {
my $tries = 0;
while ($tries++ <= $g_trylock) {
if ($g_lockmethod == 0) {
$g_locked = _lock1();
}
elsif ($g_lockmethod == 1) {
$g_locked = _lock2();
}
elsif ($g_lockmethod == 2) {
$g_locked = _lock3();
}
if ($g_locked) {
last;
}
sleep(2);
}
}
return $g_locked;
}
sub _lock1 {
return symlink(
dummy
, $g_lockfile);
}
sub _lock2 {
return mkdir($g_lockfile, 0777);
}
sub _lock3 {
if (! open(G_HLOCK,
>>
. $g_lockfile)) {
return 0;
}
# if (flock(G_HLOCK, LOCK_EX|LOCK_NB)) {
if (flock(G_HLOCK, 6)) {
return 1;
} else {
close(G_HLOCK);
return 0;
}
}
#----------------------------------------------------------------------
# lock의 해방
#----------------------------------------------------------------------
# global reference:
# $g_locked <-> lock 상태
# $g_lockmethod -> lock의 방법
# $g_trylock -> 언lock를 시도해 보는 회수
# return:
# lock에 성공하면 1, 실패하면 0
sub _unlock {
if ($g_locked) {
my $tries = 0;
my $result;
while ($tries++ <= $g_trylock) {
if ($g_lockmethod == 0) {
$result = _unlock1();
}
elsif ($g_lockmethod == 1) {
$result = _unlock2();
}
elsif ($g_lockmethod == 2) {
$result = _unlock3();
}
if ($result) {
$g_locked = 0;
last;
}
select undef, undef, undef, 0.2;
}
}
}
sub _unlock1 {
return unlink($g_lockfile);
}
sub _unlock2 {
return rmdir($g_lockfile);
}
sub _unlock3 {
#flock(G_HLOCK, LOCK_UN);
flock(G_HLOCK, 8);
return close(G_HLOCK);
}
#----------------------------------------------------------------------
# lock 상태의 취득
#----------------------------------------------------------------------
# global reference:
# $g_locked <-> lock 상태
# return:
# lock에 성공하면 1, 실패하면 0
sub _islocked {
return $g_locked;
}
#----------------------------------------------------------------------
# 디버그 로그의 기입
#----------------------------------------------------------------------
sub _debug {
open(_DEBUGOUT, ">>debug.log");
print _DEBUGOUT @_;
close(_DEBUGOUT);
}
sub _access {
open(_ACCESSOUT, ">>access.log");
print _ACCESSOUT $_[0] .
:
. time() .
:
. $ENV{
REMOTE_ADDR
} .
:
. _getremoteaddress() .
:
. $ENV{
HTTP_USER_AGENT
} .
:
. $COOKIE{
NAME
} . "
";
close(_ACCESSOUT);
}
#----------------------------------------------------------------------
# SJIS로의 출력 루틴
#----------------------------------------------------------------------
# memo:
# 복수의 패러미터를 준 경우，각 패러미터 사이에는 스페이스가 삽입되고
# 입니다．
sub _printsjis {
print @_[0];
}
#----------------------------------------------------------------------
# 종료 루틴
#----------------------------------------------------------------------
# memo:
# lock되었던 상태라면 unlock 합니다．
END {
_unlock();
}
|
109
1,032
2001-03-07 23:47:20
닉네임
