+ <td width='20%' align='right' colspan='2'>$Lang::tr{'destination port'}: <img src='/blob.gif' />
+ <td width='30%' align='left' colspan='2'><input type='text' name='DPORT' maxlength='11' value='$outfwsettings{'DPORT'}' />
+ <tr><td width='20%' align='right'>$Lang::tr{'time'}:</td>
+ <td width='30%' align='left'>$Lang::tr{'advproxy monday'} $Lang::tr{'advproxy tuesday'} $Lang::tr{'advproxy wednesday'} $Lang::tr{'advproxy thursday'} $Lang::tr{'advproxy friday'} $Lang::tr{'advproxy saturday'} $Lang::tr{'advproxy sunday'}</td>
+ <td width='20%' align='right' colspan='2' />
+ <td width='15%' align='left'>$Lang::tr{'advproxy from'}</td>
+ <td width='15%' align='left'>$Lang::tr{'advproxy to'}</td></tr>
+ <tr><td width='20%' align='right'></td>
+ <td width='30%' align='left'><input type='checkbox' name='TIME_MON' $checked{'TIME_MON'}{'on'} />
+ <input type='checkbox' name='TIME_TUE' $checked{'TIME_TUE'}{'on'} />
+ <input type='checkbox' name='TIME_WED' $checked{'TIME_WED'}{'on'} />
+ <input type='checkbox' name='TIME_THU' $checked{'TIME_THU'}{'on'} />
+ <input type='checkbox' name='TIME_FRI' $checked{'TIME_FRI'}{'on'} />
+ <input type='checkbox' name='TIME_SAT' $checked{'TIME_SAT'}{'on'} />
+ <input type='checkbox' name='TIME_SUN' $checked{'TIME_SUN'}{'on'} /></td>
+ <td width='20%' align='right' colspan='2' />
+ <td width='15%' align='left'><select name='TIME_FROM'>
+END
+;
+for (my $i=0;$i<=23;$i++) {
+ $i = sprintf("%02s",$i);
+ for (my $j=0;$j<=45;$j+=15) {
+ $j = sprintf("%02s",$j);
+ my $time = $i.":".$j;
+ print "<option $selected{'TIME_FROM'}{$time}>$i:$j</option>\n";
+ }
+}
+print <<END
+ </select></td>
+ <td width='15%' align='left'><select name='TIME_TO'>
+END
+;
+for (my $i=0;$i<=23;$i++) {
+ $i = sprintf("%02s",$i);
+ for (my $j=0;$j<=45;$j+=15) {
+ $j = sprintf("%02s",$j);
+ my $time = $i.":".$j;
+ print "<option $selected{'TIME_TO'}{$time}>$i:$j</option>\n";
+ }
+}
+print <<END
+ </select></td></tr>
+ <tr><td colspan='6'>