App-PerinciUtils

 view release on metacpan or  search on metacpan

script/peri-htserve  view on Meta::CPAN

                in => [qw/Starman Gepok/],
                default => 'Gepok',
            }],
            summary => 'Choose PSGI server',
            description => <<'_',

Currently only Starman or Gepok is supported. Default is Gepok.

_
        },
        starman_host => {
            schema => ['str' => {}],
            summary => 'Will be passed to Starman',
        },
        starman_port => {
            schema => ['int' => {}],
            summary => 'Will be passed to Starman',
        },
        gepok_http_ports => {
            schema => ['str' => {}],
            summary => 'Will be passed to Gepok',
        },
        gepok_https_ports => {
            schema => ['str' => {}],
            summary => 'Will be passed to Gepok',

script/peri-htserve  view on Meta::CPAN

            "PeriAHS::Respond",
            enable_logging => $args{enable_logging},
        );
    };

    my @argv;
    push @argv, "-s", $server;
    my @root_urls; # for hint
    if ($server eq 'Starman') {
        for (qw/host port/) {
            push @argv, "--$_", $args{"starman_$_"} if $args{"starman_$_"};
        }

        my $host = $args{starman_host} // 'localhost';
        my $port = $args{starman_port} // 8080;
        push @root_urls, "http://$host:$port/";
    } else {
        if (!$args{gepok_http_ports} &&
                !$args{gepok_https_ports} &&
                    !$args{gepok_unix_sockets}) {
            $args{gepok_http_ports} = "*:5000";
        }
        for (qw/http_port https_ports unix_sockets
                ssl_key_file ssl_cert_file start_servers/) {
            push @argv, "--$_", $args{"gepok_$_"} if defined $args{"gepok_$_"};

script/peri-htserve  view on Meta::CPAN

 "Gepok"

Valid values:

 ["Starman","Gepok"]

Currently only Starman or Gepok is supported. Default is Gepok.


=item B<--starman-host>=I<s>

Will be passed to Starman.

=item B<--starman-port>=I<s>

Will be passed to Starman.

=item B<--use-json>=I<s>, B<-M>

Use a Perl module, a la Perl's -M (JSON-encoded).

See C<--use>.

=item B<--use>=I<s@>

script/peri-htserve  view on Meta::CPAN

 naked_res (see --naked-res)
 parse_form (see --parse-form)
 parse_path_info (see --parse-path-info)
 parse_reform (see --parse-reform)
 password (see --password)
 require (see --require)
 riap_access_log_histories (see --riap-access-log-histories)
 riap_access_log_path (see --riap-access-log-path)
 riap_access_log_size (see --riap-access-log-size)
 server (see --server)
 starman_host (see --starman-host)
 starman_port (see --starman-port)
 use (see --use)
 user (see --user)

=head1 ENVIRONMENT

=head2 PERI_HTSERVE_OPT => str

Specify additional command-line options.

=head1 FILES