| 1 | package Gruntmaster::App; |
| 2 | |
| 3 | use 5.014000; |
| 4 | use warnings; |
| 5 | |
| 6 | our $VERSION = '5999.000_004'; |
| 7 | |
| 8 | use App::Cmd::Setup '-app'; |
| 9 | use Gruntmaster::Data; |
| 10 | |
| 11 | sub allow_any_unambiguous_abbrev () { 1 } |
| 12 | sub default_command { 'commands' } # Show usage when called without arguments |
| 13 | |
| 14 | sub global_opt_spec { |
| 15 | (['table' => 'hidden', {one_of => [ |
| 16 | ['contests|ct|c' => 'Act on contests'], |
| 17 | ['jobs|j' => 'Act on jobs'], |
| 18 | ['problems|pb|p' => 'Act on problems'], |
| 19 | ['users|us|u' => 'Act on users']]}]) |
| 20 | } |
| 21 | |
| 22 | sub table { shift->global_options->{table} } |
| 23 | |
| 24 | dbinit $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:'; |
| 25 | |
| 26 | 1; |
| 27 | __END__ |
| 28 | |
| 29 | =encoding utf-8 |
| 30 | |
| 31 | =head1 NAME |
| 32 | |
| 33 | Gruntmaster::App - command-line interface to the Gruntmaster 6000 database |
| 34 | |
| 35 | =head1 SYNOPSIS |
| 36 | |
| 37 | use Gruntmaster::App; |
| 38 | Gruntmaster::App->run; |
| 39 | |
| 40 | =head1 DESCRIPTION |
| 41 | |
| 42 | Gruntmaster::App is a command-line interface to the Gruntmaster 6000 |
| 43 | database. It is the backend of the B<gm> script. |
| 44 | |
| 45 | =head1 SEE ALSO |
| 46 | |
| 47 | L<gm> |
| 48 | |
| 49 | =head1 AUTHOR |
| 50 | |
| 51 | Marius Gavrilescu, E<lt>marius@ieval.roE<gt> |
| 52 | |
| 53 | =head1 COPYRIGHT AND LICENSE |
| 54 | |
| 55 | Copyright (C) 2014-2015 by Marius Gavrilescu |
| 56 | |
| 57 | This library is free software; you can redistribute it and/or modify |
| 58 | it under the same terms as Perl itself, either Perl version 5.20.1 or, |
| 59 | at your option, any later version of Perl 5 you may have available. |
| 60 | |
| 61 | |
| 62 | =cut |