mirror of
https://github.com/ceph/ceph
synced 2024-12-11 22:18:18 +00:00
15 lines
247 B
Perl
15 lines
247 B
Perl
|
#!/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;
|