ClusterCockpit/cc-backend
1
0
Fork 0
mirror of https://github.com/ClusterCockpit/cc-backend synced 2024-12-25 12:59:06 +01:00
Code Issues Packages Releases Activity

Work on jobTag Script

Browse Source
This commit is contained in:
Jan Eitzinger 2019-11-13 08:16:26 +01:00
parent 95f616f45e
commit e27a3fda79
1 changed files with 34 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
jobTag.pl Normal file → Executable file
View File

@ -41,28 +41,48 @@ my $dbh = DBI->connect(
"DBI:SQLite:dbname=$database", "", "", \%attr)
or die "Could not connect to database: $DBI::errstr";
my $sth_select_job = $dbh->prepare(qq{
SELECT id, user_id, job_id, cluster_id,
start_time, stop_time, duration, num_nodes,
has_profile
FROM job
WHERE job_id=?
my $sth_query_job = $dbh->prepare(qq{
SELECT j.*
FROM jobtag jt, job j, tag t
WHERE jt.tag_id=t.tag_id
AND t.name=?
AND j.id=jt.job_id
GROUP BY j.id
});
my $sth_update_job = $dbh->prepare(qq{
UPDATE job
SET has_profile = ?,
mem_used_max = ?,
flops_any_avg = ?,
mem_bw_avg = ?
WHERE id=?;
my $sth_select_job = $dbh->prepare(qq{
SELECT id
FROM job
WHERE job_id=?
});
my $sth_select_tag = $dbh->prepare(qq{
SELECT id
FROM tag
WHERE tag_name=?
WHERE name=?
});
my $sth_insert_tag = $dbh->prepare(qq{
INSERT INTO tag(type,name)
VALUES(?,?)
});
my $sth_job_add_tag = $dbh->prepare(qq{
INSERT INTO jobtag(job_id,tag_id)
VALUES(?,?)
});
my $CMD = $ARGV[0];
if ( $CMD eq 'ADD' ) {
# body...
}
elsif ( $CMD eq 'RM' ) {
# elsif...
}
elsif ( $CMD eq 'LS' ) {
# elsif...
}
else {
# else...
}