3 # (c) 2011 Martin Mares <mj@ucw.cz>
11 my $job = BEX::Job->new;
14 ## FIXME: Check exit code of editor
15 $job = BEX::Job->new_from_file($fn);
16 ## FIXME: Compare and exit if no changes
18 my $queue = BEX::Queue->new;
19 for my $m (keys %BEX::Config::machines) {
20 $queue->enqueue($m, $job);