This repository has been archived by the owner on Feb 19, 2022. It is now read-only.
-
-
Notifications
You must be signed in to change notification settings - Fork 26
/
RtprioCheck.pm
50 lines (46 loc) · 1.47 KB
/
RtprioCheck.pm
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
# Copyright 2010 Arnout Engelen
#
# This file is part of realtimeconfigquickscan.
#
# realtimeconfigquickscan is free software: you can redistribute it and/or
# modify it under the terms of the GNU General Public License as published
# by the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# realtimeconfigquickscan is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with realtimeconfigquickscan.
# If not, see <http://www.gnu.org/licenses/>.
package RtprioCheck;
use Check;
use base qw(Check);
sub new
{
my($class) = shift;
my($self) = Check->new($class);
$self->{LABEL} = "Checking the ability to prioritize processes with chrt";
return (bless($self, $class));
}
sub execute
{
my $self = shift;
my $rtprioout = `chrt -f 80 echo success`;
if ($rtprioout =~ /success/)
{
$self->{RESULTKIND} = "good";
$self->{RESULT} = "yes";
$self->{COMMENT} = undef;
}
else
{
$self->{RESULTKIND} = "not good";
$self->{RESULT} = "no";
$self->{COMMENT} = "Could not assign a 80 rtprio SCHED_FIFO value. Set up limits.conf.\n".
"For more information, see http://wiki.linuxaudio.org/wiki/system_configuration#limitsconfaudioconf";
}
}
1;