]>
iEval git - gruntmaster-data.git/blob - gruntmaster-job
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;
41 say $db->job($id)->get_column($col)
45 my ($id, %values) = @_;
46 $db->job($id)->update(\
%values);
54 ##################################################
56 my $cmd = 'cmd_' . shift;
57 cmd_help
unless exists $main::{$cmd};
59 $cmd->(@ARGV) if exists $main::{$cmd};
68 gruntmaster-job - shell interface to Gruntmaster 6000 job log
72 gruntmaster-job show id
74 gruntmaster-job get id key
75 gruntmaster-job set id key value
76 gruntmaster-job rerun id
80 gruntmaster-job is a tool for managing jobs.
86 Prints detailed information about the job with id I<id>.
90 Removes the job with id I<id>.
92 =item B<set> I<id> I<key> I<value>
94 Sets the I<key> configuration option of job I<id> to I<value>.
96 =item B<get> I<id> I<key>
98 Get the value of the I<key> configuration option of job I<id>.
108 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
110 =head1 COPYRIGHT AND LICENSE
112 Copyright (C) 2014 by Marius Gavrilescu
114 This library is free software; you can redistribute it and/or modify
115 it under the same terms as Perl itself, either Perl version 5.18.1 or,
116 at your option, any later version of Perl 5 you may have available.
This page took 0.05117 seconds and 4 git commands to generate.