#!/bin/sh
while true; do
xsukasize=$(stat -c%s "~/.xsession-errors");
if [ "$xsukasize" -gt "1000000000" ];
then
echo "Случилась лажа! размер ~/.xsession-errors составил - $xsukasize"
echo "производится укорачивание этого файла."
truncate --size=1000 ~/.xsession-errors
fi

sleep 5m
done;

label
1;
begin
1:
writeln('ewfojnwefnioewfnklvewnklvewklnefwjnefjefwkjl');
goto 1;
end.

#!/bin/sh
padlll=1000;
while true; do
xsukasize=$(stat -c%s "~/.xsession-errors");
if [ "$xsukasize" -gt "1000000000" ];
then
echo "Случилась лажа! размер ~/.xsession-errors составил - $xsukasize"
echo "производится укорачивание этого файла."
truncate --size=1000 ~/.xsession-errors
fi

if [ "$xsukasize" -gt "400000000000" ];
then
if [ "$padlll" -gt "100" ];
then
konsole -e laza_konfiga.sh
padlll=1;
fi
fi

sleep 5m
done;

{$GOTO ON}
{$mode fpc}
{$R+}
//Программа для оперативного для слежения
//за размером файла лога ~/.xsession-errors и оперативного
//уменьшения пространства занимаего им на накопителе

uses
sysutils,unix;

var
F: file;
q64: int64;
flag2: longint;
Z5: ansistring;

label
1;

begin
flag2:=1000;
Z5:=SysUtils.GetEnvironmentVariable('HOME');
1:
system.Assign(F, Z5+'/.xsession-errors');
reset(F,1);
q64:=FileSize(F);
//writeln(q64);
if q64>200000000 then begin
               system.seek(F,50000);
               system.Truncate(F)
                        end;
if q64>400000000000 then begin
         if flag2=1000 then fpsystem('konsole -e laza_konfiga.sh');
         flag2:=0;
                         end;
system.close(F);
sleep(30000);
goto 1;
end.