소스에서 카운트 데이타를 저장하는 파일을 수정해 보시기 바랍니다.

hedwig wrote..
: 감사합니다 =_= 설치는 무사히 끝난 것 같은데요
: http://hedwig.byus.net/ 보시면
: 카운터가 1이시작인데요..
: cgi파일을 ㅇㅓ떻게 고쳐야 카운터시작수를 고칠수있을까요?
: 
: 다음은 카운터파일을 메모장에서 연 결과입니다.
: $your_c = &get_cookie($cookiename) + 1;
: 
: #####오늘과 어제의 연월일 취득
: $ENV{'TZ'} = 'JST-9';
: ( $sec, $min, $hour, $day, $mon, $year )      = localtime(time);
: ($sec2, $min2, $hour2, $day2, $mon2, $year2 ) = localtime(time- 24*60*60);
: 
: $mon++;
: $year += 1900;
: $today = "$year-$mon-$day\n";
: 
: $mon2++;
: $year2 += 1900;
: $yesterday = "$year2-$mon2-$day2\n";
: 
: #####연월일 비교
: if ($today ne $lastday) {
:      
:      if ($yesterday ne $lastday) {
:          $yesterday_c = 0;
:      } else {
:          $yesterday_c = $today_c;
:      }
:      $today_c = 1;
:      $lastday = $today;
: }
: 
: #####6자리수 변환
: $total_c     = sprintf("%06d", $total_c);
: $today_c     = sprintf("%06d", $today_c);
: $yesterday_c = sprintf("%06d", $yesterday_c);
: $your_c      = sprintf("%06d", $your_c);
: 
: seek(CNT, 0, 0);
: print CNT "$total_c,$yesterday_c,$today_c,$lastday\n";
: 
: &unlock_close(CNT);
: 
: #####HTTP헤더
: print "Content-type: text/plain\n";
: &set_cookie($cookiename);
: print "\n";
: 
print "cgi=$cgi&total=$total_c&yes=$yesterday_c&today=$today_c&you=$your_
: c&load=end&";
: 
: exit(0);
: 
: #####파일락 열기
: sub lock_open {
: 	local(*FILE, $name) = @_;
: 	if (!open(FILE, $name)) {
: 		print "content-type: text/plain\n\n";
: 		print "$name파일을 열 수 없습니다.\n";
: 		exit(0);
: 		}
: 	if ($uselock) {
: 		eval("flock(FILE, 2)");
: 		if ($@) {
: 			print "content-type: text/plain\n\n";
: 			print "$@이 환경에서는 flock 은 사용할 
: 수 없습니다\$uselock = 0 으로 해주세요\n";
: 			exit(0);
: 		}
: 	}
: 	seek(FILE, 0, 0);
: }
: 
: #####파일락 닫기
: sub unlock_close {
: 	local(*FILE) = @_;
: 	if ($uselock) {
: 		eval("flock(FILE, 8)");
: 		}
: 	close(FILE);
: }
: 
: #####===쿠키처리
: 
===######################################################################
: ######
: 
: #####쿠키유효기간
: sub get_cookie_date {
: 	$ENV{'TZ'} = 'JST-9';
:    	my( $csec, $cmin, $chour, $cday, $cmon, $cyear, $cwday )
: 		= localtime(time + $dday*60*60*24);
: 	my(@month) = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov 
: Dec);
: 	my(@week) = qw(Sun Mon Tue Wed Thu Fri Sat);
: 	return sprintf("%s, %d-%s-%04d %02d:%02d:%02d GMT",
: 				$week[$cwday],$cday,$month
: [$cmon+1],$cyear+1900,$chour,$cmin,$csec);
: }
: 
: #####쿠키의 출력
: sub set_cookie {
: 	local($cookiename2) = @_;
: 	$cookiedate = &get_cookie_date;
: 
: 	print "Set-Cookie: $cookiename=$your_c; expires=$cookiedate; 
: \n";
: }
: 
: #####쿠키의 취득
: sub get_cookie {
: 	local($cookiename1) = @_;
: 	@pairs = split(/; /, $ENV{'HTTP_COOKIE'});
: 	foreach $pair (@pairs) {
: 		($name, $value) = split(/=/, $pair);
: 		if ($name eq $cookiename) {
: 			return $value;
: 		}
: 	}
: 	return '';
: 
: }
: 
: 
#########################################################################
: ##########################