|
안냥하세요...
또 질문이 있눈데요....
크론으로 디비를 업뎃하려고 합니다..
디비는 업댓이 잘 되는데.. 업댓할 로그화일을 만드려고 하는데
화일쓰기가 안되는군요... 직접 쉘상에서 실행시키면 되는데..
크론으로 돌린경우는 화일에다 쓰기가 안되네욤...
소스는 다음과 같습니다아~~~
#!/usr/bin/perl
#####디비 접속하기
use DBI;
$dbh = DBI->connect(
DBI:mysql:test:localhost
,
root
,
rhkdvkakstp
);
############################################################
#####화일 열어서 지금 시간이랑 집어넣기..
$time = localtime(time());
$filename = &get_filename;
if(-e "$filename") {
open(fh,">>$filename");
} else {
open(fh,">$filename");
}
flock(fh,2);
print fh "
지금 시각은 ",$time," 광파표 디비 업댓시작..
";
flock(fh,8);
close(fh);
############################################################
#####짐부터 시이작~~~~~
$que = "select * from test";
$result = $dbh->prepare($que);
$result->execute;
$num = $result->rows;
for($i=0;$i<$num;$i ) {
@temp = $result->fetchrow_array;
$time = time();
if($temp[2] < $time) {
&update(@temp);
}
}
exit;
############################################################
############################################################
#
#서부루틴
#
sub get_filename { ##로그화일의 이름 설정
my($sql,$result,@temp,$filename);
$sql = "select DATE_FORMAT(now(),
Ymd
)";
$result = $dbh->prepare($sql);
$result->execute;
@temp = $result->fetchrow_array;
$filename = $temp[0];
return $filename;
}
sub update { ##시간이 지났을경우의 디비 업뎃 루틴
my(@temp) = @_;
my($que,$result);
$que = "update test set ing=
n
where aud_id=
$temp[1]
";
$result = $dbh->prepare($que);
$result->execute;
if($result != "") {
&write_log(@temp);
} else {
&error_log(@temp);
}
}
sub write_log { ##업댓이 잘대뜨면 요거...
my(@temp) = @_;
my($filename);
$filename = &get_filename;
if(-e "$filename") {
open(fh,">>$filename");
} else {
open(fh,">$filename");
}
flock(fh,2);
print fh $temp[0],"&pip;",$temp[1],"&pip;",$temp[2],"&pip;",$temp[3],"
";
flock(fh,8);
close(fh);
}
sub error_log { ##업댓이 잘 안대뜨면 요거...
}
#
#서부루틴 끝
#
############################################################
위와 같습니다...
크론을 돌릴때는 root권환으로 돌리게 해놨구요..
디렉토리나 화일퍼미션은 루트가 읽고 쓰기 권한으로 해서 안되길래.. 777 로 주구
하는데두 잘 안됩니다..
왜 화일에다 쓰기가 안되는걸까요...
|
36
2,200
2000-06-01 19:51:10
닉네임
