diff options
author | James Meyer <james.meyer@operamail.com> | 2010-10-23 18:17:40 (GMT) |
---|---|---|
committer | James Meyer <james.meyer@operamail.com> | 2010-10-23 18:19:39 (GMT) |
commit | adbcf19958300e9b6598990184c8815b945ba0ee (patch) | |
tree | f4283c850ac0ac202c17e78a637ee7ca8147621b /abs/core-testing/tweaker/lib/Tweaker/Definitions.pm | |
parent | 61a68250df10d29b624650948484898334ff22d0 (diff) | |
download | linhes_pkgbuild-adbcf19958300e9b6598990184c8815b945ba0ee.zip linhes_pkgbuild-adbcf19958300e9b6598990184c8815b945ba0ee.tar.gz linhes_pkgbuild-adbcf19958300e9b6598990184c8815b945ba0ee.tar.bz2 |
Removed old core and extra from repo. Renamed -testing to core/extra. This will setup the base for the testing branch.
Diffstat (limited to 'abs/core-testing/tweaker/lib/Tweaker/Definitions.pm')
-rw-r--r-- | abs/core-testing/tweaker/lib/Tweaker/Definitions.pm | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/abs/core-testing/tweaker/lib/Tweaker/Definitions.pm b/abs/core-testing/tweaker/lib/Tweaker/Definitions.pm deleted file mode 100644 index cbadf29..0000000 --- a/abs/core-testing/tweaker/lib/Tweaker/Definitions.pm +++ /dev/null @@ -1,66 +0,0 @@ -# Copyright 2007 Robert ("Bob") Igo of StormLogic, LLC and mythic.tv. -# -# This program 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 3 of the License, or -# (at your option) any later version. -# -# This program 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 this program. If not, see <http://www.gnu.org/licenses/>. - -package Tweaker::Definitions; -use List::Member; -use Log::Log4perl qw(:easy); - -# To install the above modules: -# -- -# sudo cpan install List::Member - -# Recommendation Levels -my $bottom = -200; # a reserved value, under which no recommendationlevel can go -my $not_available = -100; -my $unsupported = -99; -my $inadvisable = -50; -my $optional = 0; -my $recommended = 100; - -# Interactivity Levels -my $guided = "guided"; -my $minimal = "minimal"; - -# Special variables -my $null = "null"; # reserved as the script name for special Tweaks that define Tweaker behavior - -my %global_variable_hash = ( - "bottom" => $bottom, - "not available" => $not_available, - "unsupported" => $unsupported, - "inadvisable" => $inadvisable, - "optional" => $optional, - "recommended" => $recommended, - "guided" => $guided, - "minimal" => $minimal, - "null" => $null -); - -sub get_global_variable_value { - my ($variable) = @_; - - my @known_variables = keys %global_variable_hash; - if (member($variable, @known_variables) + 1) { - if ($global_variable_hash{$variable}) { - return $global_variable_hash{$variable}; - } - } else { - my $logger = get_logger(); - $logger->error("No Tweaker Definition for variable named $variable"); - return $bottom; - } -} - -1; |