web: limit tables to 100000 rows

Avoid killing the browser

web/pages/mxq/mxq.in

@@ -13,6 +13,8 @@ our $dbh;
 our $hostconfig;
 our $q;
 
+our $LIMIT=100000;    # max rows
+
 sub STYLE {
 	return <<'EOF';
 <style>
@@ -233,6 +235,7 @@ sub job_table_pending {
 
 	$out.=$q->Tr($q->th(\@cols));
 
+	my $cnt=0;
 	while (my $row=$sth->fetchrow_arrayref()) {
 		my ($job_id,$user_name,$date_submit,$job_threads)=@$row;
 
@@ -242,8 +245,12 @@ sub job_table_pending {
 			$q->td($date_submit),
 			$q->td({class=>'number'},$job_threads),
 		);
+		++$cnt == $LIMIT and last;
 	}
 	$out.='</table>';
+	if ($cnt==$LIMIT) {
+		$out.=$q->p($q->em("(truncated after $LIMIT rows)"));
+	}
 }
 
 sub job_table_running {
@@ -313,7 +320,7 @@ __EOF__
 
 	my $lds;
 	my $col=1;
-
+	my $cnt=0;
 	while (my $row=$sth->fetchrow_arrayref()) {
 		my ($job_id,$job_status,$date_submit,$date_start,$date_end,$host_hostname,$host_pid,
 			$qtime,$qtime_now,$rtime,$rtime_now,$ds)=@$row;
@@ -346,8 +353,12 @@ __EOF__
 			$q->td($host_hostname),
 			$q->td({class=>'number'},$host_pid),
 		);
+		++$cnt == $LIMIT and last;
 	}
 	$out.='</table>';
+	if ($cnt==$LIMIT) {
+		$out.=$q->p($q->em("(truncated after $LIMIT rows)"));
+	}
 }
 
 sub job_status_filter_buttons {