ebl Add begin/end param to Bweb::Sched object

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@6145 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index a7e44290985b03736c931f4b1296829b0571d754..461921ae2a1ac0c95db7475d75cd31b37c2d78f0 100644 (file)
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -1031,7 +1031,7 @@ use base q/Bweb::Gui/;
 
  my $b = $bweb->get_bconsole();
  my $s = $b->send_cmd("show schedule");
- my $sched = new Bweb::Sched();
+ my $sched = new Bweb::Sched(begin => '2007-01-01', end => '2007-01-02 12:00');
  $sched->parse_scheds(split(/\r?\n/, $s));
 
 
@@ -1048,6 +1048,27 @@ $VAR1 = {
         };
 =cut
 
+sub new
+{
+    my ($class, @arg) = @_;
+    my $self = $class->SUPER::new(@arg);
+
+    # we compare the current schedule date with begin and end
+    # in a float form ex: 20071212.1243 > 20070101
+    if ($self->{begin} and $self->{end}) {
+
+       $self->{begin} =~ s/(-|:)//g;
+       $self->{begin} =~ s/ /./;
+       $self->{end} =~ s/(-|:)//g;
+       $self->{end} =~ s/ /./;
+
+    } else {
+       delete $self->{begin};
+       delete $self->{end};
+    }
+    return bless($self,$class);
+}
+
 # cleanup and add a schedule
 sub add_sched
 {
@@ -1192,6 +1213,12 @@ sub get_events
            {
                foreach my $min (@{$s->{mins}}) # minute
                {
+                   if ($self->{begin}) {
+                       no integer;
+                       my $d = sprintf('%d%0.2d%0.2d.%0.2d%0.2d',
+                                       $year,$m,$md,$h,$min);
+                       next if ($d < $self->{begin} or $d > $self->{end});
+                   }
                    push @ret, sprintf($format, $year,$m,$md,$h,$min);
                }
            }
@@ -1696,6 +1723,10 @@ sub get_form
                 voluseduration=> 1,
                 volretention => 1,
                );
+    my %opt_t = (when => 2,    # option with time 
+                begin => 1,    # 1 hh:min are optionnal
+                end => 1,      # 2 hh:min are required
+                );
 
     foreach my $i (@what) {
        if (exists $opt_i{$i}) {# integer param
@@ -1743,7 +1774,14 @@ sub get_form
            if ($value =~ /^\s*(\d+\s+\w+)$/) {
                $ret{$i} = $1;
            }
-       } 
+       } elsif (exists $opt_t{$i}) { # 1: hh:min optionnal, 2: hh:min required
+           my $when = CGI::param($i) || '';
+           if ($when =~ /(\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2}))/) {
+               if ($opt_t{$i} == 1 or defined $2) {
+                   $ret{$i} = $1;
+               }
+           }
+       }
     }
 
     if ($what{slots}) {
@@ -1762,13 +1800,6 @@ sub get_form
         }
     }
 
-    if ($what{when}) {
-       my $when = CGI::param('when') || '';
-       if ($when =~ /(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2})/) {
-           $ret{when} = $1;
-       }
-    }
-
     if ($what{lang}) {
        my $lang = CGI::param('lang') || 'en';
        if ($lang =~ /^(\w\w)$/) {
@@ -4545,7 +4576,7 @@ sub run_job_now
 sub display_next_job
 {
     my ($self) = @_;
-    my $arg = $self->get_form(qw/job/);
+    my $arg = $self->get_form(qw/job begin end/);
     if (!$arg->{job}) {
        return $self->error("Can't get job name");
     }
@@ -4563,7 +4594,7 @@ sub display_next_job
     }
 
     my $out = $b->send_cmd("show schedule=\"$jsched\"");
-    my $sched = new Bweb::Sched();
+    my $sched = new Bweb::Sched(begin => $arg->{begin}, end => $arg->{end});
     $sched->parse_scheds(split(/\r?\n/, $out));
 
     my $ss = $sched->get_scheds($jsched); 

diff --git a/gui/bweb/technotes-2.3 b/gui/bweb/technotes-2.3
index afac31d529740644c133c49f5f3bddf34cdff455..f01ff769bea1000d971070832c1c0ff8ea6eab2e 100644 (file)
--- a/gui/bweb/technotes-2.3
+++ b/gui/bweb/technotes-2.3
@@ -1,4 +1,5 @@
 27Dec07
+ebl  Add begin/end param to Bweb::Sched object
 ebl  Fix a couple of small bug in GBalloon module when
      we don't find any valid job