Initial commit
This commit is contained in:
eleksir
20
LICENSE.txt
Normal file
20
LICENSE.txt
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
Copyright (c) 2022 Sergei Fedosoff <eleksir@gmail.com>
|
||||||
|
|
||||||
|
Permission is hereby granted, free of charge, to any person obtaining
|
||||||
|
a copy of this software and associated documentation files (the
|
||||||
|
"Software"), to deal in the Software without restriction, including
|
||||||
|
without limitation the rights to use, copy, modify, merge, publish,
|
||||||
|
distribute, sublicense, and/or sell copies of the Software, and to
|
||||||
|
permit persons to whom the Software is furnished to do so, subject to
|
||||||
|
the following conditions:
|
||||||
|
|
||||||
|
The above copyright notice and this permission notice shall be
|
||||||
|
included in all copies or substantial portions of the Software.
|
||||||
|
|
||||||
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||||
|
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||||
|
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
||||||
|
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
|
||||||
|
LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
||||||
|
OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
|
||||||
|
WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||||
66
README.md
Normal file
66
README.md
Normal file
@@ -0,0 +1,66 @@
|
|||||||
|
# Reniced
|
||||||
|
|
||||||
|
Сервис автоматического изменения приоритета исполнения процессов. Работает по принципу периодиеского вылавливания списка
|
||||||
|
запущенных процессов и изменения приоритета "проклятым" и (если получится) "благословлённым" процессам.
|
||||||
|
|
||||||
|
## Зачем это нужно?
|
||||||
|
|
||||||
|
В некоторых случаях необходимо, чтобы система обладала достаточной интерактивностью, чтобы, например, нормально работала
|
||||||
|
видеосвязь в таких мессенджерах, как VK Teams.
|
||||||
|
|
||||||
|
## Как это установить и заставить работать?
|
||||||
|
|
||||||
|
Для установки нам понадобятся пакеты с перлом и перловым модулем JSON::XS из текущего дистрибутива линукса, например, их
|
||||||
|
можно уставить командами:
|
||||||
|
|
||||||
|
```bash
|
||||||
|
apt-get install perl perl-json-xs
|
||||||
|
```
|
||||||
|
|
||||||
|
```bash
|
||||||
|
dnf install perl perl-json-xs
|
||||||
|
```
|
||||||
|
|
||||||
|
Как заставить это работать?
|
||||||
|
|
||||||
|
Вначале надо скопировать конфиг из **config_example.json** в **~/.reniced.json** и далее подправить все необходимые
|
||||||
|
значения в нём.
|
||||||
|
|
||||||
|
После настройки списка процессов и приоритетов их работы, можно запускать сервис как unix daemon или как обычный
|
||||||
|
процесс. Второй вариант нужен для запуска сервиса через systemd.
|
||||||
|
|
||||||
|
Если reniced планируется запускать от рута (uid=0), то конфиг будет находиться не в **~/.reniced.json**, а в
|
||||||
|
**/etc/reniced.json**.
|
||||||
|
|
||||||
|
## Caveats
|
||||||
|
|
||||||
|
### Для MacOS
|
||||||
|
|
||||||
|
В свежих выпусках Mac OS нет возможности запускать сервисы от пользователя с uid=0, при запуске системы. Во всяком
|
||||||
|
случае без танцев с бубнами и отключения "защиты" системных файлов от модификации этого не сделать. Поэтому придётся при
|
||||||
|
запуске системы ручками писать
|
||||||
|
|
||||||
|
```bash
|
||||||
|
sudo reniced
|
||||||
|
```
|
||||||
|
|
||||||
|
в каталоге с reniced. Кроме того под MacOS конфиг всегда ищется в ~/.reniced.json
|
||||||
|
|
||||||
|
В линуксах такой проблемы пока нет (но возможно будет, когда придут "атомарные" обДНОвления).
|
||||||
|
|
||||||
|
### Для Linux
|
||||||
|
|
||||||
|
В линуксах есть такая фича, как namespaces. Так вот, без особых приседаний и раскачиваний, нет возможности собрать
|
||||||
|
список процессов не из текущего namespace-а. Так что скорее всего в некоторых контейнерных системах изоляции окружений
|
||||||
|
возможны варианты, при которых у изолированных таким образом процессов не будет меняться приоритет исполнения.
|
||||||
|
|
||||||
|
### Общего характера
|
||||||
|
|
||||||
|
По понятным причинам, нет возможности изменять niceness до отрицательных величин, если процесс reniced запущен от
|
||||||
|
обычного пользователя (uid > 0).
|
||||||
|
|
||||||
|
При запуске reniced от обычного пользователя, niceness процесса может идти только в плюс. То есть процесс с nice=11, не
|
||||||
|
получится сделать с nice=9, например (без перезапуска процесса, конечно). Зато от суперпользователя такое работает.
|
||||||
|
|
||||||
|
## Special thans
|
||||||
|
Авторам VK Teams. Без их мессенджера, с его "недостатками", не было бы этого костыля.
|
||||||
137
example_config.json
Normal file
137
example_config.json
Normal file
@@ -0,0 +1,137 @@
|
|||||||
|
{
|
||||||
|
"parameters": {
|
||||||
|
# 0 - запустить как обычный прооцесс (для systemd, например)
|
||||||
|
# > 0 - запустить как unix daemon
|
||||||
|
"foreground" : 0
|
||||||
|
},
|
||||||
|
|
||||||
|
"kill" : {
|
||||||
|
"STOP": [
|
||||||
|
# Это такая бэкапилка для MacOS, но на удалёнке она больше жрёт проц и греет макбук, чем что-то там реально
|
||||||
|
# бэкапит.
|
||||||
|
"commvault"
|
||||||
|
]
|
||||||
|
},
|
||||||
|
|
||||||
|
# Это на самом деле nice level, safe values 0-19, для обычного пользователя и -19-19 для суперпользователя (uid=0)
|
||||||
|
# Значения в "списке процессов" задаются регулярными выражениями
|
||||||
|
"prio" : {
|
||||||
|
# High prio: Audio, Streaming, Video, Windows management
|
||||||
|
"-11": [
|
||||||
|
"coreaudiod",
|
||||||
|
"WindowServer",
|
||||||
|
"com.apple.audio.SandboxHelper",
|
||||||
|
"com.apple.audio.DriverHelper",
|
||||||
|
"audioclocksyncd",
|
||||||
|
"SystemUIServer"
|
||||||
|
],
|
||||||
|
|
||||||
|
# Medium prio
|
||||||
|
"-5": [
|
||||||
|
"VTDecoderXPCService ",
|
||||||
|
"VTEncoderXPCService",
|
||||||
|
"VK Teams ",
|
||||||
|
"mDNSResponder$",
|
||||||
|
"mDNSResponderHelper$",
|
||||||
|
"AudioComponentRegistrar",
|
||||||
|
"CVMServer"
|
||||||
|
],
|
||||||
|
|
||||||
|
# Above normal - keyboard event remapper and trapper
|
||||||
|
"-3": [
|
||||||
|
"Karabiner\\-Elements",
|
||||||
|
"Hammerspoon",
|
||||||
|
"MTLCompilerService",
|
||||||
|
"com.apple.appkit.xpc.openAndSavePanelService"
|
||||||
|
],
|
||||||
|
|
||||||
|
# Background processes, loggers, misc less valuable services
|
||||||
|
"3": [
|
||||||
|
"\\/logd$",
|
||||||
|
"\\/syslogd",
|
||||||
|
"syspolicyd",
|
||||||
|
"\\/cron$",
|
||||||
|
"softwareupdated",
|
||||||
|
"periodic\\-wrapper",
|
||||||
|
"iconservicesagent",
|
||||||
|
"com.apple.quicklook.ThumbnailsAgent",
|
||||||
|
"appstored"
|
||||||
|
],
|
||||||
|
|
||||||
|
# IO active and system services
|
||||||
|
"5": [
|
||||||
|
"corebrightnessd",
|
||||||
|
"airportd",
|
||||||
|
"containermanagerd",
|
||||||
|
"searchpartyd",
|
||||||
|
"\\/usr\\/bin\\/log",
|
||||||
|
"corespeechd",
|
||||||
|
"peopled",
|
||||||
|
"AssetCacheLocatorService",
|
||||||
|
"avatarsd",
|
||||||
|
"contactsdonationagent",
|
||||||
|
"storedownloadd",
|
||||||
|
"Dock\\.app",
|
||||||
|
"Dock$",
|
||||||
|
"Finder$",
|
||||||
|
"DockHelper$"
|
||||||
|
],
|
||||||
|
|
||||||
|
# Browsers and such
|
||||||
|
"9": [
|
||||||
|
"\\/Google Chrome",
|
||||||
|
"\\/Google Chrome Helper",
|
||||||
|
"EmojiFunction",
|
||||||
|
"Microsoft Edge Helper",
|
||||||
|
"Opera Helper",
|
||||||
|
"UserNotificationCenter"
|
||||||
|
],
|
||||||
|
|
||||||
|
# Even more less important services
|
||||||
|
"11": [
|
||||||
|
"siriactionsd",
|
||||||
|
"CoreSpotlightService",
|
||||||
|
"spotlightknowledged",
|
||||||
|
"Spotlight",
|
||||||
|
"suggestd",
|
||||||
|
"studentd",
|
||||||
|
"com.apple.siri-distributed\\-evaluation",
|
||||||
|
"com.apple.CloudPhotosConfiguration"
|
||||||
|
],
|
||||||
|
"12": ["bash"],
|
||||||
|
# IO hogs and other "bad" services
|
||||||
|
"19":[
|
||||||
|
"coreduetd",
|
||||||
|
"endpointsecurityd",
|
||||||
|
"analyticsd",
|
||||||
|
"backupd",
|
||||||
|
"com.apple.CodeSigningHelper",
|
||||||
|
"distnoted",
|
||||||
|
"backupd\\-helper",
|
||||||
|
"JamfDaemon",
|
||||||
|
"osqueryd",
|
||||||
|
"commvault",
|
||||||
|
"diagnosticd",
|
||||||
|
"JamfProCommService",
|
||||||
|
"XprotectService",
|
||||||
|
"XProtectPluginService",
|
||||||
|
"media\\-indexer",
|
||||||
|
"com.apple.Safari.SafeBrowsing.Service",
|
||||||
|
"SafariNotificationAgent",
|
||||||
|
"AMPArtworkAgent",
|
||||||
|
"AMPLibraryAgent",
|
||||||
|
"IDSBlastDoorService",
|
||||||
|
"photoanalysisd",
|
||||||
|
"photolibraryd",
|
||||||
|
"Crash Reports",
|
||||||
|
"\\/mds$",
|
||||||
|
"\\/mds_stores$",
|
||||||
|
"\\/mdsync",
|
||||||
|
"mdbulkimport",
|
||||||
|
"mdworker_shared",
|
||||||
|
"osqueryd",
|
||||||
|
"opendirectoryd",
|
||||||
|
"mediaanalysisd"
|
||||||
|
]
|
||||||
|
}
|
||||||
|
}
|
||||||
224
reniced
Normal file
224
reniced
Normal file
@@ -0,0 +1,224 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
# Renice some processes, to make system more respositive
|
||||||
|
|
||||||
|
# TODO: Add -c parameter to pointout where config actually is
|
||||||
|
# TODO: Add perlcritic rules :)
|
||||||
|
# TODO: Запользовать модуль Proc::Find для получения списка pid-ов искомых процессов и их текущих парметров.
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use utf8;
|
||||||
|
use open qw (:std :utf8);
|
||||||
|
use Encode qw (encode);
|
||||||
|
use English qw (-no_match_vars);
|
||||||
|
use JSON::XS ();
|
||||||
|
use POSIX qw (setsid);
|
||||||
|
|
||||||
|
local $SIG{INT} = \&__signal_handler;
|
||||||
|
local $SIG{TERM} = \&__signal_handler;
|
||||||
|
|
||||||
|
my $list;
|
||||||
|
my $F;
|
||||||
|
|
||||||
|
my $uid = $<;
|
||||||
|
|
||||||
|
my $config = LoadConf();
|
||||||
|
my $pidfile = '/run/reniced.pid'; # Пусть будет глобальной переменной, чтобы обратиться к ней в хэндлерах сигналов
|
||||||
|
|
||||||
|
if ($uid > 0) {
|
||||||
|
$pidfile = sprintf '/tmp/reniced-%s.pid', $uid;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ((defined $config->{patameters}->{pidfile}) && ($config->{patameters}->{pidfile} ne '')) {
|
||||||
|
$pidfile = $config->{patameters}->{pidfile};
|
||||||
|
}
|
||||||
|
|
||||||
|
unless ($config->{foreground}) {
|
||||||
|
daemonize ();
|
||||||
|
my $pidfilehandler;
|
||||||
|
|
||||||
|
# Поскольку мы логи никуда не пишем, то обработать ошибку, если она возникнет, вербозно не можем.
|
||||||
|
if (open ($pidfilehandler, '>', $pidfile)) {
|
||||||
|
if (print {$pidfilehandler} $PID) {
|
||||||
|
close $pidfilehandler;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
while (sleep 2) {
|
||||||
|
open $F, qq{ps xau |} or do { warn "Can't 'run ps xau': $!" ; next; };
|
||||||
|
binmode $F, ':utf8';
|
||||||
|
|
||||||
|
my $cmd;
|
||||||
|
|
||||||
|
while (my $str = readline $F) {
|
||||||
|
chomp $str;
|
||||||
|
my ($user, $pid, $cpu, $mem, $vsz, $rss, $tt, $stat, $started, $time, $command) = split /\s+/, $str, 11;
|
||||||
|
if ($uid > 0) { # i'm not root!
|
||||||
|
my $u = getpwuid ($<);
|
||||||
|
|
||||||
|
if (defined $pid && defined $command && defined $user) {
|
||||||
|
if (($u eq $user) && ($pid =~ /^\d+$/)) {
|
||||||
|
push @{$cmd->{$command}}, $pid;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else { # fuck, yeah! i'm root!
|
||||||
|
# since we interested in changing niceness of processes, we need to make map command->[pids]
|
||||||
|
if (defined $pid && defined $command) {
|
||||||
|
if ($pid =~ /^\d+$/) {
|
||||||
|
push @{$cmd->{$command}}, $pid;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
close $F;
|
||||||
|
|
||||||
|
if (defined $cmd) {
|
||||||
|
# bulk chanage niceness :)
|
||||||
|
my $prio = $config->{prio};
|
||||||
|
my $kill = $config->{kill};
|
||||||
|
|
||||||
|
foreach my $kill_signal (keys %{$kill}) {
|
||||||
|
my @pids;
|
||||||
|
|
||||||
|
foreach my $command (keys %{$cmd}) {
|
||||||
|
foreach my $command_pattern (@{$kill->{$kill_signal}}) {
|
||||||
|
if ($command =~ /$command_pattern/) {
|
||||||
|
push @pids, @{$cmd->{$command}};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($#pids >= 0) {
|
||||||
|
my $killcmd = sprintf 'kill -%s %s', $kill_signal, join (' ', @pids);
|
||||||
|
`$killcmd`;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach my $priority (keys %{$prio}) {
|
||||||
|
my @pids;
|
||||||
|
|
||||||
|
foreach my $command (keys %{$cmd}) {
|
||||||
|
foreach my $command_pattern (@{$prio->{$priority}}) {
|
||||||
|
if ($command =~ /$command_pattern/u) {
|
||||||
|
push @pids, @{$cmd->{$command}};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($#pids >= 0) {
|
||||||
|
my $renice;
|
||||||
|
|
||||||
|
if (($uid > 0) && ($priority < 0)) {
|
||||||
|
$renice = sprintf "renice 0 -p %s", join (' ', @pids);
|
||||||
|
} else {
|
||||||
|
$renice = sprintf "renice %s -p %s", $priority, join (' ', @pids);
|
||||||
|
}
|
||||||
|
|
||||||
|
`$renice`;
|
||||||
|
|
||||||
|
if ($priority > 2) {
|
||||||
|
if ($OSNAME eq 'darwin') {
|
||||||
|
my $taskpol = sprintf 'taskpolicy -b -p %s', join (' '. @pids);
|
||||||
|
`$taskpol`;
|
||||||
|
} elsif ($OSNAME eq 'linux') {
|
||||||
|
foreach my $pid (@pids) {
|
||||||
|
`ionice -c 3 -p $pid`;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$#pids = -1; undef @pids;
|
||||||
|
sleep 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
undef $prio;
|
||||||
|
undef $cmd;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# This code unreachable, but for formal correctness it should be here :)
|
||||||
|
if (-f $pidfile) {
|
||||||
|
unlink $pidfile;
|
||||||
|
}
|
||||||
|
|
||||||
|
exit 0;
|
||||||
|
|
||||||
|
sub LoadConf {
|
||||||
|
my $file = '/etc/reniced.json';
|
||||||
|
my $uid = $<;
|
||||||
|
|
||||||
|
# On recent MacOS we have no direct ability to run reniced as system service, so we have to run it as user, probably
|
||||||
|
# via sudo, so we have to check OS here and use $HOME/.reniced.json for MacOS.
|
||||||
|
if (($OSNAME eq 'darwin') || ($uid != 0)) {
|
||||||
|
# Assume that script is not running under completely sanitized environment
|
||||||
|
die "No HOME variable found.\n" unless (defined $ENV{HOME});
|
||||||
|
|
||||||
|
$file = sprintf '%s/.reniced.json', $ENV{HOME};
|
||||||
|
}
|
||||||
|
|
||||||
|
open my $FILEHANDLE, '<', $file || die "[FATA] No conf at $file: $OS_ERROR\n";
|
||||||
|
|
||||||
|
# Use binmode in order to get amount of read bytes (not chars!) from read()
|
||||||
|
binmode $FILEHANDLE;
|
||||||
|
my $len = (stat $file) [7];
|
||||||
|
my $json;
|
||||||
|
my $readlen = read $FILEHANDLE, $json, $len;
|
||||||
|
$json = encode 'UTF-8', $json;
|
||||||
|
|
||||||
|
unless (defined $readlen) {
|
||||||
|
close $FILEHANDLE;
|
||||||
|
die "Unable to read $file: $OS_ERROR\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($readlen != $len) {
|
||||||
|
close $FILEHANDLE;
|
||||||
|
die "File $file is $len bytes on disk, but we read only $readlen bytes\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
close $FILEHANDLE;
|
||||||
|
|
||||||
|
my $j = JSON::XS->new->utf8->relaxed;
|
||||||
|
my $config = eval { $j->decode ($json); };
|
||||||
|
|
||||||
|
unless (defined $config) {
|
||||||
|
die "File $file does not contain a valid json data: $EVAL_ERROR\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
return $config;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub daemonize {
|
||||||
|
__fork ();
|
||||||
|
setsid ();
|
||||||
|
open STDIN, '<', '/dev/null';
|
||||||
|
open STDOUT, '>', '/dev/null';
|
||||||
|
open STDERR, '>', '/dev/null';
|
||||||
|
__fork ();
|
||||||
|
umask 0;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub __fork {
|
||||||
|
my $pid = fork;
|
||||||
|
|
||||||
|
unless (defined $pid) {
|
||||||
|
die ("Can't fork: $!");
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($pid != 0) {
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub __signal_handler {
|
||||||
|
# remove pidfile if it exist
|
||||||
|
if (-f $pidfile) {
|
||||||
|
unlink $pidfile;
|
||||||
|
}
|
||||||
|
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user