The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/* Timer for information page */

var i = 30;
var _go = 1;

function stop() {
  _go = 0;
  $('#timer').html("...");
}

function go() {
  if (_go) {
    $("#form").submit();
  }
}

function timer() {
  var h = $('#timer').html();
  if (i > 0) {
    i--;
  }
  h = h.replace(/\d+/, i);
  $('#timer').html(h);
  window.setTimeout('timer()', 1000);
}

$(document).ready(function() {
  if (activeTimer) {
    window.setTimeout('go()', 10000);
    window.setTimeout('timer()', 1000);
  } else {
    stop();
  }
});