Implicitly update config/wiki_pages.yml if it exists, and chmod +x
This makes: script/misc/update-wiki-pages from the top-level just work.
This commit is contained in:
parent
dd64ba2e7e
commit
3a54a20af6
1 changed files with 5 additions and 2 deletions
7
script/misc/update-wiki-pages
Normal file → Executable file
7
script/misc/update-wiki-pages
Normal file → Executable file
|
@ -42,7 +42,10 @@ Getopt::Long::Parser->new(
|
|||
# On --help
|
||||
help() if $help;
|
||||
|
||||
help() unless $ARGV[0];
|
||||
my $out_file = $ARGV[0];
|
||||
$out_file //= 'config/wiki_pages.yml';
|
||||
|
||||
help() unless -f $out_file;
|
||||
|
||||
# Get a API interface
|
||||
my $mw = MediaWiki::API->new();
|
||||
|
@ -73,7 +76,7 @@ for my $lang ('', map { "${_}:" } qw[ Pt Fi De It HU Cz Fr RU Pl ]) {
|
|||
ok(1, "Got a total of $count{$_} ${_}s") for qw[ key value ];
|
||||
|
||||
# Dump to .yml file
|
||||
open my $out, ">", $ARGV[0] or die "Can't open file '$ARGV[0]' supplied on the command line";
|
||||
open my $out, ">", $out_file or die "Can't open file '$out_file' supplied on the command line";
|
||||
say $out "# THIS FILE IS AUTOGENERATED WITH THE script/misc/update-wiki-pages";
|
||||
say $out "# PROGRAM DO NOT MANUALLY EDIT IT";
|
||||
say $out "";
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue