blob: 0566f3c0db6253473aca2a01744d54cbed5c3142 (
plain)
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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
package MDV::Distribconf::MediaCFG;
use strict;
use warnings;
our $VERSION = (qq$Revision$ =~ /(\d+)/)[0];
=head1 NAME
MDV::Distribconf::MediaCFG
=head1 DESCRIPTION
This module provide documenation of know value in media.cfg
=head1 VALUE
=cut
my $value = {};
=head2 GLOBAL VALUES
This value can only be set into 'media_info' section.
=head3 mediacfg_version
The version of the media_cfg
See L<MDV::Distribconf> for more detail about it
=cut
$value->{version} = { section => 'media_info' };
=head3 version
The version of distrib
=cut
$value->{arch} = { section => 'media_info' };
=head3 arch
The arcitecture of the distribution
=cut
$value->{branch} = { section => 'media_info' };
=head3 branch
The branch of the distribution.
=cut
=head2 MEDIA VALUES
=cut
foreach (qw(hdlist name synthesis pubkey)) {
$value->{$_} = { };
}
=head3 name
The name of the media. If unset, the section is the name.
=head3 hdlist
The hdlist file holding rpm infos for the media
=head3 synthesis
The synthesis file holding rpm infos for the media
=head3 pubkey
The file holding public gpg key used to sign rpms in this media.
=cut
$value->{srpms} = { deny => 'rpms' };
=head3 srpms
If the media hold binaries rpms, this parameter contains
the list of medias holding corresponding sources rpms.
=cut
$value->{rpms} = { deny => 'srpms' };
=head3 rpms
If the media hold sources rpms, this parameter contains
the list of media holding binaries rpms build by srpms from this media.
=cut
$value->{debugfor} = {};
=head3 debugfor
If the media contain debug rpms, it contain the list of media for which
rpms are debug rpms.
=cut
$value->{noauto} = {};
=head3 noauto
This value is used by tools to assume if the media should automatically
added to the config (urpmi).
=cut
$value->{size} = {
validation => sub {
my ($v) = @_;
if ($v =~ /^(\d+)(\w)?$/) {
if ($2) {
if (! grep { lc($2) eq $_ } qw(k m g t p)) {
return("wrong unit");
}
}
return;
} else {
return ("malformed value");
}
},
};
=head3 size
The size of the media. The value is suffixed by the unit.
=cut
# valid_param($media, $var, $val)
#
# Return a list of errors (if any) about having such value in the config
sub _valid_param {
my ($media, $var, $val) = @_[-3..-1];
if (!exists($value->{$var})) {
return ("unknow var");
}
$media ||= 'media_info'; # assume default
my @errors;
if ($value->{$var}{section} && $value->{$var}{section} ne $media) {
push(@errors, "wrong section: should be in $value->{$var}{section}");
}
if ($value->{$var}{validation}) {
push(@errors, $value->{$var}{validation}->($val));
}
return @errors;
}
# Retun a hash containing information about $var
sub _value_info {
my ($var) = $_[-1];
if (exists($value->{$var})) {
return $value->{$var}
}
return;
}
1;
|