package				database							;
use				strict								;
use				warnings							;
use				DBI								;

	our			$con								=
				"DBI:mysql:test_db"						;
	our			$user								=
				"root"								;
	our			$passwort							=
				"pwd"								;
	my			$db								;
		
sub		open_db										{
				$db								=
		DBI										->
		connect										(
				$con								,
				$user								,
				$passwort
												)
		or
		die		"DB connection not made: $DBI::errstr"
		unless		$db								;
		return		$db								;
												}
sub		close_db									{
		return
		unless		$db								;
				$db								->
		disconnect									;
		undef		$db								;
												}
sub		insert_tab									{
	my			$table								=
		shift										;
	my			$values								=
		shift										;
	my			$primary_key							=
		shift										;

		return		0				
		unless		$table								&&
				$values								;
		return		0
		if
		ref		$values								ne
				'HASH'								;
	my			@vals								;
	my			@keys								;
		while										(
	my											(
				$k								,
				$v								)
												=
		each		%$values							)
												{
		push		@vals								,
				$v								;
		push		@keys								,
				$k								;
												}
	my			$insert_keys							=
		join		', '								,
				@keys								;
	my			$insert_vals							=
		join		', '								,
				'?'								x
				@keys;
	my			$dbh								=
		open_db										;
	my			$sth								=
				$dbh								->
		prepare										(	
				"INSERT INTO $table ( $insert_keys ) VALUES ( $insert_vals )"
												)
												;
	my			$ok								=
				$sth								->
		execute										(
				@$values							)
												;
				$sth								->
		finish										;

		return		1
		if		$ok								;
		return		0
		unless	
		defined		$primary_key							;
		return		0
		unless
		exists		$values								->
												{
				$primary_key							}
												;

	my			$primary_val							=
		delete		$values								->
												{
				$primary_key							}
												;
				$#vals								=
				0								;
				$#keys								=
				0								;
		while										(
	my											(
				$k								,
				$v								)
												=
		each		%$values							)
												{
		push		@vals								,
				$v;
		push		@keys								,
				$k;			
												}
	my			$update_vals							=
		join		', '								,
		map		"$_ = ?"							,
				@keys								;

				$sth								=
				$dbh								->
		prepare										(
				"UPDATE $table SET $update_vals WHERE $primary_key = ?"
												)
												;
				$ok								=
				$sth								->
		execute										(
				@vals								,
				$primary_val							)
												;
				$sth								->
		finish										;
		return		$ok;
												}

				1								;