B / Y / U / S
HOME À¥ È£½ºÆà µµ¸ÞÀÎ ¸Å´º¾ó °í°´Áö¿ø ¼³Á¤Á¤º¸ °èÁ¤½Åû 2025-01-10 Friday 
À¥ È£½ºÆÃ
# °øÁö »çÇ×
# ÀÚÁÖ ¹¯´Â Áú¹®
# Áú¹®°ú ´äº¯
# °¡ÀÔ ¹®ÀÇ
Ä¿¹Â´ÏƼ
# ÀÚÀ¯°Ô½ÃÆÇ
# ¸®´ª½ºÆÁ
# ¾ÆÀÌÅ¥ Å×½ºÆ®
# ³»È¨ ¼Ò°³
# °Ö·¯¸®
# ÀÚ·á½Ç

  Áú¹®°ú ´äº¯
* ¸Å´º¾ó°ú ÀÚÁÖ ¹¯´Â Áú¹®À» ¸ÕÀú È®ÀÎ ÇϽðí, Áú´ä °Ô½ÃÆÇ¿¡¼­ °Ë»öÈÄ Áú¹®¹Ù¶ø´Ï´Ù.
* Áú¹®½Ã¿¡´Â ÀÚ½ÅÀÇ °èÁ¤ ¾ÆÀ̵ð¿Í ȨÁÖ¼Ò¸¦ ÇÊÈ÷ ³²°ÜÁֽñ⠹ٶø´Ï´Ù.
* ¿¡·¯·Î ÀÎÇÑ ¹®Àǽà ¿¡·¯¸Þ¼¼Áö¸¦ ÇÊÈ÷ ÇÔ²² ³²°ÜÁֽñ⠹ٶø´Ï´Ù.
* Áú´ä °Ô½ÃÆÇÀº °ø°³°Ô½ÃÆÇÀ¸·Î °èÁ¤ ºñ¹Ð¹øÈ£ Á¤º¸¸¦ ³²±â½Ã¸é ¾ÈµË´Ï´Ù.
Read Reply from No. 2575 article 2002-10-22 19:14:05
NickName   hedwig [ȨÆäÀÌÁö]
Subject   Re^2: Ç÷¡½¬Ä«¿îÅ͸¦ »ç¿ëÇغ¸·Á°í Çϴµ¥¿ä..
°¨»çÇÕ´Ï´Ù =_= ¼³Ä¡´Â ¹«»çÈ÷ ³¡³­ °Í °°Àºµ¥¿ä
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 '';

}

#########################################################################
##########################

[ °ü·Ã±Û ]


2575 Ç÷¡½¬Ä«¿îÅ͸¦ »ç¿ëÇغ¸·Á°í Çϴµ¥¿ä..  hedwig  2002.10.22  ...87 
  ´äÀå Re: Ç÷¡½¬Ä«¿îÅ͸¦ »ç¿ëÇغ¸·Á°í Çϴµ¥¿ä..  Ç®ºñ´©  2002.10.22  ...79 
  ´äÀå Re^2: Ç÷¡½¬Ä«¿îÅ͸¦ »ç¿ëÇغ¸·Á°í Çϴµ¥¿ä  hedwig  2002.10.22  ...60 
  ´äÀå Re^3: Ç÷¡½¬Ä«¿îÅ͸¦ »ç¿ëÇغ¸·Á°í Çϴµ¥  Ç®ºñ´©  2002.10.22  ...74 
  ´äÀå Re^4: °¨»çÇÕ´Ï´Ù *^¤Ñ^*  hedwig  2002.10.22  ...45 
Regist Addr [ 218.232.4.42 ] ¸ñ·Ïº¸±â À­±Û ¾Æ·§±Û ±Û¾²±â ´äÀå¾²±â ¼öÁ¤ »èÁ¦
Á¤±ÔÇ¥Çö½Ä [ »ó¼¼ °Ë»ö ]
Page Loading [ 0.25 Sec ] SQL Time [ 0.22 Sec ]

Copyleft 1999-2025 by JSBoard Open Project
Theme Designed by IDOO And follow GPL2

°³ÀÎÁ¤º¸ Ãë±Þ¹æħ ÀÌ¿ë ¾à°ü »çÀÌÆ® ¸Ê ¾îµå¹Î °ü¸®