use Getopt::Long ;
use Bweb;
use Time::ParseDate qw/parsedate/;
+use POSIX qw/strftime/;
use CGI;
my $conf = new Bweb::Config(config_file => $Bweb::config_file);
my $arg = $bweb->get_form(qw/qiso_begin qiso_end qusage qpool qnojob
jclient_groups db_client_groups qclient_groups/);
+if (!$arg->{qiso_begin}) {
+ $arg->{qiso_begin} = strftime('\'%F %H:%M:00\'', localtime(time - 60*60*12));
+ $arg->{qiso_end} = strftime('\'%F %H:%M:00\'', localtime(time));
+}
use Digest::MD5 qw(md5_hex);
my $md5_rep = md5_hex("$arg->{qiso_begin}:$arg->{qiso_end}:$arg->{qusage}:" .
"$arg->{jclient_groups}:$arg->{qpool};$arg->{qnojob}") ;
<td valign='top'>
<h2>__Age__</h2>
<select name='age' class='formulaire' onclick='document.getElementById("since").value="";'>
+ <option id='age_86400' value='86400'>__1 day</option>
<option id='age_604800' value='604800'>__1 week__</option>
<option id='age_2678400' value='2678400'>__30 days__</option>
<option id='age_15552000' value='15552000'>__6 months__</option>
<td valign='top'>
<h2>__Age__</h2>
<select name='age' class='formulaire'>
+ <option id='age_86400' value='86400'>__Last 24h__</option>
<option id='age_604800' value='604800'>__This week__</option>
<option id='age_2678400' value='2678400'>__Last 30 days__</option>
<option id='age_15552000' value='15552000'>__Last 6 months__</option>