さんきゅう堂的_バックアップ

 MySQL エラー

• Jul072007
• Author: さんきゅう
• Categories: openSUSE
• Tags: MySQL, openSUSE

7/7　16:30
下記作業行いましたが、改善されず各設定を元に戻しました。
/etc/my.cnf
max_allowed_packet = 10M
/etc/postfix/main.cf
message_size_limit = 10240000
 

# /etc/init.d/postfix reload
Reload mail service (Postfix)                                        done
# /etc/init.d/postfix restart
Shutting down mail service (Postfix)                                 done
Starting mail service (Postfix)                                      done
# /etc/init.d/mysql reload
Reloading service MySQL                                              done
# /etc/init.d/mysql restart
Restarting service MySQL
Shutting down service MySQL                                          done
Starting service MySQL                                               done

------------------------------------------------------------------------------------------
一日に２、３回は発生するエラーがずっと気になってました。
少し　/etc/my.cnf 　を修正。

 

Jul  6 12:24:14 linux amavis[25771]: (25771-06) TROUBLE in process_request: DBD::mysql::st execute failed: MySQL server has gone away at (eval 54) line 258, <GEN61> line 5.
Jul  6 12:45:25 linux amavis[25770]: (25770-07) TROUBLE in process_request: DBD::mysql::st execute failed: Lost connection to MySQL server during query at (eval 54) line 258, <GEN57> line 5.

「Lost connection to MySQL server during query at」これで検索かけると

MySQL クライアントまたは mysqld サーバが max_allowed_packet バイトより大きいパケットを受け取った場合、Packet too large エラーが発生し、接続がクローズされます。

このあたりの原因かな？？？と　/etc/my.cnf　を見ると max_allowed_packet=10M
max_allowed_packet=16M に設定。

# /etc/init.d/mysql restart
Restarting service MySQL
Shutting down service MySQL                                           done
Starting service MySQL                                                done
# /etc/init.d/amavis restart
Shutting down virus-scanner (amavisd-new):                            done
Starting virus-scanner (amavisd-new):                                 done
l# /etc/init.d/clamd restart
Shutting down Clam AntiVirus daemon                                   done
Starting Clam AntiVirus daemon Running as user vscan (UID 65, GID 108)
                                                                      done
# /etc/init.d/apache2 restart
Syntax OK
Shutting down httpd2 (waiting for all children to terminate)          done
Starting httpd2 (prefork)                                             done

/etc/postfix/main.cf の　「message_size_limit」　と同じ値に設定しなさいという事ですが
これでしばらく様子をみてみます。

# /etc/init.d/postfix restart
Shutting down mail service (Postfix)                                 done
Starting mail service (Postfix)                                      done

READ MORE

• Related Entries
• 07/07/12/etc/my.cnf
• 07/07/11MySQLが・・・・・・
• 07/07/02MySQLクラッシュ！
• 07/01/25MySQL複数起動
• 06/12/28dovecot+MySQLエラー
• 08/01/20sensors覚書
• 07/11/22xawtv インストールエラー 解決？？
• 07/11/22xawtv インストールエラー
• 07/11/14opensuse-updater-kde (0.6)
• 07/11/06Maia Mailguard（PEAR）

• Permalink

 MySQLクラッシュ！

• Jul022007
• Author: さんきゅう
• Categories: openSUSE
• Tags: MySQL, openSUSE

