mirror of
https://github.com/ceph/ceph
synced 2025-01-03 09:32:43 +00:00
07ac5d3e74
git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@1068 29311d96-e01e-0410-9327-a35deaab8ce9
30 lines
640 B
Perl
Executable File
30 lines
640 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
my $fn = shift @ARGV;
|
|
my $f = `cat $fn`;
|
|
|
|
my $header = '// -*- mode:C++; tab-width:8; c-basic-offset:2; indent-tabs-mode:t -*-
|
|
/*
|
|
* Ceph - scalable distributed file system
|
|
*
|
|
* Copyright (C) 2004-2006 Sage Weil <sage@newdream.net>
|
|
*
|
|
* This is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License version 2.1, as published by the Free Software
|
|
* Foundation. See file COPYING.
|
|
*
|
|
*/
|
|
|
|
';
|
|
|
|
unless ($f =~ /Ceph - scalable distributed file system/) {
|
|
open(O, ">$fn.new");
|
|
print O $header;
|
|
print O $f;
|
|
close O;
|
|
rename "$fn.new", $fn;
|
|
}
|
|
|