Thread Fehlersuche Skript gibt falsche Warnungen aus (14 answers)
Opened by hcx at 2011-08-03 12:08

Gast hcx
 2011-08-03 18:27
#151114 #151114
Hallo FIFO,

da hab ich ja was losgetreten :-)

Also die Abfrage sieht nun so aus:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

die "df -h doesn't show root usage\n" if ! defined $used;

if ($used > 50) {
        print "WARNUNG ROOTPARTITION IST ZU MEHR ALS 50% BELEGT \n" or die "KANN WURZELVERZEICHNIS NICHT ÖFFNEN!";
}
elsif ($used > 80) {
        print "KRITISCHE WARNUNG ROOTPARTITION IST ZU MEHR ALS 80% BELEGT \n" or die "KANN WURZELVERZEICHNIS NICHT ÖFFNEN!";
}
elsif ($used > 90) {
        print "ROOTPARTITION DROHT VOLLZULAUFEN ERGREIFE MASSNAHMEN \n" or die "KANN WURZELVERZEICHNIS
        NICHT ÖFFNEN!";
        &SENDEMAIL;
        &SENDESMS;
        system("apt-get autoclean");
        system("apt-get autoremove");
        system("apt-get clean");
        system("apt-get install localepurge");


}


die Definition der sub SENDEMAIL habe ich so geschrieben - ich habe es hoffentlich richtig verstanden - ich und SYNTAX

Code (perl): (dl )
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

sub SENDEMAIL {
        $absender = new Mail::Sender
        (
                {
                        [from => 'hcx@zz.net'],
                        [mail => 'mail.gmx@zz.net'],
                        [authpwd => 'geheim'],
                        [debug => $DEBUG],
                        [auth => 'LOGIN']
                }
        );

        $absender->MailMsg
        (
        {
                        [to =>'hcx@yyy.de'],
                        [subject => 'Wurzelverzeichnis'],
                        [msg => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"]
                }
        );

        print "mail wurde verschickt";


}


und

Code (perl): (dl )
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

sub SENDESMS {
        $absender = new Mail::Sender
        (
                {
                        [from => 'hcx@xxx.net'],
                        [mail => 'mail.xxx.net'],
                        [authid => 'hcx@gxxx.net'],
                        [authpwd => 'geheim'],
                        [debug => $DEBUG],
                        [auth => 'LOGIN']
                }
        );

        $absender->MailMsg
        (
                {
                        to =>'49108154711.weaver_system@tmsg.de',
                        subject => 'Wurzelverzeichnis ',
                        mag => "#### Achtung die Root Partition ist zu mehr als 80% belegt!!!####"
                }
        );


print "SMS wurde verschickt";


Syntax Error oder Warnings erhalte ich jedenfalls nicht mehr.

Gruss

hcx

View full thread Fehlersuche Skript gibt falsche Warnungen aus