mirror of
https://github.com/ceph/ceph
synced 2024-12-22 03:22:00 +00:00
27 lines
446 B
Perl
27 lines
446 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
my $fn = shift @ARGV;
|
||
|
|
my $old = `cat $fn`;
|
||
|
|
|
||
|
|
my $header = `cat doc/header.txt`;
|
||
|
|
|
||
|
|
# strip existing header
|
||
|
|
my $new = $old;
|
||
|
|
if ($new =~ /^(.*)\* Ceph - scalable distributed file system/s) {
|
||
|
|
my ($a,@b) = split(/\*\/\n/, $new);
|
||
|
|
$new = join("*/\n",@b);
|
||
|
|
}
|
||
|
|
$new = $header . $new;
|
||
|
|
|
||
|
|
if ($new ne $old) {
|
||
|
|
open(O, ">$fn.new");
|
||
|
|
print O $new;
|
||
|
|
close O;
|
||
|
|
system "diff $fn $fn.new";
|
||
|
|
rename "$fn.new", $fn;
|
||
|
|
#unlink "$fn.new";
|
||
|
|
|
||
|
|
}
|
||
|
|
|