Merge pull request mackerelio#703 from mackerelio/generate-docs

fix generate docs

Author: yseto

.github/workflows/create-release-pr.yml

@@ -34,10 +34,6 @@ jobs:
           NEXT=${{ steps.start.outputs.nextVersion }}
           mv packaging/mackerel-check-plugins_$CURRENT.orig.tar.gz packaging/mackerel-check-plugins_$NEXT.orig.tar.gz
 
-      - run: |
-          cpanm -qn Path::Tiny
-          perl tool/update-docs.pl
-
       - uses: mackerelio/mackerel-create-release-pull-request-action@main
         with:
           github_token: ${{ secrets.MACKERELBOT_GITHUB_TOKEN }}

tool/gen_mackerel_check.pl

@@ -3,15 +3,103 @@
 use warnings;
 use utf8;
 use autodie;
+use IO::File;
 use JSON::PP;
 
-my $json = do {
+my $PLUGIN_PREFIX = 'check-';
+my $PACKAGE_NAME = 'mackerel-check-plugins';
+
+# refer Mackerel::ReleaseUtils
+sub replace {
+    my ($glob, $code) = @_;
+    for my $file (glob $glob) {
+        my $content = $code->(slurp_utf8($file), $file);
+        $content .= "\n" if $content !~ /\n\z/ms;
+
+        # for keeping permission
+        append_file($file, $content);
+    }
+}
+
+sub retrieve_plugins {
+    sort map {s/^$PLUGIN_PREFIX//; $_} <$PLUGIN_PREFIX*>;
+}
+
+sub update_readme {
+    my @plugins = @_;
+
+    my $doc_links = '';
+    for my $plug (@plugins) {
+        $doc_links .= "* [$PLUGIN_PREFIX$plug](./$PLUGIN_PREFIX$plug/README.md)\n"
+    }
+    replace 'README.md' => sub {
+        my $readme = shift;
+        my $plu_reg = qr/$PLUGIN_PREFIX[-0-9a-zA-Z_]+/;
+        $readme =~ s!(?:\* \[$plu_reg\]\(\./$plu_reg/README\.md\)\n)+!$doc_links!ms;
+        $readme;
+    };
+}
+
+sub update_packaging_specs {
+    my @plugins = @_;
+    my $for_in = 'for i in ' . join(' ', @plugins) . '; do';
+
+    my $replace_sub = sub {
+        my $content = shift;
+        $content =~ s/for i in.*?;\s*do/$for_in/ms;
+        $content;
+    };
+    replace $_, $replace_sub for ("packaging/rpm/$PACKAGE_NAME*.spec", "packaging/deb-v2/debian/rules");
+}
+
+####
+# file utility
+####
+sub slurp_utf8 {
+    my $filename = shift;
+    my $fh = IO::File->new($filename, "<:utf8");
     local $/;
-    open my $fh, '<', 'packaging/config.json';
-    <$fh>
-};
+    <$fh>;
+}
+sub write_file {
+    my $filename = shift;
+    my $content = shift;
+    my $fh = IO::File->new($filename, ">:utf8");
+    print $fh $content;
+    $fh->close;
+}
+sub append_file {
+    my $filename = shift;
+    my $content = shift;
+    my $fh = IO::File->new($filename, "+>:utf8");
+    print $fh $content;
+    $fh->close;
+}
+
+sub load_packaging_confg {
+    decode_json(slurp_utf8('packaging/config.json'));
+}
+
+
+####
+# some file generate task
+####
+
+sub subtask {
+    my @plugins = retrieve_plugins;
+    update_readme(@plugins);
+    my $config = load_packaging_confg;
+    update_packaging_specs(@{ $config->{plugins} });
+
+}
+
+subtask();
+
+####
+# go:generate task
+####
 
-my @plugins = sort @{ decode_json($json)->{plugins}};
+my @plugins = sort @{ load_packaging_confg()->{plugins}};
 
 my $imports = "";
 my $case = "";