1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#!/usr/bin/perl -w
#
# $Id: db-delete.pl,v 1.1.1.1 2004/05/16 16:52:23 lo-lan-do Exp $
#
# Debian-specific script to delete plugin-specific tables
# Roland Mas <lolando@debian.org>
use strict ;
use diagnostics ;
use DBI ;
use MIME::Base64 ;
use HTML::Entities ;
use vars qw/$dbh @reqlist $query/ ;
use vars qw/$sys_default_domain $sys_cvs_host $sys_download_host
$sys_shell_host $sys_users_host $sys_docs_host $sys_lists_host
$sys_dns1_host $sys_dns2_host $FTPINCOMING_DIR $FTPFILES_DIR
$sys_urlroot $sf_cache_dir $sys_name $sys_themeroot
$sys_news_group $sys_dbhost $sys_dbname $sys_dbuser $sys_dbpasswd
$sys_ldap_base_dn $sys_ldap_host $admin_login $admin_password
$server_admin $domain_name $newsadmin_groupid $statsadmin_groupid
$skill_list/ ;
use vars qw/$pluginname $pluginid/ ;
require ("/usr/lib/gforge/lib/include.pl") ; # Include a few predefined functions
require ("/usr/lib/gforge/lib/sqlparser.pm") ; # Our magic SQL parser
require ("/usr/lib/gforge/lib/sqlhelper.pm") ; # Our SQL functions
&debug ("You'll see some debugging info during this installation.") ;
&debug ("Do not worry unless told otherwise.") ;
&db_connect ;
# &debug ("Connected to the database OK.") ;
$pluginname = "scmcvs" ;
$pluginid = -1 ;
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
eval {
my ($sth, @array, $version, $action, $path, $target, $rname) ;
$pluginid = &get_plugin_id ($dbh, $pluginname) ;
&remove_plugin_from_groups ($dbh, $pluginid) ;
&remove_plugin_from_users ($dbh, $pluginid) ;
my $pattern = "plugin_" . $pluginname . '_%' ;
$query = "SELECT relname FROM pg_class WHERE relname LIKE '$pattern' AND relkind='v'" ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
while (@array = $sth->fetchrow_array ()) {
$rname = $array [0] ;
&drop_view_if_exists ($dbh, $rname) ;
}
$sth->finish () ;
$query = "SELECT relname FROM pg_class WHERE relname LIKE '$pattern' AND relkind='r'" ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
while (@array = $sth->fetchrow_array ()) {
$rname = $array [0] ;
&drop_table_if_exists ($dbh, $rname) ;
}
$sth->finish () ;
$query = "SELECT relname FROM pg_class WHERE relname LIKE '$pattern' AND relkind='i'" ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
while (@array = $sth->fetchrow_array ()) {
$rname = $array [0] ;
&drop_index_if_exists ($dbh, $rname) ;
}
$sth->finish () ;
$query = "SELECT relname FROM pg_class WHERE relname LIKE '$pattern' AND relkind='S'" ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
while (@array = $sth->fetchrow_array ()) {
$rname = $array [0] ;
&drop_sequence_if_exists ($dbh, $rname) ;
}
$sth->finish () ;
$dbh->commit ();
&debug ("It seems your database deletion went well and smoothly. That's cool.") ;
&debug ("Please enjoy using Debian GForge.") ;
# There should be a commit at the end of every block above.
# If there is not, then it might be symptomatic of a problem.
# For safety, we roll back.
$dbh->rollback ();
};
if ($@) {
warn "Transaction aborted because $@" ;
&debug ("Transaction aborted because $@") ;
&debug ("Last SQL query was:\n$query\n(end of query)") ;
$dbh->rollback ;
&debug ("Please report this bug on the Debian bug-tracking system.") ;
&debug ("Please include the previous messages as well to help debugging.") ;
&debug ("You should not worry too much about this,") ;
&debug ("your DB is still in a consistent state and should be usable.") ;
exit 1 ;
}
$dbh->rollback ;
$dbh->disconnect ;
|
