#!/usr/bin/env perl

use 5.010001;
use strict;
use warnings;
use FindBin '$Bin';
use lib "$Bin/../lib";

use File::Slurper qw(read_text write_text);
use App::pause;
use Perinci::CmdLine::Inline qw(gen_inline_pericmd_script);

my $res = gen_inline_pericmd_script(
    shebang => "#!perl",
    pod => 0,
    pack_deps => 0,
    script_name => 'pause',
    script_version_from_main_version => 1,
    use_cleanser => 0,
    code_before_enable_logging => 'require Log::ger::Layout::JSON;',
    code_add_extra_log_outputs => join(
        "",
        '$_pci_log_outputs->{Screen}{category_level}{access} = "off"; ',
        '$_pci_log_outputs->{SimpleFile} = {conf=>{path => ($ENV{HOME} || ".")."/pause-access.log"}, level=>"off", layout=>[JSON=>{}], category_level=>{access=>"info"}}; ',
        ),
    %App::pause::cli_attrs,
);
# TODO: option to customize location of access log
die "Can't generate script: $res->[0] - $res->[1]"
    unless $res->[0] == 200;

my $content = $res->[2] . "\n\n" . read_text("$Bin/../devdata/pause.pod");

write_text("$Bin/../script/pause", $content);
