Owserver tot und massig Einträge im Syslog

JuMi2006 antwortet

04.02.2014, 21:17
Makki hat recht, ich hab das ">" am Smartphone unterschlagen.

Code:

/home/user/killsmlHZ.sh >/dev/null 2>&1 /home/user/smlHZ.pl >/dev/null 2>&1
Einen Kommentar schreiben:

lio123 antwortet

04.02.2014, 21:03

Makki, das letzte was ich will, ist Eure kostbare Zeit zu stehlen.
Ich muss fast jedes Wort aus einer Antwort googeln, mit dem System spiegeln, versuchen zu verstehen, ausprobieren und hoffen, dass es zum gewünschten Ergebnis führt.

Deinen Beitrag von 19:18 habe ich übersehen.

Der Crontab ( kompletter Eintrag in der /var/spool/cron/crontabs/root)

Code:

# DO NOT EDIT THIS FILE - edit the master and reinstall.
# (/tmp/crontab.LmLaF4/crontab installed on Tue Feb  4 20:00:50 2014)
# (Cron version -- $Id: crontab.c,v 2.13 1994/01/17 03:20:37 vixie Exp $)
# m h  dom mon dow   command
0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58 * * * * /home/user/killsmlHZ.sh /dev/null 2>&1
0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58 * * * * /home/user/killsmlWP.sh /dev/null 2>&1

aus /home/user/killsmlHZ.sh

Code:

#!/bin/bash
 # sml_smlHZ.pl starten
   if [ "$(pidof smlHZ.pl)" ]
      then
      echo "smlHZ.pl laeuft noch"
      pkill -9 smlHZ.pl
      echo "smlHZ.pl gekillt"
   fi
     /home/user/smlHZ.pl

aus /home/user/smlHZ.pl

Code:

#!/usr/bin/perl

use warnings;
use strict;
use Device::SerialPort;
use feature "switch";
use EIBConnection;
use RRDs;
use Fcntl qw(:DEFAULT :flock);


#0701000F0700FF = 7.0       FIXME !!! [0F]0700
#070100010801FF = 1.8.1
#070100010800FF = 1.8.1

# Lock setzen damit Skript nur einmal startet


  open  *{0}
        or die "What!? $0:$!";
  flock *{0}, LOCK_EX|LOCK_NB
    or die "$0 is already running somewhere!\n";


my $eib_url = "local:/tmp/eib";     #for local eibd "local:/tmp/eib" for eibd in LAN: "ip:192.168.2.220:6720"
my $device = "/dev/usbserial-A601NKCL";
my $repeat = 20;   # Wiederholung alle x Sekunden
my $rrdpath = "/var/www/rrd";
my $debug = 1;

my @obis;


push @obis,{obis=>"1.8.0",  fact=>10000, ga =>"14/7/51", dpt => 14, rrd_name => "HZ_Zaehler_Verbrauch", rrd => "c"   }; #rrd: c=counter ; g=gauge
push @obis,{obis=>"15.7.0",    fact=>10,    ga =>"14/7/50", dpt => 9 , rrd_name => "HZ_Zaehler_Leistung_Ges",  rrd => "g" };


my @countermodes = (5,15,60,1440);    #Aufloesungen fuer COUNTER RRDs in Minuten (1440 = Tagesverbrauch)


my $port = Device::SerialPort->new($device) || die $!;

