Erreur avec un patch

[brisson]

Que fait-on lorsque l'on a ce type de message lors de l'application d'un patch (1.4.3 par exemple) ?

patching file cron/parsing_log.pl
Hunk #1 FAILED at 30.
1 out of 2 hunks FAILED -- saving rejects to file cron/parsing_log.pl.rej
patching file ODS/lib/getServiceData.pm
patching file ODS/lib/identifyMetric.pm
patching file www/include/views/graphs/graphODS/graphODS.php

[WAtt]

salut

Tu peux mettre le contenu du fichier cron/parsing_log.pl.rej dans ton post ?
je te dirai quoi faire

Mais sinon tu as lu le wiki ? enfin la fin du paragraphe du patch 3 ?

[brisson]

Voila... :cry:

***************
*** 30,36 ****
use vars qw($mysql_user $mysql_passwd $mysql_host $mysql_database_oreon $mysql_database_ods $opt_h $opt_a $data);

my $installedPath = "@[email protected]";
- #my $installedPath = "/usr/local/oreon";
require $installedPath."/ODS/etc/conf.pm";

## Init Date
--- 30,35 ----
use vars qw($mysql_user $mysql_passwd $mysql_host $mysql_database_oreon $mysql_database_ods $opt_h $opt_a $data);

my $installedPath = "@[email protected]";
require $installedPath."/ODS/etc/conf.pm";

