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
|
package MDV::Distribconf;
our @ISA = qw();
sub _expand { my ($_self, $_media, $_value, $_o_level) = @_ }
sub check_mediacfg_version { my ($_distrib, $_o_wanted_version) = @_ }
sub getdpath { my ($_distrib, $_media, $_o_var) = @_ }
sub getfulldpath() {}
sub getfullmediapath() {}
sub getfullpath() {}
sub getmediapath { my ($_distrib, $_media, $_o_var) = @_ }
sub getpath { my ($_distrib, $_media, $_o_var) = @_ }
sub getvalue { my ($_distrib, $_media, $_var, $_o_level) = @_ }
sub listmedia { my ($_o_distrib) = @_ }
sub load { my ($_o_distrib) = @_ }
sub loadtree { my ($_o_distrib) = @_ }
sub mediaexists { my ($_distrib, $_o_media) = @_ }
sub mymediacfg_version() {}
sub new { my ($_class, $_path, $_o_mediacfg_version) = @_ }
sub parse_hdlists { my ($_distrib, $_o_hdlists) = @_ }
sub parse_mediacfg { my ($_distrib, $_o_mediacfg) = @_ }
sub parse_version { my ($_distrib, $_o_fversion) = @_ }
sub settree { my ($_distrib, $_o_spec) = @_ }
package MDV::Distribconf::Build;
our @ISA = qw();
sub _post_delvalue { my ($_distrib, $_cmedia, $_o_cvar) = @_ }
sub _post_setvalue { my ($_distrib, $_cmedia, $_cvar, $_o_cval) = @_ }
sub create_media { my ($_self, $_o_media) = @_ }
sub delvalue { my ($_distrib, $_media, $_o_var) = @_ }
sub init { my ($_self, $_o_flavour) = @_ }
sub list_existing_medias { my ($_o_self) = @_ }
sub new() {}
sub set_all_medias_size { my ($_o_self) = @_ }
sub set_media_size { my ($_self, $_o_media) = @_ }
sub setvalue { my ($_distrib, $_media, $_var, $_o_val) = @_ }
sub write_hdlists { my ($_distrib, $_o_hdlists) = @_ }
sub write_mediacfg { my ($_distrib, $_o_hdlistscfg) = @_ }
sub write_productid { my ($_distrib, $_o_productid) = @_ }
sub write_version { my ($_distrib, $_o_version) = @_ }
package MDV::Distribconf::Checks;
our @ISA = qw();
sub _report_err { my ($_out, $_err_code, $_fmt, @_more_paras) = @_ }
sub check { my ($_self, $_o_fhout) = @_ }
sub check_config { my ($_self, $_o_fhout) = @_ }
sub check_global_md5 { my ($_o_self) = @_ }
sub check_index_sync() {}
sub check_media_coherency { my ($_distrib, $_o_fhout) = @_ }
sub check_media_md5 { my ($_self, $_o_media) = @_ }
sub checkdistrib { my ($_self, $_o_fhout) = @_ }
sub get_index_sync_offset { my ($_self, $_media, $_o_submedia) = @_ }
sub new() {}
package MDV::Distribconf::MediaCFG;
our @ISA = qw();
sub _valid_param { my ($_media, $_var, $_o_val) = @_ }
sub _value_info() {}
package MDV::Distribconf::Utils;
our @ISA = qw();
sub checkmd5 { my ($_md5file, @_more_paras) = @_ }
sub hdlist_vs_dir { my ($_hdlist, @_more_paras) = @_ }
|
