From: Eric Bollengier Date: Thu, 6 Dec 2007 21:36:46 +0000 (+0000) Subject: ebl Get a working example X-Git-Tag: Release-3.0.0~2176 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=bc4498930a6127d78acb1f5b5d1bd1e3122dfec1;p=bacula%2Fbacula ebl Get a working example git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@6025 91ce42f0-d328-0410-95d8-f526ca767f89 --- diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm index 0eec8358c4..80d03e7862 100644 --- a/gui/bweb/lib/Bweb.pm +++ b/gui/bweb/lib/Bweb.pm @@ -4535,19 +4535,26 @@ sub display_next_job return $self->error("Can't get $arg->{job} schedule"); } my $jsched = $1; + my $jpool=''; + if ($job =~ /Pool: name=([\w\d\-]+) PoolType=/) { + $jpool = $1; + } my $out = $b->send_cmd("show schedule=\"$jsched\""); my $sched = new Bweb::Sched(); $sched->parse_scheds(split(/\r?\n/, $out)); my $ss = $sched->get_scheds($jsched); + my @ret; foreach my $s (@$ss) { my $level = $sched->get_level($s); - my $pool = $sched->get_pool($s); + my $pool = $sched->get_pool($s) || $jpool; my $evt = $sched->get_event($s); - print "$level on $pool
", Data::Dumper::Dumper($evt), "

"; + push @ret, map { "$_ : $pool ($level)\n" } @$evt; } + + print "$arg->{job}:
", sort @ret, "

"; } 1; diff --git a/gui/bweb/tpl/run_job.tpl b/gui/bweb/tpl/run_job.tpl index 9f333617a5..0f7893d151 100644 --- a/gui/bweb/tpl/run_job.tpl +++ b/gui/bweb/tpl/run_job.tpl @@ -19,6 +19,7 @@
+