+sub print_simple_pod_manpage {
+ my ($podfn, $class, $name, $arg_param, $uri_param) = @_;
+
+ my $synopsis = " $name help\n\n";
+ my $str = $class->usage_str($name, $name, $arg_param, $uri_param, 'long');
+ $str =~ s/^USAGE://;
+ $str =~ s/\n/\n /g;
+ $synopsis .= $str;
+
+ my $parser = PVE::PodParser->new();
+ $parser->{include}->{synopsis} = $synopsis;
+ $parser->parse_from_file($podfn);
+}
+