mirror of
https://github.com/Telecominfraproject/OpenCellular.git
synced 2025-12-24 16:57:21 +00:00
44 lines
1.3 KiB
Perl
Executable File
44 lines
1.3 KiB
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: update_fbt
|
|
#
|
|
# This program will run the fb_apps_v* installer.
|
|
#
|
|
# First I check to make sure I am not within the development
|
|
# machine. I do this by seeing if my $Bin dir has either a
|
|
# .git or a t directory.
|
|
# I then check to make sure I have 1.0 installer files.
|
|
# I then clear out old copies in /usr/local/tmp.
|
|
# The installer is moved to /usr/local/tmp and executed.
|
|
#
|
|
use strict;
|
|
use FindBin qw/$Bin/;
|
|
use File::Copy;
|
|
|
|
die "I must be root to run.\n" unless ($> == 0);
|
|
die "I see a .git directory, cannot run update.\n" if (-d "$Bin/.git");
|
|
die "I see a t directory, cannot run update.\n" if (-d "$Bin/t");
|
|
|
|
my @Srcs = glob('/home/rdlab/Dropbox/fbc1/fb_apps_v*');
|
|
die "Ambiguous number of fb_apps_v* files from ~/Dropbox/fbc1.\n"
|
|
if (@Srcs > 1);
|
|
die "Cannot find fb_apps_v* in ~/Dropbox/fbc1.\n" unless (@Srcs);
|
|
|
|
my $Tdir = '/usr/local/tmp';
|
|
my @Ins = glob("$Tdir/fb_apps_v*");
|
|
unlink @Ins if @Ins;
|
|
|
|
move($Srcs[0], $Tdir);
|
|
@Ins = glob("$Tdir/fb_apps_v*");
|
|
die "Could not move $Srcs[0] to $Tdir: $!.\n" if (@Ins != 1);
|
|
exec($Ins[0]);
|
|
|