ebl limit to 1000 lines of log in display_log

     you can add limit= and offset= params

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

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 1e69b486e549184840a386c72d4a6f86b17b7fd9..d2679c825d1d2cfb329cebdcc99e588d09dffb37 100644 (file)
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -2956,11 +2956,15 @@ sub get_job_log
 {
     my ($self) = @_;
 
-    my $arg = $self->get_form('jobid');
+    my $arg = $self->get_form('jobid', 'limit', 'offset');
     unless ($arg->{jobid}) {
        return $self->error("Can't get jobid");
     }
 
+    if ($arg->{limit} == 100) {
+        $arg->{limit} = 1000;
+    }
+
     my $t = CGI::param('time') || '';
 
     my $query = "
@@ -2982,7 +2986,9 @@ SELECT Time AS time, LogText AS log
     OR (Log.JobId = 0 AND Time >= (SELECT StartTime FROM Job WHERE JobId=$arg->{jobid}) 
                       AND Time <= (SELECT COALESCE(EndTime,NOW()) FROM Job WHERE JobId=$arg->{jobid})
        )
- ORDER BY LogId;
+ ORDER BY LogId
+ LIMIT $arg->{limit}
+ OFFSET $arg->{offset}
 ";
 
     my $log = $self->dbh_selectall_arrayref($query);
@@ -3002,6 +3008,8 @@ SELECT Time AS time, LogText AS log
                     jobid => $arg->{jobid},
                     name  => $row->{name},
                     client => $row->{clientname},
+                    offset => $arg->{offset},
+                    limit  => $arg->{limit},
                 }, 'display_log.tpl');
 }