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