view release on metacpan or  search on metacpan

lib/CGI/Application/Demo/Basic/Util/Create.pm  view on Meta::CPAN

	$self -> create_faculty_table;
	$self -> create_log_table;
	$self -> create_sessions_table;

	my($config) = CGI::Application::Demo::Basic::Util::Config -> new($self -> config_file_name) -> config;
	my($dsn)    = $$config{dsn};
	$dsn        =~ s/.+dbname=(.+)/$1/;

	if ($self -> db_vendor eq 'SQLITE')
	{
		`chmod a+w $dsn`;
	}

}	# End of create_all_tables.

# --------------------------------------------------

sub create_faculty_table
{
	my($self)        = @_;
	my($table_name)  = 'faculty';