突然、MySQLがクラッシュ(>_<)
再起動かけるも「不明なエラー」で全くダメ・・・
Movable Type,Postfix Admin,Maia MailguardなどMySQL頼りの構築の為ガックリ(･_･;
ログを見ると

070629 18:09:36  InnoDB: Page checksum 1575996416, prior-to-4.0.14-form checksum 1371122432
InnoDB: stored checksum 0, prior-to-4.0.14-form stored checksum 0
InnoDB: Page lsn 0 0, low 4 bytes of lsn at page end 0
InnoDB: Page number (if stored to page already) 0,
InnoDB: space id (if created with >= MySQL-4.1.1 and stored already) 0
070629 18:09:36InnoDB: Error: trying to access a stray pointer 0x80002b5660583ff8
InnoDB: buf pool start is at 0x2b5660574000, end at 0x2b5660d74000
InnoDB: Probable reason is database corruption or memory
InnoDB: corruption. If this happens in an InnoDB database recovery,
InnoDB: you can look from section 6.1 athttp://www.innodb.com/ibman.html
InnoDB: how to force recovery.
070629 18:09:36InnoDB: Assertion failure in thread 47649980109520 in file ./../include/buf0buf.ic line 259
InnoDB: We intentionally generate a memory trap.
InnoDB: Submit a detailed bug report tohttp://bugs.mysql.com.
InnoDB: If you get repeated assertion failures or crashes, even
InnoDB: immediately after the mysqld startup, there may be
InnoDB: corruption in the InnoDB tablespace. Please refer to
InnoDB:http://dev.mysql.com/doc/mysql/en/Forcing_recovery.html
InnoDB: about forcing recovery.
mysqld got signal 11;
This could be because you hit a bug. It is also possible that this binary
or one of the libraries it was linked against is corrupt, improperly built,
or misconfigured. This error can also be caused by malfunctioning hardware.
We will try our best to scrape up some info that will hopefully help diagnose
the problem, but since we have already crashed, something is definitely wrong
and this may fail.

key_buffer_size=0
read_buffer_size=2093056
max_used_connections=0
max_connections=100
threads_connected=0
It is possible that mysqld could use up to
key_buffer_size + (read_buffer_size + sort_buffer_size)*max_connections = 2252399 K
bytes of memory
Hope that's ok; if not, decrease some variables in the equation.

070629 18:09:36  mysqld ended

はははっ・・・・分からん・・・・
同じようなエラーは多い様ですが具体的にどうするのか見つからず、、
既存/var/lib/mysqlをそのままで、再インストールでも直らず・・・
以前にやったdbを3つ起動を使い誤魔化すも、またしてもクラッシュ！！！
/var/lib/mysqlを名前変更で再インストールで起動ＯＫ！！
dbを一個づつ戻して検証したところ、どうも「Maia Mailguard」dbが壊れている模様。
再度、「Maia Mailguard」dbを再構築で復活！！
気になるのがMaia Mailguardのdbフィールドタイプが「InnoDB」
他のdbを見ると「MyISAM」
エラーログでも「InnoDB」が出てきます、、要調査です。
何はともあれ、取りあえず何とか復活(^o^)　よかった・・・・

• Related Entries
• 07/07/12/etc/my.cnf
• 07/07/11MySQLが・・・・・・
• 07/07/07MySQL エラー
• 07/01/25MySQL複数起動
• 06/12/28dovecot+MySQLエラー
• 08/01/20sensors覚書
• 07/11/22xawtv インストールエラー 解決？？
• 07/11/22xawtv インストールエラー
• 07/11/14opensuse-updater-kde (0.6)
• 07/11/06Maia Mailguard（PEAR）

• Permalink

 どこから来たのcgi 最終分

• Jun182007
• Author: さんきゅう
• Categories: openSUSE
• Tags: ActivePerl, openSUSE

試行錯誤を重ねましたが最終分です。
GoogleMapsファイル名
　　　都道府県は[データ表記].html
　　　国別は[国コード].html
　　　国別.gif　/cgi-bin/surfpoint/images/
public_html
        +----  GoogleMaps  /   JP.html ~~~~
        +----  cgi-bin / surfpoint / welcome.cgi(705)
                                                weicomeworld.cgi(705)
                                                welcome.tmpl(604)
                                                weicomeworld.tmpl(604)
                                                welcome.css(604) 
                                                images /  JP.gif ~~~      

変更箇所　必ず変更して下さい。
$user_id = "surfpoint ID";
$passwd = "surfpoint PASS";
DBI->connect('DBI:mysql:openSurfpoint:localhost', "ユーザー", "パスワード");
/cgi-bin/surfpoint/welcome.cgi 

#!/usr/bin/perl -w

use DBI;
use HTML::Template;
use Frontier::Client;
#use CAR_TIME;

$user_id  = "ユーザーID";
$passwd   = "パスワード";
$ipadr    = $ENV{'REMOTE_ADDR'};

# 都道府県コードの取得
$server_url = "http://open.surfpoint.jp/webapi/enterprise.api";
$server = Frontier::Client->new( url=>$server_url );
$result = $server->call( 'openSurfpoint.GetPref', $user_id, $passwd, $ipadr );
$pref = $result;

if( $pref eq "-" ) { $pref = -1 };
if( $pref < -1 )   { $pref = -1 };
if( $pref > 47 )   { $pref = -1 };

# アクセス数をカウント
&IncrementAccessPref( $pref );
# トータルアクセス数を取得
$total_count = &GetTotalCount();

%h_pref_id = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
%h_count = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
&GetPrefRank( \%h_pref_id, \%h_count );
# ＨＴＭＬ出力
$tmpfile = "welcome.tmpl";
$tmphtml = HTML::Template->new( filename => $tmpfile );
$tmphtml->param(
 PREFNAME => &GetPrefectureName( $pref ),
 TOTALCOUNT => $total_count,
 NAME1 => &GetPrefectureName( $h_pref_id{1} ),
 NAME2 => &GetPrefectureName( $h_pref_id{2} ),
 NAME3 => &GetPrefectureName( $h_pref_id{3} ),
 NAME4 => &GetPrefectureName( $h_pref_id{4} ),
 NAME5 => &GetPrefectureName( $h_pref_id{5} ),
 NAME6 => &GetPrefectureName( $h_pref_id{6} ),
 NAME7 => &GetPrefectureName( $h_pref_id{7} ),
 NAME8 => &GetPrefectureName( $h_pref_id{8} ),
 NAME9 => &GetPrefectureName( $h_pref_id{9} ),
 NAME10 => &GetPrefectureName( $h_pref_id{10} ),
 ACCESS1 => $h_count{1},
 ACCESS2 => $h_count{2},
 ACCESS3 => $h_count{3},
 ACCESS4 => $h_count{4},
 ACCESS5 => $h_count{5},
 ACCESS6 => $h_count{6},
 ACCESS7 => $h_count{7},
 ACCESS8 => $h_count{8},
 ACCESS9 => $h_count{9},
 ACCESS10 => $h_count{10},
  C_ID_1 => $h_pref_id{1},
  C_ID_2 => $h_pref_id{2},
  C_ID_3 => $h_pref_id{3},
  C_ID_4 => $h_pref_id{4},
  C_ID_5 => $h_pref_id{5},
  C_ID_6 => $h_pref_id{6},
  C_ID_7 => $h_pref_id{7},
  C_ID_8 => $h_pref_id{8},
  C_ID_9 => $h_pref_id{9},
  C_ID_10 => $h_pref_id{10},
);
print "Content-Type: text/html; charset=utf-8\n\n";
print $tmphtml->output;
exit(0);
#==============================================================================
#機能：カウント数をインクリメントする。
#==============================================================================
sub IncrementAccessPref {
 my $pref_id  = $_[0];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:openSurfpoint:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = 0;
 my $record_n = 0;
 $hSt = $hDb->prepare( "select count from access_pref where pref_id='$pref_id' and access_date='$today'" );
 $record_n = $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 if( $record_n == 0 ) {
  # レコードがなかった場合、新規に作成する
  $hSt = $hDb->prepare( "insert into access_pref values( '$today', '$pref_id', 1 )" );
  $hSt->execute;
  $hSt->finish;
 } else {
  # レコードがある場合、カウントをインクリメントする
  $count++;
  $hSt = $hDb->prepare( "update access_pref set count=$count where access_date='$today' and pref_id='$pref_id'" );
  $hSt->execute;
  $hSt->finish;
 }
 $hDb->disconnect;
 }
#==============================================================================
#機能：トータルカウント数を取得する。
#==============================================================================
sub GetTotalCount {
 #my $today    = &GetDateA( 0 );
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:openSurfpoint:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = undef;
 $hSt = $hDb->prepare( "select sum(count) from access_pref where access_date='$today'" );
 $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 $hDb->disconnect;
 return $count;
}
#==============================================================================
#機能：
#==============================================================================
sub GetPrefRank {
 my $s_pref_id = $_[0];
 my $s_count   = $_[1];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:openSurfpoint:localhost',"db名", "パスワード");
 my $hSt      = undef;
 $hSt = $hDb->prepare( "select pref_id, count from access_pref where access_date='$today' order by count desc" );
 $hSt->execute;
 my $index = 1;
 while( @record = $hSt->fetchrow ) {
  $$s_pref_id{$index} = $record[0];
  $$s_count{$index}   = $record[1];
  $index++;
 }
 $hSt->finish;
 $hDb->disconnect;
 }
#==============================================================================
#機能：
#==============================================================================
sub GetPrefectureName {
 %prefecture_name = (
  -1 =>"該当無",
  0 =>"不明",
  1 =>"北海道",
  2 =>"青森",
  3 =>"岩手",
  4 =>"宮城",
  5 =>"秋田",
  6 =>"山形",
  7 =>"福島",
  8 =>"茨城",
  9 =>"栃木",
  10=>"群馬",
  11=>"埼玉",
  12=>"千葉",
  13=>"東京",
  14=>"神奈川",
  15=>"新潟",
  16=>"富山",
  17=>"石川",
  18=>"福井",
  19=>"山梨",
  20=>"長野",
  21=>"岐阜",
  22=>"静岡",
  23=>"愛知",
  24=>"三重",
  25=>"滋賀",
  26=>"京都",
  27=>"大阪",
  28=>"兵庫",
  29=>"奈良",
  30=>"和歌山",
  31=>"鳥取",
  32=>"島根",
  33=>"岡山",
  34=>"広島",
  35=>"山口",
  36=>"徳島",
  37=>"香川",
  38=>"愛媛",
  39=>"高知",
  40=>"福岡",
  41=>"佐賀",
  42=>"長崎",
  43=>"熊本",
  44=>"大分",
  45=>"宮崎",
  46=>"鹿児島",
  47=>"沖縄",
 );
 my $pref = $_[0];
 return $prefecture_name{ $pref };
}
#==============================================================================
#機能：時刻をYYYY-MM-DD 00:00:00形式で取得する。
#==============================================================================
sub GetDateA {
# my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = &CAR_TIME::GetTime( $_[0] );
 my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
 $sec  = 0;
 $min  = 0;
 $hour = 0;
    $sec  = sprintf("%02d",$sec );
    $min  = sprintf("%02d",$min );
    $hour = sprintf("%02d",$hour);
    $mday = sprintf("%02d",$mday);
    $mon  = sprintf("%02d",$mon );
  return $year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec;
}
__END__

/cgi-bin/surfpoint/welcome.tmpl 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>ご訪問地区カウンター</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="generator" content="Movable Type 3.34" />
<meta name="" />
<link href="welcome.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!-- コンテナ中央揃え ここから -->
<div align="center">
<div class="welcome"><TMPL_VAR NAME=PREFNAME>からようこそ！</div>
<div class="cap01">あなたは<TMPL_VAR NAME=TOTALCOUNT>番目の訪問者です</div>
<table width="170" border="0" cellspacing="0" cellpadding="0">
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_1() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_1>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_1();">
   <TMPL_VAR NAME=NAME1></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS1></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_2() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_2>.html', 'mywindow2', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_2();">
   <TMPL_VAR NAME=NAME2></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS2></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_3() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_3>.html', 'mywindow3', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_3();">
   <TMPL_VAR NAME=NAME3></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS3></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_4() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_4>.html', 'mywindow4', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_4();">
   <TMPL_VAR NAME=NAME4></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS4></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_5() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_5>.html', 'mywindow5', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_5();">
   <TMPL_VAR NAME=NAME5></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS5></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_6() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_6>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_6();">
   <TMPL_VAR NAME=NAME6></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS6></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_7() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_7>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_7();">
   <TMPL_VAR NAME=NAME7></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS7></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_8() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_8>.html', 'mywindow8', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_8();">
   <TMPL_VAR NAME=NAME8></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS8></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_9() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_9>.html', 'mywindow9', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_9();">
   <TMPL_VAR NAME=NAME9></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS9></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_10() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_10>.html', 'mywindow10', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_10();">
   <TMPL_VAR NAME=NAME10></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS10></td>
</tr>
<td class="box01"> </td>
<td class="box01"> </td>
</tr>
</table>
</body>
</html>

/cgi-bin/surfpoint/welcome.css(welcome.tmpl,welcomeworld.tmpl共通)

/* basic elements */
html {
    margin: 0;
    /* setting border: 0 hoses ie6 win window inner well border */
    padding: 0;
}
body {
    margin: 0;
    /* setting border: 0 hoses ie5 win window inner well border */
    padding: 0;
    /*font-family: "ＭＳ ゴシック", "Osaka－等幅"; */
    font-family: Verdana, Arial, sans-serif;
    font-size: 12px;
 line-height: 16px;
}
a:link {
 text-decoration: none;
 color: #0033FF;
}
a:visited {
 text-decoration: none;
 color: #003366;
}
a:hover {
 text-decoration: underline;
 color: #6633FF;
}
a:active {
 text-decoration: none;
 color: #FFFF00;
}
/* コンテンツ */
 .welcome {
 font-size: 10px;
 font-weight:bold;
 color: #000066;
 background-color: #E9F9FE;
 width: 170px;
 background-position: center;
 margin: 5px;
 padding: 3px;
}
 .cap01 {
 font-size: 10px;
 font-weight:bold;
 color: #000066;
 background-position: center;
 margin: 5px;
}
.cap02 {
 font-size: 10px;
 font-weight:bold;
 color: #FF6600;
 background-position: center;
 margin: 5px;
}
.box01 {
 font-size: 12px;
 background-color: #FFCC99;
 padding: 3px;
 text-align: center;
}
.box02 {
 font-size: 12px;
 background-color: #FFFFDD;
 padding: 3px;
 margin: 1px;
 text-align: center;
}
th {
 font-size: 10px;
 background-color: #FFCC99;
 padding: 3px;
 width: 120px;
 text-align: center;
}

/cgi-bin/surfpoint/welcomeworld.cgi 

#!/usr/bin/perl -w
use DBI;
use HTML::Template;
use Frontier::Client;
#use CAR_TIME;

$user_id  = "ユーザーID";
$passwd   = "パスワード";
$ipadr    = $ENV{'REMOTE_ADDR'};
# 都道府県コードの取得
#$server_url = "http://open.surfpoint.jp/webapi/enterprise.api";
#$server = Frontier::Client->new( url=>$server_url );
#$result = $server->call( 'openSurfpoint.GetPref', $user_id, $passwd, $ipadr );
#$pref = $result;
# 国内判定の取得
$server_url = "http://open.surfpoint.jp/webapi/globe.api";
$server = Frontier::Client->new( url=>$server_url );
$result = $server->call( 'openSurfpoint.GetCountry', $user_id, $passwd, $ipadr );
$country = $result;
if( $country eq "-" ) { $country = -1 };
if( $country eq "--" ) { $country = -1 };
# アクセス数をカウント
&IncrementAccessCountry( $country );
# トータルアクセス数を取得
$total_count = &GetTotalCount();
%h_country_id = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
%h_count = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
&GetCountryRank( \%h_country_id, \%h_count );
# ＨＴＭＬ出力
$tmpfile = "welcomeworld.tmpl";
$tmphtml = HTML::Template->new( filename => $tmpfile );
$tmphtml->param(
 COUNTRYNAME => &GetCountryName( $country ),
 TOTALCOUNT => $total_count,
 NAME1 => &GetCountryName( $h_country_id{1} ),
 NAME2 => &GetCountryName( $h_country_id{2} ),
 NAME3 => &GetCountryName( $h_country_id{3} ),
 NAME4 => &GetCountryName( $h_country_id{4} ),
 NAME5 => &GetCountryName( $h_country_id{5} ),
 NAME6 => &GetCountryName( $h_country_id{6} ),
 NAME7 => &GetCountryName( $h_country_id{7} ),
 NAME8 => &GetCountryName( $h_country_id{8} ),
 NAME9 => &GetCountryName( $h_country_id{9} ),
 NAME10 => &GetCountryName( $h_country_id{10} ),
 ACCESS1 => $h_count{1},
 ACCESS2 => $h_count{2},
 ACCESS3 => $h_count{3},
 ACCESS4 => $h_count{4},
 ACCESS5 => $h_count{5},
 ACCESS6 => $h_count{6},
 ACCESS7 => $h_count{7},
 ACCESS8 => $h_count{8},
 ACCESS9 => $h_count{9},
 ACCESS10 => $h_count{10},
  C_ID_1 => $h_country_id{1},
  C_ID_2 => $h_country_id{2},
  C_ID_3 => $h_country_id{3},
  C_ID_4 => $h_country_id{4},
  C_ID_5 => $h_country_id{5},
  C_ID_6 => $h_country_id{6},
  C_ID_7 => $h_country_id{7},
  C_ID_8 => $h_country_id{8},
  C_ID_9 => $h_country_id{9},
  C_ID_10 => $h_country_id{10},
);
print "Content-Type: text/html; charset=utf-8\n\n";
print $tmphtml->output;
exit(0);
#==============================================================================
#機能：カウント数をインクリメントする。
#==============================================================================
sub IncrementAccessCountry {
 my $country_id  = $_[0];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:WorldAccess:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = 0;
 my $record_n = 0;
 $hSt = $hDb->prepare( "select count from access_country where country_id='$country_id' and access_date='$today'" );
 $record_n = $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 if( $record_n == 0 ) {
  # レコードがなかった場合、新規に作成する
  $hSt = $hDb->prepare( "insert into access_country values( '$today', '$country_id', 1 )" );
  $hSt->execute;
  $hSt->finish;
 } else {
  # レコードがある場合、カウントをインクリメントする
  $count++;
  $hSt = $hDb->prepare( "update access_country set count=$count where access_date='$today' and country_id='$country_id'" );
  $hSt->execute;
  $hSt->finish;
 }
 $hDb->disconnect;
 }
#==============================================================================
#機能：トータルカウント数を取得する。
#==============================================================================
sub GetTotalCount {
 #my $today    = &GetDateA( 0 );
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:WorldAccess:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = undef;
 $hSt = $hDb->prepare( "select sum(count) from access_country where access_date='$today'" );
 $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 $hDb->disconnect;
 return $count;
}
#==============================================================================
#機能：
#==============================================================================
sub GetCountryRank {
 my $s_country_id = $_[0];
 my $s_count   = $_[1];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:WorldAccess:localhost',"db名", "パスワード");
 my $hSt      = undef;
 $hSt = $hDb->prepare( "select country_id, count from access_country where access_date='$today' order by count desc" );
 $hSt->execute;
 my $index = 1;
 while( @record = $hSt->fetchrow ) {
  $$s_country_id{$index} = $record[0];
  $$s_count{$index}   = $record[1];
  $index++;
 }
 $hSt->finish;
 $hDb->disconnect;
 }
#==============================================================================
#機能：
#==============================================================================
sub GetCountryName {
 %country_name = (
 -1 =>"不明",
 1 =>"該当無",
 AC =>"アセンション島",
 AD =>"アンドラ",
 AE =>"<IMG SRC=images/AE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アラブ首長国連邦>",
 AF =>"<IMG SRC=images/AF.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アフガニスタン>",
 AG =>"<IMG SRC=images/AG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アンティグア・バーブーダ>",
 AI =>"アンギラ",
 AL =>"<IMG SRC=images/AL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルバニア共和国>",
 AM =>"<IMG SRC=images/AM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルメニア共和国>",
 AN =>"オランダ領アンティール",
 AO =>"<IMG SRC=images/AO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アンゴラ共和国>",
 AP =>"アジア太平洋連合",
 AQ =>"南極大陸",
 AR =>"<IMG SRC=images/AR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルゼンチン共和国>",
 AS =>"アメリカ領サモア",
 AT =>"<IMG SRC=images/AT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=オーストリア共和国>",
 AU =>"<IMG SRC=images/AU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=オーストラリア>",
 AW =>"アルバ",
 AX =>"クリスマス島",
 AZ =>"<IMG SRC=images/AZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アゼルバイジャン共和国>",
 BA =>"<IMG SRC=images/BA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ボスニア・ヘルツェゴビナ>",
 BB =>"<IMG SRC=images/BB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バルバドス>",
 BD =>"<IMG SRC=images/BD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バングラディシュ人民共和国>",
 BE =>"<IMG SRC=images/BE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベルギー王国>",
 BF =>"<IMG SRC=images/BF.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルキナファソ>",
 BG =>"<IMG SRC=images/BG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルガリア共和国>",
 BH =>"<IMG SRC=images/BH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バーレーン王国>",
 BI =>"<IMG SRC=images/BI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルンジ共和国>",
 BJ =>"<IMG SRC=images/BJ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベナン共和国>",
 BM =>"バミューダ諸島",
 BN =>"<IMG SRC=images/BN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルネイ・ダルサラーム国>",
 BO =>"ボリビア",
 BR =>"<IMG SRC=images/BR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブラジル連邦共和国>",
 BS =>"<IMG SRC=images/BS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バハマ国>",
 BT =>"ブータン",
 BV =>"ブーヴェ島",
 BW =>"<IMG SRC=images/BW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ボツワナ共和国>",
 BY =>"ベラルーシ",
 BZ =>"ベリーズ",
 CA =>"<IMG SRC=images/CA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カナダ>",
 CC =>"ココス（キーリング）諸島",
 CD =>"ザイール共和国",
 CF =>"<IMG SRC=images/CF.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=中央アフリカ共和国>",
 CG =>"<IMG SRC=images/CG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コンゴ共和国>",
 CH =>"<IMG SRC=images/CH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スイス連邦>",
 CI =>"<IMG SRC=images/CI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コートジボアール共和国>",
 CK =>"クック諸島",
 CL =>"<IMG SRC=images/CL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チリ共和国>",
 CM =>"<IMG SRC=images/CM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カメルーン共和国>",
 CN =>"<IMG SRC=images/CN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=中華人民共和国>",
 CO =>"<IMG SRC=images/CO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コロンビア共和国>",
 CR =>"コスタリカ",
 CS =>"旧チェコスロバキア",
 CU =>"<IMG SRC=images/CU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キューバ共和国>",
 CV =>"<IMG SRC=images/CV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カーボヴェルデ共和国>",
 CX =>"クリスマス島",
 CY =>"<IMG SRC=images/CY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キプロス共和国>",
 CZ =>"<IMG SRC=images/CZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チェコ共和国>",
 DE =>"<IMG SRC=images/DE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ドイツ連邦共和国>",
 DJ =>"<IMG SRC=images/DJ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ジブチ共和国>",
 DK =>"<IMG SRC=images/DK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=デンマーク王国>",
 DM =>"<IMG SRC=images/DM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ドミニカ国>",
 DO =>"<IMG SRC=images/DO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ドミニカ共和国>",
 DZ =>"<IMG SRC=images/DZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルジェリア民主人民共和国>",
 EC =>"<IMG SRC=images/EC.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エクアドル共和国>",
 EE =>"<IMG SRC=images/EE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エストニア共和国>",
 EG =>"<IMG SRC=images/EG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エジプト・アラブ共和国>",
 EH =>"西サハラ",
 ER =>"<IMG SRC=images/ER.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エリトリア国>",
 ES =>"<IMG SRC=images/ES.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スペイン>",
 ET =>"<IMG SRC=images/ET.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エチオピア連邦民主共和国>",
 EU =>"欧州連合",
 FI =>"<IMG SRC=images/FI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フィンランド共和国>",
 FJ =>"フィジー",
 FK =>"フォークランド諸島",
 FM =>"ミクロネシア連邦",
 FO =>"フェロー諸島",
 FR =>"<IMG SRC=images/FR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フランス共和国>",
 FX =>"<IMG SRC=images/FR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フランス大都市>",
 GA =>"<IMG SRC=images/GA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガボン共和国>",
 GB =>"<IMG SRC=images/GB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イギリス>",
 GD =>"<IMG SRC=images/GD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=グレナダ>",
 GE =>"<IMG SRC=images/GE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=グルジア>",
 GF =>"フランス領ガイアナ",
 GG =>"ガーンジー島",
 GH =>"<IMG SRC=images/GH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガーナ共和国>",
 GI =>"ジブラルタル",
 GL =>"グリーンランド",
 GM =>"<IMG SRC=images/GM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガンビア共和国>",
 GN =>"<IMG SRC=images/GN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ギニア共和国>",
 GP =>"グアドループ島",
 GQ =>"<IMG SRC=images/GQ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=赤道ギニア共和国>",
 GR =>"<IMG SRC=images/GR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ギリシャ共和国>",
 GS =>"南ジョージア・南サンドイッチ諸島",
 GT =>"グアテマラ共和国",
 GU =>"グアム島",
 GW =>"<IMG SRC=images/GW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ギニアビサウ共和国>",
 GY =>"<IMG SRC=images/GY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガイアナ協同共和国>",
 HK =>"<IMG SRC=images/CN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=香港>",
 HM =>"ハード・マクドナルド諸島",
 HN =>"<IMG SRC=images/HN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ホンジュラス共和国>",
 HR =>"<IMG SRC=images/HR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=クロアチア共和国>",
 HT =>"<IMG SRC=images/HT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ハイチ共和国>",
 HU =>"<IMG SRC=images/HU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ハンガリー共和国>",
 ID =>"<IMG SRC=images/ID.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=インドネシア共和国>",
 IE =>"<IMG SRC=images/IE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アイルランド>",
 IL =>"<IMG SRC=images/IL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イスラエル国>",
 IM =>"マン島",
 IN =>"<IMG SRC=images/IN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=インド>",
 IO =>"イギリス領インド洋地域",
 IQ =>"<IMG SRC=images/IQ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イラク共和国>",
 IR =>"<IMG SRC=images/IR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イラン・イスラム共和国>",
 IS =>"<IMG SRC=images/IS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アイスランド共和国>",
 IT =>"<IMG SRC=images/IT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イタリア共和国>",
 JE =>"ジャージー島",
 JM =>"<IMG SRC=images/JM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ジャマイカ>",
 JO =>"<IMG SRC=images/JO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ヨルダンヨルダン・ハシェミット王国>",
 JP =>"<IMG SRC=images/JP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=日本>",
 KE =>"<IMG SRC=images/KE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ケニア共和国>",
 KG =>"<IMG SRC=images/KG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キルギス共和国>",
 KH =>"<IMG SRC=images/KH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カンボジア王国>",
 KI =>"<IMG SRC=images/KI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キリバス共和国>",
 KM =>"<IMG SRC=images/KM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コモロ連合>",
 KN =>"アンギラ",
 KP =>"<IMG SRC=images/KP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=北朝鮮>",
 KR =>"<IMG SRC=images/KR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=大韓民国>",
 KW =>"<IMG SRC=images/KW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=クウェート国>",
 KY =>"ケイマン諸島",
 KZ =>"<IMG SRC=images/KZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カザフスタン共和国>",
 LA =>"<IMG SRC=images/LA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ラオス人民民主共和国>",
 LB =>"<IMG SRC=images/LB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=レバノン共和国>",
 LC =>"<IMG SRC=images/LC.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=セントルシア>",
 LI =>"<IMG SRC=images/LI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=リヒテンシュタイン公国>",
 LK =>"<IMG SRC=images/LK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スリランカ民主社会主義共和国>",
 LR =>"<IMG SRC=images/LR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=リベリア共和国>",
 LS =>"<IMG SRC=images/LS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=レソト王国>",
 LT =>"<IMG SRC=images/LT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=リトアニア共和国>",
 LU =>"<IMG SRC=images/LU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ルクセンブルク大公国>",
 LV =>"<IMG SRC=images/LV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ラトビア共和国>",
 LY =>"<IMG SRC=images/LY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=社会主義人民リビア・アラブ国>",
 MA =>"<IMG SRC=images/MA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モロッコ王国>",
 MC =>"<IMG SRC=images/MC.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モナコ公国>",
 MD =>"<IMG SRC=images/MD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モルドバ共和国>",
 MG =>"<IMG SRC=images/MG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マダガスカル共和国>",
 MH =>"<IMG SRC=images/MH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マーシャル諸島共和国>",
 MK =>"<IMG SRC=images/MK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マケドニア>",
 ML =>"<IMG SRC=images/ML.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マリ共和国>",
 MM =>"<IMG SRC=images/MM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ミャンマー連邦>",
 MN =>"<IMG SRC=images/MN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モンゴル国>",
 MO =>"マカオ",
 MP =>"北マリアナ諸島",
 MQ =>"マルチニーク島",
 MR =>"<IMG SRC=images/MR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モーリタニア・イスラム共和国>",
 MS =>"モンセラット",
 MT =>"<IMG SRC=images/MT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マルタ共和国>",
 MU =>"<IMG SRC=images/MU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モーリシャス共和国>",
 MV =>"<IMG SRC=images/MV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モルディブ共和国>",
 MW =>"<IMG SRC=images/MW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マラウイ共和国>",
 MX =>"<IMG SRC=images/MX.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=メキシコ合衆国>",
 MY =>"<IMG SRC=images/MY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マレーシア>",
 MZ =>"<IMG SRC=images/MZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モザンビーク共和国>",
 NA =>"<IMG SRC=images/NA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ナミビア共和国>",
 NC =>"ニューカレドニア",
 NE =>"<IMG SRC=images/NE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ニジェール共和国>",
 NF =>"ノーフォーク島",
 NG =>"<IMG SRC=images/NG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ナイジェリア連邦共和国>",
 NI =>"<IMG SRC=images/NI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ニカラグア共和国>",
 NL =>"<IMG SRC=images/NL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=オランダ王国>",
 NO =>"<IMG SRC=images/NO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ノルウェー王国>",
 NP =>"<IMG SRC=images/NP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ネパール王国>",
 NR =>"<IMG SRC=images/NR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ナウル共和国>",
 NT =>"中立地帯",
 NU =>"ニウエ",
 NZ =>"<IMG SRC=images/NZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ニュージーランド>",
 OM =>"オマーン",
 PA =>"<IMG SRC=images/PA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パナマ共和国>",
 PE =>"<IMG SRC=images/PE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ペルー共和国>",
 PF =>"フランス領ポリネシア",
 PG =>"<IMG SRC=images/PG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パプアニューギニア独立国>",
 PH =>"<IMG SRC=images/PH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フィリピン共和国>",
 PK =>"<IMG SRC=images/PK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パキスタン・イスラム共和国>",
 PL =>"<IMG SRC=images/PL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ポーランド共和国>",
 PM =>"サンピエール島・ミクロン島",
 PN =>"ピットケルン島",
 PR =>"<IMG SRC=images/PR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=プエルトリコ自由連合州>",
 PS =>"パレスチナ王国",
 PT =>"<IMG SRC=images/PT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ポルトガル共和国>",
 PW =>"<IMG SRC=images/PW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パラオ共和国>",
 PY =>"パラグアイ",
 QA =>"<IMG SRC=images/QA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カタール国>",
 RE =>"レユニオン",
 RO =>"<IMG SRC=images/RO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ルーマニア>",
 RS =>"<IMG SRC=images/RS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=セルビア・モンテネグロ>",
 RU =>"<IMG SRC=images/RU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ロシア連邦>",
 RW =>"<IMG SRC=images/RW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ルワンダ共和国>",
 SA =>"<IMG SRC=images/SA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サウジアラビア王国>",
 SB =>"<IMG SRC=images/SB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ソロモン諸島>",
 SC =>"セイシェル",
 SD =>"<IMG SRC=images/SD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スーダン共和国>",
 SE =>"<IMG SRC=images/SE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スウェーデン王国>",
 SG =>"<IMG SRC=images/SG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=シンガポール共和国>",
 SH =>"セントヘレナ島",
 SI =>"<IMG SRC=images/SI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スロベニア共和国>",
 SJ =>"スヴァルバルド・ヤンマイェン諸島",
 SK =>"<IMG SRC=images/SK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スロバキア共和国>",
 SL =>"<IMG SRC=images/SL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=シエラレオネ共和国>",
 SM =>"<IMG SRC=images/SM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サンマリノ共和国>",
 SN =>"<IMG SRC=images/SN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=セネガル共和国>",
 SO =>"<IMG SRC=images/SO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ソマリア民主共和国>",
 SR =>"<IMG SRC=images/SR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スリナム共和国>",
 ST =>"<IMG SRC=images/ST.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サントメ・プリンシペ民主共和国>",
 SU =>"ソビエト社会主義共和国連邦",
 SV =>"<IMG SRC=images/SV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エルサルバドル共和国>",
 SY =>"<IMG SRC=images/SY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=シリア・アラブ共和国>",
 SZ =>"<IMG SRC=images/SZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スワジランド王国>",
 TC =>"タークス諸島・カイコス諸島",
 TD =>"<IMG SRC=images/TD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チャド共和国>",
 TF =>"フランス領南方諸島",
 TG =>"<IMG SRC=images/TG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トーゴ共和国>",
 TH =>"<IMG SRC=images/TH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=タイ>",
 TJ =>"<IMG SRC=images/TJ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=タジキスタン共和国>",
 TK =>"トケラウ諸島",
 TM =>"トルクメニスタン",
 TN =>"<IMG SRC=images/TN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チュニジア共和国>",
 TO =>"<IMG SRC=images/TO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トンガ王国>",
 TP =>"<IMG SRC=images/TP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=東ティモール民主共和国>",
 TR =>"<IMG SRC=images/TR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トルコ共和国>",
 TT =>"<IMG SRC=images/TT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トリニダード・トバゴ共和国>",
 TV =>"<IMG SRC=images/TV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ツバル>",
 TW =>"<IMG SRC=images/TW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=台湾>",
 TZ =>"<IMG SRC=images/TZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=タンザニア連合共和国>",
 UA =>"<IMG SRC=images/UA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウクライナ>",
 UG =>"<IMG SRC=images/UG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウガンダ共和国>",
 UK =>"イギリス",
 UM =>"アメリカ辺境諸島",
 US =>"<IMG SRC=images/US.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アメリカ>",
 UY =>"<IMG SRC=images/UY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウルグアイ東方共和国>",
 UZ =>"<IMG SRC=images/UZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウズベキスタン共和国>",
 VA =>"バチカン市国",
 VC =>"セントビンセントおよびグレナディーン諸島",
 VE =>"<IMG SRC=images/VE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベネズエラ・ボリバル共和国>",
 VG =>"イギリス領バージン諸島",
 VI =>"アメリカ領バージン諸島",
 VN =>"<IMG SRC=images/VN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベトナム社会主義共和国>",
 VU =>"<IMG SRC=images/VU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バヌアツ共和国>",
 WF =>"ワリスおよびフツナ諸島",
 WG =>"西ヨルダン・ガザ地区",
 WS =>"<IMG SRC=images/WS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サモア独立国>",
 YE =>"<IMG SRC=images/YE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イエメン共和国>",
 YT =>"マヨテ島",
 YU =>"ユーゴスラビア",
 ZA =>"<IMG SRC=images/ZA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=南アフリカ共和国>",
 ZM =>"<IMG SRC=images/ZM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ザンビア共和国>",
 ZR =>"ザイール",
 ZW =>"<IMG SRC=images/ZW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ジンバブエ共和国>",
 );
 my $country = $_[0];
 return $country_name{ $country };
 }
#==============================================================================
#機能：時刻をYYYY-MM-DD 00:00:00形式で取得する。
#==============================================================================
sub GetDateA {
# my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = &CAR_TIME::GetTime( $_[0] );
 my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
 $sec  = 0;
 $min  = 0;
 $hour = 0;
    $sec  = sprintf("%02d",$sec );
    $min  = sprintf("%02d",$min );
    $hour = sprintf("%02d",$hour);
    $mday = sprintf("%02d",$mday);
    $mon  = sprintf("%02d",$mon );
  return $year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec;
}
__END__

/cgi-bin/surfpoint/welcomeworld.tmpl 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>WORLD ACCESS</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="generator" content="Movable Type 3.34" />
<meta name="" />
<link href="welcome.css" rel="stylesheet" type="text/css" />

</head>
<body>
<!-- コンテナ中央揃え ここから -->
<div align="center">
<div class="welcome">
<TMPL_VAR NAME=COUNTRYNAME>
<br />
WELCOME
</div>
<div class="cap01">Your<TMPL_VAR NAME=TOTALCOUNT>Visitor.</div>

<table width="170" border="0" cellspacing="0" cellpadding="0">
<caption class="cap02">Online Visitors</caption>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_1() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_1>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_1();">
   <TMPL_VAR NAME=NAME1></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS1></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_2() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_2>.html', 'mywindow2', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_2();">
   <TMPL_VAR NAME=NAME2></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS2></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_3() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_3>.html', 'mywindow3', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_3();">
   <TMPL_VAR NAME=NAME3></a>
 </td>

<td class="box01"><TMPL_VAR NAME=ACCESS3></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_4() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_4>.html', 'mywindow4', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_4();">
   <TMPL_VAR NAME=NAME4></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS4></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_5() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_5>.html', 'mywindow5', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_5();">
   <TMPL_VAR NAME=NAME5></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS5></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_6() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_6>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_6();">
   <TMPL_VAR NAME=NAME6></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS6></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_7() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_7>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_7();">
   <TMPL_VAR NAME=NAME7></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS7></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_8() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_8>.html', 'mywindow8', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_8();">
   <TMPL_VAR NAME=NAME8></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS8></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_9() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_9>.html', 'mywindow9', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_9();">
   <TMPL_VAR NAME=NAME9></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS9></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_10() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_10>.html', 'mywindow10', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_10();">
   <TMPL_VAR NAME=NAME10></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS10></td>
</tr>
<td class="box01"> </td>
<td class="box01"> </td>
</tr>
</table>
</div>
</body>
</html>
 

• Related Entries
• 07/10/26MovableType4.01をFastCGIで高速化？
• 07/06/15どこの国から来たのcgiにポップアップ
• 07/06/10どこから来たのCGI
• 08/01/20sensors覚書
• 07/11/22xawtv インストールエラー 解決？？
• 07/11/22xawtv インストールエラー
• 07/11/14opensuse-updater-kde (0.6)
• 07/11/06Maia Mailguard（PEAR）
• 07/10/23CPANでCrypt::DSAインストール
• 07/10/12openSUSE10.2から10.3へバージョンアップ

• Permalink

 どこの国から来たのcgiにポップアップ

• Jun152007
• Author: さんきゅう
• Categories: openSUSE
• Tags: ActivePerl, openSUSE

試行錯誤を繰り返しましたが取りあえずポップアップ表示が可能に・・・・
welcomeworld.cgiに88行目以降に（ACCESS10 => $h_count{10},の下から）
C_ID_1 => $h_country_id{1},
C_ID_2 => $h_country_id{2},
C_ID_3 => $h_country_id{3},
C_ID_4 => $h_country_id{4},
C_ID_5 => $h_country_id{5},
を追加
welcomeworld.tmpl
<head> ~~~~ </head>　間に
<script type="text/javascript" src="http://sunq.jp/archives/overlibmws/iframecontentmws.js"></script>
<script type="text/javascript" src="http://sunq.jp/archives/overlibmws/overlibmws.js"></script>
<script type="text/javascript" src="http://sunq.jp/archives/overlibmws/overlibmws_draggable.js"></script>
<script type="text/javascript" src="http://sunq.jp/archives/overlibmws/overlibmws_filter.js"></script>
<script type="text/javascript" src="http://sunq.jp/archives/overlibmws/overlibmws_overtwo.js"></script>
<script type="text/javascript" src="http://sunq.jp/archives/overlibmws/overlibmws_scroll.js"></script>
<script type="text/javascript" src="http://sunq.jp/archives/overlibmws/overlibmws_shadow.js"></script>
36行目以降
<td class="box01"><TMPL_VAR NAME=NAME1></td>
この箇所を
<td class="box01"><a href="javascript:void(0);"
       onclick="return false;"
       onmouseover="return overlib(
       OLiframeContent('../../GoogleMaps/<TMPL_VAR NAME=C_ID_1>.html', 100, 100, 'if2', 1, 'auto'),
       WIDTH,100, TEXTPADDING,0, BORDER,2, STICKY, DRAGGABLE, CLOSECLICK,
       CAPTIONPADDING,4, CAPTION,'GoogleMaps',
       MIDX,0, MIDY,0,
       STATUS,'Example with iframe content, a caption and a Close link');"
       onmouseout="nd();"><TMPL_VAR NAME=NAME1></a></td>
おもっきり誤魔化した・・・・・
cgi側でやりたい・・・・
吐き出しに<iframe～～　使ってるんで枠外にポップアップが出てこない・・・・
今のところこれ以上は分かりません(･_･;

• Related Entries
• 07/10/26MovableType4.01をFastCGIで高速化？
• 07/06/18どこから来たのcgi 最終分
• 07/06/10どこから来たのCGI
• 08/01/20sensors覚書
• 07/11/22xawtv インストールエラー 解決？？
• 07/11/22xawtv インストールエラー
• 07/11/14opensuse-updater-kde (0.6)
• 07/11/06Maia Mailguard（PEAR）
• 07/10/23CPANでCrypt::DSAインストール
• 07/10/12openSUSE10.2から10.3へバージョンアップ

• Permalink