mirror of
https://github.com/ceph/ceph
synced 2024-12-21 10:54:42 +00:00
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;
|