#!/usr/bin/perl

#### Limixdb 使用方法 ####
#### /usr/lib/perl5/site_perl/Limixdb.pm ####



##--- Limixdbをuseする ---##
use Limixdb;
use DBI;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html; charaset=UTF-8\n\n";





##########################
#### package Limixdb ####

##--- Limixdbオブジェクトを生成 ---##
my $ddhh = new Limixdb;



##--- setMethod関数で、データベース情報を送信	---##
#### 必須※		引数(1) ＤＢドライバ[mysql || Pg]	####
#### 必須※		引数(2) データベース名					####
#### 省略可※	引数(3) ユーザ名						####
#### 省略可※	引数(4) パスワード						####
#### (3)(4)のデフォルトは、MYSQL→root、Postgres→ootomo ####

#	$ddhh->setMethod('mysql', 'DB名');
	$ddhh->setMethod('Pg', 'DB名');


##--- sqlCon関数で、コネクト		---##
	my $dbh = $ddhh->sqlCon;


my $sth = $dbh->prepare("SELECT * FROM limix");
$sth->execute;
while(@lis = $sth->fetchrow_array){
	print $lis[0], "\n";
	print $lis[1], "\n\n";
}





#########################
#### package Limix   ####

##--- Limixをuseする ---##
my $Limix = new Limix;


$limixIndex	 = $Limix->limixIndex;	#indexのURL

$hostIp		 = $Limix->hostIp;			# Host IP




__DATA__

package Limix;

sub new{ 
	my $class = shift;
	my $self = {};
	bless $self, $class;
}


sub hostIp { return 'RH5.3＠ESXのIPアドレス'; }


sub limixIndex { 
	my $ip = &hostIp();
	my $limixurl = "http://$ip/index.html";
}


sub thisPath { my $thisPath = $ENV{'SCRIPT_FILENAME'}; }



1;