blob: 46b3dc53d05489738c884393e678d76ec3649bb1 (
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
|
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} = {};
=head3 size
The size of the media. The value is suffixed by the unit.
=cut
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;
}
1;
|