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