$port->databits(8) || die "failed setting databits";
$port->baudrate(9600) || die "failed setting baudrate";
$port->parity("none") || die "failed setting parity";
$port->stopbits(1);
$port->handshake("none");
$port->dtr_active(0);
$port->purge_all();
$port->read_char_time(0);     # don't wait for each character
$port->read_const_time(4000); # 1 second per unfulfilled "read" call
$port->write_settings || die "cannot write settings";


   my ($x,$data) = 0 ;
   my $sml = 0;
   my $start = 0;
   my $value = 0;
   my $dec_value = 0;
   my $count = 0;
   my $saw = 0;

   if ($debug == 1) {print "Step 1 - Daten holen \n";}

   while ($start < 2)  # wait for second 1B1B1B1B01010101
     {
      ($count,$saw)=$port->read(512);   # will read 512 chars
      if ($count == 512)       # wurden 512 chars gelesen ?
        {
         $x = uc(unpack('H*',$saw)); # nach hex wandeln
         $data .= $x;
         if ($data =~ /1B1B1B1B01010101/)  {$start ++};
        } # if
     }  # while

   if ($debug==1) {print "Step 2 - Reg Exp 1 Datensatz zusammensetzen \n";}
   $data =~ m/1B1B1B1B01010101(.*?)B1B1B1/;
   $sml = $1;

   print "Zaehler Haushalt: \n";

   if ($debug==1) {print "Step 3 - Datensatz auswerten \n";}

                    

   foreach my $obiscnt (@obis)
    {
     # Umwandeln OBIS in HEx
my $hc ="";
foreach my $c (split(/\./,$obiscnt->{obis})) {
$hc .= sprintf("%02X", $c);
}
my $obissearch = $hc;
     # FF fuer Suche an  Hex-Wert anhaegne
     $obissearch .="FF";
     if ($debug==1) { print $obissearch."     Obis\n";}
     $sml =~ m/$obissearch(.*?)0177/;
     #$sml =~ m/$obiscnt->{obis}(.*?)0177/;
     my $sml_val = $1;

                        
     if ($debug==1)  {  print $1." contains hex \n";}

     #extract value
     $sml_val =~ s/^.*52FF//;
     $sml_val = substr($sml_val,2);
     if ($debug == 1) {  print $sml_val." hex \n";}
     $value = $sml_val;

     $dec_value = sprintf("%d", hex($value));
     $dec_value /= $obiscnt->{fact};
     print $dec_value."<<<<---- Wert\n";

     #  RRD-Graphen erstellen  - bei Bedarf wieder aktiv setzen
     if ($obiscnt->{rrd} eq "c")
        {
        &rrd_counter ($obiscnt->{rrd_name},$dec_value)
        }
     if ($obiscnt->{rrd} eq "g")
        {
        &rrd_gauge ($obiscnt->{rrd_name},$dec_value)
        }

     &knx_write ($obiscnt->{ga},$dec_value,$obiscnt->{dpt});
     if ($debug == 1) {print "GA:".$obiscnt->{ga}." Wert:".$dec_value." DPT:".$obiscnt->{dpt}."\n";}

    } # foreach

$port->lookclear;
$port->purge_all;
$port->purge_rx;



$port->close() || warn "Serial port did not close proper!\n";
undef $port;

### SUBS ###


sub rrd_counter
{
    if ($debug==1){print ("COUNTER","\n")};
    foreach (@countermodes)
    {
        my $obisname = $_[0];
        if ($debug==1){print $obisname." obisname \n";}
        my $value = $_[1];
        if ($debug==1){print $value." value \n";}
        my $rrdname = $obisname."_".$_."\.rrd";
        if ($debug==1){print ($rrdname,"\n")};
        my $rrdfile = $rrdpath."\/".$rrdname;
        unless (-e $rrdfile)
        {
            RRDs::create ($rrdfile,"DS:value:COUNTER:".(($_*60)+600).":0:10000000000","RRA:AVERAGE:0.5:1:365","RRA:AVERAGE:0.5:7:300","-s ".($_*60));
        }
        my $countervalue = int($value*$_*60);
        RRDs::update("$rrdfile", "N:$countervalue");
    }
}

sub rrd_gauge
{
    if ($debug==1){print ("GAUGE","\n")};
    my $obisname = $_[0];
    if ($debug==1){print $obisname." obisname \n";}
    my $value = $_[1];
    if ($debug==1){print $value." value \n";}
    my $rrdname = $obisname."\.rrd";
    if ($debug==1){print ($rrdname,"\n")};
    my $rrdfile = $rrdpath."\/".$rrdname;
    unless (-e $rrdfile)
    {
        RRDs::create ($rrdfile,"DS:value:GAUGE:900:0:10000000000","RRA:AVERAGE:0.5:1:2160","RRA:AVERAGE:0.5:5:2016","RRA:AVERAGE:0.5:15:2880","RRA:AVERAGE:0.5:60:8760");
    }
    RRDs::update("$rrdfile", "N:$value");
}


