view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

```

## Quick Start

1. Run the CLI:

```
ordo
```

2. On first run it will prompt for your API token (get it from the Ordo web UI).

3. Common commands:

```
ls                     # list current path
job create ...         # create a new job
cluster run mycluster  # run a cluster
sync                   # resync servers & identify zombies
help                   # full command list
```

lib/App/Ordo.pm  view on Meta::CPAN

    my $res = $self->api->call('login_user', { token => $token });

    if ($res->{success}) {
        $CURRENT_PATH = $res->{path} // '/';
        say colored(["bold green"], "Connected to " . $self->api->config->{api} . " as $res->{email}");
        return $res;
    }

    say colored(["bold yellow"], "No valid token found");
    return $self->prompt_for_token;
}

sub prompt_for_token {
    my $self = shift;
    while (1) {
        print colored(["bold white"], "Enter API token: ");
        chomp(my $token = <STDIN>);
        $token =~ s/^\s+|\s+$//g;

        my $res = $self->api->call('login_user', { token => $token });

        if ($res->{success} && $res->{level} >= 1) {
            my $config = $self->api->config;