순위 싸이트 프로그램인데요.
아래서 보시면 링크를 눌렀을때 회원이 등록한 홈피 주소로 가는 문제인데요.
이상하게 홈피 주소를 http:// 이걸 안 적구 가입하면
작동이 안됩니다.
예를 들어 happycgi.com의 홈피를 등록햇으면 프로그램이 작동이 안돼고
http://happycgi.com으로 가입했으면 작동이 됩니다.
문제는 http://를 적으면 안돼거든요.
http://없이 걍 도메인 이름만 보이게 하려다 보니까 문제가 생기네요.
아래좀 작동되게 해주실 분 없나요 ?
원본은 파일 첨부햇습니다.
부탁드립니다.
sub log_out_hit {
open (DATA,"+<protected/data.file");
flock (DATA,2);
@data_array = <DATA>;
$account = $in{'hit_out'};
$a=0;
foreach (@data_array) {
@new_array = split(/\|/,$data_array[$a]);
if ($new_array[12] == $account) {
@new_array[3]++;
$outurl = $new_array[6];
$data_array[$a] = join("\|",@new_array);
}
$a++;
}
seek (DATA, 0, 0);
print DATA @data_array;
flock (DATA,8);
close (DATA);
}
아래는 회원 가입 작동 펄입니다.
sub update_account {
open (DATA,"<protected/data.file");
flock (DATA,2);
@data_array = <DATA>;
flock (DATA,8);
close (DATA);
$account = $in{'account'};
$a=0;
foreach (@data_array) {
@new_array = split(/\|/,$data_array[$a]);
if ($new_array[12] == $account) {
$new_array[4]=$in{'name'};
$new_array[5]=$in{'email'};
$new_array[6]=$in{'site_name'};
$new_array[7]=$in{'site_description'};
$new_array[8]=$in{'domain_price'};
$new_array[9]=$in{'site_url'};
$new_array[11]=$in{'new_password'};
$new_array[13]=$in{'banner_height'};
$new_array[14]=$in{'banner_width'};
$new_array[15]=$in{'domain_price'};
}
$data_array[$a] = join("\|",@new_array);
$a++;
}
open (DATA,">protected/data.file");
flock (DATA,2);
print DATA @data_array;
flock (DATA,8);
close (DATA);
}
69
860
2001-09-08 01:08:06
닉네임
