Erreur de ParseConfig

**stygre** · 18/03/2008, 19h04

Bonjour,

J'ai fait un script qui doit m'envoyer un fichier par mail.
Les paramètres mail sont passé via un fichier d'option.
Lorsque j'utilise mon script, j'ai l'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Undefined subroutine &main::ParseConfig called at C:\toto.pl line 18.

J'utilisai mon script depuis 2 an mais j'ai été obliger de réinstaler mon PC (XP Pro + activePerl).J'ai donc supposer que mes module n'etait pas a jour.Une fois la maj effecrtuée, tjr le meme probleme.

Voyez vous d'où peut venir le probleme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use Config::General qw(ParseConfig);
use Getopt::Long;
use Mail::Sender;
use Win32API::File;
use strict;

my %config;
my ($opt_conf,$opt_h);

# Vérification des options passées en ligne de commande
GetOptions("c=s" => \$opt_conf,"conf=s" => \$opt_conf,
	   "h" => \$opt_h, "help" => \$opt_h);

if ($opt_h) { print_help();exit;}
elsif ($opt_conf) 
{
%config = ParseConfig(-ConfigFile => $opt_conf);
.....

Merci par avance.

**Jedai** · 18/03/2008, 19h16

Config::General est passé d'une interface procédurale à une interface objet par défaut, maintenant il faut importer explicitement ParseConfig :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

use Config::General qw(ParseConfig);

--
Jedaï

**stygre** · 19/03/2008, 10h15

Je n'ai pas été claire.
J'ai déjà essayé de mette

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

use Config::General qw(ParseConfig);

Merci d'y avoir pensé.

Mais cela n'a pas résolut mon problème.
Je sais que je n'ai pas un super niveau en perl mais la, je doit avouer que je sèche bien....
Il aurait-il mon sauveur sur le forum ?

**Jedai** · 21/03/2008, 14h27

Je ne peux pas t'aider plus sans savoir à quoi ressemble ton Config::General.

--
Jedaï

**stygre** · 21/03/2008, 19h49

Désoler de passer pour un newbees mais comment je fait pour te montrer mon config::general ?

Merci d'avance.

**Jedai** · 21/03/2008, 20h13

Tu fais une recherche pour General.pm (si tu sais où tu as installé ton Perl, il doit être dans le répertoire site/lib/Config) et tu me montres au moins le début (ou tu l'attache à ton prochain message). Le problème est que ParseConfig devrait être exporté par toutes les versions de Config::General que tu pourrais avoir et qu'apparemment il ne l'est pas, je veux donc voir à quoi ressemble ton module Config::General.

--
Jedaï

**stygre** · 25/03/2008, 12h59

Bonjour,

Après ce petit we de repos des neurones, voici le General.pm (General.doc renomé) en PJ.

Merci par avance.

**Jedai** · 25/03/2008, 21h05

Bien. Maintenant redis-moi quel est vraiment ton problème, puisque visiblement ParseConfig() est bien exporté par Config::General.

--
Jedaï

**stygre** · 26/03/2008, 12h16

Bon, on va y arriver,

La bonne nouvelle est que mon script d'envoi de mail est de nouveau fonctionnel

, mais sans rien faire

.
Même si je sais que l'informatique n'est pas magique, là.....
Par contre, mon script de parseur d' event log ne marche plus, il m'envoie bien des mails mais il ne purge plus les logs des serveurs (win 2003) et ne les parse pas.
eventlogTaureau.pl -c eventlogTaureau.conf

eventlogTaureau.pl

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
 
use Win32::EventLog;
use Config::General qw(ParseConfig);
use Getopt::Long;
use Mail::Sender;
use Win32API::File;
use strict;
 
#Declaration des variables constantes
my ($EventLog,$number,$handle,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$server,$event,$logtype,$heuredeb,$heurefin,$datedeb,$datefin,$nb,$eventheure,$eventdate,$date);
my %event=(
	'Length',		" ",
	'RecordNumber',		" ",
	'TimeGenerated',	" ",
	'TimeWritten',		" ",
	'EventID',		" ",
	'EventType',		" ",
	'Category',		" ",
	'ClosingRecordNumber',	" ",
	'User',			" ",	
	'Source',		" ",
	'Computer',		" ",
	'Strings',		" ",
	'Data',			" ");
my (@out_full,@out_err);
my @eventypenb;
my @eventype;
$eventype[1]="Error";
$eventype[2]="Warning";
$eventype[4]="Information";
$eventype[8]="Audit_Success";
$eventype[16]="Audit_Failure";
 
my @send_files;
my ($opt_conf,$opt_h);
my %config;
 
# Vérification des options passées en ligne de commande
GetOptions("c=s" => \$opt_conf,"conf=s" => \$opt_conf,
	   "h" => \$opt_h, "help" => \$opt_h);
 
if ($opt_h) { print_help();exit;}
elsif ($opt_conf)
{
%config = ParseConfig(-ConfigFile => $opt_conf);
 
# Vérification de l'existence du répertoire de log
if($config{'LOG_PATH'})
	{ unless(-d $config{'LOG_PATH'}) { die "Le répertoire $config{'LOG_PATH'} n'existe pas"; } }
else { die "LOG_PATH est manquant dans le fichier de config!"; }
 
# Determination de la date du jour
$date = date(time());
 
# Ouverture du fichier de log
open (LOG, ">$config{'LOG_PATH'}eventlog-$date.log") or die $!;
 
check_config(%config);
}
else {print_help();exit;}
 
 
 
# Ouverture du fichier de listing des serveurs à traiter
open(SRV, "<$config{'SRVCONF_FILE'}") or logger("Fichier de listing des serveurs",$!);
 
 
while ($server = <SRV>)
	{
	# Supprime le saut de ligne lors de la récupération des noms de serveur dans le fichier de conf 
	chomp $server;	
	next if ($server =~ /^\s*$/);
	# Ouverture du fichier de sortie
	open(IMPR, ">$config{'SAVE_PATH'}$server-$date.txt") or logger("fichier de sortie $server",$!);
	open(ERR, ">$config{'SAVE_PATH'}$server-Errwarn-$date.txt") or logger("fichier de sortie $server",$!);
	push @send_files,"$config{'SAVE_PATH'}$server-Errwarn-$date.txt";
	logger("Traitement de $server","en cours");
 
	for $logtype ("Application", "System", "Security")
		{
		logger("\tTraitement du journal $logtype","en cours");
		# Ouverture du journal d évènement $logtype pour le serveur $server 
		$EventLog = new Win32::EventLog($logtype, $server) || logger("journal $server-$logtype",$!);
 
		# Determination du nombre d evenements a traiter
		$EventLog->GetNumber($number);
 
		# Initialisation du compteur d evenements par type ( erreur, warning, info, audit )
		for $nb (1 .. 16)
			{
			$eventypenb[$nb]=0;
			}
 
		for ($handle=1;$handle<=$number;$handle++)
			{
			# lecture de l evenemenent en cours
			$EventLog->Read((EVENTLOG_SEEK_READ|EVENTLOG_FORWARDS_READ),$handle,$event) or logger("Erreur lors de la lecture de l'evenement en cours",$!);
 
 
			# Détermination de la date de l évènement
			($eventheure,$eventdate) = date($event->{'TimeGenerated'});
 
			# Determination du type d evenement
		$event->{'EventID'} = $event->{'EventID'} & 0xffff;
 
			# Comptage de l evenement selon son type
			$eventypenb[$event->{'EventType'}]++;
 
			# Enregistrement de l evenement pour ecriture ulterieure
			push @out_full,"$event->{'RecordNumber'};$eventheure;$eventdate;$event->{'EventID'};$eventype[$event->{'EventType'}];$event->{'Category'};$event->{'User'};$event->{'Source'};$event->{'Computer'};$event->{'Strings'}\n";
 
			if($event->{'EventType'}<=2)
				{
			push @out_err,"$event->{'RecordNumber'};$eventheure;$eventdate;$event->{'EventID'};$eventype[$event->{'EventType'}];$event->{'Category'};$event->{'User'};$event->{'Source'};$event->{'Computer'};$event->{'Strings'}\n";
				}
			}
 
		# Récupere la date et l heure du plus vieil évènement
		$EventLog->Read((EVENTLOG_SEEK_READ|EVENTLOG_FORWARDS_READ),"1",$event);	
		($heuredeb,$datedeb) = date($event->{'TimeGenerated'});
 
		# Récupere la date et l heure du plus récent évènement
		$EventLog->Read((EVENTLOG_SEEK_READ|EVENTLOG_FORWARDS_READ),$number,$event);
		($heurefin,$datefin) = date($event->{'TimeGenerated'});
 
		# Remplissage du fichier de sortie avec les intitulés
		print IMPR "Serveur : $server; $logtype\n";
		print IMPR "Nombre d'évènements : $number; Error : $eventypenb[1]; Warning : $eventypenb[2]; Information : $eventypenb[4]\n";
		print IMPR "Date : Du $datedeb $heuredeb Au $datefin $heurefin\n";
		print IMPR "RecordNumber;Heure;Date;EventID;EventType;Category;User;Source;Computer;Strings\n";
 
		print ERR "\n\nServeur : $server; $logtype\n";
		print ERR "Nombre d'évènements : $number; Error : $eventypenb[1]; Warning : $eventypenb[2]; Information : $eventypenb[4]\n";
		print ERR "Date : Du $datedeb $heuredeb Au $datefin $heurefin\n";
		print ERR "RecordNumber;Heure;Date;EventID;EventType;Category;User;Source;Computer;Strings\n";
 
 
		# remplissage du fichier de sortie avec les évènements
		while(@out_full) {print IMPR shift @out_full;}
		while(@out_err) {print ERR shift @out_err;}		
 
		# Sauvegarde et vidage du journal d évènement $logtype sur $server		
		if ($EventLog->Clear("c:\\$logtype-$date.evt")) 
			{
			# Deplacement du journal d'évènement $logtype depuis $server
			if (Win32API::File::MoveFile("\\\\$server\\c\$\\$logtype-$date.evt","$config{'SAVE_PATH'}$server-$logtype-$date.evt")) 
				{ 
				logger("Sauvegarde de $logtype pour $server","OK"); 
				}
			else { logger("Impossible de copier le journal d'evenement $logtype depuis $server",$!); }
			}
		else { logger("Impossible de sauvegarder le journal d'evenement $logtype sur $server",$!); }
 
		# Fermeture du journal d évènement $logtype
		$EventLog->Close();
		logger("\tTraitement de $logtype","Fini");
		}
		close (IMPR);
		close (ERR);
		logger("Traitement de $server","Fini");
	}
 
send_mail(\%config,\@send_files);
 
 
# Fermeture des fichiers de configuration
close (SRV);
close (LOG);
 
#################
# Sous-programme#
#################
 
 
# Détermination de la date
sub date
	{
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);
	$year += 1900;
	$mon += 1;
	my $date = $mday."-".$mon."-".$year;
	if ($hour<10) { $hour = "0".$hour;}
	if ($min<10) { $min = "0".$min;}
	my $heure = $hour.":".$min;
	return $heure,$date;
	}
 
# Vérification de la présence des variables dans le fichier de configuration
sub check_config
	{
	my %ref = @_;
 
	unless($ref{'MAIL_DEST'}) {die "mail_dest manquant";}
	unless($ref{'MAIL_EXP'}) {die "mail_exp manquant";}
	unless($ref{'SMTP'}) {die "smtp manquant";}
	if($ref{'SAVE_PATH'})
		{ unless(-d $ref{'SAVE_PATH'}) { logger("le répertoire de sauvegarde $ref{'SAVE_PATH'} n'existe pas !!",$!); } }
	else { logger("SAVE_PATH est manquant dans le fichier de config!","Verifier le fichier de config"); }
 
	if($ref{'SRVCONF_FILE'})
		{ unless(-e $ref{'SRVCONF_FILE'}) { logger("le fichier de listing des serveurs $ref{'SRVCONF_FILE'} n'existe pas !!",$!); } }
	else {logger("SRVCONF_FILE manquant dans le fichier de configuration","Verifier le fichier de config");}
	}
 
# Affichage de l'aide du script
sub print_help 
	{
	print "eventlog.pl v0.1\n";
	print "Usage:\n";
	print "	   -c (--conf) 	    fichier de configuration ( Requis )\n";
	print "	   -h (--help) 	    affiche l'aide\n"; 
	}
 
# renseigne le fichier de log du script
sub logger
	{
	my ($log_info,$log_error) = @_;
	my ($log_heure,$log_date) = date(time());
	print LOG "$log_date  $log_heure\t$log_info : $log_error\n";
	}
 
# Envoi le mail récapitulatif
sub send_mail
	{
	my $conf = shift;
	my $files = shift;
	my $sender = new Mail::Sender {smtp => $$conf{'SMTP'}, from => $$conf{'MAIL_EXP'},charset => 'ISO-8859-1',encoding => '8BIT',b_charset => 'ISO-8859-1',b_encoding => '8BIT'};
	 $sender->MailFile({to => $$conf{'MAIL_DEST'},
		    subject => "[Taureau] Résumé des eventlogs : Error et Warning",
		    msg => "Bonjour,\n\n\t vous trouverez ci-joint les erreurs et les warnings des eventlogs de Taureau.\n\nParser d'Eventlog",
		    file => $files});
 
	if($sender->Close()<0) { logger("Mail non envoyé",Mail::Sender::Error); }
	else 
		{ 
		logger("Mail envoyé","OK"); 
		# Suppression des fichiers temporaires de sortie contenant les erreurs et warning envoyé par	
		foreach my $fil (@$files)
			{
			Win32API::File::DeleteFile($fil) or logger ("Impossible de supprimer les fichiers temporaires de sortie contenant les erreurs et warning",$!);
			}
		}
	}

eventlogTaureau.conf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
# Chemin du fichier listant les serveurs à traiter
# syntax : SRVCONF_FILE="lecteur:\chemin\nom_du_fichier"
 
SRVCONF_FILE="C:\parser\serveurTaureau.conf"
 
# Chemin de sauvegarde des journaux d'évènements et des sorties "Parsées"
# syntax : SAVE_PATH="lecteur:\chemin\"
 
SAVE_PATH="C:\parser\svg_evt\"
 
# Configuration du serveur SMTP pour l'envoi des sorties "Parsées" par mail
# syntax : SMTP="serveur_smtp"
 
SMTP="smtp.bbb.fr"
 
# Configuration de l'expéditeur pour l'envoi des sorties "Parsées" par mail
# syntax : MAIL_EXP="adresse email expediteur"
 
MAIL_EXP="eventlog@bbb.fr"
 
# Configuration des destinataires pour l'envoi des sorties "Parsées" par mail
# syntax : MAIL_DEST="email_destinataire1,email_destinataire2"
 
MAIL_DEST="tech@bbb.fr"
 
# Répertoire où sera créé le fichier de log
# syntax : LOG_PATH="lecteur:\chemin\"
LOG_PATH="C:\parser\log\"

A vot' bon coeur

note: Merci à Jedai pour tes reponses précédentes (ha qd meme

)

Erreur de ParseConfig

Modules Perl

Discussions similaires

Partager

Partager