#!/usr/bin/perl
# Batch EXecutor 2.0
# (c) 2011 Martin Mares <mj@ucw.cz>

use strict;
use warnings;

use lib 'lib';
use BEX;

my $job = BEX::Job->new;
my $fn = $job->save;
system "editor", $fn;
## FIXME: Check exit code of editor
$job = BEX::Job->new_from_file($fn);
## FIXME: Compare and exit if no changes

my $queue = BEX::Queue->new;
for my $m (keys %BEX::Config::machines) {
	$queue->enqueue($m, $job);
}

unlink $fn;