Discussion :

[yop741]

Bonjour à tous,

je suis nouveau sur le forum, je vais essayer d'être le plus claire possible en esperant que vous pourrez maider.

sur des systèmes AIX, il ya une sauvegarde systèmes (MKSYSB) que l'on effectue 1 fois/ semaine.

toutes mes machines sont referencés dans un fichier (ListeClientNIM.PROD)
et un script perl (check_mksysb.pl) vient checker ce fichier etc.......

#######

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
$liste_machine = $ARGV[0];#"/export/nim/scripts/ListeClientNIM";
$now_time = time/(3600*24);
%myarray =(
        "jan"   => "0",
        "fév"   => "1",
        "mar"   => "2",
        "avr"   => "3",
        "mai"   => "4",
        "jun"   => "5",
        "jul"   => "6",
        "aoû"   => "7",
        "sep"   => "8",
        "oct"   => "9",
        "nov"   => "10",
        "déc"   => "11",
);
open(LISTE,$liste_machine);
open(SYSOUT,">/export/nim/scripts/rapport_mksysb.txt");
$i=0;
$j=0;
$cmd="date +%d";
open(DATE,"$cmd |");
$madate = <DATE>;
close(DATE);
while(<LISTE>)
{
        $Line = $_;
        chomp $Line;
        if(($Line !~ /\#/) && ($Line !~ /\//) && (length($Line)>1)){
                $Commande = "ls -alrt /export/nimpwc/mksysb/$Line/mksysb.$Line";
                open(SHOWMOUNT,"$Commande |");
                $retour=<SHOWMOUNT>;
                chomp $retour;
                if(length($retour) > 1 ){
                        print "$Line $retour";
                        print(SYSOUT "$Line $retour");
                        @Tab = split(/\s+/,$retour);
                        $fin_time = mktime(0,0,0,$Tab[5],$myarray{$Tab[6]},108)/(3600*24);
                        if($fin_time < ($now_time-6)){
                                print " - Date ancienne";
                                print(SYSOUT " - Date ancienne");
                                $j++;
                        }
                        print "\n";
                        print(SYSOUT "\n");
                }else{
                        print "$Line = Pas de mksysb\n";
                        print(SYSOUT "$Line = Pas de mksysb\n");
                        $i++;
                }
                close(SHOWMOUNT);
 
        }
 
 
}
print (SYSOUT "-----------------------------------------\n");
print (SYSOUT "$i mksysb absent\n");
print (SYSOUT "$j mksysb ancien\n");
close(SYSOUT);
close(LISTE);
 
#$cmd = "rcp /export/nim/scripts/rapport_mksysb.txt paris:/home/a4iadm/mksysb/\"";
#print $cmd."\n";
#open(EMAIL,"$cmd |");
#close(EMAIL);

cependant lorsque je check (/check_mksysb.pl ListeClientNIM.PROD)
voici le message que jobtiens

arras-rw-r--r-- 1 root system 1867264000 Dec 15 11:52 /export/nimpwc/mksysb/arras/mksysb.arras - Date ancienne

dallas -rw-r--r-- 1 root system 1593241600 Dec 15 11:51 /export/nimpwc/mksysb/dallas/mksysb.dallas - Date ancienne

le script me remonte date ancienne sur toutes les machine.

Pouvez vous m'aider ??

Merci

[djibril]

tu pourrais refaire le script afin d'éviter les commandes system qui sont dedans.
Pour récupérer des dates, tu as notre rubrique sources qui a des codes pour gérer les dates.
Et regardes aussi dans notre FAQ, tu as ce qu'il te faut pour récupérer les dates d'un fichier

[yop741]

Salut Djibril,

le seul problème c'est que je suis un newbie en PERL, et que je galère sur ce problème.

Tu vois pas ce qui cloche sur le script, ce serait vraiment cool

merci

[djibril]

J'ai pas le temps de lire le script, mais peux tu déjà nous dire ce qu'il est censé faire?

[yop741]

oui tout à fait,
c'est un script qui remonte l'état des sauvegardes MKSYSB en prenant les dernières dates des MKSYSB.

Mais depuis décembre il indique date ancienne, pourtant les sauvegardes mksysb sont ok avec les bonnes dates.

le script n'arrive pas à recuperer dans la directory les bonnes dates.

J'espere avoir été claire.

merci de ton aide