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

Gast hcx
 2011-08-03 18:31
#151117 #151117
Hallo FIFO,

nochmals Danke für die Hinweise
die Abfrage habe ich so geschrieben:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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 subfunktionen so definiert - ich hioffe dich richtig verstanden zu haben - 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

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

        $absender->MailMsg
        (
        {
                        [to =>'hcx@lug-saar.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

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

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


print "SMS wurde verschickt";


Syntax Error und Warnings bekomme ich jedenfalls nicht mehr.

Gruss

Uli

Last edited: 2011-08-03 18:33:56 +0200 (CEST)

View full thread Fehlersuche Skript gibt falsche Warnungen aus