[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Start of perl setup and drop db scripts



OK, these are very rough starts.
I am only doing command line stuff so far.
I am still looking at adding admin user through
save_user.
Right now just doing it manually.
I found a couple of problems.


DBD::Pg::db pg_putcopyend failed: ERROR:  duplicate key value violates
unique constraint "language_pkey"
DETAIL:  Key (code)=(pl) already exists.
CONTEXT:  COPY language, line 1: "pl|Polish" at dirt.pl line 207.
Not getting all languages into language table

Fixed with :
my $cmd="SELECT code FROM language;";
my @languages;
undef my $vetor;
my $sth = $dbh->prepare($cmd);
	$sth->execute;
	while ($vetor = $sth->fetchrow) {
		push @languages, $vetor;
		}
		$sth->finish;

######################################################

no tsearch2 in LedgerSMB::Database->create for 9.1+ or in
sql/Pg-database.sql


I added a perl script to drop company database, optionally database
owner role and optionally admin role;


Feel free to criticize and make suggestions.
I have to do a lot more, obviously

I can't get any of this to indent right so I will attach the two files
and put up a copy at:
http://64.85.161.47:8081/dirt.pl
http://64.85.161.47:8081/mydrop_db_roles.pl

Chris Bennett

Attachment: dirt.pl
Description: Perl program

Attachment: mydrop_db_roles.pl
Description: Perl program