The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
(function(host){if(typeof(console)=='undefined'){console={log:function(){}}}
var bind=function(object,method){return function(){return method.apply(object,arguments);};}
var Ajax={Request:function(url,opts){this.getTransport=function(){try{return new XMLHttpRequest()}catch(e){};try{return new ActiveXObject('Msxml2.XMLHTTP')}catch(e){};try{return new ActiveXObject('Microsoft.XMLHTTP')}catch(e){};alert("XMLHttpRequest not supported");};this.opts=opts;this.transport=this.getTransport();this.timeout=setTimeout(bind(this,function(){this.transport.abort();}),this.opts.wait);this.transport.open('get',url,true);this.transport.onreadystatechange=bind(this,function(){if(this.transport.readyState!=4){return}
clearTimeout(this.timeout);if(this.transport.status!=200){this.opts.onFailure&&this.opts.onFailure(this.transport);}else{this.opts.onSuccess&&this.opts.onSuccess(this.transport);}});this.transport.send(null);}};var check=function(wait){var start=+"{{now}}";new Ajax.Request(host,{wait:wait,onSuccess:function(transport){try{var json=JSON&&JSON.parse(transport.responseText)||eval('('+transport.responseText+')');if(json.changed>start){location.reload(true);}}catch(e){}
setTimeout(function(){check(wait)},1500);},onFailure:function(transport){setTimeout(function(){check(wait)},1500);}});};window['-plackAutoRefresh-']||(window['-plackAutoRefresh-']=1)&&check(+"{{wait}}");})("{{url}}/{{uid}}/{{now}}")