envpolicyupdate.pl

コミット日時:

2010/02/28 22:28:26 (15 年前)

コミッタ:

sorshi

ログメッセージ:

SQLite採用

ファイル:

trunk/install/perl/envpolicyupdate.pl

r70	r94
16	16	use DBI;
17	17	use DBD::Pg;
	18	use DBD::SQLite;
18	19
19	20	$path = $0;
20	21	$path =~ s/envpolicyupdate.pl$//i;
21		if ($pwd ne "./"){
	22	if ($path ne "./"){
22	23	push( @INC, "$path");
23	24	}
…	…
33	34	eval "$returnparam\n";
34	35
35		my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
36		$DBDriv,$DBName,$DBHost,$DBPort);
37		$dbh = DBI->connect($data_source,$DBUser,$DBPass) \|\|die $DBI::error;;
	36	$dbh = DBI->connect($DSN,$DBUser,$DBPass) \|\|die $DBI::error;;
38	37
39		$DBQuery = "SELECT userclass,name,passwd1 FROM foltia_envpolicy ";
40
41		$envph = $dbh->prepare($DBQuery);
	38	$envph = $dbh->prepare($stmt{'envpolicyupdate.1'});
42	39	$envph->execute();
43	40