#! /usr/bin/perl

#---------------------------------------------------------------------
# - プログラム名    データベース・データ表示
# - バージョン      0.1
# - 公開/更新日     2011.8.1
# - ファイル名      UpdDB_Sample.cgi
#---------------------------------------------------------------------
# このCGIはブログ掲載用にサンプルとして作成たものです。
#---------------------------------------------------------------------
#
#use CGI::Carp qw/fatalsToBrowser/;
use CGI;
use DBI;
use Encode qw(from_to);

#--- 引数取得 --
$q = new CGI;
my $myID=$q->param('myID');

#--- 変数 ---
my $DatabaseName='hogeDB';
my $DatabaseHost='mysql9999.db.sakura.ne.jp';
my $DatabaseAccount='hogeUser';
my $DatabasePasswd='hogePasswd';
my $DBOpen='close';
my $strSQL='';
my $sth='';
my @ErrMSG=();
my $result='';


#--- データベース接続 ---
my $dsn="DBI:mysql:".$DatabaseName.":".$DatabaseHost;
my $db = DBI->connect($dsn, $DatabaseAccount, $DatabasePasswd, { RaiseError => 1, AutoCommit => 0 });
if(! $db){ push(@ErrMsg,"Not Connected Database"); }else{ $DBOpen='open'; }

if(@ErrMsg == 0) {

	#--- キャラクターセットの通知 --
	$strSQL = "set names utf8";
	$sth = $db->prepare($strSQL);
	$sth->execute;

	#--- 処理済みにするSQL ---
	$strSQL = 'UPDATE `myblogsamp` SET Sumi=1 WHERE ID='.$myID;
	$sth = $db->prepare($strSQL);
	$sth->execute;

	#--- データベース終了する
	if($DBOpen eq 'open') { $db->disconnect; }

	$result='Update End';

}else{
	$result=@Error;
}


#--- 結果表示 --
	print "Content-type: text/html; charset=Shift-Jis\n\n";
	print $result;

exit;