1:sub dat_write{
2: &error("open error no such a file!",1) if(!$nm || !$id);
3:$dat[0] = "la;$time,nm;$nm,nai_cnt;$nai_cnt,sogo;$sogo,sogo2;$sogo2, sogo3;$sogo3,mes;$mes,s_g;$s_g,info_mes;$info_mes,\n";
4: $dat[1] = "$date<>$addr<>$host<>$agent<>\n";
5:
6: open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
7: print OUT @dat;
8: close(OUT) or die "Can't close : $!";
9:}