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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
#!/usr/bin/perl -w
=head1 NAME
Debconf::DbDriver::Pipe - read/write database from file descriptors
=cut
package Debconf::DbDriver::Pipe;
use strict;
use Debconf::Log qw(:all);
use base 'Debconf::DbDriver::Cache';
=head1 DESCRIPTION
This is a debconf database driver that reads the db from a file descriptor when
it starts, and writes it out to another when it saves it. By default, stdin
and stdout are used.
=head1 FIELDS
=over 4
=item infd
File descriptor number to read from. Defaults to reading from stdin. If
it's set to "none", the db won't bother to try to read in an initial
database.
=item outfd
File descriptor number to write to. Defaults to writing to stdout. If
it's set to "none", the db will be thrown away rather than saved.
Setting both infd and outfd to none gets you a writable temporary db in
memory.
=item format
The Format object to use for reading and writing.
In the config file, just the name of the format to use, such as '822' can
be specified. Default is 822.
=back
=cut
use fields qw(infd outfd format);
=head1 METHODS
=head2 init
On initialization, load the entire db into memory and populate the cache.
=cut
sub init {
my $this=shift;
$this->{format} = "822" unless exists $this->{format};
$this->error("No format specified") unless $this->{format};
eval "use Debconf::Format::$this->{format}";
if ($@) {
$this->error("Error setting up format object $this->{format}: $@");
}
$this->{format}="Debconf::Format::$this->{format}"->new;
if (not ref $this->{format}) {
$this->error("Unable to make format object");
}
my $fh;
if (defined $this->{infd}) {
if ($this->{infd} ne 'none') {
open ($fh, "<&=$this->{infd}") or
$this->error("could not open file descriptor #$this->{infd}: $!");
}
}
else {
open ($fh, '-');
}
$this->SUPER::init(@_);
debug "db $this->{name}" => "loading database";
# Now read in the whole file using the Format object.
if (defined $fh) {
while (! eof $fh) {
my ($item, $cache)=$this->{format}->read($fh);
$this->{cache}->{$item}=$cache;
}
close $fh;
}
}
=sub shutdown
Save the entire cache out to the fd. Always writes the cache, even if it's
not dirty, for consistency's sake.
=cut
sub shutdown {
my $this=shift;
return if $this->{readonly};
my $fh;
if (defined $this->{outfd}) {
if ($this->{outfd} ne 'none') {
open ($fh, ">&=$this->{outfd}") or
$this->error("could not open file descriptor #$this->{outfd}: $!");
}
}
else {
open ($fh, '>-');
}
if (defined $fh) {
$this->{format}->beginfile;
foreach my $item (sort keys %{$this->{cache}}) {
next unless defined $this->{cache}->{$item}; # skip deleted
$this->{format}->write($fh, $this->{cache}->{$item}, $item)
or $this->error("could not write to pipe: $!");
}
$this->{format}->endfile;
close $fh or $this->error("could not close pipe: $!");
}
return 1;
}
=sub load
Sorry bud, if it's not in the cache, it doesn't exist.
=cut
sub load {
return undef;
}
=head1 AUTHOR
Joey Hess <joeyh@debian.org>
=cut
1
|
