#!/usr/bin/env perl
my
$bs
= AnyEvent::Beanstalk->new
(
server
=>
'localhost'
,
encoder
=>
sub
{ encode_json(
shift
) });
$bs
->
use
(
'ssh-jobs'
)->
recv
;
my
@scripts
= ();
push
@scripts
, {
interpreter
=>
"/bin/sh"
,
script
=>
<<_SCRIPT_};
#!/bin/sh
date
uptime
df
_SCRIPT_
push
@scripts
, {
interpreter
=>
"/usr/bin/perl"
,
script
=>
<<_SCRIPT_};
#!/usr/bin/perl
use strict;
use warnings;
use Config;
print Config::config_vars(qw/osname osvers archname/);
die "This goes to STDERR";
_SCRIPT_
my
$job
=
$bs
->put({
priority
=> 100,
ttr
=> 10,
delay
=> 1,
encode
=> {
target
=>
'localhost'
,
scripts
=> \
@scripts
}})->
recv
;
say
STDERR
"job added to queue: "
. Dumper(
$job
->id);
exit
;