mirror of
https://github.com/Telecominfraproject/OpenCellular.git
synced 2025-12-24 16:57:21 +00:00
26 lines
600 B
Perl
Executable File
26 lines
600 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# Copyright (c) 2017-present, Facebook, Inc.
|
|
# All rights reserved.
|
|
#
|
|
# This source code is licensed under the BSD-style license found in the
|
|
# LICENSE file in the root directory of this source tree. An additional grant
|
|
# of patent rights can be found in the PATENTS file in the same directory.
|
|
|
|
#
|
|
#
|
|
# File: fans_on
|
|
#
|
|
#
|
|
#
|
|
use strict;
|
|
|
|
my $Path = '/usr/local/fbin';
|
|
my $Prog = ($0 =~ m/fans_on$/) ? 'acpwr_on' : 'acpwr_off';
|
|
$Prog = "$Path/$Prog";
|
|
# print "I want to call $Prog.\n";
|
|
system("$Prog 5");
|
|
my $Err = $? >> 8;
|
|
die "$Prog 5 had a problem: $Err: $!.\n" if $Err;
|
|
exit 0;
|