47bb2ab301eb1ceb7472bd54375f6c4d087414eb
6 use IO
::Prompter
[ -style
=> 'bold', '-stdio', '-verbatim' ];
7 use POSIX qw
/strftime/;
9 ##################################################
11 my $dsn = $ENV{GRUNTMASTER_DSN
} // 'dbi:Pg:';
12 my $db = Gruntmaster
::Data
->connect($dsn);
19 my %columns = $db->job(shift)->get_columns;
20 $columns{date
} = strftime
'%c', localtime $columns{date
};
21 $columns{private
} = $columns{private
} ?
'yes' : 'no';
25 Owner: $columns{owner}
26 Problem: $columns{problem}
27 Format: $columns{format}
28 Daemon: $columns{daemon}
29 Result text: $columns{result_text}
30 Private: $columns{private}
36 $db->job($id)->delete;
43 say $db->job($id)->get_column($col)
47 my ($id, %values) = @_;
48 $db->job($id)->update(\
%values);
60 ##################################################
62 my $cmd = 'cmd_' . shift;
63 cmd_help
unless exists $main::{$cmd};
65 $cmd->(@ARGV) if exists $main::{$cmd};
74 gruntmaster-job - shell interface to Gruntmaster 6000 job log
78 gruntmaster-job show id
80 gruntmaster-job get id key
81 gruntmaster-job set id key value
82 gruntmaster-job rerun id
86 gruntmaster-job is a tool for managing jobs.
92 Prints detailed information about the job with id I<id>.
96 Removes the job with id I<id>.
98 =item B<set> I<id> I<key> I<value>
100 Sets the I<key> configuration option of job I<id> to I<value>.
102 =item B<get> I<id> I<key>
104 Get the value of the I<key> configuration option of job I<id>.
114 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
116 =head1 COPYRIGHT AND LICENSE
118 Copyright (C) 2014 by Marius Gavrilescu
120 This library is free software; you can redistribute it and/or modify
121 it under the same terms as Perl itself, either Perl version 5.18.1 or,
122 at your option, any later version of Perl 5 you may have available.
This page took 0.026909 seconds and 3 git commands to generate.