sub knx_write {
    my ($dst,$value,$dpt,$response,$dbgmsg) = @_;
    my $bytes;
    my $apci = ($response) ? 0x40 : 0x80; # 0x40=response, 0x80=write
    #     DPT 1 (1 bit) = EIS 1/7 (move=DPT 1.8, step=DPT 1.7)
    #     DPT 2 (1 bit controlled) = EIS 8
    #     DPT 3 (3 bit controlled) = EIS 2
    #     DPT 4 (Character) = EIS 13
    #     DPT 5 (8 bit unsigned value) = EIS 6 (DPT 5.1) oder EIS 14.001 (DPT 5.10)
    #     DPT 6 (8 bit signed value) = EIS 14.000
    #     DPT 7 (2 byte unsigned value) = EIS 10.000
    #     DPT 8 (2 byte signed value) = EIS 10.001
    #     DPT 9 (2 byte float value) = EIS 5
    #     DPT 10 (Time) = EIS 3
    #     DPT 11 (Date) = EIS 4
    #     DPT 12 (4 byte unsigned value) = EIS 11.000
    #     DPT 13 (4 byte signed value) = EIS 11.001
    #     DPT 14 (4 byte float value) = EIS 9
    #     DPT 15 (Entrance access) = EIS 12
    #     DPT 16 (Character string) = EIS 15
    # $dpt = $eibgaconf{$dst}{'DPTSubId'} unless $dpt; # read dpt from eibgaconf if existing
    given ($dpt) {
        when (/^12/)             { $bytes = pack ("CCL>", 0, $apci, $value); }  #EIS11.000/DPT12 (4 byte unsigned)
        when (/^13/)             { $bytes = pack ("CCl>", 0, $apci, $value); }
        when (/^14/)             { $bytes = pack ("CCf>", 0, $apci, $value); }
        when (/^16/)             { $bytes = pack ("CCa14", 0, $apci, $value); }
        when (/^17/)             { $bytes = pack ("CCC", 0, $apci, $value & 0x3F); }
        when (/^20/)             { $bytes = pack ("CCC", 0, $apci, $value); }
        when (/^\d\d/)           { return; } # other DPT XX 15 are unhandled
        when (/^[1,2,3]/)        { $bytes = pack ("CC", 0, $apci | ($value & 0x3f)); } #send 6bit small
        when (/^4/)              { $bytes = pack ("CCc", 0, $apci, ord($value)); }
        when ([5,5.001])         { $bytes = pack ("CCC", 0, $apci, encode_dpt5($value)); } #EIS 6/DPT5.001 1byte
        when ([5.004,5.005,5.010]) { $bytes = pack ("CCC", 0, $apci, $value); }
        when (/^5/)              { $bytes = pack ("CCC", 0, $apci, $value); }
        when (/^6/)              { $bytes = pack ("CCc", 0, $apci, $value); }
        when (/^7/)              { $bytes = pack ("CCS>", 0, $apci, $value); }
        when (/^8/)              { $bytes = pack ("CCs>", 0, $apci, $value); }
        when (/^9/)              { $bytes = pack ("CCCC", 0, $apci, encode_dpt9($value)); } #EIS5/DPT9 2byte float
        default                  { LOGGER('WARN',"None or unsupported DPT: $dpt sent to $dst value $value"); return; }
    }
    my $leibcon = EIBConnection->EIBSocketURL($eib_url) or return("Error opening con: $!");
    if ($leibcon->EIBOpenT_Group(str2addr($dst),1) == -1) { return("Error opening group: $!"); }
    my $res=$leibcon->EIBSendAPDU($bytes);
    $leibcon->EIBClose();
    return $res;
    
    # str2addr: Convert an EIB address string in the form "1/2/3" or "1.2.3" to an integer
    sub str2addr {
        my $str = $_[0];
        if ($str =~ /(\d+)\/(\d+)\/(\d+)/) { # logical address
            return ($1 << 11) | ($2 << 8) | $3;
        } elsif ($str =~ /(\d+)\.(\d+)\.(\d+)/) { # physical address
            return ($1 << 12) | ($2 << 8) | $3;
        } else {
            #bad
            return;
        }
    }
    
}

