home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 December (DVD) / VPR0112A.ISO / OLS / FSTAT / fstat.lzh / lib / start.pl < prev    next >
Text File  |  2001-09-23  |  10KB  |  305 lines
  1. ;#+------------------------------------------------------------------------
  2. ;#|efStat
  3. ;#|･ｹ･ｿ｡ｼ･ﾈ･｢･ﾃ･ﾗ･｡ｼ･ﾁ･
  4. ;#+------------------------------------------------------------------------
  5. ;# ｢ｨ､ｳ､ｳ､ｫ､鬢ﾏﾊｬ､ｫ､ｿﾍ､ﾀ､ｱﾏｮ､ﾃ､ﾆｲｼ､ｵ､､｡｣
  6. ;# ｡｡(･ｿ･ﾖ､ﾎ･ｵ･､･ｺ｡ｦ[4]｡｢ﾀﾞﾊﾖ､ｷ｡ｦ[ﾌｵ､ｷ]､ﾇ蠎ﾎ､ﾋﾉｽｼｨ､ｵ､､ﾞ､ｹ)
  7. ;#+------------------------------------------------------------------------
  8. ;#|&main
  9. ;#+------------------------------------------------------------------------
  10. ### [ｽ魘ﾀﾟﾄ鷯
  11. $ENV{'TZ'} = 'JST-9';                                                    # ｴﾄｶｭﾊﾑｿZ､ﾋﾜｻｴﾖ､ﾋﾀﾟﾄ熙ｹ､
  12. $Limit_Analyzer = 100000;                                                # ｲﾏ､ﾇ､ｭ､･愠ｰ､ﾎｹﾔｿ
  13. $html_title = '･皈ﾋ･蝪ｼ';                                                # ｽ魘･ｿ･､･ﾈ･
  14. $cookie_id = $self = "http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}";        # ｼｫﾊｬｼｫｿﾈ､ﾎURL(･ｯ･ﾃ･ｭ｡ｼ､ﾎﾌｾﾁｰ)
  15. $Dir_Log = "./${Dir_Log}/";                                                # ･愠ｰ･ﾇ･｣･･ｯ･ﾈ･熙､ﾀｵ
  16.  
  17. # ｹ猯ﾜ
  18. %koumoku = (
  19.     day        => ['ﾆﾊﾌｽｸｷﾗ',        'ﾋﾜﾆ',   'ｺ','ｰｺ','3ﾆﾁｰ','4ﾆﾁｰ','5ﾆﾁｰ','6ﾆﾁｰ','ｰｽｵﾁｰ'],
  20.     weekly    => ['ｽｵﾊﾌｽｸｷﾗ',        'ｺ｣ｽｵ',   'ﾀ霓ｵ','2ｽｵﾁｰ','3ｽｵﾁｰ','4ｽｵﾁｰ','ｰｷ錝ｰ'],
  21.     month    => ['ｷ鑅ﾌｽｸｷﾗ',        '1ｷ',    '2ｷ','3ｷ','4ｷ','5ｷ','6ｷ','7ｷ','8ｷ','9ｷ','10ｷ','11ｷ','12ｷ'],
  22.     hour    => ['ｻｴﾖﾂﾓﾊﾌｽｸｷﾗ',    '0ｻ',    '1ｻ','2ｻ','3ｻ','4ｻ','5ｻ','6ｻ','7ｻ','8ｻ','9ｻ','10ｻ','11ｻ','12ｻ','13ｻ','14ｻ','15ｻ','16ｻ','17ｻ','18ｻ','19ｻ','20ｻ','21ｻ','22ｻ','23ｻ'],
  23.     week    => ['ﾍﾋﾆﾊﾌｽｸｷﾗ',    'ﾆﾍﾋﾆ', 'ｷ隆ﾋﾆ','ｲﾐﾍﾋﾆ','ｿ袁ﾋﾆ','ﾌﾚﾍﾋﾆ','ｶ簣ﾋﾆ','ﾅﾚﾍﾋﾆ'],
  24.     year    => ['ﾇｯﾅﾙﾊﾌｽｸｷﾗ',    'ｺ｣ﾇｯ',   'ｺｯ','ｰｺｯ','3ﾇｯﾁｰ','4ﾇｯﾁｰ','5ﾇｯﾁｰ'],
  25. );
  26.  
  27. ### ｳﾆ･鬣､･ﾖ･鬣熙ﾎ､｢､熙ｫ
  28. $lib_jcode      = './lib/jcode.pl';
  29. $lib_fstat_func = './lib/func.pl';
  30. $lib_fstat_main = './lib/main.pl';
  31. $lib_fstat_menu = './lib/menu.pl';
  32.  
  33.  
  34. ### ﾉｽ､ﾋｿｧ､ｬｻﾘﾄ熙ｵ､､ﾆ､､､ｾｹ遑｢ｿｧｻﾘﾄ･ｿ･ｰ､ﾎﾁｰ､ﾋ･ｹ･ﾚ｡ｼ･ｹ､ﾉｲﾃ
  35. for ($i=0 ; $i <= $#tbc ; $i++ ) { $tbc[$i] = " $tbc[$i]" if ($tbc[$i] ne ''); }
  36.  
  37. ### ｶｦﾍﾑｴﾘｿﾎﾆﾉ､ﾟｹ､ﾟ
  38. unless (-e $lib_fstat_func) {
  39.     print "Content-type: text/html\n\n<HTML>\n";
  40.     print "<HEAD><META http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-JP\"><TITLE>efStat $ver / ｰﾛｾｽｪﾎｻ</TITLE></HEAD>\n";
  41.     print "<BODY><P>efStatﾍﾑｴﾘｿﾕ･｡･､･ ($lib_fstat_func) ､ｬｸｫ､ﾄ､ｫ､熙ﾞ､ｻ､ﾇ､ｷ､ｿ｡｣<BR>ｽ靉､ｳｹﾔ､ﾇ､ｭ､ﾞ､ｻ､｣</P></BODY>\n";
  42.     print "</HTML>\n";
  43.     exit(1);
  44. }
  45. require $lib_fstat_func;
  46.  
  47.  
  48. ### jcode.pl､ﾉ､ﾟｹ､
  49. unless (-e $lib_jcode) {
  50.     &func::PutError("jcode.pl ､ﾉ､ﾟｹ､爨ｳ､ﾈ､ｬ､ﾇ､ｭ､ﾞ､ｻ､ﾇ､ｷ､ｿ｡｣<BR>ｰﾌﾃﾖ､ﾎｻﾘﾄ熙ﾋｸ惕熙ｬ､ﾊ､､､ｫｳﾎﾇｧｲｼ､ｵ､､｡｣");
  51. }
  52. require $lib_jcode;
  53.  
  54. ### ﾍｽ､癸｢efStat､ｬｲ皃ﾇ､ｭ､ｷﾁ､ﾋﾊﾑｴｹ､ｷ､ﾆ､ｪ､ｯ
  55. foreach (@MySite) {
  56.     $_ =~ s'http://'!';
  57. }
  58.  
  59. foreach (@Complete_URL) {
  60.     $$_[0] =~ s'^http://'!';
  61.     &jcode::convert(\$$_[1], 'euc', '', 'z');
  62. }
  63.  
  64.  
  65. ### mainﾆﾉ､ﾟｹ､ﾟｽ猜
  66. unless (-e $lib_fstat_main) { &func::PutError("･愠ｰｲﾏ･｡ｼ･ﾁ･ ($lib_fstat_main) ､ｬｸｫ､ﾄ､ｫ､熙ﾞ､ｻ､ﾇ､ｷ､ｿ｡｣<BR>ｽ靉､ｳｹﾔ､ﾇ､ｭ､ﾞ､ｻ､｣"); }
  67.  
  68. ### menuﾆﾉ､ﾟｹ､ﾟｽ猜
  69. unless (-e $lib_fstat_menu) { &func::PutError("･皈ﾋ･蝪ｼ･ﾕ･｡･､･ ($lib_fstat_menu) ､ｬｸｫ､ﾄ､ｫ､熙ﾞ､ｻ､ﾇ､ｷ､ｿ｡｣<BR>ｽ靉､ｳｹﾔ､ﾇ､ｭ､ﾞ､ｻ､｣"); }
  70.  
  71. ### ･ｯ･ﾃ･ｭ｡ｼ､ｱｼ隍
  72. &Get_Cookie;
  73.  
  74. ### ･ｪ･ﾗ･ｷ･逾ﾎｾﾖ､ﾑｹｹ､ｹ､
  75. &radiobtn;
  76.  
  77. ### ﾉｸｽ猗ﾎﾏ､茹ｯ･ｨ･熙ｫ､魏惞霹ﾀ
  78. &Get_Strings;
  79.  
  80.  
  81. ### [ｽ靉､ｬｴ
  82.  
  83. ### ･皈ﾋ･蝪ｼｲ靂ﾌ
  84. if (($ENV{'CONTENT_LENGTH'} == 0) && ($ENV{'QUERY_STRING'} eq '')) {
  85.     &html_head;
  86.     require $lib_fstat_menu;
  87.     &html_tail;
  88.     exit(0);
  89. }
  90. ### ･愠ｰﾊ｣ｿｽｼｨ･筍ｼ･ﾉ
  91. elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
  92.     # &func::PutError("ｳｰﾉｫ､鮠ﾂｹﾔﾉﾔｲﾄ｡｣<BR>･皈ﾋ･蝪ｼ､ｰ､ﾎ･ｵ･､･ﾈ､ﾋﾃﾖ､､､ﾆ､､､ｿ､熙ｷ､ﾞ､ｻ､ｫ｡ｩ") if ($self ne $ENV{'HTTP_REFERER'});
  93.  
  94.     ### ･ﾕ･｡･､･ｰﾍ霹ﾀ
  95.     opendir(DIR, "$Dir_Log");
  96.     unless (-e $Dir_Log) { closedir(DIR); &func::PutError("ｻﾘﾄ熙ｵ､､ｿ･愠ｰ･ﾇ･｣･･ｯ･ﾈ･ ($Dir_Log) ､ﾏﾂｸｺﾟ､ｷ､ﾞ､ｻ､｣<BR>ｻﾘﾄ熙ﾋｸ惕熙ｬ､ﾊ､､､ｫｳﾎﾇｧｲｼ､ｵ､､｡｣"); }
  97.     unless (-r $Dir_Log) { closedir(DIR); &func::PutError("･愠ｰ･ﾇ･｣･･ｯ･ﾈ･熙ｬﾆﾉ､ﾟｽﾐ､ｷｶﾘｻﾟﾂｰﾀｭ､ﾋ､ﾊ､ﾃ､ﾆ､､､ﾞ､ｹ｡｣<BR>･ﾕ･｡･､･ｰﾍ霹ﾀ､ﾇ､ｭ､ﾞ､ｻ､｣<BR>･ﾑ｡ｼ･ﾟ･ﾃ･ｷ･逾ﾎﾇｧ､ｷ､ﾆｲｼ､ｵ､､(705ﾋﾏ755､ﾋ､ｷ､ﾆｲｼ､ｵ､､)｡｣"); }
  98.     @filename = grep(s/\.[lL][oO][gG]$//, readdir(DIR));
  99.     @filename = sort({$a cmp $b} @filename);
  100.  
  101.     ### ﾆﾎﾏﾆ簣ﾆ､篷ﾑｿﾋ･ｳ･ﾔ｡ｼ
  102.     ©2list;
  103.  
  104.     ### ﾆﾎﾏ､ｵ､､ｿﾊﾑｿﾁ･ｧ･ﾃ･ｯ
  105.     if (($DoTasteless > 1) || ($DoPutGraph > 1) ||
  106.         ($DoLink > 1) || ($DoSaveCookie > 1)
  107.     ) { &func::PutError('ｻﾅﾍﾍ､ﾋﾌｵ､､･ｪ･ﾗ･ｷ･逾ﾘﾄ熙ﾇ､ｹ｡｣'); }
  108.     elsif (($Limit_Log > 999)    || ($Limit_Ref > 999)    || ($Limit_Tinami > 999) ||
  109.            ($Limit_Sp > 999)     || ($Limit_Search > 999) || ($Limit_Host > 999)   ||
  110.            ($Limit_Domain > 999) || ($Limit_Jp > 999)     || ($Limit_Agent > 999)
  111.     ) { &func::PutError('ｻﾅﾍﾍ､ﾋﾌｵ､､ﾀｩｸﾂｻﾘﾄ熙ﾇ､ｹ｡｣'); }
  112.  
  113.     ### ･ｯ･ﾃ･ｭ｡ｼ､ﾎﾊﾝﾂｸ､ｬｵﾄ､ｵ､､ﾆ､､､､ﾊ､鬣ｯ･ﾃ･ｭ｡ｼ､ﾝﾂｸ､ｷ､ﾆ､ｪ､ｯ
  114.     if ($DoSaveCookie) {
  115.         ©2cookie;
  116.         &Set_Cookie;
  117.     }
  118.  
  119.     ### ･ｿ･､･ﾈ･ﾀﾟﾄ
  120.     $html_title = '･愠ｰｰｳ酲ｽｼｨ';
  121.     if    ($P{MODE} eq 'rawlog') { $html_title .= ' / ﾀｸ･愠ｰ'; }
  122.     elsif ($P{MODE} eq 'count')  { $html_title .= ' / ･ｫ･ｦ･ﾈｿｸｷﾗ'; }
  123.     elsif ($P{MODE} eq 'all')    { $html_title .= ' / ﾁｴ､ﾆ'; }
  124.     elsif ($P{MODE} eq 'ref')    { $html_title .= ' / ｻｲｾﾈｸｵﾅｷﾗ(ｷﾏ)'; }
  125.     elsif ($P{MODE} eq 'host')   { $html_title .= ' / ･ﾛ･ｹ･ﾈﾅｷﾗ(ｷﾏ)'; }
  126.     elsif ($P{MODE} eq 'ua')     { $html_title .= ' / ･ﾖ･鬣ｦ･ｶﾅｷﾗ(ｷﾏ)'; }
  127.     elsif ($P{MODE} eq 'screen') { $html_title .= ' / ｲ靂ﾌｾｷﾗ(ｷﾏ)'; }
  128.     else                         { &func::PutError('ｻﾅﾍﾍ､ﾋﾌｵ､､･筍ｼ･ﾉｻﾘﾄ熙ﾇ､ｹ｡｣'); }
  129.  
  130.     if    ($P{d} eq 't')         { $html_title .= " / ﾋﾜﾆﾊｬ､ﾎ､ﾟ"; }
  131.     elsif ($P{d} eq 'y')         { $html_title .= " / ｺﾊｬ､ﾎ､ﾟ"; }
  132. }
  133. ### ･愠ｰﾃｱﾂﾎﾉｽｼｨ･筍ｼ･ﾉ(Webstatｸﾟｴｹ)
  134. elsif ($ENV{'REQUEST_METHOD'} eq 'GET') {
  135.     $filename[0]    = (split(/&/,$alldata))[0];
  136.  
  137.     $html_title = '･愠ｰﾃｱﾂﾎﾉｽｼｨ';
  138.     if    ($P{'m'} eq '0') { $P{MODE} = 'solo_rawlog';  $html_title .= " / $filename[0] (ﾀｸ･愠ｰ､ﾎ､ﾟ)"; }
  139.     elsif ($P{'m'} eq '1') { $P{MODE} = 'solo_analyze'; $html_title .= " / $filename[0] (ｲﾏｷｲﾌ､ﾎ､ﾟ)"; }
  140.     else                   { $P{MODE} = 'solo_all';     $html_title .= " / $filename[0] (ﾁｴ､ﾆﾉｽ\ｼｨ)"; }
  141.  
  142.     if    ($P{d} eq 't')   { $html_title .= ' / ﾋﾜﾆﾊｬ､ﾎ､ﾟ'; }
  143.     elsif ($P{d} eq 'y')   { $html_title .= ' / ｺﾊｬ､ﾎ､ﾟ'; }
  144. }
  145.  
  146.  
  147. ### ﾉｽ､ﾎｿｧ､隍ｵ釥
  148. if ($DoTasteless) {
  149.     $html_body  = '<BODY bgcolor=#ffffff text=#000000 link=#7726c8 alink=#5c4fff vlink=#ff5959>';
  150.     foreach (@tbc) { $_ = ''; }
  151. }
  152.  
  153.  
  154. ### ｲﾏｳｫｻﾏ
  155. &html_head;
  156. require $lib_fstat_main;
  157. &html_tail;
  158.  
  159.  
  160. exit(0);
  161.  
  162.  
  163. ;#+------------------------------------------------------------------------
  164. ;#|･ﾞ･ｯ･
  165. ;#+------------------------------------------------------------------------
  166. ### ﾉｸｽ猗ﾎﾏ､茹ｯ･ｨ･熙ｫ､魏惞霹ﾀ
  167. sub Get_Strings {
  168.     if ($ENV{'CONTENT_LENGTH'} > 0) {
  169.         read(STDIN , $alldata , $ENV{'CONTENT_LENGTH'});
  170.     } elsif ($ENV{"QUERY_STRING"} ne '') {
  171.         $alldata = $ENV{'QUERY_STRING'};
  172.     }
  173.  
  174.     foreach $data (split(/&/,$alldata)) {
  175.         ($key , $val) = split(/=/,$data);
  176.         $val = &func::URLdecode($val);
  177.         $P{$key} = $val;
  178.     }
  179. }
  180.  
  181.  
  182. ### ･ｯ･ﾃ･ｭ｡ｼ､霹ﾀ
  183. sub Get_Cookie {
  184.     foreach $pair (split(/; / , $ENV{'HTTP_COOKIE'})) {
  185.         ($key , $val) = split(/=/ , $pair);
  186.         $all_cookies{$key} = $val;
  187.     }
  188.     if ($all_cookies{$cookie_id} eq '') {    # ･ｯ･ﾃ･ｭ｡ｼ､ｬ､ﾊ､､､ﾊ､鮨魘ｲｽ
  189.         &Init_Cookie;
  190.     } else {                                # ･ｯ･ﾃ･ｭ｡ｼ､ｬ､｢､､ﾊ､鯣ﾉ､ﾟｹ､ﾟ
  191.         foreach $pair (split(/&/, $all_cookies{$cookie_id})) {
  192.             ($key , $val) = split(/:/ , $pair);
  193.             $key = &func::URLdecode($key);
  194.             $val = &func::URLdecode($val);
  195.             $COOKIE{$key} = $val;
  196.         }
  197.     }
  198. }
  199.  
  200.  
  201. ### ･ｯ･ﾃ･ｭ｡ｼ､ﾟﾄ
  202. sub Set_Cookie {
  203.     @pairs = ();
  204.  
  205.     foreach $key (sort(keys(%COOKIE))) {
  206.         $val = $COOKIE{$key};
  207.         push(@pairs , &func::URLencode($key).":".&func::URLencode($val));
  208.     }
  209.  
  210.     $new_cookie = join('&' , @pairs);
  211.     $date = &func::GmtDate(time + 31536000);        # 1ﾇｯｴﾖﾊﾝﾂｸ
  212.     if ($new_cookie ne $all_cookies{$cookie_id}) {
  213.         print "Set-Cookie: $cookie_id=$new_cookie; expires=$date\n";
  214.     }
  215. }
  216.  
  217.  
  218. ### ﾆﾎﾏﾆ簣ﾆ､篷ﾑｿﾋ･ｳ･ﾔ｡ｼ
  219. sub copy2list {
  220.     $DoTasteless  = $P{'OPT_tl'};
  221.     $DoPutGraph   = $P{'OPT_gr'};
  222.     $DoLink       = $P{'OPT_lk'};
  223.     $DoSaveCookie = $P{'OPT_ck'};
  224.  
  225.     $Limit_Log    = $P{'LM_raw'};
  226.     $Limit_Ref    = $P{'LM_ref'};
  227.     $Limit_Tinami = $P{'LM_tnm'};
  228.     $Limit_Sp     = $P{'LM_sp'};
  229.     $Limit_Search = $P{'LM_key'};
  230.     $Limit_Host   = $P{'LM_hst'};
  231.     $Limit_Domain = $P{'LM_dm'};
  232.     $Limit_Agent  = $P{'LM_ua'};
  233. }
  234.  
  235.  
  236. ### ･譯ｼ･ｶ､ｫ､鯣ﾎﾏ､ｵ､､ｿｰ惞ｯ･ﾃ･ｭ｡ｼ､ﾋﾅﾏ､ｹ
  237. sub copy2cookie {
  238.     $COOKIE{'OPT_tl'} = $P{'OPT_tl'};
  239.     $COOKIE{'OPT_gr'} = $P{'OPT_gr'};
  240.     $COOKIE{'OPT_lk'} = $P{'OPT_lk'};
  241.     $COOKIE{'PASS'}   = $P{'PASS'};
  242.  
  243.     $COOKIE{'LM_raw'} = $P{'LM_raw'};
  244.     $COOKIE{'LM_ref'} = $P{'LM_ref'};
  245.     $COOKIE{'LM_tnm'} = $P{'LM_tnm'};
  246.     $COOKIE{'LM_sp'}  = $P{'LM_sp'};
  247.     $COOKIE{'LM_key'} = $P{'LM_key'};
  248.     $COOKIE{'LM_hst'} = $P{'LM_hst'};
  249.     $COOKIE{'LM_dm'}  = $P{'LM_dm'};
  250.     $COOKIE{'LM_ua'}  = $P{'LM_ua'};
  251. }
  252.  
  253.  
  254. ### ｽ鬢皃ﾆ･ｯ･ﾃ･ｭ｡ｼ､ﾎﾊﾝﾂｸ､ｹ､､ﾈ､ｭ｡｢､｢､鬢ｫ､ｸ､眇魘ﾃﾍ､ｻ･ﾃ･ﾈ､ｹ､
  255. sub Init_Cookie {
  256.     $COOKIE{'OPT_tl'} = 0;    # ･ﾆ･､･ｹ･ﾈ･･ｹ        ｡ﾄNO
  257.     $COOKIE{'OPT_gr'} = 1;    # ･ｰ･鬣ﾕﾉｽｼｨ        ｡ﾄYES
  258.     $COOKIE{'OPT_lk'} = 1;    # ･･ｯ､ｽ､､ｫ    ｡ﾄYES
  259.     $COOKIE{'PASS'}   = '';    # ･ﾑ･ｹ･｡ｼ･ﾉﾊｸｻ昀    ｡ﾄｶ
  260.  
  261.     $COOKIE{'LM_raw'} = 50;    # ﾀｸ･愠ｰﾉｽｼｨｷｿ    ｡ﾄ50ｷ
  262.     $COOKIE{'LM_ref'} = 0;    # ｻｲｾﾈｸｵﾉｽｼｨｲｼｸﾂ    ｡ﾄ0
  263.     $COOKIE{'LM_tnm'} = 0;    # TINAMIﾉｽｼｨｲｼｸﾂ    ｡ﾄ0
  264.     $COOKIE{'LM_sp'}  = 0;    # SPﾉｽｼｨｲｼｸﾂ        ｡ﾄ0
  265.     $COOKIE{'LM_key'} = 0;    # ･ｭ｡ｼ･｡ｼ･ﾉﾉｽｼｨｲｼｸﾂ｡ﾄ0
  266.     $COOKIE{'LM_hst'} = 0;    # ･ﾛ･ｹ･ﾈﾉｽｼｨｲｼｸﾂ    ｡ﾄ0
  267.     $COOKIE{'LM_dm'}  = 0;    # ｹﾒﾉｽｼｨｲｼｸﾂ        ｡ﾄ0
  268.     $COOKIE{'LM_ua'}  = 0;    # ･ﾖ･鬣ｦ･ｶﾉｽｼｨｲｼｸﾂ    ｡ﾄ0
  269. }
  270.  
  271.  
  272. sub radiobtn {
  273.     if ($COOKIE{'OPT_tl'}) {
  274.         $check_tl0 = ' checked';
  275.         $check_tl1 = '';
  276.     } else {
  277.         $check_tl0 = '';
  278.         $check_tl1 = ' checked';
  279.     }
  280.  
  281.     if ($COOKIE{'OPT_gr'}) {
  282.         $check_gr0 = ' checked';
  283.         $check_gr1 = '';
  284.     } else {
  285.         $check_gr0 = '';
  286.         $check_gr1 = ' checked';
  287.     }
  288.  
  289.     if ($COOKIE{'OPT_lk'}) {
  290.         $check_lk0 = ' checked';
  291.         $check_lk1 = '';
  292.     } else {
  293.         $check_lk0 = '';
  294.         $check_lk1 = ' checked';
  295.     }
  296.  
  297.     if ($COOKIE{'OPT_ck'}) {
  298.         $check_ck0 = ' checked';
  299.         $check_ck1 = '';
  300.     } else {
  301.         $check_ck0 = '';
  302.         $check_ck1 = ' checked';
  303.     }
  304. }
  305.