## Init Date
***************
*** 72,108 ****
}
}
while (<FILE>) {
- if ($_ =~ /^\[([0-9]*)\]\sSERVICE ALERT\:\ ([a-zA-Z0-9\.\-\_\ \%\'\"\(\[\]\)\{\}\,\;\:\/\=\<\>\*\$\^\~\@\+\#\!\?]*)/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[5] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `host_name` , `service_description`, `status`, `type`, `retry`, `output`) VALUES ('0', '$ctime', '".$tab[0]."', '".$tab[1]."', '".$tab[2]."', '".$tab[3]."','".$tab[4]."','".$tab[5]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
- } elsif ($_ =~ /^\[([0-9]*)\]\sHOST ALERT\:\ ([a-zA-Z0-9\.\-\_\ \%\'\"\(\[\]\)\{\}\,\;\:\/\=\<\>\*\$\^\~\@\+\#\!\?\*]*)/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[4] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `host_name` , `status`, `type`, `retry`, `output`) VALUES ('1', '$ctime', '".$tab[0]."', '".$tab[1]."', '".$tab[2]."','".$tab[3]."','".$tab[4]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
- } elsif ($_ =~ /^\[([0-9]*)\]\sSERVICE NOTIFICATION\:\ ([a-zA-Z0-9\.\-\_\ \%\'\"\(\[\]\)\{\}\,\;\:\/\=\<\>\*\$\^\~\@\+\#\!\?\*]*)/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[5] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `host_name` , `service_description`, `status`, `notification_cmd`, `notification_contact`, `output`) VALUES ('2', '$ctime', '".$tab[1]."', '".$tab[2]."', '".$tab[3]."', '".$tab[4]."','".$tab[0]."','".$tab[5]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
- } elsif ($_ =~ /^\[([0-9]*)\]\sHOST NOTIFICATION\:\ ([a-zA-Z0-9\.\-\_\ \%\'\"\(\[\]\)\{\}\,\;\:\/\=\<\>\*\$\^\~\@\+\#\!\?\*]*)/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[4] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `notification_contact`, `host_name` , `status`, `notification_cmd`, `output`) VALUES ('3', '$ctime', '".$tab[0]."','".$tab[1]."', '".$tab[2]."', '".$tab[3]."','".$tab[4]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
- } elsif ($_ =~ /^\[([0-9]*)\]\sWarning\:\ ([a-zA-Z0-9\.\-\_\ \%\'\"\(\[\]\)\{\}\,\;\:\/\=\<\>\*\$\^\~\@\+\#\!\?\*]*)/){
my $tab = $2;
$ctime = $1;
$tab =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `output`) VALUES ('4','$ctime', '".$tab."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
- } elsif ($_ =~ /^\[([0-9]*)\]\ ([a-zA-Z0-9\.\-\_\ \%\'\"\(\[\]\)\{\}\,\;\:\/\=\<\>\*\$\^\~\@\+\#\!\?\*]*)/) {
$ctime = $1;
my $tab = $2;
$tab =~ s/\'/\\\'/g;
--- 71,107 ----
}
}
while (<FILE>) {
+ if ($_ =~ m/^\[([0-9]*)\]\sSERVICE ALERT\:\s(.*)$/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[5] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `host_name` , `service_description`, `status`, `type`, `retry`, `output`) VALUES ('0', '$ctime', '".$tab[0]."', '".$tab[1]."', '".$tab[2]."', '".$tab[3]."','".$tab[4]."','".$tab[5]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
+ } elsif ($_ =~ m/^\[([0-9]*)\]\sHOST ALERT\:\s(.*)$/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[4] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `host_name` , `status`, `type`, `retry`, `output`) VALUES ('1', '$ctime', '".$tab[0]."', '".$tab[1]."', '".$tab[2]."','".$tab[3]."','".$tab[4]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
+ } elsif ($_ =~ m/^\[([0-9]*)\]\sSERVICE NOTIFICATION\:\s(.*)$/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[5] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `host_name` , `service_description`, `status`, `notification_cmd`, `notification_contact`, `output`) VALUES ('2', '$ctime', '".$tab[1]."', '".$tab[2]."', '".$tab[3]."', '".$tab[4]."','".$tab[0]."','".$tab[5]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
+ } elsif ($_ =~ m/^\[([0-9]*)\]\sHOST NOTIFICATION\:\s(.*)$/){
my @tab = split(/;/, $2);
$ctime = $1;
$tab[4] =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `notification_contact`, `host_name` , `status`, `notification_cmd`, `output`) VALUES ('3', '$ctime', '".$tab[0]."','".$tab[1]."', '".$tab[2]."', '".$tab[3]."','".$tab[4]."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
+ } elsif ($_ =~ m/^\[([0-9]*)\]\sWarning\:\s(.*)$/){
my $tab = $2;
$ctime = $1;
$tab =~ s/\'/\\\'/g;
$sth = $dbh->prepare("INSERT INTO `log` (`msg_type`,`ctime`, `output`) VALUES ('4','$ctime', '".$tab."')");
if (!$sth->execute) {print "Error:" . $sth->errstr . "\n";}
+ } elsif ($_ =~ m/^\[([0-9]*)\]\s(.*)$/) {
$ctime = $1;
my $tab = $2;
$tab =~ s/\'/\\\'/g;

[brisson]

J'ai bien vu la note du patch 3, mais je trouve qu'il y a beaucoup de lignes qui commencent par un - :cry:

[WAtt]

Ouep tu as sûrement modifié le fichier a un moment ou a un autre.

Donc le principe est de remplacer les lignes précéder d'un "-" par celle précéder d'un "+"

Tu penses que ça peu le faire ? sinon on va t'envoyé le fichier parsing_log.pl si vraiment ca ne vas pas

[brisson]

Bonsoir...

Je suis en vacances on verra ça dans 10 jours maintenant... Merci pour l'aide

[WAtt]

En vacances ? et alors ?

Si vraiment ca te prend la tete et que tu veux tout reinstall, patch avant

[brisson]

Bon, après ces agréables vacances, me revoila.

wATT, si tu veux bien m'envoyer le fichier parsing_log.pl, je t'en serais reconnaissant.

[fan]

Lut,

En vacances ? et alors ?

Si vraiment ca te prend la tete et que tu veux tout reinstall, patch avant

Et comment on fait WAtt pour patcher avant l'install ? Ca m'interesse bien mais j'ai pas trouvé sur le wiki... (j'aurai certainement à reinstaller Oreon avt de passer définitivement en prod)

Merci

[clementthersiquel]

C'est pourtant ecrit au bas du patch 1, il suffit d'appeler les patchs depuis le repertoire source et non le repertoire d'install

[fan]

Oups :eek:
J'ouvrirai mes yeux plus grands la prochaine fois

Merci

[brisson]

Un petit UP pour avoir le fichier svp

[brisson]

UP again

[WAtt]

Tu up pour quel raison ?

[brisson]

Il m'a été proposé de me faire parvenir le fichier qui pose problème... Donc je voudrais bien le fichier