sub encode_dpt9
{
    # 2byte signed float
    my $state = shift;
    my $data;
    my $sign = ($state <0 ? 0x8000 : 0);
    my $exp  = 0;
    my $mant = 0;
    $mant = int($state * 100.0);
    while (abs($mant) > 2047)
    {
        $mant /= 2;
        $exp++;
    }
    $data = $sign | ($exp << 11) | ($mant & 0x07ff);
    return $data >> 8, $data & 0xff;
}

Wartungsverbindung ist offen wiregate534
Danke und Grüße,
Lio

Einen Kommentar schreiben:

makki antwortet

04.02.2014, 20:30
Ach menno, echt, mach uns doch keine Schnitzeljagd sondern hänge
/home/user/*sml*
+ crontab mal an (oder Verweis darauf), dann kann man vielleicht auch helfen..

Edit: und nein, das ist falsch, da fehlt mindestens ein ">" richtig kann man ohne das skript aber nicht sagen..

Makki
Einen Kommentar schreiben:
lio123 antwortet

04.02.2014, 20:01
also so:
/home/user/killsmlWP.sh /dev/null 2>&1

Danke und Gruß,
Lio
Einen Kommentar schreiben:
JuMi2006 antwortet

04.02.2014, 19:47
Dann tüter das mal hinter Deine sml-scripte und lösche die files in den Verzeichnissen von /var/spool/exim4
Einen Kommentar schreiben:
lio123 antwortet

04.02.2014, 19:40
die Cron-Seite
Angehängte Dateien

Zwischenablage01.jpg (241,7 KB, 33x aufgerufen)
Einen Kommentar schreiben:
JuMi2006 antwortet

04.02.2014, 19:34
Poste doch mal Deine cron Seite aus dem Webmin. Ich wette da fehlt irgendwo ein "/dev/null 2>&1". Ich hatte exim nicht auf dem Schirm, sonst hättest Du die Mails im Webmin gesehen.
Einen Kommentar schreiben:
makki antwortet

04.02.2014, 19:18
Also über was er sich beschwert sind - wie bereits geschrieben - die Inodes (Anzahl der Dateien/Links), nicht die Grösse.

Mit Windows-Tools kommt man da nicht weiter, die werden von Symlinks etc. (auch wenn sie laufen) nachhaltig verwirrt.
Das Werkzeug der Wahl wäre hier: SSH-Konsole und

Code:

du -sh /*

usw.

Bringt hier aber auch nichts, weil es ebenso wie TreeSize uvm nur die Grösse der Dateien, nicht die Anzahl zählt. - und das ist hier vermutlich nicht das Problem..

Im Anhang - nur mal zum Vergleich - das über 5J wirklich völlig "zugemüllte" WG#1 mit sämtlichen devel-Tools etc.pp.
Die 2,8GB sind nicht das Problem, sondern das da irgendwo die vierfache Menge an Dateien rumliegt - die irgendwas produzieren muss, was dann vermutlich auch zum eigentlichen Problem führt: abnormal hohe CPU/loadavg.

Ohne offenes Wartung-VPN kann man aber auch beim besten Willen (auch wenns eigentlich kein "Supportfall" sein kann) nicht nachsehen, um da schlauer zu werden, also wirst mit ls, du, grep, wc etc. selbst draufkommen müssen was da was & wo zumüllt..

Makki
Angehängte Dateien

Auswahl_303.png (14,8 KB, 75x aufgerufen)
Einen Kommentar schreiben:
lio123 antwortet

04.02.2014, 18:42
So, nachdem ich gegoogelt habe:

EXIM ist wohl dieser Email-Server.
Das ist der Beitrag den wohl StefanW meinte:
https://knx-user-forum.de/forum/supp...wiregate/31435

Ich gehe jetzt Rückwärts voran, da ich nicht alles verstehe.
Im Verzeichnis /var/spool/exim4/mslog liegen viele, sehr viele Dateien ab dem 30.10.2013-das Datum wo das Ganze anfing wild zu werden.
Diese Dateien, werde ich nun mal auf mein NAS auslagern.

In der mslog steht:

Code:

2014-01-30 13:42:10 Received from root@wiregate1-mm.elabnet.com U=root P=local S=1344 2014-01-30 13:42:10 SMTP error from remote mail server after RCPT TO:<root@wiregate1-mm.elabnet.com>: host mail1.elabnet.de [81.16.179.52]: 450 too many connections from your IP (rate controlled) 2014-01-30 13:42:10 root@wiregate1-mm.elabnet.com R=smarthost T=remote_smtp_smarthost defer (-44): SMTP error from remote mail server after RCPT TO:<root@wiregate1-mm.elabnet.com>: host mail1.elabnet.de [81.16.179.52]: 450 too many connections from your IP (rate controlled)

Also ähnlich der Beschreibung von StefanW:https://knx-user-forum.de/351460-post5.html

Mit CRON habe ich damals die Aufträge für den SML-Zähler erstellt.

Wie kann ich sehen, ob CRON Mails sendet?

Mirko, hättest Du eine Idee?

Danke und Grüße,
Lio
Einen Kommentar schreiben:
lio123 antwortet

04.02.2014, 14:01
danke, Christoph

ich glaube wieder ein Schritt weiter.
Ich lese mich in Google mal in die roten "Devices" ein.
Scheinbar stimmt hier was nicht.

Gruß,
Lio
Angehängte Dateien

Zwischenablage01.jpg (207,3 KB, 66x aufgerufen)
Einen Kommentar schreiben:
ChristophM antwortet

04.02.2014, 13:32
Das sieht so aus, als würde monit regelmäßig einen Dienst neu starten.
Schau Dir den mal an unter http://wiregatexxx:2812 (user: admin passwort: monit)

Gruß

Christoph
Einen Kommentar schreiben:
lio123 antwortet

04.02.2014, 13:13
wenn man sich das Diagramm des Speichers anschaut, hat sich da schon was getan. Fraglich ist, woher die "Abrisse" kommen.

Der Cache ist aber nach wie vor an der Grenze.

Wie soll ich nur weitermachen? Durch Druchblättern der Verzeichnisse komme ich nicht weiter.
Für Linux gibt es ähnlich dem Treesize verschiedene Tools, aber da weiss ich nicht wie ich die auf dem WG benutzen kann.

Mit SpaceObServer habe ich keinen Zugriff, das liegt wohl am SSH-Key im WG???
SpaceObServer benötigt PasswordAuthentification, das habe ich aber in der sshd_config schon auskommentiert:

Code:

# Change to no to disable tunnelled clear text passwords PasswordAuthentication yes

Ich komme hier echt nicht weiter. Soll ich meine Daten sicheren und auf Werkseinstellungen zurücksetzen?

Danke und Grüße,
Lio
Angehängte Dateien

graph.cgi.png (19,6 KB, 65x aufgerufen)
Einen Kommentar schreiben:
lio123 antwortet

02.02.2014, 22:23
Hallo Mirko,

das sieht dann so aus.
Wenn ich über WinSCP über root mich ins System wage, finde ich unter den angebenen Verzeichnissen zu den E-Mailbenutzern keine Daten.

Grüße,
Lio
Angehängte Dateien

Clipboard01.jpg (50,6 KB, 84x aufgerufen)
Einen Kommentar schreiben:
JuMi2006 antwortet

02.02.2014, 22:08
Schonmal im Webmin links unter Server->Lese Benutzer-E-Mail geschaut? Evtl. liegen da tausende Leichen?
Einen Kommentar schreiben:
lio123 antwortet

02.02.2014, 21:26
Auffällig ist mir das das Verzeichnis /proc
Massig leere Dateien, laut google ist das aber für die Prozesse?!?

Würde gern mit einem Tool ähnlich Treesize das Filesystem untersuchen.
Leider kenn ich mich mit Linux nicht aus und mit der Software SpaceObServer kann ich keinen SSH Zugriff herstellen

Grüße,
Lio
Einen Kommentar schreiben:

Ankündigung

Owserver tot und massig Einträge im Syslog

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben:

Einen Kommentar schreiben: