← Back to branch summary

~ubuntu-branches/ubuntu/karmic/sbuild/karmic-proposed

« back to all changes in this revision

Viewing changes to lib/Sbuild/DB/Postgres.pm

  • Committer: Bazaar Package Importer
  • Author(s): Kees Cook
  • Date: 2009-05-09 16:06:44 UTC
  • mfrom: (8.1.6 upstream) (3.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090509160644-9k0fgp6c2ajcu54h
Tags: 0.58.2-1ubuntu1
* Merge from debian unstable, remaining changes:
  - bin/sbuild, lib/Sbuild/{Base,Conf,Options}.pm: add --setup-hook
    to allow pre-build modifications to underlying chroots (needed
    to adjust pockets and components in sources.list).  (debian bug
    500746).

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Sbuild/DB/Postgres.pm
 
1
#
 
2
# Postgres.pm: PostgreSQL database abstraction
 
3
# Copyright © 1998      Roman Hodek <Roman.Hodek@informatik.uni-erlangen.de>
 
4
# Copyright © 2005      Ryan Murray <rmurray@debian.org>
 
5
# Copyright © 2005-2008 Roger Leigh <rleigh@debian.org>
 
6
#
 
7
# This program is free software: you can redistribute it and/or modify
 
8
# it under the terms of the GNU General Public License as published by
 
9
# the Free Software Foundation, either version 2 of the License, or
 
10
# (at your option) any later version.
 
11
#
 
12
# This program is distributed in the hope that it will be useful, but
 
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
15
# General Public License for more details.
 
16
#
 
17
# You should have received a copy of the GNU General Public License
 
18
# along with this program.  If not, see
 
19
# <http://www.gnu.org/licenses/>.
 
20
#
 
21
#######################################################################
 
22
 
 
23
package Sbuild::DB::Postgres;
 
24
 
 
25
use strict;
 
26
use warnings;
 
27
 
 
28
use Sbuild qw(debug isin);
 
29
use Sbuild::DB::Base;
 
30
use DBI;
 
31
 
 
32
BEGIN {
 
33
    use Exporter ();
 
34
    our (@ISA, @EXPORT);
 
35
 
 
36
    @ISA = qw(Exporter Sbuild::DB::Base);
 
37
 
 
38
    @EXPORT = qw();
 
39
}
 
40
 
 
41
sub new {
 
42
    my $class = shift;
 
43
    my $conf = shift;
 
44
 
 
45
    my $self = $class->SUPER::new($conf);
 
46
    bless($self, $class);
 
47
 
 
48
    return $self;
 
49
}
 
50
 
 
51
sub open {
 
52
    my $self = shift;
 
53
    my $dist = shift;
 
54
 
 
55
    my $dbname = $self->get_conf('DB_BASE_NAME');
 
56
    my $db = DBI->connect('DBI:Pg:$dbname=')
 
57
        or die "Couldn't connect to database '$dbname': " . DBI->errstr;
 
58
 
 
59
    $self->set('DIST', $dist);
 
60
    $self->set('DB', $db);
 
61
}
 
62
 
 
63
sub close {
 
64
    my $self = shift;
 
65
 
 
66
    my $db = $self->get('DB');
 
67
    $db->disconnect();
 
68
 
 
69
    $self->set('DB', undef);
 
70
 
 
71
    $self->set('FILE', undef);
 
72
}
 
73
 
 
74
sub lock  {
 
75
# No-op for Postgres
 
76
}
 
77
 
 
78
sub unlock ($) {
 
79
# No-op for Postgres
 
80
}
 
81
 
 
82
sub clear {
 
83
    my $self = shift;
 
84
 
 
85
    my $db = $self->get('DB');
 
86
 
 
87
    # DELETE * FROM...
 
88
}
 
89
 
 
90
sub list_packages {
 
91
    my $self = shift;
 
92
 
 
93
    my $db = $self->get('DB');
 
94
 
 
95
    my @packages;
 
96
 
 
97
    # SELECT * FROM ... WHERE arch= and dist=
 
98
 
 
99
    return @packages;
 
100
}
 
101
 
 
102
sub get_package {
 
103
    my $self = shift;
 
104
    my $pkg = shift;
 
105
 
 
106
    my $pkgobj = undef;
 
107
 
 
108
    if ($pkg !~ /^_/) {
 
109
        # SELECT * FROM ... WHERE arch= and dist=
 
110
    }
 
111
 
 
112
    return $pkgobj;
 
113
}
 
114
 
 
115
sub set_package {
 
116
    my $self = shift;
 
117
    my $pkg = shift;
 
118
 
 
119
    if ($pkg !~ /^_/) {
 
120
        my $db = $self->get('DB');
 
121
 
 
122
        my $name = $pkg->{'Package'};
 
123
 
 
124
 
 
125
        # INSERT INTO or UPDATE ...
 
126
    } else {
 
127
        $pkg = undef;
 
128
    }
 
129
 
 
130
    return $pkg;
 
131
}
 
132
 
 
133
sub del_package {
 
134
    my $self = shift;
 
135
    my $pkg = shift;
 
136
 
 
137
    my $name = $pkg;
 
138
    $name = $pkg->{'Package'} if (ref($pkg) eq 'HASH');
 
139
 
 
140
    my $success = 0;
 
141
 
 
142
    if ($pkg !~ /^_/) {
 
143
        my $db = $self->get('DB');
 
144
 
 
145
        # DELETE FROM ...
 
146
 
 
147
        $success = 1;
 
148
    }
 
149
 
 
150
    return $success;
 
151
}
 
152
 
 
153
sub list_users {
 
154
    my $self = shift;
 
155
 
 
156
    my $db = $self->get('DB');
 
157
 
 
158
    my @users = ();
 
159
 
 
160
    # SELECT * FROM builders
 
161
 
 
162
    return @users;
 
163
}
 
164
 
 
165
sub get_user {
 
166
    my $self = shift;
 
167
    my $user = shift;
 
168
 
 
169
    my $db = $self->get('DB');
 
170
 
 
171
    my $userobj = undef;
 
172
 
 
173
    # SELECT * FROM builders
 
174
 
 
175
    return $userobj;
 
176
}
 
177
 
 
178
sub set_user {
 
179
    my $self = shift;
 
180
    my $user = shift;
 
181
 
 
182
    my $db = $self->get('DB');
 
183
 
 
184
    my $name = $user->{'User'};
 
185
    # INSERT INTO builders...
 
186
 
 
187
    return $user;
 
188
}
 
189
 
 
190
sub del_user {
 
191
    my $self = shift;
 
192
    my $user = shift;
 
193
 
 
194
    my $name = $user;
 
195
    $name = $user->{'User'} if (ref($user) eq 'HASH');
 
196
 
 
197
    my $db = $self->get('DB');
 
198
 
 
199
    my $success = 0;
 
200
 
 
201
    # DELETE FROM builders...
 
202
 
 
203
    return $success
 
204
}
 
205
 
 
206
sub dump {
 
207
    my $self = shift;
 
208
    my $file = shift;
 
209
 
 
210
    my $db = $self->get('DB');
 
211
 
 
212
    my($name,$pkg,$key);
 
213
 
 
214
    print "Writing ASCII database to $file..." if $self->get_conf('VERBOSE') >= 1;
 
215
    CORE::open( F, ">$file" ) or
 
216
        die "Can't open database $file: $!\n";
 
217
 
 
218
    foreach $name ($self->list_packages()) {
 
219
        my $pkg = $self->get_package($name);
 
220
        foreach $key (keys %{$pkg}) {
 
221
            my $val = $pkg->{$key};
 
222
            chomp( $val );
 
223
            $val =~ s/\n/\n /g;
 
224
            print F "$key: $val\n";
 
225
        }
 
226
        print F "\n";
 
227
    }
 
228
 
 
229
    foreach my $user ($self->list_users()) {
 
230
        my $ui = $self->get_user($user);
 
231
        print F "User: $user\n"
 
232
            if (!defined($ui->{'User'}));
 
233
        foreach $key (keys %{$ui}) {
 
234
            my $val = $ui->{$key};
 
235
            chomp($val);
 
236
            $val =~ s/\n/\n /g;
 
237
            print F "$key: $val\n";
 
238
        }
 
239
        print F "\n";
 
240
    }
 
241
 
 
242
    CORE::close(F);
 
243
    print "done\n" if $self->get_conf('VERBOSE') >= 1;
 
244
}
 
245
 
 
246
sub restore {
 
247
    my $self = shift;
 
248
    my $file = shift;
 
249
 
 
250
    my $db = $self->get('DB');
 
251
 
 
252
    print "Reading ASCII database from $file..." if $self->get_conf('VERBOSE') >= 1;
 
253
    CORE::open( F, "<$file" ) or
 
254
        die "Can't open database $file: $!\n";
 
255
 
 
256
    local($/) = ""; # read in paragraph mode
 
257
    while( <F> ) {
 
258
        my( %thispkg, $name );
 
259
        s/[\s\n]+$//;
 
260
        s/\n[ \t]+/\376\377/g;  # fix continuation lines
 
261
        s/\376\377\s*\376\377/\376\377/og;
 
262
 
 
263
        while( /^(\S+):[ \t]*(.*)[ \t]*$/mg ) {
 
264
            my ($key, $val) = ($1, $2);
 
265
            $val =~ s/\376\377/\n/g;
 
266
            $thispkg{$key} = $val;
 
267
        }
 
268
        $self->check_entry( \%thispkg );
 
269
        # add to db
 
270
        if (exists($thispkg{'Package'})) {
 
271
            $self->set_package(\%thispkg);
 
272
        } elsif(exists($thispkg{'User'})) {
 
273
            $self->set_user(\%thispkg);
 
274
        }
 
275
    }
 
276
    CORE::close( F );
 
277
    print "done\n" if $self->get_conf('VERBOSE') >= 1;
 
278
}
 
279
 
 
280
sub check_entry {
 
281
    my $self = shift;
 
282
    my $pkg = shift;
 
283
    my $field;
 
284
 
 
285
    # TODO: Why should manual editing disable sanity checking?
 
286
    return if $self->get_conf('DB_OPERATION') eq "manual-edit"; # no checks then
 
287
 
 
288
    # check for required fields
 
289
    if (!exists $pkg->{'Package'} && !exists $pkg->{'User'}) {
 
290
        print STDERR "Bad entry: ",
 
291
        join( "\n", map { "$_: $pkg->{$_}" } keys %$pkg ), "\n";
 
292
        die "Database entry lacks Package or User: field\n";
 
293
    }
 
294
 
 
295
    if (exists $pkg->{'Package'}) {
 
296
        if (!exists $pkg->{'Version'}) {
 
297
            die "Database entry for package $pkg->{'Package'} lacks Version: field\n";
 
298
        }
 
299
        # if no State: field, generate one (for old db compat)
 
300
        if (!exists($pkg->{'State'})) {
 
301
            $pkg->{'State'} =
 
302
                exists $pkg->{'Failed'} ? 'Failed' : 'Building';
 
303
        }
 
304
        # check state field
 
305
        die "Bad state $pkg->{'State'} of package $pkg->{Package}\n"
 
306
            if !isin($pkg->{'State'},
 
307
                     qw(Needs-Build Building Built Build-Attempted
 
308
                        Uploaded Installed Dep-Wait Failed
 
309
                        Failed-Removed Not-For-Us) );
 
310
    }
 
311
    if (exists $pkg->{'User'}) {
 
312
        if (!exists $pkg->{'Last-Seen'}) {
 
313
            die "Database entry for user $pkg->{'User'} lacks Last-Seen: field\n";
 
314
        }
 
315
    }
 
316
}
 
317
 
 
318
sub clean {
 
319
    my $self = shift;
 
320
 
 
321
    my $db = $self->get('DB');
 
322
 
 
323
    # VACUUM
 
324
 
 
325
}
 
326
 
 
327
1;