mirror of
https://github.com/Telecominfraproject/OpenCellular.git
synced 2025-12-24 16:57:21 +00:00
44 lines
991 B
Perl
Executable File
44 lines
991 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: capture
|
|
#
|
|
#
|
|
# This is a program to capture changed files in the fbin tree
|
|
# and copy changed files to /home/rdlab/dbc1. The ~/dbc1 symbolic
|
|
# link points to the distribution dropbox.
|
|
#
|
|
use File::Copy;
|
|
my @Fns = get_fns();
|
|
copy_over(@Fns) if (@Fns);
|
|
exit 0;
|
|
|
|
sub get_fns {
|
|
my $prog = '/usr/local/fbin/chk_distro';
|
|
my $txt = `$prog`;
|
|
my $re = qr{^(/usr/local/fbin/[^\033]+)
|
|
.+? has \s changed .+?$}xm;
|
|
|
|
my @fns = $txt =~ m{$re}g;
|
|
return @fns;
|
|
}
|
|
|
|
sub copy_over {
|
|
my @fns = @_;
|
|
my $dest = '/home/rdlab/dbc1';
|
|
for my $fn (@fns) {
|
|
copy($fn, $dest) or
|
|
die "Copy failed: $!.\n" .
|
|
"From $fn to $dest.\n";
|
|
print "$fn copied to $dest.\n";
|
|
}
|
|
}
|