mirror of
https://github.com/ceph/ceph
synced 2024-12-22 11:31:55 +00:00
1bfa322a59
git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@1025 29311d96-e01e-0410-9327-a35deaab8ce9
15 lines
247 B
Perl
Executable File
15 lines
247 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
my $bodyf = shift @ARGV;
|
|
my $templatef = 'template.html';
|
|
|
|
open(O, $bodyf);
|
|
my $body = join('',<O>);
|
|
close O;
|
|
open(O, $templatef);
|
|
my $template = join('',<O>);
|
|
close O;
|
|
$template =~ s/--body--/$body/;
|
|
print $template;
|