QuickScanEngine.pm

#   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/>.
#!/usr/bin/perl

use strict;
use RootCheck;
use GovernorCheck;
use SwappinessCheck;
use BackgroundCheck;
use WatchesCheck;
use AudioGroupCheck;
use MultiAudioCheck;
use RtprioCheck;
use HighResTimersCheck;
use PreemptRtCheck;
use Hz1000Check;
use NoHzCheck;
use NoAtimeCheck;

package QuickScanEngine;

sub new {
	my $self = {};
	$self->{CHECKS} = ();

	push(@{$self->{CHECKS}}, RootCheck->new);
	push(@{$self->{CHECKS}}, NoAtimeCheck->new);
	push(@{$self->{CHECKS}}, GovernorCheck->new);
	push(@{$self->{CHECKS}}, SwappinessCheck->new);
	push(@{$self->{CHECKS}}, BackgroundCheck->new);
	push(@{$self->{CHECKS}}, WatchesCheck->new);
	push(@{$self->{CHECKS}}, AudioGroupCheck->new);
	push(@{$self->{CHECKS}}, MultiAudioCheck->new);
	push(@{$self->{CHECKS}}, RtprioCheck->new);
	push(@{$self->{CHECKS}}, HighResTimersCheck->new);
	push(@{$self->{CHECKS}}, PreemptRtCheck->new);
	push(@{$self->{CHECKS}}, Hz1000Check->new);
	push(@{$self->{CHECKS}}, NoHzCheck->new);

	bless($self);
	return $self;
}

sub getFilesystems()
{
	my $mount = `mount`;
	my @result = ();
	while ($mount =~ /(\S*) on (\S+) type (\S+) \(([^)]*)\)/gi)
	{
		my %filesystem;
		$filesystem{dev} = $1;
		$filesystem{mountpoint} = $2;
		$filesystem{type} = $3;
		$filesystem{params} = $4;
		push(@result, \%filesystem);
	}
	return @result;
}

1;