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
|
#!/usr/bin/perl -w
#
# Debian-specific script to unregister a plugin from the SF database
use DBI ;
use strict ;
use diagnostics ;
use vars qw/$dbh @reqlist $plugin_name $plugin_desc $plugin_id/ ;
sub debug ( $ ) ;
require ("/usr/lib/gforge/lib/include.pl") ; # Include all the predefined functions
&db_connect ;
if ($#ARGV < 0) {
debug "Usage: unregister-plugin <plugin name>" ;
exit 1 ;
}
$plugin_name = $ARGV [0] ;
if ($plugin_name =~ /[^a-z]/) {
debug "Error: the plugin name must contain only [a-z] characters" ;
exit 1 ;
}
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
eval {
my ($query, $query2, $query3, $sth, @array, @array2, @array3, $version, $action) ;
$query = "SELECT count(*) FROM plugins WHERE plugin_name = '$plugin_name'" ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
@array = $sth->fetchrow_array () ;
$sth->finish () ;
if ($array[0] == 1) {
# Looking if this plugin is already referenced by a group
$query2="SELECT group_plugin.plugin_id FROM group_plugin,plugins WHERE group_plugin.plugin_id=plugins.plugin_id AND plugin_name = '$plugin_name'";
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
@array2 = $sth->fetchrow_array () ;
$sth->finish () ;
if ($array2[0] >= 1) {
print "WARNING: This plugin is already used by one or more groups, can't unregister\n"
} else {
$query3="SELECT user_plugin.plugin_id FROM user_plugin,plugins WHERE user_plugin.plugin_id=plugins.plugin_id AND plugin_name = '$plugin_name'";
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
@array3 = $sth->fetchrow_array () ;
$sth->finish () ;
if ($array3[0] >= 1) {
print "WARNING: This plugin is already used by one or more users, can't unregister\n"
} else {
$query = "DELETE FROM plugins WHERE plugin_name = '$plugin_name'" ;
$sth = $dbh->prepare ($query) ;
$sth->execute () ;
$sth->finish () ;
$plugin_id = $array[0] ;
debug "Plugin '$plugin_name' successfully unregistered." ;
# debug "Committing." ;
$dbh->commit () ;
}
}
} else {
debug "No plugin '$plugin_name' found, skipping." ;
}
# 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 $@" ;
$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 ;
sub debug ( $ ) {
my $v = shift ;
chomp $v ;
print STDERR "$v\n" ;
}
|
