The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<!DOCTYPE html>
<html>
  <!-- TODO : use templates here -->
  <head>
    <title>Reset Password</title>
    <script src="/yote/js"></script>
    <script>
    $().ready(function(){
        $.yote.init();
        var parts = window.location.href.split('?');
        var params = parts[1].split('&');
        var token;
        var topage;
        for( var i=0; i<params.length; ++i ) {
            var pair = params[i].split('=');
            if( pair[0] == 't' ) {
                token = pair[1];
            }
            if( pair[0] == 'p' ) {
                topage = $.base64.decode(pair[1]);
            }
        }
        function msg( msg ) {
            $('#msg').empty(); 
            $('#msg').append(msg); 
        }
        function reset_pw() {
            if( $('#pw1').val() == $('#pw2').val() && $('#pw1').val().length > 2 ) {
		var res = $.yote.fetch_root().recovery_reset_password( { p : $('#pw1').val(), p2 : $('#pw2').val(), t : token },
							       function(d) {
								   $( '#asker' ).hide();
							       },
								       function( d ) {
									   msg( d );
								       });
		location.href = res;
            } else {
                msg( 'passwords dont match or are too short' );
            }
        }
        $('#reset_b').click( function() { reset_pw() } );
        $('#pw1,#pw2').keypress( function(e) { if(e.which == 13 ) { reset_pw(); } });
	});
    </script>
    <style>
      .emp   { font-family:"Lucida Console",monospace;  }
#login_div { border: 1px solid black;padding:5px; margin: 5px;}
    </style>
  </head>
  <body>
    <h1>Reset Password</h1>
    <span id=msg></span>
    <div id=asker>
      <table><tr><td>Enter Password</td><td><input type=password id=pw1></td></tr>
	<tr><td>Enter Password</td><td><input type=password id=pw2></td></tr></table>
      <br><button type=button id=reset_b>Reset</button>
    </div>
  </body>
</html>