# vim: set et ts=4 sw=4: package AdminPanel::SettingsReader; #============================================================= -*-perl-*- =head1 NAME AdminPanel::SettingsReader - This module allows to load an XML configuration file =head1 SYNOPSIS use AdminPanel::SettingsReader; my $settings = new AdminPanel::SettingsReader($fileName); =head1 DESCRIPTION This module allows to load a configuration file returning a Hash references with its content. =head1 SUPPORT You can find documentation for this module with the perldoc command: perldoc AdminPanel::SettingsReader =head1 SEE ALSO XML::Simple =head1 AUTHOR Angelo Naselli =head1 COPYRIGHT and LICENSE Copyright (C) 2012-2014, Angelo Naselli. This file is part of AdminPanel AdminPanel is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 2 of the License, or (at your option) any later version. AdminPanel is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with AdminPanel. If not, see . =head1 FUNCTIONS =cut use strict; use warnings; use diagnostics; use XML::Simple; use Data::Dumper; #============================================================= =head2 new =head3 INPUT $fileName: File to be loaded =head3 OUTPUT $settings: Hash reference containing read settings =head3 DESCRIPTION The constructor just loads the given files and return its representation into a hash reference. =cut #============================================================= sub new { my ($class, $fileName) = @_; my $self = { settings => 0, }; bless $self, 'AdminPanel::SettingsReader'; die "File " . $fileName . " not found" if (! -e $fileName); my $xml = new XML::Simple (KeyAttr=>[]); $self->{settings} = $xml->XMLin($fileName); return $self->{settings}; } 1; DK-10_2-update Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
blob: 713484da35339e61bfc9a4b86c09c86115120af7 (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