[ceph.git] / ceph / src / script / add_header.pl

#!/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";

}
Commit	Line	Data
7c673cae FG	1	#!/usr/bin/perl
	2
	3	use strict;
	4	my $fn = shift @ARGV;
	5	my $old = `cat $fn`;
	6
	7	my $header = `cat doc/header.txt`;
	8
	9	# strip existing header
	10	my $new = $old;
	11	if ($new =~ /^(.)\ Ceph - scalable distributed file system/s) {
	12	my ($a,@b) = split(/\*\/\n/, $new);
	13	$new = join("*/\n",@b);
	14	}
	15	$new = $header . $new;
	16
	17	if ($new ne $old) {
	18	open(O, ">$fn.new");
	19	print O $new;
	20	close O;
	21	system "diff $fn $fn.new";
	22	rename "$fn.new", $fn;
	23	#unlink "$fn.new";
	24
	25	}
	26